libc_yacc.h 



#def ine 


ST_TSO 


768 


ffdefme 


stjtsoi 


769 


#def ine 


ST_TSE 


770 


#def ine 


ST_TSEI 


771 


#def ine 


ST_TSC 


772 


#def ine 


STJTSCA 


773 


#def ine 


ST_TSCB 


774 


#def ine 


STJTCLK 


775 


#def ine 


REV_V 776 




#def ine 


L_DEF_REAL 


777 


#def ine 


L_DEF_TEXT 


778 


#def me 


L_DEF_BOOL 


779 


#def ine 


L_INT 78 0 




#def ine 


L_REAL 


781 


#def ine 


L_STRING 


782 


#def ine 


L_NSTRING 


783 


#def ine 


L_E STRING 


784 


#def ine 


L_Q STRING 


785 


#def ine 


SDFJSKIP 


786 



extern YYSTYPE libclval; 
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#include <stdio.h> 
#include <assert.h> 
#include <string.h> 
#include <stdarg.h> 
#include <malloc.h> 



void libcerror (char *S) ; 
void lex_prev_state (void) ; 
void lex__next_pin_state (void) ; 

#include "libc def .h" 



extern char *yytext; 
extern int scaling_attr ; 

FILE *libcin; /* yyin */ 

char *f ile_name; 



#define KF() 



libc cell k factor () 



%token 
%token 
%token 
% token 
%token 
%token 
% token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
% token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 



K_LIBRARY /* 
K_ANPPP 
KJBNS 
K_COMMENT 
K_CU 
K_DATE 
K_DM 
K_IPSM 
K_LPU 
KJMWE 
K_MDL 
K_NP 
K_NT 

KJJTIDF 
KJtfPPP 

K_PT /* 

K_PU 

K_POPSRC 

K_POPV 

K_PIPV 

K_PRU 

K_RC /* 
K_REVISION /* 
K SIMULATION 



/* 

/* 

/* 



/* 
/* 
/* 



library */ 

/* aux_no_j?ulldown_j?in_property */ 

/* bus__naming_style */ 
comment */ 
current_unit */ 

/* date */ 
de 1 ay_mode 1 * / 

/* inj?lace_swap_mode */ 

/* leakage_power_unit */ 

/* max_wired_emitters */ 

/* multiple_drivers_legal */ 
nomjrocess */ 
nom_temperature */ 
nom_voltage */ 

/* nonpaired_twin_inc_delay_func */ 

/* no_jpulldown_j>in_jproperty */ 
piece__type */ 

/* power_unit */ 

/* pref erred_output_pad_slew_rate_control 
/* pref erred_output_j?ad_voltage */ 
/* pref erred_input_pad_voltage */ 
/* pulling_resistance_unit */ 

ref erence_capacitance */ 

revision */ 

/* simulation */ 
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%token 


K 


_TU 


/* 


time ■ 


unit */ 






%token 


K 


JJPP 




/* 


unconnected_jpin_property */ 






%token 


K 


_vu 


/* 


voltage_unit */ 






%token 


K 


JJLF 




/* 


wired_logic_function */ 






% token 


K 


JDCLP 




/* 


def ault_cell_leakage_power * 


/ 




%token 


K 


_DCP 




/* 


def ault__cell_power */ 






%token 


K 


_DCC 




/* 


def ault_connection class */ 






%token 


K 


JDFO 




/* 


def ault_edge_rate_breakpoint 


fO 


*/ 


%token 


K 


_DF1 




/* 


def ault_edge_rate_breakpoint 


_f 1 


*/ 


%token 


K 


_DR0 




/* 


def ault_edge_rate_breakpoint 


_r0 


*/ 


%token 


K 


_DR1 




/* 


def ault_edge_rate_breakpoint 


_rl 


*/ 


%token 


K 


_DEC 




/* 


def ault_emitter_count */ 






%token 


K 


_DFDI 




/* 


def ault_f all_delay__intercept 


*/ 




%token 


K 


_DFNT 




/* 


def ault_f all_nonpaired twin 


*/ 




%token 


K 


_DFPR 




/* 


def ault_f all _jpin_resistance 


*/ 




%token 


K 


_DFWR 




/* 


de f au 1 1 _f a 1 l_wi r e_r e s i s t anc e 


*/ 




%token 


K 


"dfwe 




/* 


def ault_f all_wor_emmiter */ 






%token 


K 


"dfwi 




/* 


def ault_f all_wor_intercept * 


/ 




%token 


K 


_dfl 




/* 


def ault_f anout__load */ 






%token 


K 


_DIOPC 




/* 


def ault_inout_jpin_cap */ 






%token 


K 


_DIOFR 




/* 


def ault_inout_pin_f all_res * 


/ 




%token 


K 


_DIORR 




/* 


def ault_inout_pin rise res * 


/ 




%token 


K_ 


_DIPC 




/* 


def ault_input_pin_cap */ 






% token 


k_ 


_DIF 




/* 


def ault_intrinsic_f all * / 






%token 




__DIR 




/* 


def ault__intrinsic rise */ 






%token 


K_ 


_DMC 




/* 


def ault_max_capacitance */ 






%token 




_DMFO 




/* 


def ault__max_f anout */ 






% token 


k~ 


_DMT 




/* 


def ault_max__ trans it ion */ 






%token 


K~ 


_DMU 




/* 


def ault_max_utilization */ 






% token 


K~ 


_DMP 




/* 


def ault_min_porosity */ 






%token 


k~ 


"doc 




/* 


de f au 1 1 _op e r a t i ng_c ond i t i on s 


*/ 




%token 


K_ 


[dopc 




/* 


def ault_outputjpin_cap */ 






%token 


K_ 


_DOFR 




/* 


def ault_output_pin_f all_res 


*/ 




%token 


K_ 


[dorr 




/* 


def ault_output_pin_rise res 


*/ 




%token 


K_ 


[dpl 




/* 


def ault_pin_limit */ 






%token 


K_ 


_DPP 




/* 


def ault _jpin_jpower */ 






%token 


K_ 


_DRFC 




/* 


def ault_rc_f all_coef f icient 


*/ 




%token 


K_ 


DRRC 




/* 


de f aul t jc c_r i s e_c oe f f i c i ent 


*/ 




%token 


K_ 


"drdi 




/* 


def ault_rise__delay__intercept 


*/ 




% token 


K_ 


JDRNT 




/* 


def ault_rise_nonpaired_twin 


*/ 




%token 


K_ 


_DRPR 




/* 


def ault_rise^pin_resistance 


*/ 




%token 


K_ 


DRWR 




/* 


de f au 1 1 __r i s e_wi r e_r e s i s t anc e 


*/ 




%token 


K~ 


DRWE 




/* 


def ault_rise_wor_emitter */ 






%token 


K_ 


DRW I 




/* 


def ault_rise_wor intercept *, 


/ 




%token 


K_ 


_DSC 




/* 


def ault_setup__coef f icient */ 






cmos2 */ 














%token 


K_ 


DSF 




/* 


de f aul t_s lope_f al 1 * / 






%token 


K_ 


DSR 




/* 


def ault__slope_rise */ 






%token 


K_ 


DWL 




/* 


def ault_wire_load */ 






%token 


K_ 


_DWLA 




/* 


default wire load area */ 






%token 


K_ 


_DWLC 




/* 


default_wire load capacitance */ 




%token 


K_ 


"dwlm 




/* 


def ault_wire_load__mode */ 






%token 


K_ 


DWLR 




/* 


de f au 1 1 _wi r e_l oad_r e s i s t anc e 


*/ 




%token 


K_ 


DWLS 




/* 


def aul t_wire__load_se lection ■ 


*/ 




%token 


P_ 


_CR 


/* 


k_process__cell_rise (temp/volt) */ 







/* cmos2 */ 
/* cmos2 */ 



/* 
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% token 


P 


_CF 


%token 


P 


_CLP 


%token 


P 


_CP 


%token 


P 


_DC 


%token 


P 


JDF 


%token 


P_ 


_DR 


%token 


P 


_FDI 


%token 


P 


_FPR 


%token 


P^ 


_FP 


%token 


P^ 


_FT 


%token 


P_ 


_FWR 


%token 


P~ 


__FWE 


%token 


P~ 


_FWI 


%token 


P_ 


_HF 


%token 


P_ 


_HR 


%token 


P~ 


_IP 


%token 


P_ 


_IF 


%token 


P~ 


_IR 


%token 


p" 


_MP 


%token 


P_ 


_MPWH 


%token 


P~ 


_MPWL 


%token 


P_ 


_NF 


%token 


P~ 


_NR 


%token 


P_ 


_PC 


%token 


P~ 


_PP 


%token 


p] 


JRF 


%token 


P_ 


_RR 


%token 


p[ 


_REF 


%token 


p] 


_RER 


%token 


P~ 


_RDI 


%token 


p" 


_RPR 


%token 


P_ 


_RP 


%token 


P_ 


_RT 


%token 


P_ 


_RWR 


%token 


P_ 


RWE 


%token 


P_ 


~rwi 


%token 


P_ 


_SF 


%token 


P_ 


_SR 


%token 


p 


SKF 


%token 


P~ 


~SKR 


%token 


P_ 


SLF 


%token 


P_ 


SLR 


%token 


P_ 


WC 


%token 


P_ 


_WR 


%token 


K_ 


CLU 


%token 






%token 


K_ 


DC A 


%token 


K_ 


_LF 


%token 


K_ 


PD 


%token 


K_ 


RL 


%token 


K_ 


TECH 


%token 


K_ 


CELL 


%token 


K_ 


IV 


%token 


K_ 


LTT 


%token 


K 


OC 



/* k_process_cell_f all (temp/volt) */ 

/* k__process_cell_leakage_power (temp/volt) */ 
k_process_cell_power (temp/volt) */ 
k_process_drive__current (temp/volt) (old) */ 
kjprocess_drive_f all (temp/volt) (old) */ 
k_process_drive__rise (temp/ volt) (old) */ 

/* k_process_f all_delay_intercept (temp/volt) */ 
/* k_j>rocess_f all_pin_resi stance (temp/volt) */ 
kjprocess_falljpropagation (temp/volt) */ 
/* k_process_f all_transit ion (temp/volt) */ 

/* k_process_fall__wire_resistance (temp/volt) */ 
/* k_j>rocess_f all_worjsmitter (temp/volt) */ 
/* k_process_fall_wor_intercept (temp/volt) */ 
k_j>rocess__hold_fall (temp/volt) */ 
k_process_hold_rise (temp/volt) */ 
k_process_internaljpower (temp/volt) 
k_process_intrinsic_f all (temp/ volt) 



*/ 
*/ 
*/ 



/* 
/* 
/* 

/* 



/ 



/* 
/* 
/* 
/* 

/* k__process_intrinsic_rise (temp/volt) 
/* kjprocess_min_period (temp/volt) */ 

/* k_process_min_pulse_width_high (temp/volt ) */ 
/* k_j3rocess__min_pulse_width_low (temp/volt) */ 
kj>rocess_nochange_fall (temp/volt) */ 
kjproces s_nochange_r ise ( temp / vol t ) * / 
/* k_process__pin_cap (temp/volt) */ 
/* k_process_pin_j>ower (temp/volt) */ 
/* k_process_recovery_fall (temp/ volt) */ 
/* k_process_recovery_rise (temp/volt) */ 

/* k_process_removal_fall (temp /volt) 
/* k_process_removal_rise (temp/volt) 
/* k_process__rise__delay_intercept (temp/volt) */ 
/* k_process_rise_pin_resistance (temp/volt) */ 
/* k_jprocess_rise__propagation (temp/volt) */ 
/* k_j>rocess_rise_transition (temp/volt) */ 

/* k_process_rise_wire_resistance (temp/volt) */ 
/* k_process_rise_wor__emitter (temp/volt) */ 
/* kjprocess_rise_wor__intercept (temp/volt) */ 
/* k_j>rocess_setup_fall (temp/volt) */ 
/* k_process_setup_rise (temp/volt) */ 

/* k_process_skew_f all (temp/volt) */ 
/* k_process_skew_rise (temp/volt) */ 
/* k_process_slope_f all (temp/volt) (old) */ 
/* k__process_slope_rise (temp/volt) (old) */ 
/* kj>rocess_wi redcap (temp/volt) */ 
/* k_process_wire_res (temp/volt) */ 

/* capacitive_load_unit */ 

/* define */ 

/* def ine_cell_area */ 
/* library__f eatures */ 
/* piece_define */ 
/* routing_layers */ 

/ * t echno 1 ogy * / 



/* 
/* 



*/ 
*/ 



/* cell */ 
/ * i nput_vo 1 t age * / 

/* lu_table_template */ 
/* operating_conditions */ 
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%token 


K_OV 


%token 


K_PCELL 


%token 


K_PLT 


%token 


K_PS 


%token 


K_RTD 


%token 


K_FTD 


%token 


K_SC 


%token 


K_SF 


%token 


K_TR 


%token 


K__TYPE 


%token 


K_WL 


%token 


K_WLS 


%token 


K_WLT 


%token 


AREA 


%token 


C__APC 


%token 


C_CF 


%token 


C_POWER 


%token 


C_LP 


% token 


C_CC 


%token 


CJDF 


%token 


CJDT 


%token 


C_GP 


%token 


C__DU 


% token 


C_HNC 


% token 


C_IT 


% token 


C_MO 


%token 


C_PC 


%token 


C_PT 


%token 


C PL 


%token 


C_P 


%token 


C_SF 


%token 


C_SG 


%token 


C SBD 


%token 


C_VN 


%token 


C_PE 


%token 


C_PO 


%token 


CJRC 


%token 


C_BUNDLE 


% token 


C_BUS 


%token 


C_FF 


% token 


C_FFB 


%token 


C_IP 


%token 


C_LPG 


%token 


C_LATCH 


%token 


C_LB 


%token 


C_LUT 


%token 


C_MEM 


%token 


C_PIN 


%token 


C_RT 


%token 


C_STATE 


%token 


C_ST 


%token 


C_TC 


%token : 


MEMBERS 



/* 
/* 
/* 

/* 



output_voltage */ 

/* parameterized_cell */ 

/* power_lut_template */ 
power_supply */ 

/* rise_transition_degradation 

/* fall_transition_degradation 
scaled_cell */ 
scaled_f actors */ 
timing_range */ 

/* type */ 
wire__load */ 

/* wire_load_selection */ 

/* wire_load_table */ 



/* 

/* 
/* 
/* 
/* 
/* 
/* 

/* 



/* area */ 

/* auxiliary_pad_cell */ 
cell_footprint */ 

/* cell_power */ 
cell_leakage_power */ 
contention_condition */ 
dont_false */ 
dont_touch */ 
geometryjprint */ 
dont_use */ 

/* handle_negative_constraint */ 
interf ace_timing (old) */ 
/ * map_only * / 
/* pad_cell */ 
/* pad_type */ 
/* pin_limit */ 
/* preferred */ 
/* scaling__f actors */ 
/* scan_group */ 

/* single_bit_degenerate */ 
/* vhdl_name */ 

/* pin_equal */ 
/* pin_opposite */ 
/* rail_connection */ 

/* bundle */ 
/* bus */ 
ff */ 

/* ffjsank */ 
internal _power */ 

/* leakage_power */ 
/* latch */ 
latch_bank */ 
/* lut */ 
/* memory */ 
/* pin */ 
/* rout ing_t rack */ 

/* state */ 
/* statetable */ 
/* test_cell */ 

/* members */ 



/* 
/* 

/* 



/* for FPGA */ 
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%token BUS_TYPE 
% token MEMJREAD 
%token MEM WRITE 



/* bus_type */ 
/* memory_read */ 
/* memory_write */ 



%token CE__PROPERTY /* cell_property */ 

%token CE_DE /* default_enum */ 

%token CE_PP /* parameter! zed_pin */ 

%token PP_PROPERTIES /* pin__properties */ 
%token PP_DISABLE /* disabled */ 



%token 
%token 
%token 
% token 
% token 
% token 
%token 
%token 
%token 
% token 
%token 
%token 
%token 

%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 



CLOCK_ON 

NEXT_ST 

CLEAR 

PRESET 

CL_PS_V1 

CL_PS_V2 

ON_ALS0 

ENABLE 

DATA_IN 

FORCE_01 

FORCE_10 

FORCE_00 

F0RCE_11 

REL^INP 

REL_INPS 

REL_OUTP 

VALUES 

IP_EOOO 

IP_PL 

IP__FP 

IP_RP 

IP__POWER 

VALUE 



/* clocked_on */ 
/* next_state */ 
/* clear */ 
/* preset */ 
/* clear_preset_varl */ 
/* clear_preset_var2 */ 
/* clock_on_also, enable_on_also */ 

enable */ 
/* data__in */ 
/* force_0l */ 
force_10 */ 
force_00 */ 
force 11 */ 



/ 



/ 

/* 
/* 



/* related_input */ 
/* related_inputs */ 
/* related_output */ 
/* values */ 

/* equal_or_opposite_output */ 
power_level */ 
fall_power */ 
rise_power */ 
power */ 
value */ 



/* 
/* 
/* 
/* 
/* 



%token LUT_IP 

%token CM_TYPE 
% token CM_RAM 
% token CM_ROM 
%token CM_ADDR_WIDTH 
%token CM_WORD_WIDTH 
% token CM_C_ADDR /* 
% token CM_R_ADDR /* 



/* inputjpins */ 



/* 

/* 
/* 
/* 
/* 



type (in memory group) 
ram */ 
rom */ 

address_width */ 
word_width */ 
column_address */ 
row address */ 



*/ 



%token 


PIN_ 


_CAP 


%token 


PIN_ 


_CLK 


%token 


pin] 


_CGEP 


%token 


PIN_ 


_CC 


%token 


PIN_ 


JDIR 


%token 


PIN_ 


_DF 


%token 


PIN_ 




%token 


PIN_ 


_DT 


% token 


PIN_ 


ERBFO 


%token 


pin] 


ERBFl 


%token 


PIN 


ERBRO 


%token 


PIN 


"erbri 



/* 
/* 
/* 
/* 



/* 
/* 
/* 
/* 
/* 
h 
/* 
/* 



capacitance */ 
clock */ 

clock_gate_enable_pin 
connect i on_c lass * / 
direction */ 
dont_false */ 
drive_current */ 
driver__type */ 
edge_rate_breakpoint_f 0 * / 
edge_rate_breakpoint_f 1 * / 
edge_rate_breakpoint_rO */ 
edge_rate_breakpoint_rl */ 



/* cmos2 */ 
/* cmos2 */ 
/* cmos2 */ 
/* cmos2 */ 
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%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
% token 
% token 
%token 
%token 
%token 
%token 
% token 
% token 
%token 
%token 
%token 
%token 
% token 
%token 
%token 
% token 
% token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
% token 
%token 
% token 
% token 
%token 
% token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
% token 
% token 
%token 
%token 



PIN_ERF 

PIN_ERR 

PIN_ERLF 

PIN__ERLR 

PIN_EC 

PIN_FCSAT /* 

PIN__FCSBT /* 

PIN_FTAT 

PIN_FTBT 

PIN_FWE 

PIN_FWI 

PIN_FL 

PIN_FUNCTION 

PIN_H 

PIN_IM 

PIN_ISL 

PIN_IV 

PIN_IN 

PIN_IO 

PIN IP 



PIN_MAX_FO /* max_fanout */ 



/* edge_rate_f all */ 
/* edge_rate_rise */ 
/* edge_rate_JLoad_fall */ 
/* edge_rate_JLoad_rise */ 
/* emitter_count */ 
f all_current_slop_af ter_threshold */ 
f all_current_slop_before_threshold * 
/* fall_time_after_threshold */ 
/* fall_time_before_threshold */ 
f all_wor_emitter */ 
f all_wor_intercept */ 
fanout_load */ 
function */ 
hysteresis */ 
input_map */ 
i npu t_s igna 1_1 eve 1 * / 
input_voltage */ 
internal_node */ 
/ * inverted_output * / 
/* is_jpad */ 



/* cmos2 */ 

/* cmos2 */ 

/* cmos2 */ 

/* cmos2 */ 



/ 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



PIN_MAX_TRANS 
PIN MAX CAP 



PIN_MIN_FO /* min_f anout */ 



/* max_transition */ 
/* max_capacitance */ 



P I N_M I N_TRANS 
PIN_MIN_CAP 
PIN_MP 
PIN_MPWH 
PIN_MPWL 
PINJV1PP 
PIN_MDL 
PIN_NST 
PIN^OSL 
PINJDV 
PIN_PFT 
PIN_PP 
PIN_PT 
PIN__PO 
PIN_PC 
PIN_PR 
PIN_RC 
PIN__RCSAT 
PIN_RCSBT 
PIN_RTAT 
PIN_RTBT 
PIN_RWE 
PIN_RWI 
PIN_SC 
PIN_SF 
PIN_TS 
PIN_VN 
PIN_WC 
PIN_WCC 
PIN_XF 
TIMING 

MIN PLUSE WIDTH 



/* 
/* 



/* min_transition */ 
/* min_capacitance */ 
/* min_jperiod */ 
/* min_pulse_width_high */ 
/* min_j>ulse_width_low */ 
/* multicell_j)ad_pin */ 
/* multiple_drivers_legal */ 
/* next__state_type */ 
/* output_signal_level */ 
/* output_voltage */ 
pin_func_type */ 
pin_power */ 
prefer_tied */ 
/* primary__output */ 
/* pulling_current */ 
/* pulling__resistance */ 
/* ref erence_capacitance */ 
/* rise__current__slop_af ter_threshold */ 
/* rise_current_slop_before_threshold */ 
/* rise_time_af ter_threshold */ 
/* rise_time_before_threshold 
/* rise_wor_emitter */ 
rise__wor_intercept */ 
slew_control */ 
stat e_f unction */ 
three_state */ 
vhdl_name */ 
wire_capacitance */ 
wired_connect ion_class * / 
x_f unction */ 
timing */ 

min_pulse_width */ 



I* 
/* 
i* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



MIN_PERI0D /* minimurnjperiod */ 
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%token PIN_IP0 

%token ADDRESS 

% token TRACKS 

% token TRAC K_AREA /* 

%token TABLE 



/* internal__power */ 

/* address */ 
/* tracks */ 
total_track_area * / 
/* table */ 



%token CTC_PIN 
%token CTC_DIR 
% token CTC_FUNC 
% token CTC_ST 
% token CTC TOO 



%token TI 
%token TI 
%token TI 
% token Tl" 
%token TI 
%token TI* 
%token Tl] 
%token Tl" 
%token Tl] 
%token Tl] 
%token Tl] 
%token TI_ 
%token TI_ 
%token TI_ 
%token TI_ 
%token TI_ 
%token TI™ 
%token Tl" 
%token TI_ 
%token Tl" 
%token TI_ 
%token TI 



_ERSF0 
_ERSF1 
_ERSR0 
JERSR1 

"fr 
]rr 

IF 
]lR 
_RBP 

]rop 

_RP 

_SDF_C 
]SDF_CS 
_SDF_CE 
_SDF_E 
SF 
SR 
*TT 
TS 

WHEN 

WS 

WE 



%token 
%token 
%token 
%token 
% token 
%token 
%token 
%token 
%token 
% token 
% token 
% token 
%token 
%token 
%token 
%token 
%token 



TI_FDI 

TI_FNT 

TI_FPR 

TI_FWR 

TI_RDI 

TI_RNT 

TI_RPR 

TI_RWR 

CELL_DEGR 

CELL_FALL 

CELL_RISE 

R_PROP 

F_PROP 

RJTRANS 

FJTRANS 

R_CONS 

F CONS 



/* pin in test_cell() ■ 

/* direction */ 

/* function */ 

/* signal_type */ 

/* test_output_only */ 



/* 
/* 

h 
/* 
/* 
h 
h 
/* 
h 
/* 
h 
h 



edge_rate__sensitivity_f 0 
edge_rate_sensitivity_f 1 
edge_rate_sensitivity_rO 
edge_rate_sensitivity__rl 
f all_resistance * / 
rise_resistance */ 
intrinsic_f all */ 
intrinsic_rise */ 
related_bus_pins */ 
related_output_pin */ 
related__pin */ 
sdf__cond */ 
/* sdf_cond_start */ 
/* sdf_cond_end */ 

/* sdf_edges */ 
slope_fall */ 
slope_rise */ 
timing_type */ 
timing_sense */ 
when */ 
when_start */ 
when end */ 



*/ 
*/ 
*/ 
*/ 



/* 
/* 

h 
h 
h 
h 
l* 



/* f all_delay__intercept */ 
/* f all_nonpaired_twin */ 
/* f all_jpin_resistance */ 
/* f all_wire_resistance */ 
/* rise_delay__intercept */ 
/* rise_nonpaired__twin */ 
/* rise_pin_resistance */ 



/ 



/* rise_wire_resistance 
/* cell__rise */ 
/* cell_fall */ 
cell_rise */ 

/* rise_propagation */ 
/* f all_propagation */ 
/* rise_transition */ 
/* f all_transition */ 
/* rise_constraint */ 
/* f all_constraint */ 



% token NO_EDGE /* noedge */ 

%token BOTH_EDGES /* bothjsdges */ 
% token START_EDGE /* start_edge */ 
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% token END_EDGE /* end_edge */ 

% token MPW_CH /* constraint Jiigh */ 

%token MPW_CL /* constraint_low */ 

%token MP_C /* constraint */ 



%token IV_L /* vil */ 

% token IV_H /* vih */ 

% token IV_MIN /* vimin */ 

%token IVJ4AX /* vimax */ 



/* variable__l */ 
/* variable_2 */ 
/* variable_3 */ 
/* index_l */ 
/* index_2 */ 
/* index_3 */ 

/* input_net_transition / input_transtion_time */ 
/* total_output_net_capacitance */ 
/* output_net_length */ 
/* output_net_wire_cap */ 
/* output_net_pin_cap */ 

%token LTT_ROTONC /* related_out_total_output_net_capacitance */ 

%token LTT_ROONL /* related_out_output_net_length */ 

%token LTT_ROONWC /* related_out_output_net__wire_cap */ 

%token LTT_ROONPC /* related_out_output_net jpin_cap */ 
%token LTT_CPT /* constrained_j>in_transition */ 

%token LTT^RPT /* related_pin_transition */ 

%token LTT_OPT /* output_pin_transition */ 

%token LTT_CD /* connect_delay */ 

%token OC_PROCESS /* process */ 
% token OCJTEMP /* temperature */ 

% token OC_TREE /* tree_type */ 

%token OC_VOLT /* voltage */ 

%token OC_PR /* powerjrail */ 

%token OV_L /* vol */ 

%token OV_H /* von */ 
%token OVJVIIN /* vomin */ 

%token OV_MAX /* vomax */ 



% token TBL_VAR1 
% token TBL_VAR2 
% token TBL__VAR3 
%token TBL_IDX1 
%token TBL_IDX2 
%token TBL_IDX3 
%token LTT_INT 
% token LTT_TONC 
% token LTT_ONL 
%token LTT_ONWC 
%token LTT ONPC 



%token PS_DPR 

% token PC_CELL_ENUM 
%token TR_FF 
%token TR SF 



/* def ault_power_rail */ 

/* cell_enum */ 

/* f aster_factor */ 

/* slower_f actor */ 



%token TYPE_BASE /* base_type */ 

% token TYPE_ARRAY /* array */ 

% token TYPE_FROM /* bit_from */ 

%token TYPE__TO /* bit_to */ 

%token TYPE_WIDTH /* bit_width~*/ 

% token TYPE_DT /* data_type */ 

%token TYPEJBIT /* bit */ 
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%token TYPE DOWNTO 



/* downto */ 



%token WL_RES 
%token WL__SLOPE 
% token WL_FL 
%token WLSJtfLFA 
% token WLT_AREA 
% token WLT_CAP 
%token WLT RES 



/* resistance */ 

/ * slope */ 

/* f anout_length */ 

/* wire_load_f rom_area 

/* fanout_area */ 

/ * f anout_capaci tance 

/* fanout resistance * 



%token BOOL_T 
%token BOOL F 



/* true */ 
/* false */ 



%token CU_A 
% token CUJMA 
% token CU UA 



/* A */ 

/* mA */ 
/* uA */ 



% token LU_MF 
% token LU_UF 
% token LU_NF 
%token LU_PF 
%token LU FF 



/* 
/* 
/* 

/* 
/* 



mf 
uf 



*/ 
*/ 



nf */ 



Pf 

ff 



*/ 
*/ 



% token VU_V 
% token VU MV 



V */ 

/* mV */ 



% token PU_W 
% token PU_MW 
% token PU_UW 
% token PU_NW 
%token PU PW 



/* w 



h 
h 

/* pW 



mW 
uw 
nW 



*/ 
*/ 
*/ 
*/ 



% token RU_OHM 
% token RU KOHM 



/* ohm */ 
/* kohm */ 



% token TU_NS 
%token TU PS 



ns */ 
ps */ 



%token DM_G_ECL /* generic_ecl */ 

%token DM_G_CMOS /* generic_cmos */ 
%token DM_TBL_LOOKUP /* table__lookup */ 



%token DM_CM0S2 
% token DM_P_COMS 

% token IPO__MF 
% token IPO_NS 
%token IPO_IF 

%token MMP_MAX 
%token MMPJMIN 
% token MMP PLUS 



/* cmos2 */ 
/* piecewise_cmos */ 

/* match__footprint */ 

/* no_swapping */ 

/* ignore_footprint */ 

/* max */ 

/* min */ 

/* plus */ 



% token PT_LENGTH /* piece_length */ 

%token PT__WIRE_CAP /* piece_wire_cap */ 

%token PT_PIN_CAP /* piece_pin_cap */ 

%token PT_TOTAL_CAP /* piece__total_cap */ 
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%token 


WLF_WAND 


/* 


wired__and */ 


%token 


WLFJfOR 


/* 


wired_or */ 


%token 


WLM T 


/* 


top */ 




WLM S 


/* 


segmented * / 


%token 


WLM_E 


/* 


enclosed */ 


%token 


RT PS 


/* 


pad_slots */ 


%token 


RT_PDS 


/* 


pad_driver sites */ 


%token 


RT_PIDS 


/* 


pad_input_driver_sites * / 


% token 


RT_PODS 


/* 


pad_output_driver__sites */ 


%token 


TT_BEST 


/* 


best_case tree */ 


■stolen 


mm t*i fi t 

TT BAL 


/* 


balanced tree */ 


% token 


TT_WORST 


/* 


worst_case_tree * / 


%token 


SA_SA0 


/* 


saO */ 


%token 


SA_SA1 


/* 


sal */ 


% token 


SA_SA01 


/* 


saOl */ 



% token DIR_INPUT /* 
% token DIRJDUTPUT /* 
% token DIR_INOUT /* 
%token DIR_ INTERNAL 

% token DRT_PULL_UP 
% token DRT_PULL_DOWN 
% token DRT_OPEN_DRAIN 
%token DRT_OPEN_SOURCE 
% token DRT_BUS_HOLD 
%token DRTJRES 
%token DRT_RES0 
%token DRT_RES1 

%token N_DATA 
% token N_PRESET 
%token N_CLEAR 
%token N_LOAD 
%token N_SCAN_IN /* 
%token N_SCAN_ENABLE 

% token CLKJENABLE /* 
%token ACT_HIGH 
% token ACT_LOW 
%token ACT_RISING /* 
%token ACT_FALL ING 

%token NONE_SC 
%token LOW_SC 
% token MED_SC 
%token HIGH SC 



input */ 
output */ 
inout */ 

/* internal */ 

/* pull_up */ 
/* pull__down */ 
/* pull_open_drain */ 
/* pull__open_source */ 
/* pull_bus_hold */ 
/* resistive */ 
/* resistive_0 */ 
/* resistive_l */ 

/* data */ 
/* preset */ 
/* clear */ 
/* load */ 
scan_in */ 

/* scan_enable */ 

clock_enable */ 

/* active_high */ 
/* active_low */ 
act ive_ri sing */ 

/* active_f ailing */ 

/* none */ 

/* low */ 

/* medium */ 

/* high */ 



%token TIT_RE /* rising_edge */ 

%token TIT_FE /* falling_edge */ 

%token TIT_PS /* preset */ 

%token TIT_CL /* clear */ 

%token TIT_HR /* hold_rising */ 
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%token 


m t* m ttti 

TIT__HF 


/* 


hold_f ailing */ 


%token 


TIT_SR 


/* 


setup_rising */ 


-s uoxen 


111 or 


/* 


setup_f ailing */ 


%token 


TIT RR 


/* 


recovery_rising */ 


%token 


TIT_RF 


/* 


recovery_f ailing */ 


%token 


TIT TSD 


/* 


three_state disable */ 


SZOKQH 


111 ibii 


/* 


three_state_enable */ 


■suOKen 


rpTrp T-jTUT-n 

111 KMR 


/* 


r emova l_r i s i ng * / 


t> LUKcIl 


111 Knr 


/* 


removal_f ailing */ 


+- A lj- n -n 


TIT C 


/* 


combinational */ 


^coKen 


TIT_SKR 


/* 


skew_rising */ 


■stoKen 


TIT SKF 


/* 


skew_f ailing */ 


%token 


TIT_NSHR 


/* 


non_seq_hold_rising */ 


% token 


TIT_NSHF 


/* 


non_seq_hold_f ailing */ 


% token 


TIT_NSSR 


/* 


non_seq_setup_rising */ 


%token 


TIT_NSSF 


/* 


non_seq_setup_f ailing */ 


%token 


TIT_NCHH 


/* 


nochange_high_high */ 


% token 


TIT_NCHL 


/* 


nochange_high low */ 


% token 


TIT_NCLH 


/* 


nochange low high */ 


%token 


TIT_NCLL 


/* 


nochange_low low */ 


%token 


TIS_POS 


1* 


posit ive_unate */ 


%token 


TIS_NEG 


/* 


negative__unate */ 


%token 


TIS_NON 


/* 


non_unate */ 


%token 


ST_TSI 


/* 


test_scan_in */ 


%token 


STJTSII 


/* 


test_scan_in_inverted */ 


% token 


ST_TSO 


/* 


test_scan_out */ 


%token 


ST_TSOI 


/* 


test_scan_out_inverted */ 


%token 


ST_TSE 


/* 


test scan enable * / 


%token 


STJTSEI 


/* 


test_scan_enable inverted */ 


%token 


ST_TSC 


/* 


test_scan_clock */ 


%token 


STJTSCA 


/* 


test_scan_clock a */ 


% token 


ST_TSCB 


/* 


test_scan clock b */ 


%token 


STJTCLK 


/* 


test_clock */ 


% token 


REV_V 


/* 


[0-9 . ] + ( [a-zA-Z] ) ? revision 



% token L_DEF_REAL /* {string} for define () attr */ 
%token L_DEF_TEXT /* {string} for define () attr */ 
%token L_DEF_B00L /* {string} for define () attr */ 



% token L_INT 
% token LJREAL 
% token L_STRING 
%token L_NSTRING 
%token LJESTRING 
%token L_QSTRING 

%token SDF SKIP 



/* {integer} */ 

/* {real} */ 

/* {string} */ 
/* {nstring} for \"lA\ n */ 
/* "10x10" */ 

/* {qstring} for statetable */ 
/* for sdf expression */ 



%left 
%lef t * | ' 
%left 



%% 
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source code 



*/ 



{ libc_def_init () ; } 
def_attrs. 1 i bra ry_g roup 



def attrs , 



def attrs 



def attrs 



def_attr 

def attrs def attr 



def_attr 
value */ 



string ' = * n_expression semicolon. /* define 

{ libc_def_gc_insert ($1. string, $3. real__val) ; } 



identifier 



L_STRING 
L__NSTRING 
L ESTRING 



/* id or "id" */ 

string 



: identifier 
' " ' identifier ' " ■ 
{ $$ - $2; } 



QSTR_string 



name 



L_QSTRING 

string { 1 ex jp revest ate () ; $$ 
: string 



$1; } 



name . 



: name 

{ $$. string = NULL; } 



name list 



name 



{ libc_util__name_listl (&($$),&($!)) ; } 
name_l i s t c omma . name 

{ libc_util_name_list2 (&($$),&($!),& ($3) ) ; } 



qname_list 



identifier 
{ libc__util_name_listl {&($$),& ($1) ) ; } 

,Mt id_list 
{ $$ = $2; } 



id list 



identifier 

; libc_util_name_listl (&($$) ,M$1) ) ; } 
id list comma, identifier 
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{ libc_util_name_list2 (&($$),&{$!),& ($3) ) ; } 



real 

$2.int_val; } 
$2.real_val; } 



sign L_INT 
sign L_REAL 



{ $$.real_val = $l.real_val 
{ $$.real_val = $l.real_val 



sign 



{ $$.real_val =1.0; } 
{ $$.real_val = -1.0; } 
{ $$.real__yal = 1.0; } 



value 



real 

' " * real ■ " ' 
' { ' real ' } ' 



{ $$.real_val = $2.real_val; } 
{ $$.real_val = $2.real_val; } 



/* white space or comma as separator */ 

value_JList : real 

{ libc_util_float_listl {&($$),&($!)) ; } 
| value_list comma, real 
{ libc_util_float_list2 <&{$$),&($!),& ($3) ) ; } 



qvalue_list 



1 " * value__list » " » 
{ $$ = $2; } 



qvalue_lists 



: qvalue_list 
{ libc_util_float_list_listl (&($$) ,&($!) ) ; } 
qvalue_lists comma. qvalue_list 
{ libc_util_float_list_list2 (&{$$) ,&($!) ,&($3) ) ; 



comma . 



semicolon. 



sdf_skips 



SDFJSKIP 

sdf_skips SDF_SKIP 



library_group 



7 



: K_LIBRARY 1 { ' name 1 ) ' 
{ lex_prev_state () ; 

tech_lib = new_libc_lib_rec () ; 
tech__lib->lib_name = $3. string; 

tech_lib->bus_naming_style = copy_string ( "%s [%d] " ) ; 
tech__lib->k_f actor = new__libc__k_f actor_rec ( ) ; 
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tech_lib->k_f actor- >kf_name = NULL; 

} 

1 { ' lib_descriptions ' } ' 

{ lex_prev_state () / } 
semicolon. 

lib_descriptions : lib_de script ion 

| lib_descriptions lib_description 
/ 

lib_description : def_attr 

| lib_simple_attr 
| lib_def ault_attr 
| lib_k__attr 
| lib_complex_attr 
| 1 i b_g r oup_s t m t 
j ignored_stmt 

ignored_stmt ; L_DEF_REAL value semicolon. 

{ f ree_text_buf f er ($1 . string) ; } 
I L_DEF_TEXT QSTR_string semicolon. 

{ f ree_text_buf f er ($1 . string) / 
f ree__text_buf f er ($3 . string) ; } 

| L_DEF_BOOL *:' boolean semicolon. 
{ free_text_buffer ($1. string) ; } 



lib_simple_attr : K_ANPPP { libc__time_delay_model (GENERIC_ECL) ; } • 

string semicolon. 

{ tech_lib->aux_no_pulldown_pin_property = $4. string; } 
| K_BNS L_QSTRING semicolon. 

{ free_text_buffer (tech_lib->bus_naming_style) ; 
tech_lib->bus_naming_style = $3. string; } 
j K_COMMENT ' : ' L__Q STRING semicolon. 

{ tech_lib->comment = $3. string; } 
| K_CU ' : 1 cap_unit semicolon. 

{ tech_lib->current_unit = $3. unit; } 
| K_DATE L_QSTRING semicolon. 

{ tech_lib->date = $3. string; } 
| KJDM 1 : 1 delay_model semicolon. 
| K_IPSM 1 : ' ipo_type semicolon. 
| K__LPU power_unit semicolon. 

{ tech_lib->leakage_j?ower_unit = $3. unit; } 
| K_MWE ':' L_INT semicolon. 

{ tech__lib->max_wired_emitters = $3.int_val; } 
[ K__MDL T : • boolean semicolon. 

{ tech_lib->multiple_drivers_legal = $3.int_val; } 
| KJKTP ' : ' value semicolon . 

{ tech_lib->nom_jprocess = $3.real_val; } 
| K_NT 1 : ' value semicolon. 

{ tech_lib->nom_temperature = $3.real_val; } 
I K-J^V ' : ' value semicolon. 

{ tech_lib->nom_voltage = $3.real_val; } 
| K_NTIDF { libc_time_delay_model (GENERIC_ECL) ; } ' : ' 
mmp_type semicolon. 
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semicolon. 



$3. string; } 



semicolon. 



K_NPPP { libc_time_delay_model (GENERIC_ECL) ; } ■ :' string 

tech_lib->no__pulldown_pin_jproperty = $4. string; } 
K_PT * : 1 piece_type semicolon. 
K__PU ' : ' L_INT power_unit semicolon. 

tech_lib->power_unit = $3. unit; } 
K_POPSRC 1 string semicolon. 

tech_lib->pref erred_output_pad_slew_rate_control = 

K_POPV ' : • string semicolon. 

tech_lib->pref erred_output_pad_voltage = $3. string; } 
K_PIPV 1 : ' string semicolon. 

tech_lib->preferred_inputjpad_voltage = $3. string; } 
K_PRU ' : ' res__unit semicolon. 

tech_lib->pulling_resistance_unit = $3. unit; } 
K_RC ': T value semicolon. /* cmos2 */ 

tech_lib->ref erence_capacitance = $3.real_val; } 
K_REVISION ' lib_revision semicolon. 

tech_lib->revision = $3. string; } 
KJSIMULATION 1 : 1 boolean semicolon. 

tech_lib->simulation = $3.int_val; } 
KJTU ' : 1 time_unit semicolon. 

tech_lib->time_unit = $3. unit; } 
K_UPP { libc_time_delay_model ( GENER I C__ECL ) ; } ' : ' string 



tech__lib->unconnected_pin_j?roperty = $4. string; } 
K_VU ' : * volt_unit semicolon. 
tech_lib->voltage_unit = $3. unit; } 
| K_WLF { libc_time_delay_model ( GENER I C_ECL ) ; } ' : ' 
wire_logic_f unc semicolon. 



lib revision 



: REV V 



/* CU */ 

cap_unit 



; c_unit 

L_INT c_unit 
{ $2.unit->V = (float) $l.int_val; 
$$.unit = $2. unit; 

} 

1 " ' L__INT c_unit ' " » 
{ $3.unit->V = (float) $2.int_val; 
$$.unit = $3. unit; 

} 



c unit 



CU_A 
CU_MA 
CU UA 



{ $$.unit = libc_util_unit (1.0) ; } 
{ $$.unit = libc__util_unit (1 . Oe-3) ; } 
{ $$.unit = libc_util_unit (l.Oe-6) ; } 



/* DM */ 

delay__model 



: dm_class 
' n * dm class ' n ' 
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dm class 



: DM_G_ECL { libc_time_delay_model (GENERIC_ECL) ; 
DM_G_CMOS { libc_time_delay_model (GENERIC_CMOS) ; } 
DM_TBL_LOOKUP { libc_time_delay_model (TABLE_LOOKUP) 
DM_CM0S2 { libc_time_delay_model (CM0S2) ; } 
DM_P_COMS { libc_time_delay_model (PIECEWISE_CMOS) ; } 



/* IP0 */ 

ipo_type 



: ipo_tt 

j ' " 1 ipo_tt 1 " ' 



ipo_tt 
MATCH_FOOTPRINT ; 



IGNORE_FOOTPRINT ; } 



IPO_MF { tech_lib->in_place_swap_mode = 

IPOJSTS { tech_lib->in_place_swap_mode = N0J3WAPPING; } 
IPO_IF { tech_lib->in_place_swap_mode = 



/* PU */ 

power_unit 



: p_unit 
| L__INT p_unit 
{ $2.unit->V = (float) $l.int_val; 
$$.unit = $2. unit; 

} 

| 1 " • L_INT p_unit • » ' 
{ $3.unit->V= (float) $2.int_val; 
$$.unit = $3. unit; 

} 



p_unit 



PU_W 
PU_MW 

PU_UW 
PU_NW 
PU PW 



{ $$.unit 

{ $$.unit 

{ $$.unit 

{ $$.unit 

{ $$.unit 



= libc_util_unit (1.0) ; } 
= libc_util_unit (1. Oe-3) ; } 
= libc_util_unit (l.Oe-6) ; } 
= libc_util_unit (1. Oe-9) ; } 
= libc_util_unit (1.0e-12) ; } 



/* BOOL */ 

boolean 



BOOL_T { $$.int_val = 1; } 

' " ' BOOLJT { $$.int_val = 1; } 

BOOL_F { $$.int_val - 0; } 

' BOOL_F { $$.int_val = 0; } 



/* MMP */ 

mmp_type 

MAX_E; } 
MIN_E; } 
PLUS_E; } 



MMP_MAX { tech_lib->nonpaired_twin_inc_delay_func 
MMP_MIN { tech_lib->nonpaired_twin_inc_delay_func 
MMP_PLUS { tech_lib->nonpaired_twin_inc__delay_func 



/* PT */ 

piece__type 



PT_LENGTH { tech_lib- >piece_type = PIECE__LENGTH ; } 
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PT_WIRE_CAP 

PT_PIN_CAP 
PT TOTAL CAP 



{ tech_lib->piece_type = PIECE_WIRE_CAP ; 

{ tech_lib->piece_type = PIECE_PIN_CAP; } 
{ tech_lib->piece__type = PIECE_TOTAL_CAP; 



/* RU */ 

res unit 



r_unit 

L_INT r_unit 
{ $2.unit->V = (float) $1 . int__val ; 
$$.unit = $2. unit; 

} 

' " 1 L_INT r_unit ' » * 
{ $3.unit->V = (float) $2.int_val; 
$$.unit = $3. unit; 

} 



r unit 



RU_OHM { $$.unit = libc_util_unit (1 . 0) ; } 
RU_K0HM { $$.unit = libc_util__unit (1 . 0e3 ) ; } 



/* TU */ 

time unit 



t_unit 

L_INT t_unit 
{ $2.unit->V = (float) $l.int_val; 
$$.unit = $2. unit; 

} 

1 " ' L_INT t__unit ' " ■ 
{ $3.unit->V = (float) $2.int_val; 
$$.unit = $3. unit; 

} 



t unit 



TU_NS 
TU PS 



{ $$.unit = libc_util_unit (1.0e-9) ; } 
{ $$.unit = libc_util_unit (1. Oe-12) ; } 



/* VU */ 

volt unit 



v_unit 
L_1NT v__unit 
{ $2.unit->V = (float) $l.int_val; 
$$.unit = $2. unit; 



' " * L__1NT v_unit * " 1 
{ $3.unit->V = (float) $2.int__val; 
$$.unit = $3. unit; 

} 



v unit 



VU__V 
VU MV 



{ $$.unit = libc_util_unit (1.0) ; } 
{ $$.unit = libc_util_unit (1.0e-3) ; } 



/* WLF */ 

wire_logic_func : WLF_WAND { tech_lib- >wired_logic_f unction = WIRED__AND; } 
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WIiF_WOR { tech_lib->wired_logic_f unction = WIRED_OR; } 



lib_def ault_attr : K_DCLP ' : 1 value semicolon, { tech_lib- 
>def ault_cell_leakage_power = $3.real_val; } 

| K__DCP ' : T value semicolon. { tech__lib- 
>def ault_cell jpower = $3.real_val; } 

| K__DCC * : » name_list » ; ' { tech_lib- 

>def ault_connection_class = $3 . name_list . head; } 

| K_DF0 { libc__time_delay_model (CM0S2) ; } ':' value 



semicolon. 

} 

semicolon . 

} 

semicolon. 

} 

semicolon. 

} 



{ tech_lib->def ault_edge_rate__breakpoint_f 0 = $4.real_val; 

K_DF1 { libc_time_delay_model (CM0S2) ; }':' value 
{ tech_lib->default_edge_rate_breakpoint_f 1 = $4 . real__val ; 

K_DR0 { libc_time_delay_model (CM0S2) ; } ':' value 
{ tech_lib->default__edge_rate_breakpoint_rO = $4 . real__val ; 

K_DR1 { libc_time__delay_model (CM0S2) ; } ':' value 
{ tech_lib->def ault_edge_rate__breakpoint_rl = $4 . real_val ; 



| K_DEC L_INT semicolon. { tech_lib- 

>def ault_emitter_count = $3.int_val; } 

K_DFDI { libc_time_delay_model (PlECEWISE_CMOS) ; } 



value semicolon. 



value semicolon. 



value semicolon. 



{ tech_lib->def ault_f all_delay_intercept = $4.real_val; } 
K_DFNT { libc_time_delay_model (PIECEWISE_CMOS) ; } ':' 

{ tech__lib->def ault_f all__nonpaired_twin = $4 . real__val ; } 
K_DFPR { libc_time_delay_model (PIECEWISE_CMOS) ; } ' : 1 



{ tech__lib->def ault_f all _j?in_resi stance = $4 . real_val ; } 

| K_DFWR value semicolon. { tech_lib- 

>def ault_f all_wire_resistance = $3.real_val; } 

| K_DFWE • : * value semicolon. { tech_lib- 
>def ault_f all_wor_emitter = $3.real_val; } 

| K_DFWI ':' value semicolon. { tech_lib- 
>def ault_f all_wor_intercept = $3.real_val; } 

| K_DFL value semicolon. { tech_lib- 
>def ault_f anout_load = $3.real_val; } 

| KJ3I0PC ' : ' value semicolon. { tech_lib- 

>def ault_inout_pin_cap = $3 . real__val ; } 

| K_DIOFR f : ' value semicolon. { tech_lib- 

>def ault_inout_pin_f all_res = $3 . real_val ; } 

| KJDIORR f :' value semicolon. { tech_lib- 

>def ault_inout_pin_rise_res = $3.real_val; } 

| K_DIPC value semicolon. { tech_lib- 

>default__input_pin_cap = $3.real_val; } 

| K_DIF value semicolon. { tech_lib- 

>def ault_intrinsic_f all = $3.real_val; } 
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I K_DIR 1 : 1 value semicolon. 
>def ault_intrinsic_rise = $3.real_val; } 

| K_DMC ' : ' value semicolon. 
>def ault_max_capacitance = $3 . real__val ; } 

| K_DMFO ':' value semicolon. 
>def ault_max__f anout - $3.real_val; } 

| K_DMT f : ' value semicolon. 
>def ault_max_transition = $3.real_val; } 

| K_DMU ' : 1 value semicolon. 
>def ault_max_utilization = $3.real_val; } 

| K_DMP ' : ' value semicolon. 
>def ault__min_j?orosity - $3.real_val; } 

| KJDOC ' : 1 name semicolon. 
>def ault_operating_conditions = $3. string; } 

| K_DOPC 1 : » value semicolon. 
>def ault_outputjpin_cap = $3.real_val; } 

| K_DOFR 1 : ' value semicolon. 
>def ault__output_pin__f all_res = $3.real_val; } 

| K_DORR • : 1 value semicolon. 
>def ault_output_pin_rise_res = $3.real_val; } 

| KJDPL ' L_INT semicolon. 

= $3.real_val; } 

| K_DPP 1 : ' L_INT semicolon. 

= $3.real_yal; } 

| KJDRFC value semicolon. 

>def ault_rc_f all__coef f icient = $3.real_val; } 

| K_DRRC value semicolon. _ 

>default_rc_rise_coeff icient = $3.real_yal; } 

| K_DRDI { libc_time_delay_model (PIECEWISE_CMOS) ; } 

value semicolon. 



tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 
tech_lib- 

tech_lib->def ault_pin__limit 
tech_lib->def ault_pin_power 
tech_lib- 
tech lib- 



value semicolon. 



value semicolon. 



{ tech_lib->def ault_rise_delay__intercept = $4.real_val; } 
K_DRNT { libc_time_delay_model (PIECEWISE_CMOS) ; } ':' 

{ tech_lib->def ault_rise_nonpaired_twin = $4.real_val; } 
K_DRPR { libc_time_delay_model (PIECEWISE_CMOS) ; } »:» 

{ tech_lib->def ault_rise__pin__resistance = $4. real val; } 





| KJDRWR ■ : 


' value semicolon. 


{ 


tech 


_lib- 


>def ault_ 


_rise_wire__re si stance 


= $3.real_val; } 










| K_DRWE * : 


1 value semicolon. 


{ 


tech 


_lib- 


>def ault_ 


_rise_wor_emitter = $3. real val; } 










| K_DRWI ' : 


' value semicolon. 


{ 


tech_ 


_lib- 


>def ault_ 


jrise_wor_intercept = 


$3.real_val; } 










| K_DSC ' : ' 


value semicolon. 


{ 


tech_ 


_lib- 


>def ault_ 


_setup_coeff icient = 


$3.real__val; } 








| K_DSF » : " 


value semicolon. 


{ 


tech_ 


_lib- 


>def ault_ 


_slope_fall = $3. real 


_val ; } 










| K_jDSR ' : ' 


value semicolon. 


{ 


tech_ 


_lib- 


>def ault 


_slope_rise = $3. real 


_val; } 







I K_DWL ' : ' name 
{ lex_j?revjstate () ; tech_lib->def ault_wire_load = 
$3. string; } semicolon. 

| K_DWLA • : 1 value semicolon. { tech__lib- 
>def ault_wire_load_area = $3.real_val; } 

| K_DWLC ' : 1 value semicolon. { tech_lib- 
>def ault_wire_load_capacitance = $3 . real__val ; } 

I K DWLM 1 : ' wire load mode semicolon. 
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| K_DWLR value semicolon. { tech_lib- 

>def ault_wire_load_resistance = $3 . real_val ; } 

| KJDWLS ' : * name 
{ lex_jprev_state ( ) ; tech__lib->def ault_wire_load_selection 
= $3. string; } semicolon. 

/* WLM */ 

wire_load_mode : WLM_T { tech_lib- >def ault__wire_load_mode = 
TOP_WL; } 

| WLM_S { tech_lib- >def ault_wire_load_mode = 

SEGMENTEDJtfL; } 

| WLIYME { tech_lib->def ault_wire_load_mode = 

ENCLOSED_WL; } 



/* */ 

lib_k_attr : P_CR { 1 ibc_time_del ay jnodel (TABLE JjOOKUP) ; } value 
semicolon. 

{ kfc = KF(); kf c->k_cell_rise [scaling_attr] = $4.real_val; 
| P_CF { libc_time_delay_model ( TABLE_LOOKUP ) ; } value 

semicolon. 

{ kfc = KF ( ) ; kf c->k_cell_f all [scaling_attr] = $4.real_val; 

| P_CLP value semicolon. { kfc = KF ( ) ; kfc- 
>k_cell_leakage_power [scaling__attr] = $3 . real__val ; } 

| P_CP value semicolon. { kfc = KF ( ) ; kfc- 

>k_cell_power [scaling_attr] = $3.real_val; } 

| P_DC value semicolon. { kfc = KF ( ) ; kfc- 

>k_drive_current [scaling_attr] = $3 . real_val ; } 

| P_DF •:* value semicolon. { kfc = KF ( ) ; kfc- 
>k_drive_f all [scaling_attr] = $3 . real_val ; } 

| P_DR ':' value semicolon. { kfc = KF ( ) ; kfc- 
>k_drive_rise [scaling_attr] = $3.real_val; } 

| P_FDI { libc_time_delay_model (PIECEWISE_CMOS) ; } 1 : ? value 

semicolon. 

{ kfc = KF ( ) ; kf c->k_f all_delay_intercept [scaling_attr] = 
$4.real_val; } 

| P__FPR { libc_time_delay_model (PIECEWISE_CMOS) ; } value 

semicolon. 

{ kfc = KF ( ) ; kf c->k_f all_pin_resistance [scaling_attr] = 
$4.real_val; } 

| P_FP { libc_time_delay_model (TABLE_LOOKUP) ; } value 

semicolon . 

{ kfc = KF ( ) ; kf c->k_fallj>ropagation [scaling_attr] = 
$4.real_val; } 

| P_FT { libc_time_delay_model ( TABLE_LOOKUP ) ; } ' : ' value 

semicolon. 

{ kfc = KF ( ) ; kf c->k_f all_transition [scaling_attr] = 
$4.real_val; } 

| P_FWR r :' value semicolon. { kfc = KF ( ) ; kfc- 
>k_f all_wire_resistance [scaling_attr] = $3 . real_val ; } 

| PJFWE ■:' value semicolon. { kfc = KF ( ) ; kfc- 
>k_f all_wor_emitter [scaling_attr] = $3.real_val; } 

| P_FWI »:' value semicolon. { kfc = KF ( ) ; kfc- 
>k_f all_wor_intercept [scaling_attr] = $3.real_val; } 
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| P_HF value semicolon. { kfc = KF(); kfc- 
>k_hold_f all [scaling_attr] = $3.real_val; } 

| P_HR value semicolon. { kfc = KF ( ) ; kfc- 

>k_hold_rise [scaling_attr] = $3 . real_val ; } 

| P_IP value semicolon. { kfc = KF ( ) ; kfc- 
>k_internal_power [scaling_attr] = $3.real_val; } 

| P_IF ': f value semicolon. { kfc = KF(); kfc- 
>k_intrinsic_f all [scaling_attr] = $3 . real__val ; } 

| P_IR value semicolon. { kfc = KF ( ) ; kfc- 

>k__intrinsic_rise [scaling_attr] = $3.real_val; } 

| P_MP value semicolon. { kfc = KF ( ) ; kfc- 

>k_min_period [scaling_attr] = $3.real_val; } 

| P_MPWH ':' value semicolon. { kfc = KF ( ) ; kfc- 
>k__min_pulse_width_high [scaling_attr] = $3.real_val; } 

| P_MPWL 1 value semicolon. { kfc = KF ( ) ; kfc- 
>k_min_pulse_width_low [scaling_attr] = $3.real_val; } 

| P_NF ':' value semicolon. { kfc = KF(); kfc- 
>k_nochange_f all [scaling_attr] = $3.real_val; } 

| P_NR *:* value semicolon. { kfc = KF ( ) ; kfc- 
>k_nochange__rise [scaling_attr] = $3.real_val; } 

| P_PC value semicolon. { kfc = KF(); kfc- 
>k_pin_cap [scaling_attr] = $3.real_val; } 

| P_PP ! : r value semicolon. { kfc = KF(); kfc- 
>kj>in_power [scaling_attr] = $3 . real_val ; } 

| P_RF value semicolon. { kfc = KF ( ) ; kfc- 

>k_recovery_f all [scaling_attr] = $3.real_val; } 

| P_RR ':' value semicolon. { kfc = KF ( ) ; kfc- 
>kjrecovery_rise [scaling_attr] = $3.real_val; } 

| P_REF value semicolon. { kfc = KF ( ) ; kfc- 

>k_removal_f all [scaling_attr] = $3.real_val; } 

| P_RER value semicolon. { kfc = KF ( ) ; kfc- 

>k_removal_rise [scaling_attr] = $3.real_val; } 

| P_RDI { libc_time_delay_model (PIECEWISE_CMOS) ; } value 

semicolon. 

kfc = KF ( ) ; kf c->k_rise_delay_intercept [scaling_attr] = 



$4 . real_val ; 
semicolon . 
$4 . real__val; 
semicolon. 
$4 . real_val; 
semicolon. 
$4 . real_val ; 

| P_RWR value semicolon. { kfc = KF ( ) ; kfc- 

>k_rise_wire_resi stance [scaling_attr] = $3.real_val; } 

| P_RWE ':' value semicolon. { kfc = KF ( ) ; kfc- 
>k_rise_wor_emitter [scaling_attr] = $3.real_val; } 

| P_RWI value semicolon. { kfc = KF ( ) ; kfc- 

>k_rise_wor_intercept [scaling_attr] = $3 .real_val; } 

| P__SF value semicolon. { kfc = KF ( ) ; kfc- 

>k_setup_f all [scaling__attr] = $3.real_val; } 



P_RPR { libc__time_delay_model {PIECEWISE_CMOS) ; } value 

kfc = KF ( ) ; kf c->k_rise_pin_resistance [scaling_attr] = 
P_RP { libc_time_delay_model (TABLE_LOOKUP) ; } value 

kfc = KF ( ) ; kfc ->k_rise_propagation [seal ing_attr] = 
P_RT { libc_time_delay_model (TABLE_LOOKUP) ; } ' : ' value 
kfc = KF { ) ; kf c->k_rise__transition [scaling__attr] = 



A-LIBC-274 



libc_yacc.y 





| P_SR ' : r value semicolon. 


{ 


kf c 


- KF ( ) ; 


kf c- 


>k_ 


_setup_rise [scaling_attr] = $3.real_val; 




} 








] P_SKF ' : ' value semicolon. 


r 

{ 


kf c 


= KF ( ) ; 


kf c- 


>k_ 


_skew_f all [scaling_attr] = $3.real_val; 


} 










| P_SKR ' : f value semicolon. 


{ 


kfc 


= KF ( ) ; 


kfc- 


>k_ 


_skew_rise [scaling_attr] = $3. real val; 


} 










| P_SLF ' : ' value semicolon. 


{ 


kf c 


= KF ( ) ; 


kfc- 


>k_ 


_slope__f all [scaling_attr] = $3.real_val; 




} 








| P_SLR 1 : ' value semicolon. 


r 

{ 


kfc 


= KF ( ) ; 


kf c- 


>K 


slope_rise [scaling_attr] = $3 . real_val ; 




} 








| P_WC 1 : ' value semicolon. 


{ 


kfc 


= KF(); 


kfc- 


>K 


_wire_cap [scaling_attr] = $3. real val; } 












| P__WR f : ' value semicolon. 


{ 


kfc 


= KF() ; 


kfc- 


>k_ 


_wire_res [scaling_attr] = $3. real val; } 











/* 



lib_complex_attr : K_CLU '(' value ',' load_unit ')' semicolon. 

{ $5.unit->V = $3.real_val; 

tech_lib->capacitive_load_unit = $5 .unit; 

} 

KJDEFINE * { ' string ' , r string 1 , 1 string ' ) ■ semicolon. 
{ libc_defjLnsert ($3 . string, $5 . string, $7 . string) ; } 
K_DCA ' (' string pad_type ')' semicolon. 

{ libc__def_cell_area ($3 . string, $5 .pad_type) ; } 

K_LF ' (' qvalue__list ') 1 semicolon. 
{ free_libc_f loat_list_rec {$3 . f loat_list .head) ; } 
K_LF '{' name_list ') ! semicolon. 
{ f ree_libc_name_list_rec ($3 .name__list .head) ; } 

K_PD ' {■ qvalue_list ') ' semicolon. 
{ tech_lib->piece_def ine = 
libc_util__float_list2buffer ($3 . f loat_list .head) ; } 

| K_RL name_list ')' semicolon. 

{ tech_lib->routing_layers = $3 . name__list . head; } 
| K_TECH name ')' { lex_j)rev_state () ; } semicolon. 

{ tech_lib->technology = $3. string; } 



/* LU */ 

load unit 



LU_MF 
LU_UF 
LU_NF 
LU_PF 
LU FF 



$$.unit = libc_util_unit (l.Oe-3) ; } 
$$.unit = libc_util_unit (1 . Oe-6) ; } 
$$.unit = libc_util_unit(1.0e-9) ; } 
$$.unit = libc_util_unit (1.0e-12) ; } 
$$.unit = libc_util_unit (1.0e-15) ; } 



/* RT */ 

pad_type 



RT_PS { $$.pad_type = PAD_SLOTS; } 

RT_PDS { $$.pad_type = PAD_DRIVER_S1TES ; } 

RTJ>IDS { $$.pad_type = PAD_INPUT_DRIVER_SITES ; } 

RT_PODS { $$.pad_type « PAD_OUTPUT_DRIVER_SITES ; } 



/* 

1 ib_group_s tmt 



cell_group 
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i npu t_vo 1 t_group 

lu_t ab 1 e__gr oup 

op_cond__group 

output_volt_group 

para_cell_group 

po we r_l u t __gr oup 

powe r_s upp 1 y_gr oup 

t ran s_g roup 

scaled_cell_group 

scaled_f actor_group 

t imi ng__range_group 

type__group 

wire_load_group 

wire_load__sel_group 

wire_load_table_group 



*/ 



/* ignore */ 

input_volt_group : K_IV 1 ( ' name f ) ' 

{ free_text_buffer ($3 .string) ; lex_prev__state ( ) ; } 

' { ' iv_stmts * } * 
{ lex_prev_state 0 ; } 
semicolon. 



iv stmts 



iv_stmt 

iv stmts iv stmt 



iv stmt 



IV_L ■ 
IV_H ' 
I V_MIN • : • 
IV MAX ' : 1 



n_expression semicolon. 
n_expression semicolon. 
' n_expression semicolon. 
n__expression semicolon. 



/* ignore */ 

output__volt_group : K_OV ' ( 1 name ' ) 



{ f ree_text_buf fer ($3 .string) / lex_prev_state () ; } 

' { r ov_stmts ' } ' 
{ lex_j?rev_state () ; } 
semicolon . 



ov stmts 



ov__stmt 

ov stmts ov stmt 



ov stmt 



OV_L ':' n_expression semicolon. 
OV_H 1 : * n_expression semicolon. 
OV__MIN * : ' n_expression semicolon . 
OVJMAX ' : ' n_expression semicolon. 
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lu_table_group : K_LTT ' ( ' name 1 ) ' 

{ lex_prev_state ( ) ; 

lu_table_temp = new__libc_lu_table_template_rec ( ) ; 
lu_table_temp->tt_name = $3. string; 

} 

r { 1 lut_stmts ' } ' 
{ lex__prev_state ( ) ; 

lu_table_temp->next = tech_lib->lut_template ; 
tech_lib->lut_template = lu_table_temp; 
lu_table_temp = NULL; 

} 

semicolon . 



lut_stmts : lut_stmt 

I lut stmts lut stmt 



lut_stmt : TBL_VAR1 var_type semicolon. 

{ lu_table_temp->variable_l = $3.var_type; } 
| TBL_VAR2 var_type semicolon. 

{ lu__table_temp->variable_2 = $3 . var_type; } 
| TBL_VAR3 » : • var_type semicolon. 

{ lu_table_temp->variable_3 = $3.var_type; } 
| TBL_1DX1 '{» qvalue_list ')' semicolon. 

{ f ree_f loat_buf f er ( lu_t ablest emp- >index_l) ; 
lu_table_temp->index_l = 
libc_util_f loat_list2buf f er ($3 . f loat_list .head) ; } 

| TBL_IDX2 '(' qyalue_list ' )' semicolon. 

{ free_f loatjDuffer (lu_table_temp->index_2) ; 
lu_table_temp->index_2 = 
libc_util_f loat_list2buffer ($3 . f loat_list . head) ; } 

| TBL_IDX3 qyalue_list ')' semicolon. 

{ free_floatjDuffer (lu_table_temp->index_3) ; 
lu_table_temp->index__3 = 
libc_util_float_list2buf fer ($3 .f loat_list .head) ; } 



var_type : LTT_INT { $$.var__type = INPUT_NET_TRANSITION; } 

| LTT_TONC { $$.var__type = TOTAL_OUTPUT_NET_CAPACITANCE; } 

| LTT_ONL { $$.var_type = OUTPUT_NET_LENGTH ; } 

I LTT_ONWC { $$.var_type = OUTPUT_NET_WIRE_CAP; } 

| LTT_ONPC { $$.var_type = OUTPUT_NET_PIN_CAP; } 

j LTT_ROTONC { $$.var_type = 

RELATED_OUT_TOTAL_OUTPUT_NET_CAP ; } 

| LTT_R0ONL { $$.var_type = RELATED_OUT_OUTPUT_NET_LENGTH ; 

| LTT_ROONWC { $$.var_type = 

RELATED_OUT_OUTPUT_NET_WIRE_CAP ; } 

| LTT_ROONPC { $$.var_type - 

RELATED_OUT_OUTPUT_NET_P IN_CAP ; } 

| LTT_CPT { $$.var_type = CONS TRA I NED_P I N_TRANS I T I ON ; } 
| LTT_RPT { $$.var_type = RELATED_PIN_TRANS ITION ; } 
j LTT_OPT { $$.var_type = OUTPUT_PIN_TRANSITION; } 
j LTT_CD { $$.var_type = CONNECT_DELAY ; } 
| string 

{ $$.var_type = INPUT JtfETJTRANS ITION; 
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libcerror ( "un-recognized variable type!"); 



/* 

op_cond_group : K_OC » ( » name 1 ) • 

{ lex__prev_state () ; 

lib_op_cond = new__libc_operating_condition_rec ( ) ; 
lib_op_cond->oc_name = $3. string; 

1 { ' oc_stmts ' } f 
{ lex_j>rev_state { ) ; 

lib_op_cond->next = tech_lib- >operating_cond; 
tech__lib->operating_cond = lib_op_cond; 
lib_op_cond = NULL; 

} 

semicolon. 



oc__stmts : oc_stmt 

I oc stmts oc stmt 



oc_stmt : OC_PROCESS value semicolon. 

{ lib_op_cond->process = $3.real_val; } 
| 0C_TEMP 1 : ' value semicolon. 

{ lib_op_cond->temperature = $3.real_val; 
| OCJTREE • : » tree_type semicolon, 
j OC_VOLT ' : ' value semicolon. 

{ lib_op_cond-> volt age = $3.real_val; } 
| power_rail_attr 

{ $l.prp->next = lib_op_cond->power_rail ; 
lib_op_cond->power_rail = $l.prp; 



power_rail_attr : OC_PR ' ( ( string ',' value ' )' semicolon. 

{ $$.prp = new__libc_oc_power_rail_rec () ; 
$$ .prp->power_supply = $3. string; 
$$.prp->volt = $5. real val ; 

} 



/* TT */ 

tree_type : tree_tt 

I 1 " 1 tree tt 1 " 



tree_tt : TT_BEST { lib_op_cond->tree_type = BEST_CASE_TREE ; } 

| TTJBAL { lib_op_cond->tree_type = BALANCED_TREE ; } 
j TT_WORST { lib_op_cond->tree_type = W0RST_CASE TREE; 
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power_supply_group : K_PS ' ( ' name • ) * 

{ lex_prev_state ( ) ; 

lib_ps = new__libc_power_supply_rec ( ) ,- 
lib_ps->ps_name = $3. string; 

' { ■ ps_stmts ' } ' 
{ lexjprev_state ( ) / 

lib_ps->next - tech_lib~>power_supply; 
tech_lib->power_supply = libjps ; 
libjps = NULL; 



} 



semicolon. 



ps_stmts 



ps_stmt 

ps_stmts ps_stmt 



ps_stmt 



; PS_DPR » : ■ string 1 ; 1 
{ lib_ps->default_ps = $3. string; } 
po we r_r a i l_a 1 1 r 

{ $l.prp->next = lib_j?s->power_rail ; 
lib_j?s->power_rail = $l.prp; 

} 



/* ignored */ 

para_cell_group : K_PCELL ' ( l name ') 

{ lex_prev_state ( ) ; } 

1 { r pcell__stmts 1 } ' 
{ lex_prev_state () ; } 
semicolon. 



pcell_stmts 



: pcell_stmt 
pcell_stmts pcell_stmt 



pcell_stmt 



: cell_simple_attr 
cell_complex_attr 
ce 1 l__enum_gr oup 



ce 1 l_enum__group 



: PC_CELL_ENUM ' ( ' name ' ) f 
{ lex_prev_state () ; } 
' { ' ce__stmts 1 } 1 
{ lexj>rev_state () ; } 
semicolon. 



ce stmts 



: ce_stmt 

| ce_stmts ce_stmt 



ce stmt 



: cell_simple_attr 
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cell_complex_attr 

CE__PROPERTY ':' string semicolon. 

CE_DE ' : 1 boolean semicolon. 

bus_group 

t e s t_c e 1 l_gr oup 

para_jpin_group 



para_pm_group 



pp_stmts 



pp_stmt 



CE_PP ' ( ' name_list ' ) • ' { 1 pp_stmts 
{ lex_prev_state ( ) ; } 
semicolon . 



: pp_stmt 
pp_stmts pp_stmt 



pin_simple_attr 
PP_PROPERTIES ' : 
t iming_group 



{ • name_list 



semicolon. 



/* 



power_lut_group 



*/ 



: K_PLT ' ( ■ name ' ) 1 
{ lexj?rev_state () ; 

plut_temp « new_libc_lu_table_template_rec () ; 
plut_temp->tt_name = $3. string ; 



} 

• { 1 plut_stmts 1 } ' 
{ lex_j?rev_state {) ; 

plut__temp->next = tech_lib->plut_template ; 
tech_lib->plut_template = plut__temp; 
plut_temp - NULL; 

} 

semicolon. 



plut__stmts 



: plut_stmt 
plut_stmts plut_stmt 



plut_stmt : TBL__VAR1 ' : 

{ plut_temp- 
| TBL_VAR2 ' : 
{ plut_temp- 
| TBL_VAR3 ' : 
{ plut_temp- 
| TBL__IDX1 ' ( 
{ free_float 
plut_temp- 

libc_util_f loat__list2buf f er ($3 . 

| TBL_IDX2 ' ( 
{ f ree_f loat 
plut__temp- 

libc_util_f loat_list2buf f er ( $3 . 

| TBL_IDX3 ' ( 



1 var_type semicolon. 
>variable_l = $3.var_type; } 
1 var_type semicolon. 
>variable__2 = $3.var_type; } 
' var_type semicolon. 
>variable_3 = $3.var_type; } 
1 qvalue_list semicolon. 
_buf fer (plut_temp->index_l) ; 
>index_l = 
f loat_list.head) ; } 
* qvalue_list ')' semicolon. 
_buf fer (plut_temp->index_2) ; 
>index__2 = 
f loat_list .head) ; } 
1 qvalue_list ' )' semicolon. 



A-LIBC-280 



libc yacc.y 



{ f ree_f loat_buf f er (plut_temp- >index__3 ) ; 
plut_temp- >index_3 = 
libc_util_f loat_list2buffer ($3 . f loat_list . head) ; } 
; 

/* ic/ 

/* rise__transition_degradation, f all_transitionjiegradation group 

trans_group : trans_type ' ( ' name 

{ lex_prev_state ( ) ; 

lib_timing_tbl - new_libc_table_val_rec ( ) ; 

if ( ! libc_time_f ind_template ($3 . string, tech_lib- 
>lut_template, lib_tiniing_tbl) ) { 

libcerror ("template not found!"); 
exit (l) ; 

} 

} 

' ) ' 1 { ' VALUES 1 ( ' qvalue_lists < ) • semicolon. ' } ' 
{ lex_j>rev_state ( ) ; 

libc_time_values_handle (lib_timing_tbl, $9 . f loat_list_list . head) ; 

if ($l.int_val) { 

free_libc_table_yal__rec (tech_lib- >rise_tr_table) 
tech_lib->rise_tr_table = lib_timing_tbl ; 

else { 

free_libc_table_val_rec (tech_lib->f all_tr_table) 
tech_lib->f all_tr__table = lib_timing__tbl ; 

lib_timing_tbl = NULL; 

} 

semicolon . 



trans_type : K_RTD { $$.int_val = 1; } 

I K_FTD { $$.int_val = 0; } 



I* 



/* ignored */ 

scaled_cell__group : K_SC '(' name name ')' 

{ lex_jprev_state ( ) ; 

libc_cell_init ($3 .string) ; 

' { ■ cell_stmts • } • 
{ lex_prev__state ( ) ; 

free_text_buf f erf $5. string) ; 
f ree_libc_cell_rec (lib_cell) 
lib_cell = NULL; 

} 



/* 



/* different k factors for different cell */ 

scaled_f actor_group ; K_SF 1 ( » name ' ) ' 
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{ lex_prev_state ( ) ; 

sc_kfc = new_libc_k_f actor_rec () ; 
sc__kf c->kf_name = $3. string; 

} 

' { ' sf_stmts • } » 
{ lex_prev__state ( ) ; 

sc__kfc->next = tech_lib->sc__k_f actor ; 
tech_lib->sc_k_f actor = sc_kfc; 
sc_kfc = NULL; 

} 

semicolon . 



sf_stmts : sf_stmt 

| sf_stmts sf_stmt 

sf_stmt : lib_k_attr /* memory leak here ? */ 

/* v 

timing_range_group : K_TR ■ ( ' name * ) » 



{ lex__prev_state () ; 

lib_timing_range = new_libc_timing_range_rec { ) ; 
lib_timing_range->tr_name = $3. string; 

1 { ' tr_stmts ■ } 1 
{ lex_prev_state () ; 

lib_timing_range->next = tech_lib->timing_range ; 
tech_lib->timing_range = lib_timing_range; 
lib_timing_range = NULL; 

} 

semicolon. 



tr_stmts : trjstmt 

| tr_stmts tr_stmt 

tr_stmt : TR_FF ' : • value semicolon. 

{ lib_timing_range->faster_f actor = $3.real_val; } 
| TR_SF ' : ' value semicolon. 
{ lib_timing_range->slower_f actor = $3.real_val; } 

/* 

type_group : KJTYPE 1 ( ' name » ) ' 

{ lexj)rev_state ( ) ; 

lib_type_jiame = new_libc_type_rec ( ) ; 
lib_type_name->type_name = $3. string; 



' { * type_stmts ' } ' 
{ lex_j?rev_state ( ) ; 

lib_type_name->next = tech_lib->type; 

tech_lib->type = lib_type_name; 
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lib_type_name = NULL; 

} 

semicolon . 



type_stmts : type_stmt 

I type_stmts type_stmt 



type_stmt : TYPE_BASE » : • type_array semicolon . 

| TYPE_FROM ' : ' L_INT semicolon . 

{ lib_type_name->bit_from = $3.int_val; } 
| TYPEJTO »:' L_INT semicolon. 

{ lib_type_name->bit_to = $3.int_val; } 
| TYPEJVIDTH L_INT semicolon. 

{ lib_type_name->bit_width = $3.int_val; } 
| TYPEJDT 1 : ' type_bit semicolon. 
I TYPE_DOWNTO boolean semicolon. 

{ lib_type_name->downto = $3 . int__val ; } 



type_array : TYPE__ARRAY 

I ' " ' TYPE ARRAY ' " » 



type_bit : TYPE_BIT 

| ' " ' TYPE BIT 1 " ' 



/* v 

wire_load_group : K_WL ' ( ' name • ) ' 

{ lex__prev_state () ; 

lib_wire_load = new_libc__wire_load_rec ( ) ; 

lib_wire_load->wl_name = $3. string; 

lib_wire_load->area = tech_lib- 

>def ault_wire_load_area; 

lib_wire_JLoad->capacitance = techJLib- 
>def aul t_wire_load_capaci tance ; 

lib_wire_load->resistance = tech_lib- 
>def ault_wire_load_resistance; 

} 

1 { ' wl_stmtls . wl_stmt2s r } ' 
{ lex__prev_state () ; 

lib_wire_load->next = tech_lib->wire_load; 

tech_lib->wire_load = lib_wire_load; 

lib_wire_load = NULL; 

} 

semicolon. 



wl_stmtls. : wl stmtls 



wl_stmtls : wl_stmtl 

| wl_stmtls wl_stmtl 
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wl_stmtl : AREA » : ' value semicolon. 

{ lib_wire__load->area = $3.real_val; } 
| PIN_CAP ' value semicolon. 

{ lib_wire_load->capacitance = $3.real_val; } 
| WL_RES • : ' value semicolon. 

{ lib_wire_load->resistance = $3.real_val; } 
| WL__SLOPE ' : * value semicolon. 

{ lib_wire_load->slope - $3 . real__val ; } 



wl_stmt2s ; wl_stmt2 

| wl_stmt2s wl_stmt2 



wl_stmt2 : WL_FL ' (• value value ' )' semicolon. /* <- 
old form */ 

{ 

libc_util_wire_load_f anout { (int) $3 . real_val , $5 . real_val , 0 .0,0.0,0); } 

| WL_FL » : ' » ( ' L_INT ' , ' value ' , * value ' , ' value 1 , ' 
L_INT »)* semicolon. 

{ 

lxbc_util_wire_load_f anout ($4 . int_val , $6 . real_val , $8 .real_val, $10 .real val, $1 
2 .int_val) ; } ~ 

/* ±/ 

wire_load_sel_group : KJffLS name. 

{ lex_jprev_state () ; } 
') ' 

{ lib_wire_load_sel = new_libc_wire_load__selection_rec { ) ; 

lib_wire_load_sel->wls_name = $3. string; } 
' { ' wls_stmts ■ } ' 
{ lex j>rev_state ( ) ; 

lib_wire_load_sel->next = tech_lib- 

> wire_load_s elect ion; 

tech__lib->wire_load_selection = lib_wire_load_sel ; 
lib_wire_load_sel = NULL; 

} 

semicolon. 



wls_stmts : wls_stmt 

| wls_stmts wls_stmt 



wls_stmt : WLS_WLFA value value ' 

{ 1 ex_nex t_NAME_ state ( ) ; } 
name 

{ lexjprev_state () ; } 
1 ) ' semicolon. 

{ libc_util_wl_select ( $3 . real_val , $5 . real_val , $8 . string) ; 
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7 



/* ignore */ 

wire__load_table_group : K_WLT 1 ( 1 name ' ) ' 

{ lex_jprev_state ( ) ; 

lib_wire_load = new_libc_wire_load_rec ( ) ; 

lib_wire_load->wl_name = $3. string; 

lib__wire_load->area = tech_lib- 

>def ault_wire_load_area; 

lib_wire_load->capacitance = tech_lib- 
>def ault_wire__load_capacitance; 

lib_wire_load->resistance = tech_lib- 
>def ault_wire_load_resistance; 

} 

' { ' wlt_stmts f } ' 
{ lex_prev_state ( ) ; 

lib_wire_load->next = tech_lib- >wire_load; 
tech_lib->wire_load = lib__wire__load; 
lib_wire_load = NULL; 

} 

semicolon. 



wit stmts 



wlt__stmt 

wit stmts wit stmt 



wit stmt 



: WL_FL colon. '{' L_INT ',' value ') ? semicolon. 
{ libc_util_wire_load_table ($4 . int_val , 1, $6 . real__val) 

WLT_CAP colon. L_INT » value semicolon. 

{ libc_util_wire_load_table ($4 . int_val , 2 , $6.real_val) 

WLT_RES colon. '(' L_INT value semicolon. 

{ libc_util_wire_load_table ($4 . int__val , 3 , $6 . real_val) 

WLT_AREA colon. L_INT value semicolon. 

{ libc_ut il_wire_load_table ( $4 . int_val , 4 , $6 . real_val ) 



colon. 



/* ======== 

cell_group 



K_CELL ' { ' name ' ) ' 
{ lex_jprev_state () ; 

libc_cell_init ($3 . string) ; 

} 

1 { 1 cell_stmts ' } ' 
{ lex__prev_state ( ) ; 

lib_cell->next = tech_lib->cells ; 
tech_lib->cells = lib_cell; 
lib_cell = NULL; 



} 



semicolon . 



cell stmts 



: cell stmt 
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cell stmts cell stmt 



cell_stmt : cell_simple_attr 

| cell_complex_attr 
| cell_group_stmt 
| ignored_stmt 

/* #/ 

cell_simple_attr : AREA » : ' value semicolon. 

{ lib_cell->area = $3.real_val; } 
| C_APC *:» boolean semicolon. 

{ lib_cell->auxiliary_pad_cell = $3.int_val; } 
| C_CF string { lex_prev_state () ; } semicolon. 

{ lib_cell->cell_footprint = $3. string; } 
| C_POWER ■ : ' value semicolon. 

{ lib_cell->cell^power = $3 . real__val ; } 
| C_LP ' : ' value semicolon. 

{ lib_cell->cell_leakagejpower = $3.real_val; } 
| C_CC ' : ' bool_expression semicolon. 

{ lib_cell->contention_condition = $3.bool_opr; } 
| C_DF * : 1 stuck_at_type semicolon. 

{ lib_cell~>dont_f alse = $3.sa_type; } 
| CJDT ' : ' boolean semicolon. 

{ lib_cell->dont_touch = $3.int_val; } 
| C_GP string semicolon. 

{ lib_cell->geometry_print = $3. string; } 
| C_DU ' : ' boolean semicolon. 

{ lib_cell->dont_use = $3.int_val; } 
| C_HNC 1 : ' boolean semicolon. 

{ lib_cell->handle_negative__constraint = $3.int_val; } 
| C_IT ' : ' boolean semicolon. /* old */ 

{ lib_cell->interface__timing = $3.int_val; } 
| C_MO * ; r boolean semicolon. 

{ lib_cell->map_only = $3.int_val; } 
| C_PC ' : r boolean semicolon. 

{ lib_cell->pad_cell = $3.int_val; } 
| C_PT * : ' string semicolon. /* string must be clock 

*/ 

{ lib_cell->pad_type = 1 strcmp ( "clock" , $3 . string) ; 
f ree_text_buf f er { $3 . string) ; 

} 

I C_PL { libc_time_delay_model (GENERIC__ECL) ; } ' : ' L 



semicolon. 



_INT 

lib_cell->pin_limit = $4.int_val; } 



{ lib_cell->pref erred = $3.int_val; } 
| C_SF ' : 1 name semicolon. 

{ lib_cell->_scaling_f actors = 
libc_cell_f ind_sc_group ($3 . string) ; } 

| C_SG * : ' QSTR_string semicolon. 

{ lib_cell->scan_group = $3. string; } 
| C_SBD string semicolon. 

{ lib_cell->single_bit_degenerate = $3. string; } 
| C_VN ' : ' string semicolon. 
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{ lib_cell->vhdl_name = $3. string; } 

stuck_at_type : SA_SAO { $$.sa_type - SAO ; } 

| SA_SA1 { $$.sa_type = SA1 ; } 
j SA_SA01 { $$.sa_type = SA01; } 

/* ie/ 

cell__complex_attr : C_PE '(' qname_list ' )' semicolon. 

{ libc_cell_name_list_list (& (lib cell- 



>pin_equal) , $3 . name_list . head, NULL) ; } 

| C_PO '(' qname_list qname_list semicolon. 

{ libc_cell_name_list_list (& (lib_cell- 
>pin_opposite) , $3 .name__list .head, $5 .name_list .head) ; } 
| C_RC * { ' string ■ , 1 string * ) ' 
{ f ree_text_buf f er ($3 . string) ; 
free_text__buf fer ( $5. string) ; } 

/* ic/ 

cell_group__stmt : bundle__group 

| bus_group 

I f f _group 

| f f_bank_group 

| interna l__power_group_c 

| leakage_p owe r_g roup 

| latch_group 

| 1 a t ch_bank_group 

I lut_group 

| memory_group 

I pin_group 

| routing_track_group 

| state_group 

| state table_group 

| test_cell_group 

/* = = = = = = = = : = = = = = = = = = == = = ^ = = = = = = = = :====: = = ^ = = = = ^ = := = = ===: = = = =::== */ 

bundle_group : C_BUNDLE ' ( ' name ' ) » 

{ libc_name__list_rec *nl; 

nl = new__libc_name_list__rec { ) / 
nl->name = $3. string; 
libc_cell_pin_init (nl) ; 

} 

' { * members_stmt bundle_stmts 1 } 1 
{ lex_jprev_state ( ) ; 

libc__cell_bundle _post (lib_pin) ; 

lib_pin->next = lib_cell->pins; 

lib_cell->pins = lib__pin; 

lib_pin = NULL ; 

} 

semicolon. 
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members_stmt : MEMBERS ' (' name_list •)■ semicolon. 

{ libjin->members = $3 . name_list .head; } 

bundle_stmts : bundle_stmt 

| bundle_stmts bundle_stmt 

bundle^stmt : pin_simple_attr 

| p i n_gr oup_s tm t 
| pin_group 
{ lib_pin = lib_bundle; 
lib_bundle = NULL; 

} 

/* ie/ 

bus_group : C_BUS ' ( » name ' ) ■ 



{ libc_name_list_rec *nl; 

nl = new_libc_name_list_rec () ; 
nl->name = $3. string; 
libc_cell_jpin_init (nl) ; 
lib_pin->is_bus = 1; 

} 

' { 1 bus_stmts ' } ' 
{ lex_prev_state ( ) ; 

if (lib_pin ! = lib_cell->pins) { 

lib_pin->next = lib_cell->pins; 

lib_cell->pins = lib_pin; 

lib_pin = NULL; 

} 

semicolon. 

bus_stmts : bus_stmt 

| bus_stmts bus_stmt 

bus_stmt : pin_simple_attr 

| BUS_TYPE ':' string semicolon. 

{ libc_cell_f ind_pin_type ($3 . string) ; } 
| memory_read_group 
| memory_write_group 
| pin_group_stmt 

I pin_group /* *** limit one pin group only in 

this parser */ 

{ lib__pin = lib_bus; 
lib_bus = NULL; 

} 

memory_read_group ; MEM_READ ' ( 1 * ) ' * { 1 

ADDRESS ' : ' name semicolon. 

•}■ 
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{ lex_prev_state () ; 

lib_jpin->address__of_memory_read = $7. string; 

} 

semicolon . 



memo ry_write_g roup : MEM_WRITE ' ( ' ' ) 1 

{ lib_memory_write = new_libc_memory__write_rec ( ) ; } 

' { ' mem_write_stmts 1 } 1 

{ lex_jprev_state { ) ; 

f r ee_l ibc_memory_wr i t e_rec ( 1 ibjpin - >memory__wr i t e ) 
lib_pin->memory_write = lib_memory_write ; 
lib__memory_write = NULL; 



} 



semicolon . 



mem write stmts 



mem_wr i t e_s t mt 

mem write stmts mem write stmt 



mem write stmt 



: ADDRESS name semicolon. 

{ lib_memory_write->address = $3. string; } 

CLOCK_ON name semicolon. 

{ lib_memory_write~>clock_on = $3. string; } 

ENABLE ' : 1 name semicolon. 
{ lib_memory_write->enable = $3. string; } 



f f_group 



C FF ' ( 1 name 



name ' ) 



{ lib_ff_latch = new_libc_ff_latch__rec () ; 
lib_f f_latch->Q_name = $3 . string; 
lib_f f__latch->QN_name = $5. string; 
lib_f f_latch->width = 1; 
lib_ff_latch->is_f f = 1; 
lib_f f_latch->is_state = 0; 
lib_f f_latch->clear_preset_varl = 
lib_f f_latch->clear_preset_var2 = 



■X' ; 
'X'; 



} 

1 { ' f f_stmts ' } ■ 
{ lex_prev_state ( ) ; 

/* keep all version */ 

if (lib_cell 1= NULL) { 

lib_f f_latch->next = lib_cell->f f_latch; 
lib_cell->ff_latch = lib_f f_latch; 

} 

else /* inside test_cell */ 

f ree_libc_f f_latch_rec (lib_f f_latch) ; 
lib_ff_latch = NULL; 

} 

semicolon. 



f f _bank_group 



: C_FFB 1 ( • name ' , » name ' , ' L_INT ■ ) 
{ lib_ff_latch = new_libc_f f_latch_rec () ; 
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lib_f f_latch->Q_name = $3. string; 

lib_f f_latch->QN_name = $5. string; 

lib_f f_latch->width = $7.int_val; 

lib_ff_latch->is_f f = 1; 

lib_f f_latch->is_state = 0; 

lib_f f_latch->clear_preset_varl = r X'; 

lib_f f__latch->clear_preset var2 = 'X'; 

} 

' { ' f f_stmts ' } 1 
{ lex_prev_state ( ) ; 

/* keep all version */ 

if (lib_cell != NULL) { 

lib_ff_latch->next = lib_cell->f f_latch; 
lib_cell->ff_latch = lib ff latch; 
} " ~ 

else /* inside test_cell */ 

f ree_libc_f f_latch_rec (libjE f_latch) ; 
lib_ff_latch = NULL; 

} 

semicolon. 



ff_stmts : ff_stmt 

| ff_stmts ff_stmt 



ff_stmt : CLOCKjON 1 : ' bool_expression semicolon. 

{ libJE f_latch->clock_on = $3.bool_opr; } 
| NEXT^ST ' : 1 bool_express ion semicolon. 

{ lib_f f_latch->next_state = $3 . bool__opr ; } 
| CLEAR 1 : 1 bool_expression semicolon. 

{ lib_f f_latch->clear = $3.bool_opr; } 
| PRESET ' : ' bool_express ion semicolon. 

{ lib_f f__latch->preset = $3.bool_opr; } 
( CL_PS_V1 ' : * var_id 

{ libc__cell_preset_var (& (lib_f fJLatch- 
>clearj)reset_varl) , $3 . string) ; } 

semicolon. 

| CL_PS_V2 ' : ' var_id 
{ libelee ll_j>reset_var (& (lib__f f_latch- 
>clear__preset_var2 ) , $3 . string) ; } 

semicolon. 

| ON_ALSO 1 : ' bool_expression semicolon. 
{ lib_f f_latch->on_also = $3.bool_opr ; /* clock_on_also */ 



var_id : identifier 

| * identifier t,rt { $$ = $2; } 

/* ±j 

latch_group : C_LATCH r ( * name ' , ' name ' ) ' 

{ lib_ff_latch = new_libc_ff_latch_rec () ; 
lib_f f_latch->Q_name = $3. string; 
lib_f f_latch->QN_name = $5. string; 
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lib_f f_latch->width = 1; 

lib_f f_latch->is_f f = 0; 

lib_f f_latch->is_state = 0; 

lib_f f_latch->clear_preset_varl = 'X'; 

lib_f f_latch->clear_preset_var2 = 'X* ; 

} 

' { ' latch_stmts ' } * 
{ lex_jprev__state ( ) ; 

/* keep all version */ 

if (lib_cell != NULL) { 

lib_ff_latch->next = lib_cell->ff_latch; 
lib_cell->ff_latch = lib ff latch; 

} 

else /* inside test_cell 

f ree_libc_f f_latch_rec (lib_f f_latch) ; 
lib_ff_latch = NULL; 

} 

semicolon. 



latch_bank_group : C_LB * ( ' name ' , ' name ' , ' L_INT ' ) ' 

{ lib_f f__latch = new_libc_f f__latch_rec () ; 
lib_f f_latch->Q_name = $3. string; 
lib_f f_latch->QN_name = $5. string; 
lib_f f_latch->width = $7.int_val; 
lib_ff_latch->is_ff = 0; 
lib_f f_latch->is_state = 0; 
lib__f f_latch->clear_preset_varl = 'X'; 
lib_f f_latch->clear_preset_var2 = *X'; 

' { ' latch_stmts ' } • 
{ lex_prev_state { ) ,* 

/* keep all version */ 

if (lib_cell != NULL) { 

lib_f f_latch->next = lib_cell->f f__latch; 
lib_cell->ff_latch = lib ff latch; 
} " ~ 

else /* inside test_cell 

f ree_libc_f f_latch_rec (lib_f f_latch) ; 
lib_ff_latch = NULL; 

} 

semicolon. 



latch_stmts : latch_stmt 

| latch_stmts latch_stmt 



latch_stmt : ENABLE r : ' bool_expression semicolon. 

{ lib_f f_latch->enable = $3 .bool__opr; } 
| DATA_IN 1 : ' bool_expression semicolon. 

{ lib_f f_latch->data_in = $3.bool_opr; } 
| CLEAR ' : 1 bool_expression semicolon. 

{ lib_f f_latch~>clear = $3.bool_opr; } 
| PRESET ' : 1 bool__expression semicolon. 

{ lib_f f__latch->preset = $3.bool_opr; } 
| CL_PS_V1 ' : ' var_id 
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{ libc_cell_preset_var (&{lib_f f_latch- 
>clear_preset_varl) , $3 . string) ; } 

semicolon. 
| CL_PS__V2 ' : • var_id 

{ libelee ll^preset_var {& (lib_f f_latch- 
>clear_preset_var2 ) , $3 . string) ; } 

semicolon. 

| ON_ALSO bool_expression semicolon. 

{ lib_f f_latch->on_also ~ $3.bool_opr; /* enable_on_also 
*/ } ~ 

/* v 

/* lut group (ignored) */ 

lut_group : C_LUT * ( 1 name ' ) ' ' { ' 

LUT_IP ':' bool_expression semicolon. 

'}' 

{ lex_prev_state () ; 

f ree_text_buf f er ($3 . string) ; 

f ree_libc_bool_opr__rec ($8 .bool__opr) ; 

semicolon. 



/* old method for ff and latch */ 

state_group : C_STATE ' ( ' name ' , 1 name * ) ' 

{ lib_ff_latch = new_libc_f f__latch_rec () ; 

lib_f f_latch->Q_name = $3. string; 

lib_f f_latch->QN_name = $5. string; 

lib_f f_latch->width « l ; 

lib_ff_latch->is_f f = 0; 

lib_ff_latch->is_state = 1; 

lib_f f_latch->clear_j)reset_varl = 'X 1 ; 

lib ff latch->clear preset var2 = 'X'- 

} " " 

' { ' state_stmts » } * 
{ lex_j)rev_state ( ) ; 

/* keep all version */ 

lib_f f_latch->next = lib_cell->f f_latch; 

lib_cell->ff_latch = lib_f f_latch; 

lib_ff_latch = NULL; 

} 

semicolon. 



state_stmts : state_stmt 

| state_stmts state stmt 



: CLOCK_ON 1 : * bool_expression semicol 
{ lib_ff_latch->clock_on = $3 .bool__opr ; } 

| NEXTjST bool_expression semicolon. 

{ lib_f f_latch->next_state = $3.bool__opr; } 

| ON_ALSO ' : ' bool__expression semicolon. 
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{ lib_f f_latch->on_also = $3.bool_opr; /* clock_on_also 

CLEAR 1 : 1 bool_expression semicolon. 
{ lib_f f_latch->clear = $3.bool_opr; } 
PRESET * : ' bool_expression semicolon. 
{ libjE f_latch->preset = $3.bool_opr; } 

CL_PS_V1 ' : ' var_id 
{ libc_cell_preset_var (&(lib_f f_latch- 
,$3. string); } 
semicolon . 
CL__PS_V2 ' : ' var_id 
{ 1 i bc_c e 1 l_pr e s e t_var ( & ( 1 ib_f f _1 a t ch - 
, $3 . string) ; } 
semicolon. 

ENABLE 1 : • bool_expression semicolon. 
{ lib_f f_latch->enable = $3.bool_opr; } 
DATA_IN ' : ' bool_expression semicolon. 
{ lib_ff_latch->data_in = $3.bool_opr ; } 
FORCE_0l ' : ' bool_expression semicolon. 
{ lib_f f_latch->force_01 = $3.bool_opr; } 

FORCE__10 ' : 1 bool_expression semicolon. 
{ lib_ff_latch->force_10 = $3.bool_opr; } 
FORCE_0 0 • : ' bool_expression semicolon. 
{ lib_f f_latch->force_00 = $3 .bool__opr; } 

FORCE_ll bool_expression semicolon. 

{ lib_f f_latch->force_ll = $3.bool_opr; } 

z* v 

internal_power_group_c : C_IP ' ( 1 name 

{ lib_int _power = new_libc_internal_power { ) ; 

lib_timing_tbl = new_libc_table_val_rec ( ) ; 

if ( !libc_time_find_template ($3 .string, tech lib- 
>plut__template, lib_timing_tbl) ) { 

libcerror ("template not found!"); 
exit (1) ; 

} ( 

lib_int_power->power = lib_timing_tbl ; 
lib_timing_tbl = NULL; 

} 

1 ) 1 ' { ' ipcjstmts ' } ' 

{ lex_prev_state ( ) ; 

lib_int_power->next = lib_cell->internal_j)ower_ 

lib_cell->internal_power_c = lib_int_power ; 
lib_int_power = NULL; 

} 

semicolon. 



ipc_stmts : ipc_stmt 

| ipc_stmts ipc_stmt 

ipc_stmt : REL^INP 1 : ' name semicolon. 

{ lib_int_power->inputs - new_libc_name_list_rec { ) ■ 
lib_int_power->inputs->name = $3. string; 



en ab 1 e_on_a 1 s o * / 



>clearjpreset_varl 



>clear_preset_var2 
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} 

| REL_INPS ' : ' qname_list semicolon. 

{ lib_int_power->inputs = $3 .name_list .head; } 
| REL_OUTP qname_list semicolon. 

{ lib_int_power->outputs = $3 ,name_list .head; } 
| TBL_IDX1 qyalue_list ' )* semicolon. 

{ f ree_f loatjbuf f er (libJLnt _j?ower- >power- > index 1) ; 
1 ib_int_power - >power - > indexl = 
libc_util_float_list2buffer ($3 . f loat_list . head) ; } 

| TBL_IDX2 qvalue_list <)' semicolon. 

{ f ree_f loat_buf fer (lib_int_j>ower- >power- >index2 ) ; 
1 ib_int_j>ower - >power - > index2 = 
libc_util_float_list2buffer ($3 .float_list .head) ; } 

| TBL_IDX3 '(' qvalue_list •)* semicolon. 
{ f ree_f loatjouf fer (lib__int_power->power->index3) ; 
lib_int__power->power->index3 = 
libc_util_f loat_list2buffer ($3 . f loat_list .head) ; } 

1 VALUES 1 (' qvalue_lists ')' semicolon. 
{ iibc_time_values_handle (lib_int__power- 
>power, $3 . f loat_list_list . head) ; } 



7 



internal_power_groupj> : PIN_IPO T ( r 1 ) ' 

{ lib_int jower = new_libc_internal_power { ) ; } 
* { 1 ip_stmts ' } » 
{ lex__prev_state ( ) ; 

lib_int__power->next = libj>in- >internal_jpower ; 

lib _jpin->internal jiower = lib_int_power ; 

lib_int_power = NULL; 

} 

semicolon. 



ip_stmts : ip__stmt 

| ip_stmts ip_stmt 



ip_stmt : TI_RP gname_list semicolon. 

{ lib_int_power->related_j)in = $3 . name_list .head; } 
| T1_WHEN * ; * bool_expression semicolon. 

{ lib_int_power->when = $3.bool_opr; } 
| IP_EOOO ' : ' qname_list semicolon. 

{ lib_int_power- >equal_or_opposite_output = 
$3 .name_list .head; } 

| IP_PL ' : ' string semicolon. 

{ lib_int_jpower->power_level = $3. string; } 
I ip_group_stmt 

ip__group_stmt : power_group_head 1 ( 1 name 

{ lib_timing_tbl = new_libc_table_val_rec () ; 

if ( !libc_time__find_template ($3 . string, tech_lib- 
>plut__template, lib_timing__tbl) ) { 

libcerror ( "template not found ! " ) ; 
exit (1) ; 
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} 

} 

' ) ' ' { ' v_stmts ' } ' 
{ lex_j>rev_state ( ) ; 

libc_time_power_handle {$1 . int val) 

} 

semicolon. 



power_group_head : IP__FP { $$.int_val = 0; } 

I IP_RP { $$.int_val = 1; } 

j IP_POWER { $$.int_val = 2; } 



/* 



leakage_power__group : C_LPG 1 ( ' ' ) ' 

{ lib_lkg_j)ower = new_libc_leakage_power () ; } 
' { * lp_stmts • } ' 
{ lex__prev_state ( ) ; 

lib_lkg_power->next = lib_cell->leakage_power ; 

lib_cell~>leakage_power = lib_lkg_power ; 

lib_lkg_j?ower = NULL; 

} 

semicolon. 



lp_stmts 



lp_stmt 

lp_stmts lp_stmt 



lp_stmt 



TI_WHEN ' : ' bool_expression semicolon. 
{ lib_lkg_jpower->when = $3.bool_opr; } 

VALUE ' : * value semicolon. 
{ lib_lkg_power->value = $3.real_val; } 



/* 

memory_group 



: C_MEM • ( ' ' ) ' 
{ lib_memory = new_libc_jnemory_rec ( ) ; } 
' { ' mem_stmts 1 } ' 
{ lex_prev_state { ) / 

f ree_libc_memory_rec (lib_cell->memory) ; 

lib_cell->memory = libjriemory; 

lib_memory = NULL; 

} 

semicolon. 



mem stmts 



mem_stmt 

mem stmts mem stmt 



mem stmt 



: CMJTYPE ':' ram_rom semicolon. 
| CM_ADDR_WIDTH ' :' L_INT semicolon. 
{ lib_memory->address_width = $3.int_val; } 
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| CMJtfORDJtflDTH ' : r L_INT semicolon. 

{ lib_jrtemory- >word_width = $3.int_val; } 
| CM_C_ADDR ' : ' 1 " ' index_ranges * " ' semicolon. 

ignored */ 

| CMJR_ADDR ' : ' ' " T index_ranges 1 " ' semicolon. 

ignored */ 



ram__rom : CM_RAM { lib_memory->is_ram = 1; } 

| CM_ROM { lib_memory->is_ram =0; } 

index_ranges : index_range 

| index_ranges index__range 

index_range : L_INT 

| L_INT ' : 1 L_INT 
7 

/* */ 



C_PIN 1 ( ' name_list ' ) ' 
{ lex__prev_state ( ) ; 

libc_cell_pin_init ($3 .name_list . head) ; 

} 

' { ' pin_stmts ' } 1 
{ lex_jprev_state ( ) ; 

libjpin- >next = lib_cell->pins ; 
lib_cell->pins = lib_j pin; 
lib_pin = NULL; 

} 

semicolon. 



: pin_stmt 

| pin_stmts pin__stmt 



: pin_simple_att-r 
| pin_group_stmt 
| ignored_stmt 



pin_simple_attr : PIN_CAP ' : * value semicolon. 

{ lib_j?in-> capacitance = $3.real_val; } 
| PIN_CLK ' : ' boolean semicolon. 

{ lib_pin->clock = $3.int_val; } 
| PIN_CGEP ' : * boolean semicolon. 

{ lib_pin->clock_gate_enable_pin = $3.int_val; } 
| PIN_CC ' : r name_list semicolon. 

{ lib_pin->connection_class = $3 .name_list .head; } 
| PIN_DIR ' : ' direction semicolon. 

{ libc_cell_pin_de fault () ; } 
| PIN_DF ' : 1 stuck_at__type semicolon. 

{ libj?in->dont_f alse = $3.sa_type; } 
| PIN_DC 1 : ' value semicolon. 



/* 
/* 



pm^group 



pin_stmts 



pin_stmt 
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semicolon, 
semicolon, 
semicolon, 
semicolon, 
semicolon, 
semicolon, 
semicolon . 
semicolon. 

$3.real_val; } 
$3.real_val; } 



old ? */ 



value to exp */ 



[ lib_pin->drive_current = $3 . real__val ; } 
PIN_DT 1 : ' driver_type semicolon. 

PIN_ERBF0 { libc_time_delayjriodel (CM0S2) ; } ■:' value 

PIN__ERBF1 { libc_time_delay_model (CM0S2) ; } ' :* value 
PIN__ERBR0 { libc_time_delay_model (CM0S2) ; } value 

PIN__ERBR1 { libc_time_delay_model (CM0S2) ; } ' value 
PIN_ERF { libc_time_delayjnodel (CM0S2) ; } value 
PIN_ERR { libc_time_delayjnodel (CM0S2) ; } •:' value 
PIN_ERLF { libc_time_delay_model (CM0S2) ; } value 
PIN_ERLR { libc_time_delay_model (CM0S2) ; } value 

PIN_EC L_INT semicolon. 

libj>in->emitter_count = $3.int_val; } 
PIN_FCSAT ':' value semicolon. 

lib_j?in->f all_current_slop_af ter_threshold = 

PIN_FCSBT ' : ' value semicolon. 
lib_pin->f all_current_slop_bef ore_threshold = 

PIH_FTAT value semicolon. 

lib_jpin->f all_time_af ter_threshold = $3.real_val; } 
PIN_FTBT 1 : 1 value semicolon. 

lib_pin~>fall_time_bef ore_threshold = $3.real_val; } 
PIN_FWE 1 :' value semicolon. 

lib_pin->f all_wor_emitter = $3.real_val; } 
PIN_FWI ' : ' value semicolon. 

lib_pin->f all_wor_intercept = $3.real_val; } 
PIN_FL 1 : r value semicolon. 

libj?in->f anout_load = $3.real_val; } 
PIN^FUNCTION 1 : ' bool_expression semicolon. 

lib_pin->f unction = $3.bool_opr; } 
PIN_H ' : ' boolean semicolon. 

lib_pin->hysteresis = $3.int_val; } 
PIN_IM ' ; 1 qname_list semicolon. 

libj?in->input_map = $3 .name_list .head; } 
PIN_ISL 1 : ' string semicolon. 

lib_jpin->input_signal_level = $3. string; } 
PIN_IV ' : 1 string semicolon. 

libjpin->input_voltage = $3. string; } 
PIN_IN ' : 1 string semicolon. /* 

lib_pin->internal_node = $3 . string; } 
PIN_IO ' : 1 boolean semicolon. 

lib_pin->inverted_output = $3.int_val; } 
PIN_IP ' : 1 boolean semicolon. 

lib_pin->is_j?ad = $3,int__val; } 
PIN_MAX_FO ':' n_expression semicolon. /* change 

lib_pin->max_f anout = $3.real_val; } 
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| PIN_MAX_TRANS ' : ■ n_expression semicolon, 
change value to exp */ 

{ lib_pin->max_transition = $3.real_val; } 
| PIN_MAX__CAP ' : » n_expression semicolon. 



value to exp */ 



/* change 



>next) 



$3.real_val; } 
$3.real_val; } 



{ lib__pin->max_capacitance = $3.real_val; } 

PIN_MI]Sr_FO ':' n_expression semicolon. 
{ lib_pin->min_f anout = $3.real_val; } 

PIN_MIN_TRANS n__expression semicolon. 

{ lib_j>in->min_transition = $3.real_val; } 

PINJYIIN_CAP ' : ' n_expression semicolon. 
{ lib_jpin->min_capacitance = $3.real_yal; } 

PIN_MP ' : 1 value semicolon. 
{ libc_minimum__period_rec *mpp,*nmpp; 

nmpp = new_libc_minimum_jperiod_rec ( ) ; 

nmpp->constraint = $3 . real_val ; 

if (lib_pin->minimum_period == NULL) 

libjpin->minimum__period = nmpp; 
else { 

f or ( mpp= 1 ibjpin- >minimum_per iod ; mpp - >next ; mpp=mpp - 



mpp->next = nmpp; 



} 



PIN_MPWH ' : ' value semicolon. 

libc_time_minimumjperiod(l, $3 . real_val) ; } 
PIN__MPWL ' : ' value semicolon. 

Iibc_time_minimum_jperiod(0, $3 .real_val) ; } 
PIN_MPP • : ' boolean semicolon. 

lib_jpin->multicell_pad_j>in = $3.int_val; } 
PIN_MDL » : 1 boolean semicolon. 

lib_pin->multiple_drivers_legal = $3.int_val; 
PIN_NST ' : ' next s tat e_type semicolon. 
PIN_OSL ' : ' string semicolon. 

lib__pin->output_signal_level = $3. string; } 
PIN_OV r : 1 string semicolon. 

lib_j)in->output__voltage = $3. string; 
P1N_PFT r : ' pin_func_type semicolon. 
PIN_PP 1 : » value semicolon. 

lib_pin->pin_power = $3.real_val; } 
PIN_PT 1 : ' int__or_name semicolon. 

lib_pin->prefer_tied = $3.int_val; } 
PIN_PO ' : r boolean semicolon. 

lib_pin->primary_output = $3.int_val; 
PIN_PC r : ' value semicolon. 

lib_jpin- >pulling_current = $3 . real__val ; } 
PIN_PR ' : ' value semicolon. 

lib_pin->pulling_resistance = $3.real_val; } 
PIN_RC 1 : ' value semicolon. 

lib_pin->ref erence_capacitance = $3.real_val; 
PIN_RCSAT value semicolon. 

lib_pin->rise_current_slop__af ter__threshold - 

PIN_RCSBT value semicolon, 

libjpin- >rise_current_slop_bef ore_threshold = 



} 
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| PINJRTAT ' : ' value semicolon. 

{ lib__pin- >rise_time_af ter_threshold = $3.real_val; } 
| PIN__RTBT ' : ' value semicolon. 

{ libjpin->rise_time__bef ore_threshold = $3 . real_val ; } 
| PIN_RWE • : 1 value semicolon. 

{ lib_jpin- >rise_wor_emitter = $3.real_val; } 
| PIN_RWI ' : 1 value semicolon. 

{ lib_pin->rise_wor_intercept = $3.real_val; } 
| PIN_SC ' : ' slew_control semicolon. 
| PIN_SF ' : 1 bool_expression semicolon. 

{ lib_pin->state_f unction = $3.bool_opr; } 
| PIN_TS bool__expression semicolon. 

{ libjpin->three_state = $3.bool_opr; } 
| PIN_VN ' : r string semicolon. 

{ libjpin->vhdl_name = $3. string; } 
| PIN_WC ' : ' value semicolon. 

{ libjpin->wire__capacitance = $3.real_val; } 
| PIN_WCC ' string semicolon. 

{ lib_pin->wired_connection_class = $3. string; } 
| PIN_XF bool_expression semicolon. 

{ libj?in->x_f unction = $3.bool_opr; } 
| CTC_ST ■ : ' signal_type semicolon. 

{ libc_cell_pin_type_assign (libjpin- 
>pin__name , $3 . sig_type) ; } 

| CTC_TOO 1 : ' boolean semicolon. 

/* DIR */ 

direction : DIR_INPUT { lib_pin->direction - INPUT_E; lib_jpin- 

>pin_type = l_axub Port Type In; } 

| DIR_OUTPUT { libj>in->direction = OUTPUT_E; lib_pin 

>pin_type = l_axubPortTypeOut ; } 

| DIR_INOUT { lib_pin->direction = INOUTJE; lib_pin- 
>pin_type = l_axubPortTypeIO; } 

| DIR_INTERNAL { lib_pin- >direction = INTERNAL__E ; } 



tc_direction : DIR__INPUT 

| DIR_OUTPUT 
j DIR_INOUT 
DIR INTERNAL 



/* DRT */ 

driver_type : dt_class 

I ' n 1 dt class ' » » 



dt_class : DRT_PULL_UP { lib_pin- >drive_type = 

PULL_UP; } 

I DRT_PULL__DOWN { lib join ->drive_type = PULL DOWN; 

} 

| DRT_OPEN_DRAIN { lib_pin- >drive_type = OPENJDRAIN; } 

| DRT_OPEN_SOURCE { libjpin- >drive_type = OPEN_SOURCE; } 

j DRT_BUS_HOLD { lib join- >drive_type = BUS_HOLD; 

| DRT_RES { lib_pin->drive_type = RESISTIVE; } 

j DRT_RES0 { lib_jpin->drive_type « RESISTIVEO; } 
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DRT RES1 



{ libjpin->drive_type = RESISTIVE1; } 



/* NST */ 

next s tat e_type 



SCAN_ENABLE_E; } 



N_DATA 

N__PRESET 

N_CLEAR 

N_L.OAD 

N_SCAM_IN 

N SCAN ENABLE 



{ lib_pin->nextstate_type = DATE E; } 
{ lib _pin->nextstate_type = PRESETJE; } 
{ libjpin->nextstate_type = CLEAR_E; ' } 
{ lib_pin->nextstate_type = LOAD_E; ' } 
{ lib_pin->nextstate_type = SCAN_IN_E; } 
{ lib _j>in->nextstate_type = 



/* PFT */ 

pin_f unc_type 
CLOCK_ENABLE_E; } 

} 



} 



ACTIVE_RSING_E; } 



ACT I VE_FALL ING_E ; } 



: CLK_ENABLE { lib_pin- >pin_f unc_type - 

ACT_HIGH { lib_jpin->pin_func_type = ACTIVE_HIGH_E 

{ lib_pin->pin_func_type = ACTIVE_LOW_E; 
{ 1 i b __pi n ->pin_func_type = 
{ lib_pin->pin_func_type = 



| ACTJLOW 
| ACT_RISING 



ACT_FALL ING 



int__or_name : l INT 

{ if ($lTint_val < 0 || $l.int_val > l) 
libcerror ("only 0 or 1 is allowed."); 
$$-int_val = $l.int_val J= 0; 

| 1 " ' L_INT /* only "0" I "l» */ 

{ if ($2.int_val < o || $2.int_val > l) 
^ libcerror(»only 0 or 1 is allowed."); 

i i? t 

{ $$.int_val = $2.int_val ] = 0; } 



/* PSC */ 

slew control 



i TnTT ^ N0NE T S ?. { lib -i> in ->slew_control = NONE E; } 
LOW_sc { libjpin->slew_control = LOW_E; } ~ 
MED_SC { lib_pin->slew_control = MED_E; } 

I HIGH_SC { lib_pin->slew_control = HIGH_E; } 



p i n_gr oup_s t m t 



: timing_group 
{ $1. timing- >next = lib_pin->timing ; ; 
libjpin->timing = $1. timing; 



} 



min_pluse_group 
min_jperiod_group 
interna l_jpower_group_jp 



/* 
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routing_track_group : C_RT 1 ( 1 name ■ ) ' 

{ lib_routing_track - new_libc_routing_track_rec ( ) ; 
lib_routing_track->layer_name = $3. string; 

} 

' { » rt_stmts ' } 1 
{ lex_j?rev_state ( ) ; 

lib__routing_track->next = lib_ cell - >routing_track; 

lib_cell->routing_track = lib_routing_track; 

lib_routing_track = NULL; 

} 

semicolon. 



rt stmts 



rt stmt 



rt_stmt 

rt stmts rt stmt 



TRACKS ' : ' L_INT semicolon. 
{ lib_routing_track->tracks = $3.int_val; } 
TRACK_AREA 1 : ' value semicolon. 

{ lib_routing_track->total_track_area = $3.real_val; } 



7 



{' 



/* ignored */ 

statetable_group : C_ST ' ( 1 qname_list ' , f qname__list 1 ) 

TABLE L_QSTRING semicolon. 

{ lex_j?rev_state ( ) ; 

f ree__libc_name_list__rec ($3 . name_list . head) ; 
f ree_libc_name_list_rec ($5 . name_list . head) ; 
f ree_text_buf f er ($10 . string) ; 

} 

semicolon. 



/* 



*/ 



/* ignored */ 

test_cell_group *. C_TC name. 

{ lib_tc_cell « lib_cell; lib_cell = NULL; } 

' { » tc__stmts ' } 1 

{ lex_prev_state { ) ; 

f ree_text_buf f er ($3 . string) ; 
lib_cell = lib_tc_cell; 

} 

semicolon. 



tc stmts 



tc stmt 



tc_stmt 

tc stmts tc stmt 



tcjpin_group 
statetable_group 
f f_group 
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| f f_bank_group 

| latch_group 

| latch_bank_group 



tc_pin_group : CTC_PIN T ( ? name_list ' ) ' 

{ lib_tc_pin__name = $3 .name_list .head; 
lex_prev_state ( ) ; 

} 

' { ' tcjpin__stmts ' } ' 
{ f ree_libc_name_list_rec (lib_tc_pin_name) ; 
lib_tc_pin_name = NULL; 

} 



tc_pin_stmts : tcj?in_stmt 

j tc_pin__s tints tcjpin_stmt 



tc_j>in_stmt : CTC_DIR tc_direction semicolon. 

| CTC_FUNC 1 : ' ■ " 1 simple_bexp ' " * /* bool_expression */ 

{ f ree_libc__bool__opr_rec ($4 .bool_opr) ; } semicolon, 
j CTC_FUNC ' : 1 simple_bexp 1 ; • 

{ f ree_libc_bool_opr_rec ($3 .bool_opr) ; } 
| CTCJST ' : r signal_type semicolon, 
{ libc_cell_pin_type_assign {lib_tc_pin_name, $3 . sig__type) 

j CTC_TOO 1 boolean semicolon. 
| tc _j?in_ignored 



tc_pin_ignored : string ' : 1 

{ lex_next_QSTR_state() ; } 
tc_ignored_attr semicolon. /* ignore */ 

{ f ree_text_buffer ($1 . string) ; } 



tc_ignored_attr : value { lex_jprev_state ( ) ; } 

j string { lex__prev_state ( ) ; 
f ree_text_buffer ($1 . string) ; } 

| L_QSTRING { free_text_buffer($l. string) ; } 



signal__type : sig_t_class 

j sig_t_class { $$ = $2; } 



sig_t_class : ST_TSI { $$.sig_type ^ ST_TSI_E; } 



ST_ 


_TSII 


{ 


$$. 


• sig_type 






_TSII_E; 


} 


ST~ 


~TSO 


{ 


$$. 






st] 


_TSO_E ; 


} 


ST~ 


"tsoi 


{ 


$$. 


- s ig_typ e 




st] 


_TSOIJS; 


} 


ST~ 


[tse 


{ 


$$■ 


■ sig_type 




st] 


_TSE_E; 


} 


st] 


"tsei 


{ 


$$■ 


. sig_type 




st] 


]tSEI_E; 


} 


st~ 


~TSC 


{ 


$$■ 


- sig__type 




ST_ 


_TSCJE; 


} 


ST~ 


"tsca 


{ 


$$. 


•sig_type 




st] 


~TSCA_E; 


} 


ST™ 


"tscb 


{ 


$$. 


. sig_type 




st] 


_TSCBJS; 


} 
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| ST_TCLK { $$.sig_type = STJTCLK_E; } 



/* = = = = = = . = = = = = = = = « */ 

timing_group : TIMING ' ( ' name . ' ) 1 

{ libc_time_init ($3 . string) ; } 
1 { ' timing_stmts * } 1 
{ lex_j?rev__state ( ) ; 
libc_time_f inish ( ) ; 

} 

semicolon. 

{ $$. timing = lib_timing; 
lib_timing = NULL; 

} 



timing_stmts : timing_stmt 

| timing_stmts timing_stmt 



timing_stmt 



timing_simple_attr 



semicolon. 



: timing__simple_attr 
t imi ng_c omp 1 ex_a 1 1 r 
timing_group_stmt 



; TI_JBRSF0 ' : ' value semicolon. 
{ lib_timing->edge_rate_sensitivity__f 0 = $3.real_val 
TI_ERSF1 ' : ' value semicolon. 

{ lib_timing->edge_rate_sensitivity_f 1 = $3.real__val 
TI_ERSRO * : ' value semicolon. 

{ lib_timing->edge_rate_sensitivity_rO = $3.real__val 

TT_ERSR1 ' : • value semicolon. 
{ lib__timing->edge_rate_sensitivity_rl = $3.real__val 

TI__FR ' : ' value semicolon. 

{ lib_timing- >f all_resistance = $3 . real__val ; } 

TI_RR 1 : 1 value semicolon. 
{ lib_timing->rise_resistance = $3.real_val; } 

TI_IF ' : ' n_expression semicolon. 
{ lib_timing->intrinsic_f all = $3.real_val; } 

TI_IR ' : f n_expression semicolon. 
{ lib_timing- >intrinsic_rise = $3.real_val; } 

TI_RBP • : f bool_expression semicolon. 
{ lib_timing- >related__bus_j?ins = $3.bool_opr; } 

TI_ROP related_out_pin semicolon. 

TI_RP ' : 1 qname_list semicolon. 

{ libc_cell_relativej>in_handle ($3 . name_list . head) ; 
lib_timing->related_pin = $3 .name_list . head; 



} 



TI SDF C 



{ lex_next_SKIP_state () ,* } sdf_skips 



TI_SDF_E ' : 1 sdf_edge semicolon. 

TI_SF ' : ' value semicolon. 
{ lib_timing->slope_f all = $3 . real__val ; } 

TI_SR ' : ' value semicolon. 
{ lib_timing->slope_rise = $3.real_val; } 

TI_TT ' : ' timing_type semicolon. 
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semicolon, 
semicolon. 



TI_TS » : ' timing_sense semicolon. 

TI_WHEN ' : • bool_expression semicolon. 
{ lib_timing->when = $3 . bool__opr ; } 

TI_WS ' : ' bool_expression semicolon. 
{ lib_timing~>when_start = $3.bool_opr; } 

TI_WE 1 : ' bool_expression semicolon. 
{ 1 ib_timing -> whence nd = $3.bool_opr; } 

TI_SDF_CS ':' { lex_next_SKIP_state ( ) ; } sdf_skips 



[ TI_SDF_CE 



{ lex_next_SKIP_state () ; } sdf_skips 



/* SDF__E */ 

sdf_edge : NO_EDGE 

| BOTH_EDGES 
I START_EDGE 
END EDGE 



/* ROP */ 

related_out_pin : LTT_ROTONC 

{ lib_t iming- >related_output_pin 
RELATED JDUTJTOTALjDUTPUTJSTET^CAP ; } 
| LTT_ROONL 
{ lib_timing~>related_output_pin 
RELATED J3UT_0UTPUTJSET_LENGTH ; } 
| LTT_ROONWC 
{ lib_timing->related_output_pin 
RELATED_OUTjDUTPUT_NETJtfIRE_CAP ; } 
| LTT_ROONPC 
{ lib__timing->related_output_j?in 
RELATED J}UT_OUTPUT_NET_P IN_CAP ; } 



/* TIT */ 

timing_type 



: tt_class 
' " 1 tt class ' " » 



tt 

RISING 



class 
EDGE T; 



_T; } 



TIT_RE { lib_timing->timing_type = 



THREE STATE DISABLE 



THREE_STATE_ENABLE JT ; } ~ 



| TIT. 


_FE 


{ 


lib__timing- 


>timing_type 




j tit] 


~PS 


{ 


lib_timing- 


>timing__type 




| TIT™ 


~CL 


{ 


lib_timing- 


> timing_t ype 




| TIT_ 


~HR 


{ 


lib_timing- 


>timing_type 




| TIT_ 


_HF 


{ 


lib_timing- 


>trming_type 




| tit" 


~SR 


{ 


lib_timing- 


>titning_type 




| tit" 


JSF 


{ 


lib_timing- 


>timing_type 




| TIT_ 


]rr 


{ 


lib_timing- 


>timing_type 




| TIT_ 


_RF 


{ 


lib_timing- 


>timing_type 




| TIT_ 


_TSD 


{ 


lib__timing- 


>timing_type 




3_T; } 










| TIT_ 


_TSE 


{ 


lib_timing- 


>timing_type 





FALLING_EDGE_T; } 
PRESETJT; } 
CLEARJT; } 
HOLD_RISING_T; } 
HOLD_FALLING_T; } 
SETUP_RISING_T; } 
SETUP_F ALL INGJI ; } 
RECOVERY JRI S ING JT ; 

= RECOVERY FALLING T; 
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I TIT_RMR 

^ j TIT_RMF 

| TIT_C 

COMB I NAT I ONAL__T ; } 

| TIT_SKR 
| TIT_SKF 
j TITJSTSHR 

NON_SEQ_HOLD_RISING_T; } 

| TITJJSHF 

NON_SEQ_HOLD_FALLING JT ; } 

| TIT_NSSR 

NON_SEQ_SETUP_RI S ING_T ; } 

| TITJJSSF 
NON__SEQ_SETUP_FALLING_T; } 

| TIT_NCHH 
NO CHANGE_H I GH__H I GH_T ; } 

| TTT__NCHL 
NOCHANGE_HIGH_LOW_T ; } 

| TIT__NCLH 
NOCHANGE_LOW__HIGH_T ; } 

^ | TIT_NCLL 



lib 
lib" 



timing- >timing_type 
timing- >timing_type 



REMOVAL_RISING_T; } 
REMOVAL__FALLING T; 



{ lib_t iming- >timing_type = 



lib 
lib" 
lib" 

lib_ 

lib_ 

lib_ 

lib 

lib 

lib 

lib 



.timing- >timing_type 
t imi ng - > t i mi ng_ t ype 
timing- >timing_type 

_t iming- >timing_type 

_timing->timing_type 

.timing- >timing_type 

_t iming- >timing_type 

timing- >timing_type 

timing- >timing_type 

timing- >timing_type 



SKEW_RISING_T; } 
SKEW_FALLING_T ; } 



= NOCHANGE_IjOW_LOW_T ; 



/* TST */ 

timing__sense 



: ts_type 
1 " ' ts__type ' » » 



ts_type 



TIS_POS { lib 
TTS_NEG { lib 
TIS_NON { lib 



_t iming- >timing__sense 
timing- >timing_sense 
timing- >timing_sense 



POS ITIVE_UNATE_E ; 
NEGAT I VE__UNATE_E ; 
NON_UNATE_E; } 



ti»i„l ?x _ :s ^ ; U,c_ ti »e_ a ela y _„oae 1( P IE c EB I S K_c„0 S); , 

{ libc_time_piecewise($4.int_val,i,$6.real_val) • } 

L_INT ... value ^-^J n libC - time - dela y-^el (PIECEWISE_CMOS) i } 

L_INT value .,! ^^^^-^"-^y-^ltWKEWISE.CMOS); } 

{ libc_time_piecewise($4.int_val / 3,$6.real val) • } 
L_INT ... value ■,! l^^ 0 -' 1 ™-* 1 **-^ 1 ^^E^MOS) !• } 

{ libc_time_piecewise($4.int_val,4,$6.real_val) • } 

L tut ■ . „ al ,J TI - RDI < llbc _ t ime_delay_model(PiECEWiSE CMOS)' ) -(- 
l_int value ')' semicolon. - ' ' 1 1 

{ libc_time_piecewise($4.int_val / 5 / $6.real_val) • } 
L_INT .,. value •)! ^-^ n libC - time - del ^-^el (PIECEWISE.CMOS) i } ■(■ 

{ libc_time_piecewise($4.int_val,6 ( $6.real_val) ; } 
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| TI_RPR { libc_time_delay_model (PIECEWISE_CMOS) ; } ' ( 
L_INT ' , ' value ( ) ' semicolon. 

{ libc_time_piecewise ($4 . int_val, 7, $6 . real__val) ; } 

| TIJRWR { libc_time_delay_model (PIECEWISE_CM0S) ; } '{ 
L_INT ',' value semicolon. 

{ libc_time_piecewise ($4 . int_val, 8 , $6 . real_val) ; } 



/* */ 

timing__group_stmt : timing_group_head 1 ( 1 name 

{ lib_timing_tbl = new_libc_table__val__rec () ; 

if ( 1 libc_time_f ind_template ($3 . string, tech_lib- 
>lut_template, lib_tirning_tbl) ) { 

libcerror ("template not found!"); 
exit (1) ; 

} 

} 

' ) ' 1 { ' v_stmts 1 } 1 
{ lex_jprev_state ( ) ; 

libc_time_handle ($1 . int_yal) ; 

} 

semicolon . 



timing_group_head ; CELLJDEGR { $$.int_val = 0; 



libc_ 


_time_ 


_delayjnodel (TABLE_LOOKUP) 


; } 












| CELL_RISE { $$. 


int 


_val 




l; 


libc_ 


_time_ 


_delay_model ( TABLE_LO0KUP ) 


; }" 












| CELL_FALL { $$ . 


int 


_val 




2; 


libc_ 


_time 


_delay_jnodel (TABLE_LOOKUP) 


; }" 












| R_PROP { $$. 


int 


_val 




3; 


libc_ 


_time_ 


_delay_model (TABLE_LOOKUP) 


; }" 












| F_PROP { $$. 


int 


jval 




4; 


libc_ 


_time_ 


_delay_model (TABjLE__LOOKUP) 


; }" 












| R_TRANS { $$. 


int 


_val 




5; 


libc_ 


_time_ 


_delay_model (TABLEJLOOKUP) 


; }" 












| FJTRANS { $$. 


int 


_val 




6; 


libc_ 


_time_ 


_delay_model (TABLE^LOOKUP) 


; }" 












| R_CONS { $$. 


int 


_val 




7; 


libc_ 


_time_ 


_delay_model (TABLE^LOOKUP) 


; }" 












| F_C0NS { $$. 


int 


jval 




8; 


libc_ 


_time_ 


_delay_model (TABLE_LOOKUP) 


; 1" 









v_stmts : v__stmt 

[ v_stmts v_stmt 
; 

v_stmt : TBL_IDX1 qvalue_list semicolon. 

{ f ree_f loat_buf f er (lib_timing_tbl - >indexl) ; 
lib_timing__tbl->indexl = 
libc_util_f loat_list2buf f er ($3 . f loat_list .head) ; } 

| TBL_IDX2 '(' qvalue_list f ) r semicolon. 
{ f ree_f loat_buf f er (lib__timing_tbl- >index2) ; 
lib_timing_tbl - >index2 = 
libc_util_float_list2buf fer ($3 .f loat_list .head) ; } 
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| TBL_IDX3 1 (' qvalue_list ')* semicolon. 
{ f ree_f loat__buf f er (lib_timing_tbl->index3) ; 
lib_timing_tbl - >index3 = 
libc_util_f loat_list2buf fer ($3 . float JList .head) ; } 

| VALUES qvalue_lists r )' semicolon. 

{ 

libc_time_values_handle (lib^timing^bl, $3 . f loat_list__list .head) ; } 



min_pluse_group 



: MINJPLUSE_WIDTH » ( ' ' ) ' 
{ libjnpw = new_libc_min_pulse_width_rec () ; } 
1 { 1 mpw_stmts 1 } ' 
{ lex_prev_state ( ) ; 

lib_mpw->next = lib__pin->min__pulse_width; 

libjin->min_pulse_width = libjnpw ; 

lib_mpw ~ NULL ; 

} 

semicolon. 



mpw_stmts 



: mpw__stmt 

| mpw_stmts mpw_stmt 



mpw_stmt 



semicolon . 



; MPW_CH * : 1 value semicolon. 
{ lib_mpw->constraint__high = $3.real_val; } 

MPW_CL ' : 1 value semicolon. 
{ lib_mpw->constraint_low = $3.real_val; } 

TI_WHEN ' : ' bool_expression semicolon. 
{ lib_mpw->when = $3.bool_opr; } 

TI_SDF_C ':' { lex_next_SKIP_state () ; } sdf__skips 



mi n_j? e r i od_g r oup 



: MIN_PERIOD • ( » 1 ) ' 
{ lib_mp = new_libc_minimum__period_rec ( ) ; } 
' { ' mp_stmts 1 } ' 
{ lex_prev_state ( ) ; 

lib_mp->next = lib_jpin- >minimum_jperiod 

lib_pin->minimum_period = libjnp; 

lib__mp = NULL; 

} 

semicolon. 



mp_stmts 



mp_stmt 

mp_stmts mp_stmt 



mp_stmt 



: MP_C ' : ' value semicolon. 
{ lib_mp->constraint = $3.real_val; } 

TI__WHEN ' : 1 bool_expression semicolon. 
{ lib__mp->when = $3.bool_opr; } 
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semicolon. 



TI_SDF_C 1 :' { lex_next_SKIP_state () ; } sdf_skips 



n_expr e s s i on 



: simple_exp 
| ' " ' simple_exp ' ?l 



{ $$.real_val = $2.real_val; } 



simple_exp : term 

| simple_exp ' + 1 term 

{ $$.real_val = $l.real_val + $3.real_val; } 

| simple_exp ' - ' term 

{ $$.real_val - $l.real_val - $3. real val; } 



term 



: factor 
term 1 *' factor 

{ $$.real_val = $l.real_val * $3.real_val; } 
term r / * factor 

{ $$.real_val = $l,real_val / $3.real_val; } 



factor 



: primary- 



primary 
primary 



{ $$.real_yal = $2.real_val; } 
{ $$.real_val = - $2.real_val; } 



primary 



: ' ( ' simple_exp 1 ) 1 

{ $$.real_val = $2.real_val; } 
| identifier 

{ if ( !libc_def_gc_find{$l.string,M$$>real_val) ) ) { 
libcerror { "define not found."); 
$$.real_val = 1.0; 

} 

} 

| L_INT 

{ $$.real_val = (float) $l.int_val; } 
I L REAL 



/* 



bool_expression 

} 



: simple_bexp 
' 11 ' simple_bexp ' " r 



{ $$-bool_opr = $2.bool_opr 



simple_bexp : or_exp 

| simple_bexp • * 1 or_exp 

{ $$.bool_opr = libc_opr_handle(XOR_B, 0) 

Knnl o-n-r-^T. = 4 1 "h^rsl 



} 



$$ >bool_opr->L = $l.bool_opr; 
$$.bool_opr->R = $3.bool__opr; 
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or_exp 



and_exp 

or_exp ' | ' and_exp 

{ $$.bool_opr = libc__opr_handle (OR__B, 0) ; 

$$.bool_opr->L = $l.bool_opr ; 
^ $$.bool_opr->R = $3.bool_opr ; 

or_exp ' + 1 and_exp 

{ $$.bool_opr = libc__opr_handle (OR_B / 0) ; 
$$.bool_opr->L = $l.bool_opr; 
$$.bool_opr->R = $3.bool_opr ; 



and_exp 



: uni_exp 

and_exp »&' uni_exp 
$$ .bool oDr = lih 



ana_exp »&' uni_exp 

{ $$.bool_opr = libc_opr_handle(AND_B / 0) ; 
$$.bool_opr->L = $l.bool_opr ; 
$$.bool_opr->R = $3 .bool__opr ; 



} 



/ 

and_exp ' * ' uni_exp 

{ $$.bool_opr = libc_opr_handle(AND__B,0) ; 
$$.bool_opr->L = $l.bool_opr ; 
$$.bool_opr->R = $3.bool_opr ; 



} 

and_exp uni_exp 

{ $$.bool_opr sz libc_opr_handle (AND_B, o) ; 
$$.bool_opr->L = $l.bool_opr ; 
1 r- — to 



} 



$$ 



.bool_opr->L = $l.bool_opr ; 
•bool_opr->R = $2.bool_opr; 



uni_exp 



: bjprimary 

| ' ! ' b_primary 

{ $$.bool_opr = libc_oprJaandle(NOT_B,0) ; 
^ $$.bool_opr->R = $2.bool_opr; 

| b_j?rimary r * 1 

{ $$.bool__opr = libc_opr_handle (NOT_B, 0) ; 
^ $$.bool__opr->R = $l.bool_opr ; 



b_primary 



expression. ") ; 



: ' ( ' simple__bexp r ) 1 

{ $$.bool_opr = $2.bool_opr; } 
I id_name 

';M N ^ • 7 * ° nl ^ 0 and 1 is allowed */ 

{ xf ($l.mt_val < o || $i.int_val > l) 

libcerrorC'only 0 or 1 is allowed in boolean 

if ($l.int_val) 

$$.bool_opr = libc_opr_handle(ONE B, 1) - 
else ~ 



} 



$$.bool_opr = libc_opr_handle(ZERO_B / 0) ; 



id name 



identifier 



A-LIBC-309 



libc_yacc.y 

{ $$.bool_opr = libc_opr_handle (ID_B, {int) $1 . string) ; } 
| identifier ' [ r simple_exp *]' 

{ $$.bool__opr = libc_opr_handle (INDEXJB, 0) ; 

$$ .bool_opr->L = libc_opr_handle (ID_B, ( int ) $1 . string) 
$ $ . bool_opr - >R = 
libc_opr_handle (CONST_B, (int) $3 .real_val) ; 

} 



%% 

/* #include "lex.yy.c" */ 

/* */ 

public 

int parse_a_tlib_f ile ( 

char *f__name) 
{ int code = 0; 

file_name = f_name; 

libcin = fopen (f_name, "r" ) ; 

if (libcin NULL) { 

fprintf (stderr, "Could not open input file %s.\n",f_name) ; 

return ( 1 ) ; 

} 

code = yyparse ( ) ; 
f close (libcin) ; 
return (code) ; 

} 

/* */ 

#if o 
int main( 

int argc, 

char **argv) 

{ 

file_name = argv[l]; 

libcin = fopen (argv [1] , "r" ) ; 

yyparse () ; 

f close (libcin) ; 

} 

#endif 
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struct any_unit_rec { 
float V; 
float unit; 

}; 

typedef struct any_unit_rec any_unit_rec; 



struct libc__name_list_rec /*COPY*/ { 
t ext _bu f f e r * name ; 

struct libc_name__list_rec *next; 

}; 

typedef struct libc_nanie_list_rec libc_name_list_rec; 
/* */ 

struct libc_name_li stylist { 

struct libc_name_list_rec *name_listl ; 
s t rue t 1 ibc_name_l i s t_r e c * name__l i s 1 2 ; 
struct libc_name_list__list *next; 

}; 

typedef struct libc_name_list_list libc_name_list_list ; 
/* */ 

struct libc_f loat__list_rec { 
float f value; 

struct libc_f loat_list_rec *next; 

}; 

typedef struct libc_f loat_list__rec libc_f loat_list_rec ; 
/* */ 

struct libc__f loat_list_list { 

struct libc_f loat_list_rec *v_list; 
struct libc_f loat_list_list *next; 

}; 

typedef struct libc_f loat_list_ list libc_f loat_list_list ; 

/* */ 

/* */ 

struct libc_def ine_rec { 
text_buffer *name; 
text_buffer *object; 
text_buffer *type; 
struct libc_def ine_rec *next; 

}; 

typedef struct libc_def ine_rec libc_def ine_rec; 

/* */ 
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enum pad_type_E { PAD_SLOTS, PAD_DRIVER_SITES, PAD_INPUT_DRIVER_SITES , 

PAD_OUTPUT_DRIVER_SITES } ; 

typedef enum pad__type_E pad_type_E; 

struct libc_cell_area_rec { 

text_buffer *area_name; 
enum pad_type_E resource^type ; 
struct libelee ll_area_rec *next; 

}; 

typedef struct libc_cell_area_rec libc_cell_area_rec; 
/* */ 

/* scaled_f actor_group */ 

struct libc__k_f actor_rec { 



text_buf fer 


*kf _name 


/* scaling attr 0: 


process, l:temp, 2: volt */ 


float 


k_cell_rise [3] ; 


float 


k_cell_f all [3] ; 


float 


k_cell_leakage_j?ower [3] ; 


float 


k_cell_ power [3] ; 


float 


k__drive_current [3] ; 


float 


k_drive__f all [3] ; 


rloat 


k__drive rise [3] ; 


float 


k_f all_delay_mtercept [3] ; 


float 


k_f a ll_pin_resi stance [3] ; 


float 


k_f all_propagation [3] ; 


float 


k_f all_transition [3] ; 


riOdU 


k__fall^wire resistance [3] ; 


float 


k_f all_wor_emitter [3] ; 


float 


k fall wor intercept [3] ; 


float 


k_hold_fall [3] ; 


float 


k_hold_rise [3] ; 


float 


k_internaljpower [3] ; 


float 


k__intrinsic_f all [3] ; 


float 


k_intrinsic_rise [3] ; 


float 


k__min_j?eriod [3] ; 


float 


k_minj?ulse_width_high [3] ; 


float 


k_min_jpulse_width_low [3] ; 


float 


k_nochange_f all [3] ; 


float 


k_nochange_rise [3] ; 


float 


k_pin_cap [3] ; 


float 


kjpinjpower [3] ; 


float 


k_recovery_f all [3] ; 


float 


k_recovery_rise [3] ; 


float 


k_removal_f all [3] ; 


float 


k_removal_rise [3] ; 


float 


k_rise_delay_intercept [3] ; 


float 


k_rise__pin_resistance [3] ; 


float 


k_rise_propagation [3] ; 


float 


k_rise_transition [3] ; 


float 


k_rise_wire__resistance [3] ; 


float 


k_rise_wor_emitter [3] ; 
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float k_rise_wor_intercept [3] ; 

float k_setup_fall [3] ; 

float k_setup_rise [3] ; 

float k_skew_fall [3] ; 

float k_skew_rise [3] ; 

float k_slope_fall [3] ; 

float k_slope_rise [3] ; 

float k_wire_cap [3] ; 

float k_wire_res [3] ; 

struct libc_k_f actor_rec *next; 

}; 

typedef struct libc_k_f actor_rec libc_k_f actor__rec; 

/* */ 

enum delay_model_E { UNKNOW_M, GENERIC__ECL , GENERIC_CMOS , TABLE_LOOKUP , 
CMOS 2 j PIECEWISE_CMOS }; 

typedef enum delay_model_E delay_model_E ; 

enum injplace_swap_mode_E { MATCH_FOOTPRINT , NO_SWAPPING, IGNORE_FOOTPRINT 
typedef enum in_place__swap_jnode_E in__place__swap_mode_E; 

enum mmp_E { MAX_E, MIN_E, PLUS_E }; /* nonpaired_twin_inc_delay_f unc 

typedef enum mmp_E mmp_E; 

enum piece_type_E { PIECE_LENGTH, PIECE_WIRE_CAP, PIECE_PIN_CAP, 
PIECE_TOTAL_CAP } ; 

typedef enum piece_type_E piece_type_E; 

enum wired_logic_function_E { WIRED_AND, WIRED_OR }; 
typedef enum wired_logic__function_E wired_logic_function__E; 

enum def ault_wire_load__mode_E { SEGMENTED__WL , TOPJtfL, ENCLOSED_WL }; 
typedef enum def ault_wire_load__mode_E def ault_wire_load_mode_E; 

/* */ 

struct libc_lib_rec { 

text_buffer *lib_name; 

/* simple attr */ 

text_buf f er *aux_no_pulldown_pin_property; 

text_buffer *bus_naming_style; 

text_buffer *comment; 

struct any_unit_rec *current_unit ; 

text_buffer *date; 

enum delay_model_E delay_jnodel ; 

enum in_jplace_swap_mode_E in_place_swap__mode ; 

struct any_unit_rec *leakage_power_unit ; 

int max_wired_emitters ; 

int multiple_drivers_legal ; /* boolean */ 

float nom_jprocess ; 

float nom_temperature; 

float nom_voltage; 

enum mmp_E nonpaired_twin_inc_delay_func; 

textjbuf f er *no_pulldownjpin_jproperty; 
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enum piece_type_E 
struct any_unit_rec 
text_buf f er 
text_buf f er 
text__buf f er 
struct any_unit_rec 
float 

textjbuf f er 
int 

struct any_unit_rec 

textjbuf f er 

struct any_unit__rec 



piece_type ,- 
*power_unit ; 

*pref erred_output_pad__slew_rate_control ; 
*pref erred_output_j?ad_voltage ; 
*pref erred_input_pad_voltage ; 
*pulling_resistance_unit ; 

ref erence_capacitance ; /* cmos2 */ 

^revision; 
simulation; /* boolean */ 

*time_unit ; 

*unconnected_jp in_p roper ty ; 
*voltage_unit ; 



enum wired_logic_f unction_E wired_logic_f unction; 



default attr */ 



/* 

float 
float 

struct libc_name_list_ 

int 

float 

float 

float 

float 

float 
piecewise */ 

float 

float 
piecewise */ 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

float 

text_buf fer 

float 

float 

float 

int 

int 

float 

float 

float 
piecewise */ 

float 

float 
piecewise */ 

float 



def ault_cell_leakage_power ; 
de f au 1 1 _c e 1 1 _j? owe r ; 
_rec *def ault_connection_class; 
def ault_emitter_count ; 

def ault_edge_rate_breakpoint__f 0 
def ault_edge_rate_breakpoint__f 1 
def ault_edge_rate_breakpoint__rO 
def ault_edge__rate_breakpoint__rl 
def ault_f all_delay_intercept ; 

def ault_f all_nonpaired_twin; 
def ault_f all _jpin_resi stance; 

def ault_f all_wire_resistance ; 
def ault_f all_wor__emitter ; 
def ault_f all_wor_intercept ; 
def ault_f anout_load; 
def ault__inout _j?in_cap; 
def ault_inout_jpin_f allures ; 
def ault_inout jpin_rise_res ; 
default__input_pin_cap; 
def ault__intrinsic_f all ; 
def aul t_intrinsic_rise ; 
def ault_max_capacitance ; 
def aul t_max_f anout ; 
de f aul t_max__t r ans i t i on ; 
def ault_max_utilization; 
def ault_minjporosity; 
*def ault_operating_conditions ; 
def ault_output_pin_cap; 
def ault__output j>in_f all_res ; 
def ault_output_pin_rise_res; 
def ault_pin_limit ; 
def ault_pin_power ; 

def ault_rc__f all_coef f icient ; 
def ault_rc_jrise__coef f icient ; 
def ault_r ise_delay_intercept ; 

def ault_rise_jionpaired__twin; 
def ault_rise_j>in_resistance; 

default rise wire resistance ; 



/* cmos 2 */ 

/* cmos2 */ 

/* cmos2 */ 

/* cmos2 */ 
/* 



/* cmos2 */ 

/* CTT10S2 */ 
/* 
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float 
float 
float 
float 
float 

text_buf f er 

float 

float 

enum def ault__wire_ 
float 

text buffer 



def ault_rise_wor_emitter; 
def ault_rise_wor_intercept ; 
def ault_setup_coef f icient ; 
def ault_slope_f all 
def ault_slope_rise 
* de f au 1 t_wi r e__l oad 
def ault_wire__load_area; 
def ault_wire_load_capacitance 
load_mode_E def ault_wire_load_mode 
def ault_wire_load_resistance 
^default wire load selection 



/* cmos2 */ 



struct libc__k_jf actor_rec 
struct libc_k_f actor_rec 
(scaled_f actor_group) */ 



*k_f actor; 
*sc_k_f actor; 



/* for library */ 
/* for cell 



/* complex attr */ 

struct any_unit__rec 
struct libc_def ine_rec 
struct libc_cell__area_rec 
f loat_buf f er 

struct libc__name_list_rec 
text buffer 



*capacitive_load__unit ; 
*def ine; 

*def ine_cel l_area ; 
*piece_def ine; 
*routing_layers ; 
* technology ; 



1 ib_group_s tmt * / 



struct libc_lu_table_tetnplate_rec *lut_template; 
struct libc_lu_table__template_rec *plut__template ; 
struct libc_operating_condition_rec *operating_cond; 
struct libc_j?ower_supply__rec *power_supply; 
struct libc_table_val_rec *rise_tr_table; 
struct libc_table_val_rec *f all_tr_table ; 

struct libc_timing_range_rec *timing_range; 
struct libc_type_rec *type; 
struct libc_wire_load_rec *wire_load; 
struct libc_wire_load_selection_rec *wire_load_selection; 
wire_load_selection group */ 



struct libc cell rec 



*cells ; 



struct libc define value rec 



*def val; 



void 



*hook; 



}; 

typedef struct libc_lib_rec libc_lib_rec ; 



/* 



7 



enum variable_E { 
VARIABLE_E_NONE , 

INPUT_NET_TRANS ITION , TOTAL_OUTPUT_NET_CAPACITANCE , OUTPUT_NET_LENGTH , 

OUTPUTJsFET Jtf IRE_CAP , OUTPUT_NET_PIN_CAP , 

RELATED_OUT_TOTAL_OUTPUT_NET_CAP , 

RELATED_OUT_0UTPUT_NET_LENGTH , 

RELATED J3UT_0UTPUT_NET_WIRE_CAP , 

RELATED_OUT_OUTPUT_NET_PIN_CAP , 

CONSTRAINED PIN TRANSITION, 
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RELATED_P IN_TRANS I T ION , 
OUTPUT_PIN_TRANSITION, CONNECTED EL AY 

}; 

typedef enum variable_E variable_E; 

/* 



struct libc_lu_table_template_rec { 
text_buffer *tt_name; 
enum variable_E variable_l; 
enum variable_E variable_2 j 

enum variable__E variable_3 • 

float_buffer *index_l; 
f loat_buf f er *index__2 ; 

f loat_buf f er *index_3 ; 

struct libc_lu_table_template_rec *next; 

}; 

typedef struct libc_lu_table_template__rec libc_lu_table_template_rec; 

enum tree_type_E { BEST_CASE_TREE , BALANCED__TREE , WORST_CASE_TREE }; 
typedef enum tree_type_E tree_type__E; 



struct libc_ocj?ower_rail_rec { 

text_buffer *power_supply ; 

float volt; 
struct libc_oc_power_rail_rec *next; 



b 

typedef struct libcj^c^ power_rail_rec libc_oc_power_rail_rec; 
/* */ 

struct libc_operating_condition_rec { 
text_buffer *oc_name; 
float process; 
float temperature; 
float voltage ; 

enum tree_type__E tree_type; 
struct libc_oc _j>ower__rail_rec *power_rail ; 
struct libc_operating_condition__rec *next; 

}; 

typedef struct libc_operating_condition_rec libc_operating_condition_rec 



struct libc_power_supply_rec { 

text_buf f er *ps_name ; 

text_buffer *def ault_ps ; 

struct libc_jDC_power_rail_rec *power_rail; 
struct libc_power_supply_rec *next; 

}; 

typedef struct libc_power_supply_rec libc_power_supply_rec; 



*/ 
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struct libc_timing_range_rec { 

text_buffer *tr_name; 
float f as ter_f actor; 

float slower_f actor ; 

struct libc__timing_range_rec *next; 

}; 

typedef struct libc_timing_range__rec libc_tiTning_range_rec; 
/* ================================================= _ === */ 

struct libc_type_rec { 

text_buffer *type_name; 

int bit_from; /* default is 0 */ 

int bit_to; /* default is 0 */ 

int bit_width; /* default is 1 */ 

int downto; /* default is false boolean 

*/ 

struct libc_type_rec *next; 

}; 

typedef struct libc_type_rec libc_type_rec ; 

struct libc_f anout_JLength_rec { 
int fanout; 
float length; 
float capacitance; 
float resistance; 
float area; 

float ave_cap; /* for floorplan manager */ 

float std_dev; /* for floorplan manager */ 

int no_of_net; /* for floorplan manager 

*/ 

struct libc_f anout_length_rec *next; 

}; 

typedef struct libc_f anout_length_rec libc_f anout_length_rec ; 
/* */ 

/* wire_load and wire__load_table group */ 

struct libc_wire_load_rec { 

text_buf f er *wl_name ; 

float area; 

float capacitance; 

float resistance; 

float slope; 

struct libc__f anout_length_rec *f anout_length; 

struct libc_wire_load_rec *next; 

}; 

typedef struct libc_wire_load_rec libc_wire_load_rec; 
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/* (for wire_load_selection group) sort by area */ 

struct libc_wire_load_f rom_area_rec { 
float min_area; 
float max_area; 
struct libc_wire_load_rec *_load_model ; 
struct libc_wire_load_f rom_area_rec *next; 

}; 

typedef struct libc_wire_load_f rom_area_rec libc_wire_load_f rom_area_rec; 
/* */ 

struct libc_wire_load_selection_rec { 
text_buf f er *wls_name ; 

struct libc_wire_load__f rom_area_rec *area_table; 
struct libc__wire_load__selection_rec *next; 

}; 

typedef struct libc_wire_load_selection_rec libc_wire_load_selection_rec; 

/* =============================:===================== . = */ 

enum dont_f alse_E { SAO, SAl, SA01 }; 
typedef enum dont_false_E dont_f alse_E; 

/* */ 

/* cell, test_cell group */ 

struct libc_cell_rec { 

struct libc_lib_rec *_tlib; 
text_buffer *cell_name; 

/* simple attr */ 

float area; 

int auxiliary_jpad_cell; /* boolean */ 

text_buffer *cell_f ootprint ; 

float cell_power; 

float cell_leakage_power ; 

struct libc_bool_opr__rec *contention_condition; 

enum dont_false_E dont_false; 

int dont_touch; /* boolean */ 

int dont_use; /* boolean */ 

text_buffer *geometryjprint ; /* bus, bundle cells 

only */ 

int handle__negative__constraint ; /* boolean */ 

int interf ace_timing; /* boolean */ 

int map_only; /* boolean */ 

int pad — cell; /* boolean */ 

int P a d_type; /* clock only */ 

int pin_limit; 

int preferred; /* boolean */ 

struct libc_k_f actor_rec *_scaling_f actors ; 

text_buffer *scan_group; /* test-cell only 

*/ 

text_buffer *single_bit_degenerate; /* block-box, 

bus, bundle cells only */ 
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t ex t_bu f f e r * vhdl_name ; 

/* complex attr */ 

struct libc_name__list_list *pin_equa In- 
struct libc__name_list_list *pin_opposite ; 

/* ce n g roU p s tmt */ 

/* bundle, bus, pin, statetable, test_cell ??? */ 

/* bundle, bus, pin group */ 

struct libc_pin_rec *pins; 

/* internal_power group */ 

struct libc_internal_power *internal_power_c ; 
"truct libc_leakage_power * leakage jpower ; 



s 



/* f or f f/ ff_bank, latch, or latch_bank group */ 

struct libc_ff_latch_rec *ff_latch; 

/* memory group */ 

struct libc_memory_rec *memory; 

/* rout ^ n g^ track g roU p */ 

struct libc__routing_track_rec * rout ing_t rack; 

struct libc_def ine_value_rec *def val ; 

struct libc_cell_rec *next; 

int *extra; 
v °id *hook; 

}; 

typedef struct libc_cell_rec libc_cell_rec ; 

struct libc_memory_write__rec /*COPY*/ { 
text_buf f er * address ; 

text_buffer *clock_on ; 
text_buf f er *enable ; 

}; 

typedef struct libc_memory_write_rec libc_memory_write_rec 



/* order can not cahnge */ 

enum libc_bool_type_E { 

XOR_B, OR_B, AND_B, NOT_B, /* A | & ! */ 
ID __ B / /* identifier (by name) */ 

INDEX_B, /* index name */ 

CONST_B, /* constant value */ 

ZERO_B, ONE_B /* o, 1 */ 

} ' 

typedef enum libc_bool_typeJB libc_bool_type_E ; 

struct libc_bool_opr_rec /*COPY*/ /*{type)*/ { 
enum libc_bool_type_E type; 
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union /* (type) */ { 

text_buffer /*(ID_B)*/ *id_name; 

int /* (default) */ value; 

} u; 

struct libc_bool_opr_rec *L; 
struct libc_bool_opr_rec *R; 

}; 

typedef struct libc_bool_opr_rec libc_bool_opr__rec ; 

/* */ 

enum direct ion_E { INPUT_E, OUTPUT_E, INOUT__E, INTERNAL_E } ; 
typedef enum direction_E direct ion_E; 

enum drive_type_E { PULL_UP, PULL_DOWN, OPEN_DRAIN, OPEN_SOURCE, BUS_HOLD, 
RESISTIVE, RESISTIVEO, RESISTIVE1 }; 
typedef enum drive_type_E drive_type_E; 

enum nextstate_type_E { DATE_E, PRESET_E , CLEAR_E, LOAD_E , SCAN_IN_E, 
SCAN_ENABLE_E }; 

typedef enum nextstate_type_E next s tat e_type_E; 

enum pin__f unc_type_E { CLOCK_ENABLE_E , ACTTVE_HIGH_E, ACTIVE_LOWJE , 

ACTIVE_RSING_E, ACT I VE_FALL I NG_E }; 

typedef enum pin_func_type_E pin_func_type_E; 

enum slew_control_E { NONE_E, LOW_E, MED_E, HIGH_E }; 
typedef enum slew_control_E slew__control_E; 

enum signal_type_E { 

ST_TSI_E, ST_TSII_E, STJTSOJB, ST_TSOI_E, ST_TSE_E / ST_TSEI_E, ST_TSC_E, 
ST_TSCA_E, ST_TSCB_E, STJTCLK_E }; 
typedef enum signal_type_E signal_type_E; 



/* 



/* bundle, bus, pin group */ 

struct libc_pin_rec /*COPY*/{ 

struct libc_name_list_rec *pin_name; /* for bundle, bus, pin 

group * / 

struct libc_cell_rec *_current_cell ; 

struct libc_name_list_rec *members; /* for bundle group */ 

int is_bus; /* for bus */ 

struct libc_type_rec *_bus_type; /* for bus group */ 

/* simple attr */ 

float capacitance; 

int clock; /* boolean */ 

int clock_gate_enable_pin; /* boolean */ 

struct libc_name_list_rec *connection_class ; 
enum direction_E direction; 
enum dont_false_E dont_false; 
float drive_current ; 

enum drive_type_JE drive_type; 
int emitter count; 
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float 
float 
float 
float 
float 
float 
float 

struct libc_bool_opr_rec 



f all_current_slop_af ter_threshold; 
f all_current_slop_bef ore_threshold; 
f all_time_af ter__threshold; 
f all_time__bef ore_threshold; 
f a 1 l_wor_emi 1 1 e r ; 
f all_wor_intercept ; 
f anout_load; 
* function; 



int hysteresis; 
struct libc_name_list_rec *input_map; 
text_buf f er 
text_buf fer 
text_buf f er 
int 
int 
float 
float 
float 
float 
float 
float 
int 
int 

enum nextstate_type_E 
text_buf f er 
text_buf f er 
enum pin__func_type_E 
float 
int 
int 
float 
float 
float 
float 
float 
float 
float 
float 
float 

enum slew_control_E 
struct libc_bool_opr_rec 
struct libc_bool_opr_rec 
text_buf f er 
float 

text_buf f er 

struct libc_bool__opr_rec 



/* boolean */ 



/* 
*/ 



old */ 



/* boolean */ 
/* boolean */ 



*input_signal_level; 
*input_voltage ; 
*internal_node ; 
inverted_output ; /* boolean 
is_pad; /* boolean */ 

max_f anout ; 
max_ t r ans i t i on ; 
max_capacitance ; 
min_f anout ; 
mi n_t r ans i t i on ; 
min_capacitance ; 
mul t i ce 1 l_pad_jp in ; 
multiple_drivers_legal ; 
nextstate_type ; 
*output_signal_level ; 
*output_voltage ; 
pin_f unc_type ; 
pinjpower; 
pref er_tied; 
primary_output ; 

pulling_current ; 
pulling_jresistance; 
ref erence__capacitance; 
rise_current_slop__af ter_threshold; 
rise_current__slop_bef ore_threshold; 
r i s e_t ime_a f t e r_t hr e s ho 1 d ; 
rise_time_bef ore_threshold; 
r i se_ wor_emi 1 1 e r ; 
rise_wor_intercept ; 
slew_control; 
* s t at e_f unc t i on ; 
*three__state ; 
*vhdl_nan\e ; 
wire_capacitance ; 
*wired_connection_class; 
*x function; 



/* group stmt */ 

text buffer 



*/ 

struct libc__memory_write_rec 
group */ 



*addres s_of _memory_read ; 
* memory _wr i t e ; 



/* in bus group 
/* in bus 



struct libc_timing_jrec * timing; 

struct libc_minjpulse_width_rec *min_jpulse__width; 

struct libc_minimum_period_rec *minimum__period; 
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/* internal j>ower group */ 

struct libc_internal_power *internal_power ; 



struct libc define value rec 



*def val ; 



/* - 
int 



inside use */ 



pin_type; 



struct libcjpin_rec 



*next ; 



}; 

typedef struct libc_j?in_rec 1 ibc_pin_rec ; 



/* ff # ff_bank, latch, latch_bank (state) group */ 

struct libc_f f_l at choree { 

t ex t _bu f f er * Q_name ; 

text_buf f er *QN_name ; 

int width; /* i : normal, >1 bank 



int 
int 
char 

char 



is_ff :1; 

is__state:l; /* 
clear_preset_varl ; 



*/ 



clear_j?reset_var2 ; 

*clear; 
*preset ; 
*clock_on; 
*next_state; 
*on also; 



old model */ 

/* L, H, N, T, X 

/* L, H, N, T, X 



struct libc_bool_opr_rec 
struct libc_bool_opr__rec 
struct libc_bool_opr_rec 
struct libc_bool_opr_rec 
struct libc_bool__opr_rec 
enable_on_also */ 

struct libc_bool_opr_rec 
struct libc_bool_opr_rec 
struct libc_bool_opr_rec 
struct libc_bool_opr__rec 
struct libc_bool_opr_rec 
struct libc_bool__opr_rec 
struct libc__f f_latch_rec 

}; 

typedef struct libc ff latch rec libc ff latch rec; 



*enable; 
*data_in; 
*f orce_00 
*f orce_01 
*force_10 
*f orcein 
*next ; 



/* 
/* 



/* 
/* 
/* 



ff group */ 

/* ff group 
clock on al so, 



latch group */ 
latch group */ 
state group */ 
/* state group */ 
/* state group */ 
/* state group */ 



struct libc_internal_power /*COPY*/ { 



struct libc__name_list_rec 
struct libc_name_list_rec 
struct libc_name_list_rec 
text_buf f er 

struct libc_name_list_rec 
struct libc_bool_opr_rec 



*inputs; /* old method */ 

*outputs; /* old method */ 

*equal_or_opposite_output ; 

*power__level ; 

*related_pin; 

*when; 



struct libc_ table_val_rec 
struct libc_table_val_rec 
struct libc_table_val_rec 
values */ 



*rise_jpower ; 
*f all_j?ower; 
*power; 



/* old method for 



struct libc__internalj?ower *next; 
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}; 

typedef struct libc_internal_power libc_internal_power ; 
/* */ 

struct libc_leakage jower /*COPY*/ { 
struct libc_bool_opr__rec *when; 
float value; 

struct libc_leakage_jpower *next; 

}; 

typedef struct libc_leakage_jpower libc_leakage_power; 

struct libc_memory__rec { 

/* text_buffer *mem_name ; */ 

int is_ram; 

int address_width; 

int word_width; 

}; 

typedef struct libcjnemory_rec libc_memory_rec; 

enum libc_timing_type_E { 
COMB INAT IOHAL_T , 

RISING_EDGE_T, FALLING_EDGE_T , PRESETJT, CLEAR_T , HOLDER I SING_T, 
HOLD_FALLING_T, 

SETUP_RISING_T, SETUP_FALLING_T , RECO VERY_R I S ING_T , RECOVERYJFALLING_T, 
THREE_STATE JDI SABLEJT , THREE_STATE_ENABLE_T , REMOVAL_RIS ING_T , 
REMOVAL_FALLING_T , 

S KE WJR I SING JT, SKEW_FALLING_T, 

NON_SEQ_HOLD_RISING_T , NON_SEQ_HOLD_FALLING_T , 
NONJ3EQ JSETUPJRISINGJT , NON_SEQ_SETUP_FALLINGJT , 

NOCKANGE_HIGH_HIGH_T, NOCHANGE_HIGH_LOW_T , NOCHANGE_LOW_HIGH_T , 
NOCHANGE_LOW__L0W_T }; 

typedef enum libc_timing_type_E libc_timing_type_E; 

enum libc_timing_sense_E { NONJUNATEJE, POSITIVE_UNATE_E, NEGAT I VE_UNATE_E 
typedef enum libc__timing_sense_E libc_timing_sense_E; 

/* v 



/* for piecewise liner or ECL model only */ 

struct libc_piece_value_rec /*COPY*/ { 



int 


piece; 


float 


f all__delay__intercept ,- 


float 


f all_nonpaired_twin; 


float 


f all_pin_resistance ; 


float 


f a ll_wire_resi stance ; 


float 


rise_delay_intercept ; 


float 


rise_nonpaired_twin; 


float 


r i s e_jp in_r e s i s t ance ; 


float 


rise wire resistance; 



struct libc_piece_value_rec *next; 
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}; 

typedef struct libc_piece_value_rec libc_piece_value_rec; 
/* */ 

struct libc_f loat_rec /*COPY*/ { 
float fv; 

}; 

typedef struct libc_float rec libc float rec; 



I* 



/* f or table lookup model only */ 

/* 1D . values [0] [0] [i] 

* 2D : values [0] [i] [j] 

* 3D : values [i] [j] [k] */ 
struct libc_table_yal_rec /*C0PY*/ { 

struct libc_lu_table_template_rec *_tbl; /* search it by name */ 

f loa t_buf f e r * indexl ; 

f loat_buf f er *index2 ; 

f loat_buf f er *index3 / 

float scalarjval; /* for scalar table */ 

f loat_buf f er *values; 

}; 

typedef struct libc_tablejval_rec libc_table_val_rec; 
/* */ 

struct libc_timing_rec /*C0PY*/ { 

t ex t_bu f f e r * t_name ; 

struct libc_j?in_rec *_current_pin; 

/* simple attr */ 

float e dge__r at e_s ens i t i v i t y_f 0 

float edge_rate_sensitivity_f 1 

float edge_rate_sensitivity_rO 
float edge_rate_sensitivity_rl 
float f all_resistance; 

float rise_resistance; 
float intrinsic_f all ; 

float intrinsic__rise; 
struct libc_bool_opr_rec *related_bus_pins ; 
enum variable__E related_output_j?in; 
struct libc_name_list_rec *related_j?in; 
/* text_buffer *sdf_cond; */ 

/* textjouffer *sdf_edge; */ 

float slope_fall; 
float slope_rise; 
enum libc_timing__type_E timing_type; 
enuni libc_timing_sense_E timing_sense; 
struct libc_bool_opr_rec *when; 
struct libc_bool_opr_rec *when_start ; 
/* text_buffer sdf_cond_start; */ 

struct libc_bool_opr_rec *when__end; 
/* text_buffer sdf _cond_end; */ 

/* complex attr */ 
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struct libc_jpiece_value_rec *piecewise; 

/* group stmt */ 

struct libc_table_val_rec *cell__rise; 

struct libc_table_val_rec *cell_fall; 

struct libc_table_val_rec *rise_jpropagation; 

struct libc_table__val_rec *f all__propagation; 

struct libc_table_yal_rec *rise_transition; 

struct libc_table_val_rec *f all_transition; 

struct libc_table_val__rec *rise_constraint ; 

struct libc_table_val_rec *f all_constraint ; 

struct libc_timing_rec *next; 

}; 

typedef struct libc_timing_rec libc_timing_rec; 

struct libcjminjpulse_width_rec /*COPY*/ { 
/* simple attr */ 

float constraint_high; 
float constraint_JLow; 
struct libc_bool_opr_rec *when; 
/* text_buffer sdf_cond; */ 

struct libcjminjpulse_width_rec *next; 

}; 

typedef struct libcjnain_pulse_width_rec libc_min_pulse_width_rec 

struct libc_minimum_j>eriod_rec /*COPY*/ { 
/* simple attr */ 

float constraint; 
struct libc_bool_opr_rec *when; 
/* text_buffer sdf_cond; */ 

struct libc_minimumjDeriod_rec *next; 

}; 

typedef struct libcjxiinimum_jperiod_rec libcjminimum_j?eriod_rec; 

struct libc_routing_track_rec { 

text_buf f er * 1 aye rename ; 

int tracks; 
float total_track_area; 
struct libc_routing_track_rec *next ; 

}; 

typedef struct libc_routing_track_rec libc_routing_track_rec; 
/* === = = = = = = = = = = = ======== = == = = == = = = = = = = = ======= ==== = = */ 

/* */ 

/* ================================================== */ 

/* using hash table (to keep the value) */ 
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enum value_type { REAL_VT, TEXT_VT , BOOL_VT }; 

struct libc__def_entry_rec { 

text_buffer *def_name; 
enum value_type v_type; 
struct libc_def_entry_rec *next; 

}; 

typedef struct libc__def_entry_rec libc_def_entry_rec ; 
/* */ 

struct libc_def ine__value_rec /*COPY*/ { /* for the attr value 

*/ 

struct libc_def_entry_rec *_def; 
float float_val; 
text_buffer *str_val; 
struct libc_def ine_yalue_rec *next ; 

}; 

typedef struct libc_def ine_value_rec libc_def ine_value_rec; 
/* */ 

struct libc_glb_const_rec { 

text_buffer *gc_name; 
float value; 
struct libc_glb_const_rec *next; 

}; 

typedef struct libc_glb_const_rec libc_glb_const_rec ; 



struct libc_def_table_rec { 

struct libc_glb_const_rec **gc_entry,- 
struct libc_def_entry_rec **lib; 
struct libc_def_entry_rec **cell; 
struct libc_def_entry_rec **pin; 

}; 

typedef struct libc_def_table_rec libc_def_table_rec,- 

/* ================================================== */ 



702805 vl 



A-LIBC-326 



APPENDIX B 



IMPLICIT MAPPING OF 
TECHNOLOGY INDEPENDENT 
NETWORK TO LIBRARY CELLS 



THIERRY BESSON 



M-7928 US 



bbdcLc 



/* */ 

/* */ 

/* File: bbdd,c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Class: none */ 

/* Inheritance: */ 

/* */ 

/* */ 

/* */ 

ftinclude <stdio.h> 



#include "blist.h 
#include "bbdd.h" 



#ifndef STAT 

#define BDD_CALLOC calloc 
#endif 



/* */ 

/* GLOBAL VARIABLE */ 

/* */ 

BDD_WS GLOB BDD WS; 



BDD_STATUS bdd_or { ) ; 
BDD_STATUS bdd_impl ( ) ; 
BDD_STATUS bdd_and ( ) ; 
BDD_STATUS bdd_equi () ; 

AP PL Y_CACHE OrCache; 
APPLY__CACHE ImpCache; 
APPLY__CACHE AndCache; 
AP PL Y_CACHE EqCache; 
APPLY_CACHE RstCache; 

BDD__STATUS bdd_nand () ; 
BDD_STATUS bdd_restrict () ; 
BDD_STATUS bdd_swap_node ( ) ; 



/* */ 

/* Compare Index */ 
/* */ 

int Compare Index (index, Var Index) 

Uint32 index; 

Uint32 Var Index ; 

{ 



if (index == Var Index) 
return (0) ; 

if (index < Var Index) 
return (-1) ; 
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else 

return (1) ; 

} 

/* */ 

/* CompareIndex_ec */ 
/* */ 

int CompareIndex_ec (index, Var Index) 
Uint32 index ; 

Uint32 Varlndex; 



{ 



if (index == Varlndex) 
return (0) ; 

/* The order is decreasing index variable 
if (index > Varlndex) 

return (-1) ; 
else 

return (1) ; 



/* */ 

/* ComplementBDD */ 
/* */ 

/* We complement only the pointer only if it not the BDD_Z and BDD_X */ 
/* */ 

BDD ComplementBDD (x) 
BDD x; 

{ 

if ( (x BDD_X) || (x == BDD_Z) ) 
return (BDD_X) ; 

return (x * BDDTypeMask) ; 

} 

z* *z 

/* GetBddPtrFromBdd */ 

/* */ 

BDD_PTR GetBddPtrFromBdd (Bbdd) 
BDD Bbdd; 

{ 

return (GetBddPtr (Bbdd) ) ; 

} 

/* #/ 

/* GetBddPtrRef Count */ 

/* */ 

Uint3 2 GetBddPtrRef Count (BddPtr) 
BDD_PTR BddPtr; 

{ 

return (( (BddPtr) ->Header) & Ref CountMask) ; 

} 

/* */ 

/* Access KEY functions for Caches (Hash Tables) */ 
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/* */ 

#define APPLY_KEY_FUNCTION ( vl , v2 , size) ( ( ((Uint32)vl + (Uint32) v2) >>2 ) 
size) 



#define BDD_KEY__FUNCTION (bl , b2 , size) ( ( { (Uint32 ) bl»4 ) + ( (Uint32) b2>> 
) % size) 



/* */ 

/* BddPtrlsVar */ 

/* */ 

/* This function returns 1 if the BDD_PTR corresponds to a primaty 10 */ 

/* otherwise returns 0. */ 

/* */ 

int BddPtrlsVar (BddPtr) 
BDD_PTR BddPtr; 

{ 

if ( (GetBddPtrEdgel (BddPtr) == BDD_1) && 

(GetBddPtrEdgeO (BddPtr) == BDD_0) ) 
return (1) ; 

return (0) ; 

} 

z* */ 

/* bdd_one */ 

/* */ 

BDD bdd_one () 
{ 

return (BDD_1) ; 

} 

/* */ 

/* bdd_zero */ 

/* */ 

BDD bdd_zero () 
{ 

return (BDD_0) ; 

} 

/* */ 

/* bdd_Z */ 

/* */ 

BDD bdd_Z () 
{ 

return (BDD_Z) ; 

} 

z* */ 

/* bdd_X */ 

/* */ 
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BDD bdd_X () 
{ 

return (BDD_X) ; 

} 

/* */ 

/* ResetBddCache */ 

/* */ 

/* This function removes all the BDD_PTR in the Bdd cache but keep safe */ 

/* all the buckets. Moreover all the Bdd corresponding to primary vars */ 

/* are preserved and stay in their bucket. */ 

/* */ 

void ResetBddCache () 

{ 

int Index; 
int i ; 

BDD_PTR Bucket; 

BDD_PTR PreviousBucket ; 

BLIST Cache; 
int NbVar; 

BDD PTR NextBucket; 



Cache = GLOB_BDD_WS - >BddCache ; 
NbVar = BListSize (Cache) ; 

for {Index = 0; Index < NbVar; Index++) 

{ 

/* If at least one node in this bucket we need to scan it. 
if (GetCache (Cache, Index) ->NbBddNode) 

{ 

for (i=0; i<GetCache (Cache, Index) - >CacheSize ; i++) 

{ 

Bucket = GetCache (Cache, Index) ->Buckets [i] ; 
PreviousBucket = NULL; 
while (Bucket != NULL) 

{ 

NextBucket = Bucket - >Next ; 

/* we do not remove primary vars I 
if ( IBddPtrlsVar (Bucket)) 

{ 

if (PreviousBucket) 

{ 

PreviousBucket ->Next = NextBucket; 

} 

else 

{ 

GetCache (Cache , Index) - >Bucket s [i] 

NextBucket ; 



/* We add the Bdd in the freed Bdd list */ 
(void) FreePhysicalBdd (Bucket); 
(GetCache (Cache, Index) ->NbBddNode) --; 

} 

else 
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{ 

PreviousBucket = Bucket; 

} 

Bucket = NextBucket; 

} 

} 

} 

GetCache (Cache , Index) ->NbConf licts = 0; 
GetCache ( Cache , Index) - >NbDeadBddNode = 0 ; 

} 

GLOB_BDD_WS->TotalBddConf licts = 0; 
GLOB_BDD_WS->TotalBddDead = 0; 
GLOB_BDD_WS->TotalUsedBddNode = 0; 
GLOB_BDD_WS->TotalCountBddNode = 0; 

} 

/* */ 

/* SquizBddCache */ 

/* */ 

/* This function removes all the BDD_PTR in the Bdd cache but keep safe */ 
/* all the buckets. Moreover all the Bdd corresponding to primary frozen*/ 
/* Bdd nodes are preserved and stay in their bucket. */ 
/* */ 

void SquizBddCache () 

{ 

int Index; 
int i ; 

BDD_PTR Bucket ; 

BDD_PTR PreviousBucket ; 

BLIST Cache; 
int NbVar; 

BDD PTR NextBucket; 



Cache = GLOB_BDD_WS - >BddCache ; 
NbVar = BListSize (Cache) ; 

for {Index = 0; Index < NbVar; Index++) 

{ 

/* If at least one node in this bucket we need to scan it. 
if {GetCache (Cache ; Index) ->NbBddNode) 

{ 

for (i=0; i<GetCache (Cache, Index) ->CacheSize; i++) 

{ 

Bucket = GetCache (Cache, Index) - >Buckets [i] ; 
PreviousBucket = NULL; 
while (Bucket != NULL) 

{ 

NextBucket = Bucket- >Next ; 

/* we do not remove Frozen bdd nodes ! 
if ( ! FrozenBddNode (Bucket) ) 

{ 

if (PreviousBucket) 
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NextBucket ; 



{ 

PreviousBucket->Next = NextBucket; 

} 

else 

{ 

GetCache (Cache, Index) ->Buckets [i] = 

} 

/* We add the Bdd in the freed Bdd list 
(void) FreePhysicalBdd (Bucket) ; 
(GetCache (Cache, Index) ->NbBddNode) -- ; 
(GLOB_BDD_WS->TotalUsedBddNode) -- ; 

} 

else 

{ 

PreviousBucket = Bucket; 

} 

Bucket = NextBucket; 



} 



} 



GetCache (Cache, Index) ->NbConf licts = 0; 
GetCache (Cache, Index) - >NbDeadBddNode = 0; 

} 

GLOB_BDD_WS- >TotalBddConf licts = 0; 
GLOB_BDD_WS->TotalBddDead = 0; 

} 

/* */ 

/* bdd_swap_buckets */ 
/* */ 



bdd swap_buckets 




*/ 


never tested ! 


*/ 





/* */ 

BDD_STATUS bdd_swap_bucket s (BddCache, Index) 
BDD_CACHE BddCache ; 

Uint32 Index; 

{ 

int i; 
BDD_PTR Bucket ; 
int Gain; 
BDD BddRes; 
BDD STATUS Status; 



for (i=0; i<BddCache [Index] . CacheSize; i++) 

{ 

Bucket = BddCache [Index] .Buckets [i] ; 
while (Bucket != NULL) 

{ 

if ((Status = bdd_swap_node (Bucket, Index, Index+1, 

Gain 7 &BddRes) ) ) 

return (Status) ; 
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Bucket = Bucket ->Next; 

} 

} 

return (BDD OK) ; 



/* */ 

/* bdd_swap */ 

/* */ 

/* This functions performs the swapping in the Bdd workspave "Ws" */ 

/* between Vars of index "i" and "i+l" . */ 

/* */ 



BDD_STATUS bdd_swap (Ws, i) 
BDD_WS Ws ; 
Uint32 i; 

{ 

BDD_STATUS Status ; 

BLIST Cache; 



/* 

if (i >= Ws->MaxNbVar-l) 
return (BDD__OK) ; 

Cache = GLOB_BDD_WS->BddCache; 

if ((Status = bdd_swap_buckets (Cache, i) ) ) 
return (Status) ; 



return (BDD_OK) ; 

*/ 

} 



ResetApplyCache 


*/ 


We reset the Apply cache by removing all 


the APPLY CELL objects and 


freeing the Bdds on which they point. 


*/ 



static void ResetApplyCache (Cache) 
APPLY_CACHE Cache ; 

{ 

int i ; 

APPLY_CELL Bucket ; 

APPLY CELL NextBucket; 



for (i=0; i<Cache->CacheSize; i++) 

{ 

Bucket = Cache- >Buckets [i] ; 
while (Bucket != NULL) 
{ 

NextBucket = Bucket ->Next; 

FreeBdd (Bucket ->Bddl) ; /* We free the pointed BDD */ 

FreeBdd (Bucket- >Bdd2 ) ; /* We free the pointed BDD */ 
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FreeBdd (Bucket - >BddRes ) ; /* We free the pointed BDD 
FreeApplyCell (Bucket) ,- 
Bucket = NextBucket; 

} 

Cache - >Buckets [i] = NULL; 



Cache - >NbConf licts - 0; 

} 

/* */ 

/* QuickResetApplyCache */ 

/* */ 

/* We reset the Apply cache by removing all the APPLY CELL objects. We */ 
/* not care to Free the BDd on which they point, because we want a quick*/ 
/* reset (because we suppose that "ResetBddCache" is also called) . */ 
/* */ 

static void QuickResetApplyCache (Cache) 
AP P L Y_C ACHE Cache ; 

{ 

int i; 
APPLY_CELL Bucket ; 

APPLY CELL NextBucket; 



for (i=0; i<Cache->CacheSize; i++) 

{ 

Bucket = Cache->Buckets [i] ; 
while (Bucket NULL) 
{ 

NextBucket = Bucket ->Next; 
FreeApplyCell (Bucket) ; 
Bucket = NextBucket; 

} 

Cache- >Buckets [i] = NULL; 

} 

Cache->NbConf licts = 0; 

} 

/* */ 

/* Compact ApplyCache */ 

/* */ 

/* We remove APPLY CELL where the BddRes field has a ref count of 1 . */ 
/* This means that this BddRes is used only by the APPLY CELL and is not*/ 
/* usefull anymore. So we can remove the corresponding APPLY CELL and */ 
/* free the pointed BDDs . */ 
/* */ 

static void Compact ApplyCache (Cache) 

APPLY_CACHE Cache ; 

{ 

int i; 

APPLY_CELL Bucket ; 

APPLY_CELL NextBucket ; 

APPLY CELL PrevBucket; 
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PrevBucket = NULL; 

for (i=0; i<Cache->CacheSize; i++) 

{ 

Bucket = Cache ->Buckets [i] ; 
while (Bucket != NULL) 

{ 

if ( Ge tBddP t rRe f Count ( 

GetBddPtrFromBdd (Bucket ->BddRes ) ) == 1) 

{ 

NextBucket - Bucket- >Next ; 

FreeBdd (Bucket ->Bddl) ; /* We free the pointed BDD */ 
FreeBdd (Bucket - >Bdd2 ) ; /* We free the pointed BDD */ 
FreeBdd (Bucket- >BddRes) ; /* We free the pointed BDD */ 
FreeApplyCell (Bucket) ; 

/* case we removed the very first element */ 
if (PrevBucket == NULL) 

{ 

Cache - >Buckets [i] = NextBucket; 
Bucket = NextBucket; 

} 

else 

{ 

PrevBucket - Bucket; 
Bucket = NextBucket; 

} 

} 

else 

{ 

PrevBucket = Bucket; 
Bucket = Bucket ->Next; 

} 

} 

} 

} 



/* 

/* ResetAllApplyCaches 
/* 



*/ 



■*/ 

*/ 



void ResetAllApplyCaches () 
{ 



(void) ResetApplyCache 
(void) ResetApplyCache 
(void) ResetApplyCache 
(void) ResetApplyCache 
(void) ResetApplyCache 
(void) ResetApplyCache 



(GLOB_BDD_WS 
(GLOB_BDD_WS 
(GLOB_BDD_WS 
(GLOB_BDD_WS 
(GLOB_BDD_WS 
(GLOB BDD WS 



->OrCache) ; 
->AndCache) ; 
->ImpCache) ; 
->EqCache) ; 
->Rst Cache) ; 
->JoinCache) 



GLOB_BDD__WS- >To tal Apply Con f licts = 0 ; 
GLOB_BDD_WS->TotalApplySuccess = 0; 
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/* */ 

/* QuickResetAllApplyCaches */ 

/* */ 

void QuickResetAllApplyCaches () 

{ 



(void) QuickResetApplyCache (GLOB_BDD_WS-> Or Cache) ; 

(void) QuickResetApplyCache (GLOB_BDD_WS->AndCache) ; 

(void) QuickResetApplyCache ( GLOB_BDD_WS - > ImpCache ) ; 

(void) QuickResetApplyCache (GLOB_BDD_WS->EqCache) ; 

(void) QuickResetApplyCache (GLOB_BDD_WS->Rst Cache) ; 

(void) QuickResetApplyCache (GLOB_BDD_WS->JoinCache) ; 

GLOB_BDD_WS->TotalApplyConf licts = 0; 
GLOB_BDD_WS->TotalApplySuccess = 0; 

} 



/* *z 

/* CorapactAllApplyCaches */ 

/* */ 

void Compact AllApplyCaches () 

{ 



(void) CompactApplyCache 
(void) CompactApplyCache 
(void) CompactApplyCache 
(void) CompactApplyCache 
(void) CompactApplyCache 
(void) CompactApplyCache 



(GLOB_BDD_WS- 
(GLOB_BDD_WS- 
(GLOB_BDD_WS- 
(GLOB_BDD__WS- 
(GLOB_BDD_WS- 
(GLOB BDD WS- 



>OrCache) ; 
>AndCache) ; 
> ImpCache) ; 
>EqCache) ; 
>RstCache) ; 
>JoinCache) , 



/* 

/* ResetWorkSpace 

/* 

void ResetWorkSpace (We 
BDD WS Ws; 



■*/ 

■V 



GLOB_BDD_WS = Ws; 
QuickResetAllApplyCaches {) ; 
ResetBddCache {) ; 



/* */ 

/* ResetDef aultWorkSpace */ 

/* */ 

void ResetDef aultWorkSpace 0 

{ 

QuickResetAllApplyCaches () ; 
ResetBddCache () ; 

} 

z* *z 

/* SquizWorkSpace */ 
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/* */ 

/* This function removes from the Bdd work space all the Bdd nodes which*/ 
/* are not frozen. It removes also completly the Apply cache tables. */ 
/* */ 

void SquizWorkSpace (Ws) 
BDD_WS Ws ; 

{ 

GLOB_BDD_WS = Ws ; 
QuickResetAllApplyCaches () ; 
SquizBddCache (); 

} 

z* *z 

/* SquizDef aultWorkSpace */ 

/* */ 

/* This function removes from the Bdd work space all the Bdd nodes which*/ 
/* are not frozen. It removes also completly the Apply cache tables. */ 
/* */ 

void SquizDef aultWorkSpace () 

{ 

QuickResetAllApplyCaches {) ; 
SquizBddCache (); 

} 

/* */ 

/* ReCreateApplyCache */ 

/* */ 

/* This function recreates a new APPLY_CACHE with a new size . */ 
/* */ 

BDD_STATUS ReCreateApplyCache (Cache) 

APPLY_CACHE Cache ; 

{ 

int i ; 

int PreviousSize ; 

APPLY_CELL *NewBuckets / 

APPLY_CELL Bucket ; 

APPLY_CELL NextBucket ; 
Uint32 Key; 



if (Cache- >CacheSize > MAX_APPLY_CACHE_SIZE) 
{ 

ResetApplyCache (Cache) ; 
Cache - >NbConf licts = 0; 
return (BDD_OK) ; 

} 

if ( (NewBuckets = (APPLY_CELL* ) BDD_CALLOC (4*Cache- >CacheSize , 

Sizeof ( AP PL Y_CELL ) ) ) == NULL) 

return ( BDD_MEMORY_FULL ) ; 

PreviousSize = Cache- >CacheSize; 
Cache- >CacheSize - 4*Cache->CacheSize; 

for (i=0; i<PreviousSize; i++) 

{ 
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Bucket = Cache - >Buckets [i] ; 
while (Bucket != NULL) 

{ 

NextBucket = Bucket - >Next ; 

Key = APPLY_KEYJFUNCTION (Bucket - >Bddl , Bucket->Bdd2 , 
Cache- >CacheSize) ; 

Bucket->Next = NewBuckets [Key] ; 
NewBuckets [Key] = Bucket; 

Bucket = NextBucket; 

} 

} 

free ( (char*) Cache ->Buckets) ; 

GLOB_BDD_WS->TotalMemoryCalloc -= PreviousSize*sizeof (APPLY__CELL) ; 
Cache ->Buckets = NewBuckets; 
Cache->NbConf licts = 0; 
return (BDD_OK) ; 

} 

h 
h 

/* */ 

* match both (Bddl, Bdd2) and (Bdd2, Bddl) . */ 
/*- 

static BDD GetComraut Apply InCache (Cache, Bucket, Bddl, Bdd2 , NbCells) 
APPLY_CACHE Cache ; 
APPLY_CELL Bucke t ; 

BDD_PTR Bddl; 
BDD_PTR Bdd2 ; 

int *NbCells; 

{ 

*NbCells = 0; 

for (; Bucket 1= NULL; Bucket = Bucket ->Next) 
{ 

(*NbCells) ++; 

if ( (Bucket ->Bddl == Bddl && Bucket->Bdd2 == Bdd2) || 
(Bucket->Bddl == Bdd2 && Bucket->Bdd2 == Bddl)) 
return (Bucket- >BddRes) ; 

Cache- >NbConflicts++ ; 

#ifdef STAT 

GLOB_BDD_WS - >Tot a 1 App ly Conf 1 i c t s + + ; 

#endif 

} 

return (BDD NULL) ; 



GetCommutApplylnCache 




*/ 


Bddl and Bdd2 are arguments 


of a commutative operator 


so we try to 


match both (Bddl, Bdd2) and 


(Bdd2, Bddl) . 


*/ 



B-CORE-12 



bbddx 



} 



/* +/ 

/* GetNoCommutApplylnCache */ 

/* */ 

/* Bddl and Bdd2 are arguments of a non- commutative operator so we try */ 

/* to match only wth the couple (Bddl, Bdd2) . */ 

/* 



static BDD GetNoCommutApplylnCache (Cache, Bucket, Bddl, Bdd2 , 
NbCells) 

APPLY_CACHE Cache ; 

APPLY_CELL Bucket ; 

BDD_PTR Bddl ; 

BDD_PTR Bdd2 ; 

int *NbCells; 

{ 

*NbCells = 0; 



for (; Bucket ! = NULL; Bucket = Bucket ->Next) 
{ 

(*NbCells)++; 

if (Bucket ->Bddl == Bddl && Bucket ->Bdd2 == Bdd2) 
return (Bucket- >BddRes) ; 

Cache->NbConf licts++; 

#ifdef STAT 

GLOB_BDD_WS - >Tot alApplyConf 1 i c t s ++ ; 

#endif 

} 

return (BDD_NULL) ; 

} 



/* it/ 

/* bdd_freeze */ 

/* *i 

/* Set the reference counter of bdd node "bdd" to BDD_MAXREFCOUNT in */ 

/* order to freeze it. */ 

/* */ 

void bdd_freeze (Bdd) 
BDD Bdd; 

{ 

SetBddPtrRef Count (GetBddPtrFromBdd (Bdd) , BDD_MAXREF COUNT) ; 

/* + / 

/* UseBddPtr */ 

/* *i 

/* Increments the reference counter of the bdd ptr node "BddPtr". */ 

/* */ 

/* CAUTION ! : we can optimize all this !!! */ 

/* */ 

BDD_PTR UseBddPtr (BddPtr) 
BDD_PTR BddPtr; 

{ 
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UseBdd 


*/ 






Increments the reference counter of the bdd node 
CAUTION ! : we can optimize all this !!! 


"Bdd" . 
*/ 


*/ 


*/ 



register Uint3 2 counter; 
counter = GetBddPtrRef Count (BddPtr) ; 

if (counter != BDD_MAXREFCOUNT) 

{ 

count er++ ; 

SetBddPtrRef Count (BddPtr, counter) ; 

} 

return (BddPtr) ; 



/* 
/* 
/* 
/* 
/* 
/* 
/* 

BDD UseBdd (Bdd) 
BDD Bdd; 

{ 

register BDD_PTR BddPtr; 

BddPtr = UseBddPtr (GetBddPtrFromBdd (Bdd) ) ; 
return (Bdd) ; 

} 



/* 

/* ReCreateBddCache 

/* 

BDD_STATUS ReCreateBddCache (Cache, Index) 

BLIST Cache; 
int Index; 

{ 

int i; 

int PreviousSize; 

BDD_PTR *NewBuckets ; 

BDD__PTR Bucket; 

BDD_PTR Next Bucket ; 

Uint32 Key; 



if (GetCache (Cache, Index) ->CacheSize > MAX_BDD_CACHE_SIZE) 
return (BDD_OK) ; 

if ( (NewBuckets = (BDD_PTR* ) BDD_CALLOC ( 

4*GetCache (Cache, Index) ->CacheSize, 
sizeof (BDD_PTR) ) ) NULL) 

return (BDD_MEMORY_FULL) ; 
PreviousSize = GetCache (Cache , Index) - >CacheSize ; 
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GetCache (Cache , Index) - >CacheSize = 4*GetCache (Cache, Index) - >CacheSize 
for (i=0; i<PreviousSize; i++) 

{ 

Bucket = GetCache (Cache, Index) ->Buckets [i] ; 
while (Bucket != NULL) 
{ 

NextBucket = Bucket ->Next; 

Key = BDD_KEY_FUNCTION (Bucket- >Edge [1] , Bucket- >Edge [0] , 

GetCache (Cache, Index) ->CacheSize) ; 
Bucket- >Next = NewBuckets [Key] ; 
NewBuckets [Key] = Bucket; 



Bucket = NextBucket; 



} 



free ( (char* ) GetCache (Cache, Index) ->Buckets) ; 

GLOB_BDD_WS->TotalMemoryCalloc - = PreviousSize*sizeof (BDD_PTR) ; 
GetCache (Cache , Index) - >Buckets = NewBuckets; 
GetCache (Cache , Index) - >NbConflicts = 0; 
return (BDD OK) ; 



/* */ 

/* AddOrGetBddlnCache */ 

/* */ 

/* PREC: ListBucket stores BDD_PTR with index "index 1 *. */ 
/* "BddRes" is a BDD_PTR (e.g. BDD always positive) . */ 
/* The "BddRes" is a protected Bdd where we have incremented its ref . */ 
/* counter. */ 

/* *i 

BDD_STATUS AddOrGetBddlnCache (Cache, index, Edgel, EdgeO, BddRes) 
BLIST Cache ; 
Uint32 index; 
BDD Edgel; 
BDD EdgeO ; 

BDD_PTR *BddRes; 

{ 

BDD_STATUS Status ; 

BDD_PTR NewBdd; 
BDD_PTR Bucket; 
Uint32 Key; 



Key = BDD_KEY_FUNCTION (Edgel, EdgeO, GetCache (Cache , index) - >CacheSize 

Bucket = (GetCache (Cache , index) ->Buckets) [Key] ; 

if (Bucket) 
while (1) 
{ 

if (GetBddPtrEdgel (Bucket) == Edgel && 
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#ifdef STAT 
#endif 



ttifdef STAT 
#endif 



GetBddPtrEdgeO (Bucket) == EdgeO) 

{ 

*BddRes = UseBddPtr (Bucket) ; 
GLOB_BDD_WS - >TotalApplySuccess++ ; 
return (BDD_OK) ; 

} 

if (GetBddPtrNext (Bucket) BDD_PTR_NULL ) 
break; 

Bucket = GetBddPtrNext (Bucket) ; 
(GetCache (Cache, index) - >NbConf licts) ++; 
GLOB_BDD_WS->TotalBddConflicts++; 



} 



/* Not found, so we create physically a new BDD_PTR 
if ((Status = CreateBddNode (&NewBdd) ) ) 
return (Status) ; 



/* Setting the fields . . . 
SetBddPtr Index (NewBdd, index) 
SetBddPtrEdgel (NewBdd, Edgel) 
SetBddPtrEdgeO (NewBdd, EdgeO) 



if (Bucket) 

SetBddPtrNext (Bucket, NewBdd) ; 

else 

(GetCache (Cache, index) ->Buckets) [Key] = NewBdd; 

(GetCache ( Cache , index) - >NbBddNode ) ++ ; 

*BddRes = UseBddPtr (NewBdd) ; 

if (GetCache (Cache, index) - >NbConf licts > 
GetCache (Cache, index) ->CacheSize << 2) 
ReCreateBddCache (Cache, index) ; 

return (BDD OK) ; 



*/ 



/* 

/* MakePositiveBdd 



*/ 

/* */ 

/* PREC: Edgel 1= EdgeO */ 

/* "BddRes" is always positive (it is a BDD_PTR) */ 

/* */ 

/* The "BddRes" is protected and had its ref . counter incremented. */ 
/* */ 

BDD_STATUS MakePositiveBdd (index, Edgel, EdgeO, BddRes) 
Uint32 index; 
BDD Edgel; 
BDD EdgeO; 
BDD_PTR *BddRes ; 



*/ 
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{ 

BDD STATUS Status ; 



if ( (Status = AddOrGetBcidlnCache (GLOB_BDD_WS->BddCache / 

index, Edgel, EdgeO, BddRes) ) ) 

return (Status) ; 
return (BDD OK) ; 



/* */ 

/* MakeBdd */ 

/* */ 

/* The routine MakelBdd creates a new typed BDD from the index of its */ 

/* root variable, its Edgel branch and its EdgeO branch. The new BDD can */ 

/* be positive or negative. */ 

/* By convention to preserve canonicity, the Edgel edge must always be */ 

/* of type direct. */ 

/* */ 

BDD_STATUS MakeBdd (index, Edgel, EdgeO, BddRes) 
Uint32 index; 
BDD Edgel; 
BDD EdgeO ; 

BDD * BddRes; 

{ 

BDD STATUS Status; 



if (Edgel == EdgeO) 
{ 

*BddRes = UseBdd (EdgeO) ; 
return (BDD_OK) ; 

} 

if (IsBddTypelNV (Edgel) ) /* Edgel son type must always be DIRECT */ 
{ 

BDD_PTR Res; 

/* The "Res" Bdd is protected and had its ref . counter incremented*/ 
if ( (Status = MakePositiveBdd (index, 

Complement BDD (Edgel) , 
ComplementBDD (EdgeO) , 
&Res) ) ) 

return (Status) ; 

*BddRes = ComplementBDD (Get BddFromBddPtr (Res) ) ; 
return (BDD OK) ; 



/* The "Res" Bdd is protected and had its ref. counter incremented. */ 
if ((Status = MakePositiveBdd (index, Edgel, EdgeO, (BDD_PTR* ) BddRes) ) ) 
return (Status) ; 
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return (BDD OK) ; 



/* 

/* ApplyCommutOp */ 

/* 

/* Performs logical operation on two positive BDDs . Operation is */ 

/* Commutative. */ 

/* 

static BDD_STATUS ApplyCommutOp (fun, vl, v2 , cache, BddRes) 
BDD_STATUS (fun) () ; 

BDD__PTR vl ; 

BDD_PTR v2 ; 
AP PL Y_CACHE cache ; 
BDD * BddRes; 

{ 

BDD result; 
BDD_STATUS Status ; 

Uint32 Key; 
Uint32 NbCells; 



Key = APPLY_JCEY_FUNCTION (vl, v2 , 

cache->CacheSize) ; 

result = GetCommutApplylnCache (cache, cache- >Buckets [Key] , vl, v2, 

ScNbCells) ; 



if (result 1= BDD_NULL) 

{ 

*BddRes = UseBdd (result) ; 

return (BDD_OK) ; 

} 

else 

{ 

Uint32 indexl = GetBddPtrlndex (vl) ; 

Uint32 index2 - GetBddPtrlndex (v2); 
BDD_STATUS Status; 

BDD Bddl; 

BDD Bdd2 ; 

switch ( (GLOB_BDD_WS->CompareIdx) (indexl, index2)) 

{ 

case -1: 

if ((Status = (fun) (GetBddPtrEdgel (vl) , (BDD)v2, 

&Bddl) ) ) 

return (Status) ; 

if ((Status = (fun) (GetBddPtrEdgeO (vl) , (BDD)v2, 

&Bdd2 ) ) ) 

return (Status) ; 

if ((Status = MakeBdd (indexl, Bddl, Bdd2 , BddRes))) 
return (Status) ; 
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break ; 

case 0 : 



case 1 : 



} 



if ((Status = (fun) (GetBddPtrEdgel (vl) , 

GetBddPtrEdgel (v2) , &Bddl) ) ) 

return (Status) ; 

if ({Status = (fun) (GetBddPtrEdgeO (vl) , 

GetBddPtrEdgeO (v2 ) , &Bdd2 ) ) ) 

return (Status) ; 

if ((Status = MakeBdd (indexl, Bddl, Bdd2 , BddRes))) 
return (Status) ; 

break; 



if ({Status = (fun) ((BDD)vl, GetBddPtrEdgel (v2), 

&Bddl) ) ) 

return (Status) ; 

if ((Status = (fun) ((BDD)vl, GetBddPtrEdgeO (v2), 

&Bdd2 ) ) ) 

return (Status) ; 

if ({Status = MakeBdd (index2, Bddl, Bdd2 , BddRes))) 
return (Status) ; 

break; 



if (NbCells < MAX_NB_APPLY_CELLS ) 

{ 

APPLY_CELL NewApplyCell ; 

if ({Status = CreateApplyCell (^NewApplyCell) ) ) 
return (Status) ; 

NewApplyCell ->Bddl = UseBddPtr (vl) ; 
NewApplyCell ->Bdd2 = UseBddPtr <v2) ; 
NewApplyCell ->BddRes = UseBdd (*BddRes) ; 
NewApplyCell ->Next = cache- >Buckets [Key] ; 
cache- >Buckets [Key] = NewApplyCell; 

} 

if (cache- >NbConflicts > cache- >CacheSize « 2) 
ReCreateApplyCache (cache) ; 

return (BDD_OK) ; 

} 

} /* ApplyCommutOp */ 

/* */ 

/* ApplyNoCommutOp */ 

/* */ 
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/* Performs logical operation on two positive BDDs . Operation is 
/* not Commutative. */ 
/* 

static BDD_STATUS ApplyNoCommutOp (fun, vl, v2 , cache, BddRes) 
BDD_STATUS (fun) () ; 

BDD_PTR vl ; 

BDD_PTR v2 ; 
APPLY_CACHE cache ; 
BDD * BddRes; 

{ 

BDD result ; 

int Key; 
int NbCells; 



Key = APPLY_KEY_FUNCTION (vl,v2, 

cache ->CacheSize) ; 

result = GetNoCommutApplylnCache (cache, cache ->Buckets [Key] , 

vl, v2, &NbCells) ; 

if (result ! = BDD_NULL) 

{ 

*BddRes = UseBdd (result) ; 
return (BDD_OK) ; 

} 

else 
{ 

Uint32 indexl = GetBddPtr Index (vl) ; 

Uint32 index2 = GetBddPtrlndex (v2) ; 

BDD_S TATUS Status; 
BDD Bddl; 
BDD Bdd2 ; 



switch ( (GLOB_BDD_WS->CompareIdx) (indexl, index2) ) 

{ 

case -1: 

if ((Status = (fun) (GetBddPtrEdgel (vl) , 

GetBddFromBddPtr (v2) , &Bddl) ) ) 

return (Status) ; 

if ((Status - (fun) (GetBddPtrEdgeO (vl) , 

GetBddFromBddPtr ( v2 ) , &Bdd2 ) ) ) 

return (Status) ; 

if {(Status = MakeBdd (indexl, Bddl, Bdd2, BddRes))) 
return (Status) ; 

break; 

case 0 : 

if ((Status = (fun) (GetBddPtrEdgel (vl), 

GetBddPtrEdgel (v2) , &Bddl) ) ) 

return (Status) ; 
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case 1 : 



} 



if ((Status = (fun) (GetBddPtrEdgeO (vl) , 

GetBddPtrEdgeO (v2 ) , &Bdd2 ) ) ) 

return (Status) ; 

if ((Status = MakeBdd (indexl, Bddl, Bdd2, BddRes))) 
return (Status) ; 

break; 



if ((Status = (fun) (GetBddFromBddPtr (vl) , 

GetBddPtrEdgel (v2) , &Bddl) ) ) 

return (Status) ; 

if ((Status = (fun) (GetBddFromBddPtr (vl) , 

GetBddPtrEdgeO (v2 ) , &Bdd2 ) ) ) 

return (Status) ; 

if ((Status = MakeBdd (index2, Bddl; Bdd2 , BddRes))) 
return (Status) ; 

break; 



if (NbCells < MAX_NB_APPLY_CELLS) 
{ 

APPLY_CELL NewApplyCell ; 

if {(Status = CreateApplyCell (ScNewApplyCell) ) ) 
return (Status) ; 

NewApplyCell ->Bddl = UseBddPtr (vl) ; 
NewApplyCell ->Bdd2 - UseBddPtr (v2 ) ; 
NewApplyCell ->BddRes = UseBdd (*BddRes) ; 
NewApplyCell ->Next = cache- >Buckets [Key] ; 
cache ->Buckets [Key] = NewApplyCell; 

} 



if (cache- >NbConflicts > cache ->CacheSize << 2) 
ReCreateApplyCache (cache) ; 

return (BDD__OK) ; 

} 

} /* ApplyNocommOp */ 



/* ApplyRestrict */ 



static BDD_S TATUS ApplyRestrict (vtx, dmn, cache, BddRes) 
BDD_PTR vtx; 
BDD dmn ; 

APPLY_CACHE cache ; 
BDD * BddRes; 

{ 

BDD result; 
int Key ; 
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int NbCells; 
APPLY_CELL NewApplyCell ; 



Key = APPLY__KEY__FUNCT!ON (vtx, GetBddPtrFromBdd (dmn) , 

cache->CacheSize) ,- 

result = GetNoCommutApplylnCache (cache, cache- >Buckets [Key] , 

vtx, GetBddPtrFromBdd (dmn), ScNbCells) ; 



if (result != BDD_NULL) 

{ 



} 

else 

{ 



*BddRes = UseBdd (result) ; 
return (BDD OK) ; 



BDD__PTR vtxd 
Uint32 index 
Uint32 indexd 

BDD Bddl ; 

BDD Bdd2 ; 

BDD STATUS Status; 



GetBddPtrFromBdd (dmn) ; 
GetBddPtrlndex (vtx) ; 
GetBddPtrlndex (vtxd) ; 



switch ( (GLOB BDDJWS->Compareldx) (index, indexd)) 



{ 



case -1: 

if ( (Status = bdd_restrict (GetBddPtrEdgel (vtx) , dmn, 

&Bddl) ) ) 

return (Status) ; 

if ( (Status = bdd_restrict (GetBddPtrEdgeO (vtx) , dmn, 

&Bdd2 ) ) ) 

return (Status) ; 

if ((Status = MakeBdd (index, Bddl, Bdd2 , BddRes) ) ) 
return (Status) ; 

break; 



(vtxd) 



(vtxd) ) 



case 0 : 

if (IsBddTypelNV(dmn) ) 
{ 

if (GetBddPtrEdgel (vtxd) 



BDD 1) 



{ 



if ( (Status = bdd__restrict (GetBddPtrEdgeO (vtx) , 
Comp lementBDD ( Ge tBddP t r Edge 0 

BddRes) ) ) 
return (Status) ; 



} 

else if (GetBddPtrEdgeO (vtxd) 



BDD 1) 



{ 



if ( (Status = bdd_restrict (GetBddPtrEdgel (vtx) , 
Comp 1 ementBDD ( Ge t BddP t rEdge 1 
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(vtxd) ) , 



(vtxd) ) , 



} 

else 
{ 



BddRes) ) ) 
return (Status) ; 



if ( (Status = bdd_restrict (GetBddPtrEdgel (vtx) , 
ComplementBDD (GetBddPtrEdgel 

&Bddl) ) ) 
return (Status) / 
if ( (Status = bdd__restrict (GetBddPtrEdgeO (vtx) , 
ComplementBDD (GetBddPtrEdgeO 

&Bdd2) ) ) 
return (Status) ,- 

if ((Status = bdd_or (Bddl, Bdd2 , BddRes))) 
return (Status) ; 



} 

else 

{ 



} 



if (GetBddPtrEdgel (vtxd) == BDD_0) 
{ 

if ( (Status = bdd_restrict (GetBddPtrEdgeO (vtx) , 

GetBddPtrEdgeO (vtxd) , 
BddRes) ) ) 

return (Status) ; 



} 

else 
{ 



if ( (Status = bdd_restrict (GetBddPtrEdgel (vtx) , 

GetBddPtrEdgel (vtxd) , 
&Bddl) ) ) 

return (Status) ; 
if ( (Status = bdd_restrict (GetBddPtrEdgeO (vtx) , 

GetBddPtrEdgeO (vtxd) , 
&Bdd2) ) ) 

return (Status) ; 

if ((Status = bdd_or (Bddl, Bdd2 , BddRes))) 
return (Status) ; 



} 

break; 



} 



(vtxd) ) , 



case 1 : 

if (IsBddTypelNV (dmn) ) 
{ 

if (GetBddPtrEdgel (vtxd) == BDD_1) 



{ 



if ({Status = bdd_restrict ((BDD)vtx, 

ComplementBDD (GetBddPtrEdgeO 

BddRes) ) ) 
return (Status) ; 
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} 

else if (GetBddPtrEdgeO (vtxd) == BDD_1) 

{ 

if ((Status = bdd_restrict {(BDD)vtx / 

ComplementBDD (GetBddPtrEdgel (vtxd) ) , 
BddRes) ) ) 
return (Status) ; 

} 

else 

{ 

BDD NewDmn; 



if ((Status = bdd_nand (GetBddPtrEdgel (vtxd), 
ComplementBDD (GetBddPtrEdgeO 

(vtxd) ) , 

&NewDmn) ) ) 
return (Status) ; 

if ((Status = bdd_restrict { (BDD) vtx, 
NewDmn , 
BddRes) ) ) 
return (Status) ; 



FreeBdd (NewDmn) ; 

} 

} 

else 

{ 

if (GetBddPtrEdgel (vtxd) == BDD_0) 
{ 

if ((Status = bdd_restrict ( (BDD) vtx, 

GetBddPtrEdgeO (vtxd) , 
BddRes) ) ) 

return (Status) ; 

} 

else 

{ 

BDD NewDmn ; 



if ( (Status = bdd_or (GetBddPtrEdgel (vtxd) , 

GetBddPtrEdgeO (vtxd) , 
ScNewDmn) ) ) 

return (Status) ; 

if ((Status = bdd_restrict ((BDD) vtx, 
NewDmn , 
BddRes) ) ) 
return (Status) ; 

FreeBdd (NewDmn) ; 

} 

} 

break; 

} 

if (NbCells < MAX NB APPLY CELLS) 
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{ 

if {(Status = CreateApplyCell (&NewApplyCell) ) ) 
return (Status) ,- 

NewApplyCell->Bddl = UseBddPtr (vtx) ; 

/* may be a PROBLEM here ... */ 
NewApplyCell->Bdd2 = GetBddPtrFromBdd (UseBdd (dmn) ) ; 
MewApplyCell->BddRes = UseBdd (*BddRes) ; 
NewApplyCell->Next = cache- >Buckets [Key] ; 
cache- >Buckets [Key] = NewApplyCell ; 

} 

if (cache- >NbConflicts > cache ->CacheSize << 2) 
ReCreateApplyCache (cache) ; 

return (BDD_OK) ; 

} 

} /* ApplyRe strict */ 



-- resolution function 

CONSTANT resolution_table : stdlogictable := ( 



/* 

/* bdd_join 
/* 

/* 

/* 
/* 
/* 
/* 
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*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



BDD_STATUS bdd_join (Bddl, Bdd2 , BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD *BddRes; 



BDD 



Res; 
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BDD_STATUS Status ; 



if ( (Bddl == BDD_X) | | (Bdd2 == BDD_X) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if (Bddl == BDDJZ) 
{ 

*BddRes - UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if (Bdd2 BDD_Z) 
{ 

*BddRes = UseBdd (Bddl) ; 
return (BDD_OK) ; 

} 

if ((Bddl == BDD_1) && (Bdd2 BDD_0) ) 
{ 

*BddRes = BDD_X ; 
return (BDD_OK) ; 

} 

if ((Bddl == BDD_0) ScSc (Bdd2 BDD_1) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 



if (IsBddTypelNV (Bddl)) 
{ 

if (IsBddTypelNV (Bdd2) ) 
{ 

if (Bddl « Bdd2) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd_join, 

GetBddPtrFromBdd (Bddl) , 
GetBddPtrFromBdd (Bdd2) , 

GLOB_BDD_WS - >OrCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (GetBddPtrFromBdd (Bddl) == (BDD_PTR) Bdd2) 

{ 

*BddRes = BDD_0 ; 
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return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd__join, 

(BDD_PTR)Bdd2 / 
GetBddPtrFromBdd (Bddl) , 

GLOB_BDD_WS - >ImpCache , 
&Res) ) ) 

return (Status) ; 



if (Res == BDD_Z) 

*BddRes = BDD_Z; 
else 

*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 

} 

else 

{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if ( (BDD_PTR) Bddl == GetBddPtr (Bdd2) ) 
{ 

*BddRes = BDD_X; /* Bddl and Bdd2 are complement 

*/ 

return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_join, 

(BDD_PTR) Bddl , 
GetBddPtr (Bdd2) , 

GLOB JBDD_WS - >ImpCache , 
&Res) ) ) 

return (Status) ; 



if (Res == BDD_Z) 

*BddRes = BDD_Z; 
else 

*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) / 

} 

else 

{ 

if (Bddl == Bdd2) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd__join, 

(BDD_PTR) Bddl , 
(BDD_PTR)Bdd2, 

GLOB_BDD_WS - > JoinCache , 
BddRes) ) ) 

return (Status) ; 



return (BDD_OK) ; 

} 
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*/ 
*/ 
*/ 



/* 

/* bdd_and */ 
/* 

/* Logical Operator AND following the std_logic_1164 table. 

/* -- truth table for "and" function 

/* CONSTANT and_table : stdlogic_table := ( 

/* */ 

/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* For 4 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 
/* 

BDD_STATUS bdd_and (Bddl, Bdd2, BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD *BddRes; 
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'X', 


T X* ) 


1 1 


i 










*/ 




( 


'0' , 


'0' , 


'0' , 


'0' ) 


1 0 












*/ 




( 


'X' , 


'0', 


'X', 


? X' ) 


1 2 












*/ 




( 


'X' , 


'0', 


'X' , 


'X* ) 


| X 












*/ 





*/ 
I*/ 
*/ 
I*/ 

I*/ 
I*/ 
I*/ 
I*/ 
I*/ 

I*/ 
I*/ 
I*/ 



BDD 

BDD STATUS 



Res; 
Status ; 



if ( (Bddl == BDD_0) 

{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 



(Bdd2 == BDD 0) ) 



if ( (Bddl == BDD_Z) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 



(Bdd2 == BDD Z) ) 



if ( (Bddl == BDD X) 



(Bdd2 == BDD X) ) 
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{ 

*BddRes = BDD_X; 
return (BDDJDK) ; 

} 

if (Bddl == BDD_1) 

{ 

/* If no Z in "Bdd2" then we can directly return otherwise */ 

/* we need to continue to solve each leaves (this is due to the */ 

/* fact that (l.Z) -> X (and not Z) . */ 

i f ( BDD_Z_NOT_USED ) 

{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

} 

if (Bdd2 == BDD_1) 
{ 

/* If no Z in "Bddl" then we can directly return otherwise */ 
/* we need to continue to solve each leaves (this is due to the */ 
/* fact that (l.Z) -> X (and not Z) ) . */ 
i f ( BDD_Z_NOT_USED ) 

{ 

*BddRes = UseBdd (Bddl) ; 
return (BDD_OK) ; 

} 



if (IsBddTypelNV (Bddl)) 
{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if (Bddl Bdd2) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_or, 

GetBddPtrFromBdd (Bddl) , 
GetBddPtrFromBdd (Bdd2) , 

GLOB_BDD_WS - >OrCache , 
&Res) ) ) 

return (Status) ; 



*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (GetBddPtrFromBdd (Bddl) == (BDD_PTR) Bdd2) 
{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 
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} 

else 

{ 



if ((Status = ApplyNoCommutOp (bdd_impl, 

(BDD_PTR)Bdd2, 
GetBddPtrFromBdd (Bddl) , 

GLOB JBDD_WS - > ImpCache , 
&Res) ) ) 

return (Status) ; 

*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 



if (IsBddTypelNV (Bdd2)) 
{ 

if { (BDD_PTR) Bddl == GetBddPtr (Bdd2 ) ) 
{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 

if ((Status = ApplyNoCommutOp (bdd_impl, 

(BDD_PTR) Bddl , 
GetBddPtr (Bdd2) , 

GLOB_BDD_WS- > ImpCache , 
&Res) ) ) 

return (Status) ; 



*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (Bddl == Bdd2) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd_and, 

(BDD_PTR)Bddl, 
(BDD_PTR) Bdd2 , 

GLOB_BDD_WS - >AndCache , 
BddRes) ) ) 

return (Status) ; 



return (BDDJDK) ; 

} 

} 

} 



bdd_nand 


*/ 




Logical Operator NAND 




*/ 
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BDD_STATUS bdd_nand (Bddl, Bdd2 , BddRes) 
BDD Bddl; 
BDD Bdd2; 
BDD * BddRes; 

{ 

BDD Res; 
BDD_STATUS Status ; 



if ((Status = bdd_and (Bddl, Bdd2 , &Res) ) ) 
return (Status) ; 

*BddRes = Complement BDD (Res) ; 
return (BDD_OK) ; 
} /* bdd_nand */ 



bdd_or 


*/ 




Logical Operator OR 




*/ 



-- truth table for "or" function 
CONSTANT or_table : stdlogic_table := 



1 


u 


X 




0 




1 


z 


w 


L 


H 






( 


'U' , 


'U' 


/ 




/ 


, 


■u- , 


T U' , 


'U' , 


'1» 


/ 


'U' ), 


( 


'U\ 


f X' 


I 


•x* 


t 




'X f , 


f X' , 


■X' , 


r l' 




■X 1 ) , 


( 


•U' , 


'X 1 


t 


» 0 1 


r 


' 1 * , 


'X' , 


'X' , 


'0' , 


' 1 r 


/ 


'X' ) , 


( 


•1', 


' 1 ' 




»1» 


I 


•1' / 


'1' , 


'1' , 


'1' , 


'1' 


r 


'1' ) , -- 


( 


»U' , 


'X' 


I 


'X' 


I 


, 


'X', 


'X' , 


'X 1 , 


! l r 


r 


r x r ), 


( 


•U' , 


'X' 


f 


'X' 


/ 


■ 1 ' / 


'X' , 


'X* , 


'X' , 


' 1 • 


/ 


'X f ), 


( 


•U' , 


'X' 




• 0 1 


/ 


* 1 ' / 


•X' , 


»X' , 


'0' , 


' 1 ' 


/ 


'X' ), 


( 


'1', 


T l ' 




' 1 1 


/ 


' 1 ' , 


' 1 1 , 




'1' , 


'1' 


/ 


'1' ) , -- 


( 


■U 1 , 


'X' 




•X' 


/ 


, 


f X' , 


'X' , 


'X' , 


'1» 


/ 


'X' ) 



/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 
/* 

BDD_STATUS bdd_or (Bddl, Bdd2 , BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD *BddRes; 

{ 

BDD Res; 
BDD STATUS Status; 



For 4 values (1, 



■ 1 ' 
i x i 

' 1 ■ 

1 1 ' 



0, z 


, X) 


we 


extract : 




*/ 












*/ 




0 


z 


X 




1 1 




*/ 














*/ 


1' , 


•1' , 


'1' 


) 


1 1 1 




*/ 


0 ' , 


'X' , 


'X' 


) 


1 o | 




*/ 


X 1 , 


'X' , 


'X' 


) 


1 z 1 




*/ 


X' , 


'X' , 


'X' 


) 


1 x 1 




*/ 



*/ 
*/ 



*/ 
*/ 
*/ 



*/ 
I*/ 
*/ 

u !*/ 

X j */ 

o I*/ 



I*/ 
I*/ 
I*/ 
I*/ 
I*/ 
I*/ 



if ((Bddl == BDD_1) || (Bdd2 == BDD_1) ) 
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{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ( (Bddl == BDD_Z) | | (Bdd2 == BDD_Z) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if ( (Bddl == BDD_X) I I (Bdd2 == BDD_X) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if (Bddl == BDD_0) 
{ 

/* If no Z in ,, Bdd2" then we can directly return otherwise */ 
/* we need to continue to solve each leaves (this is due to the */ 
/* fact that (0+Z) -> X (and not Z) ) . */ 
i f ( BDD_Z_NOT_US ED ) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

} 

if (Bdd2 BDD_0) 
{ 

/* If no Z in "Bddl" then we can directly return otherwise */ 
/* we need to continue to solve each leaves (this is due to the */ 
/* fact that (0+Z) -> X (and not Z) ) . */ 
i f ( BDD_Z_NOT_USED ) 
{ 

*BddRes = UseBdd (Bddl) ; 
return (BDDJDK) ; 

} 



if (IsBddTypelNV (Bddl)) 
{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if (Bddl == Bdd2) 

{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_and, 

GetBddPtr (Bddl) , 
GetBddPtr (Bdd2) , 

GLOB_BDD_WS - >AndCache , 
&Res) ) ) 

return (Status) ; 
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*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (GetBddPtr (Bddl) == (BDD_PTR) Bdd2 ) 

{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ((Status = ApplyNoCommutOp (bdd__impl, 

GetBddPtr (Bddl) , 
(BDD_PTR)Bdd2 / 

GLOB_BDD_WS - > ImpCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 



(IsBddTypelNV (Bdd2) ) 
{ 

if ( (BDD_PTR) Bddl == GetBddPtr (Bdd2 ) ) 
{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ((Status = ApplyNoCommutOp (bdd_impl, 

GetBddPtr (Bdd2) , 
(BDD_PTR) Bddl , 

GLOB__BDD_WS - > ImpCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (Bddl == Bdd2) 

{ 

* BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_or, 

(BDD_PTR) Bddl , 
(BDD__PTR) Bdd2 f 

GLOB_BDD_WS - >OrCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

} 
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} 



/* */ 

/* bdd_nor */ 

/* */ 

/* Logical Operator NOR. */ 

/* */ 

BDD_STATUS bdd_nor (Bddl, Bdd2 , BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD * BddRes; 

{ 

BDD Res ; 



BDD STATUS Status; 



if ((Status = bdd^or (Bddl, Bdd2 , &Res) ) ) 
return (Status) ; 



*BddRes = ComplementBDD (Res) ; 
return (BDD OK) ; 



/* bdd nor */ 



/* */ 

/* bdd__not */ 

/* */ 

/* Logical Operator NOT. */ 

/* */ 

/* truth table for "not" function */ 

/* CONSTANT not_table: stdlogic_ld := */ 

/* */ 

/*--|UX0 1ZWLH-| */ 
/* */ 

/* ( 'U', 'X 1 , '1', '0', 'X», 'X', «0', 'X' ); */ 

/* */ 

/* For 4 values (1, 0, Z, X) we extract: */ 

/* */ 

/* | 1 0 Z X | */ 

/* */ 

/* ( '0 1 , '1', 'X 1 , 'X' ) */ 

/* */ 

BDD_STATUS bdd_not (Bdd, BddRes) 
BDD Bdd; 
BDD *BddRes; 

{ 

/* Treatment od BDD_Z and BDD__X are done in macro "ComplementBDD" */ 
*BddRes = ComplementBDD (Us eBdd (Bdd) ) ; 
return (BDD_OK) ; 



} /* bdd_not */ 



/* 

/* bdd_impl */ 
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/* 

/* Logical Operator Impl (Bddl => Bdd2) which comes down to be 



/* ( I Bddl + Bdd2) . */ 

/* */ 

/* For 4 values (1, 0, Z, X) we extract: */ 

/* */ 

/* Bddl | 1 0 Z X | Bdd2 | */ 

/* */ 

/* ( '1' , , , '1* ) | 1 | */ 

/* ( r 0', T, »X', 'X' ) j 0 | */ 

/* ( 'X', '1', 'X', »X» ) | Z j */ 

/* ( 'X\ '1', 'X', 'X' ) | X | */ 

/* */ 



/* 

BDD_STATUS bdd_impl (Bddl, Bdd2 , BddRes) 

BDD Bddl; 

BDD Bdd2 ; 

BDD * BddRes; 

{ 

BDD Res; 
BDD_STATUS Status ; 



if (Bddl « BDD_0) 
{ 

* BddRes = BDDJ1; 
return (BDD_OK) ; 

} 

if (Bdd2 == BDD_1) 
{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ( (Bddl == BDD_Z) I I (Bdd2 == BDD Z ) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if ( (Bddl == BDD_X) | | (Bdd2 == BDD X) ) 
{ 

*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if (Bddl == BDD_1) 

{ 

/* If no Z in "Bdd2 fl then we can directly return otherwise */ 
/* we need to continue to solve each leaves (this is due to the 
/* fact that (il+Z) -> X (and not Z) ) . */ 
i f ( BDD_Z_NOT_USED) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 
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} 



if (Bdd2 == BDD_0 ) 
{ 

/* No problem here is there is Z in "Bddl" because on the Not */ 
/* which makes Z into X (and X+0 -> X) */ 
*BddRes = UseBdd ( Compl erne ntBDD (Bddl) ) ; 
return (BDD_OK) ; 

} 



if (IsBddTypelNV (Bddl)) 

{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if (Bddl == Bdd2) 

{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ((Status = ApplyNoCommutOp (bdd_impl, 

GetBddPtr (Bdd2) , 
GetBddPtr (Bddl) , 

GLOB__BDD_WS - >ImpCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

else 
{ 

if (GetBddPtr (Bddl) == (BDD_PTR) Bdd2) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD__OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_or, 

GetBddPtr (Bddl) , 
(BDD_PTR) Bdd2, 

GLOB_BDD_WS - >OrCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

} 

else 
{ 

if (I sBddType INV ( Bdd2 ) ) 
{ 

if { (BDD_PTR) Bddl GetBddPtr (Bdd2 ) ) 
{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 

if ( (Status = ApplyCommutOp (bdd_and, 
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(BDD_PTR) Bddl , 
GetBddPtr (Bdd2) , 

GLOB_BDD_WS - >AndCache , 
&Res) ) ) 

return (Status) ; 

*BddRes = Compl erne ntBDD (Res) ; 
return (BDD_OK) ; 

} 

else 

{ 

if (Bddl « Bdd2) 

{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ((Status = ApplyNoCommutOp (bdd_impl, 

(BDD_PTR) Bddl , 
(BDD_PTR) Bdd2 , 

GLOB_BDD_WS - > ImpCache , 
BddRes) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 



/* 

/* bdd_equi 
/* 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



Logical Operator EQUI (Bddl <=> Bdd2) which is the NXor: 
(Bddl . Bdd2 + !Bddl . !Bdd2) */ 



-- truth table for "xor" function 
CONSTANT xor_table : stdlogic_table 



For 4 values (X, 0, 1, Z) for the XNor we extract: 
Bddl | X 0 1 z | Bdd2 | 
( 'X', 'X', 'X', 'X' ) | X | 



*/ 
*/ 



*/ 
*/ 



*/ 



*/ 
*/ 



*/ 



1 u 


X 


0 


1 


z 


w 


L 


H 






i 


*/ 
1*/ 
























*/ 


( 'U\ 


'U' , 


'U', 


•U' , 


■u* , 


'U 1 , 


'U' , 


■U' 


/ 


'U' ) , 


-- | u 


1*/ 


( 'U\ 


'X' , 


'X 1 , 


'X- , 


•x- , 


'X 1 , 


■x\ 


'X' 


/ 


? X* ) , 


-- j X 


1*/ 


( 'U' , 


'X' , 


'0' , 


'1* , 


•X' , 


'X' , 


'0' , 


' 1' 


/ 


'X* ) , 


| 0 


1*/ 


( 'U' , 


'X' , 


■1' , 


' 0' , 


'X' , 


'X' , 


'!' , 


' 0 ■ 


/ 


•X' ) , 


1 


IV 


( 'U 1 , 


'X', 


'X 1 , 


'X 1 , 


'X' , 


•X 1 , 


'X 1 , 


'X' 


/ 


'X' ) , 


z 


IV 


( 'U 1 , 


'X' , 


'X' , 


'X- , 


'X- , 


'X' , 


•x- , 


'X' 


/ 


■x* ) , 


j w 


IV 


( 'U' ; 


'X' , 


■o\ 


•1', 


•X' , 


'X' , 


'0' , 


•1' 
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'X 1 ) , 


L 


IV 


( 'U 1 , 


'X 1 , 


'1\ 


'0' , 


■X' , 


'X' , 


'!' , 


1 0 ■ 
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'X 1 ) , 


-- j H 


IV 
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•x- , 


'X 1 , 


•x- , 


'X 1 , 


'X' , 


'X' , 


'X' 


/ 


'X f ) 




IV 
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/* ( 'X', '1\ '0', 'X' ) I o I */ 

/* ( 'X', *0', '1', 'X' ) I 1 j */ 

/* ( 'X', 'X\ 'X', 'X- ) j z j */ 

/* */ 

/* */ 



BDD_STATUS bdd_equi (Bddl, Bdd2 , BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD *BddRes; 

{ 

BDD Res; 
BDD_STATUS Status ; 



if { (Bddl == BDD_X) | | (Bdd2 BDD_X) ) 
{ 

* BddRes = BDD_X ; 
return (BDD_OK) ; 

} 

if ((Bddl == BDD_Z) || (Bdd2 == BDD_Z) ) 
{ 

*BddRes = BDD_Z / 
return (BDD_OK) ; 

} 

if (Bddl == BDD_1) 

{ 

*BddRes = UseBdd (Bdd2) ; 
return (BDD_OK) ; 

} 



if (Bddl == BDD_0) 

{ 

*BddRes = UseBdd 
return (BDD_OK) / 

} 



(ComplementBDD (Bdd2) ) ; 



if (Bdd2 == BDD_0) 
{ 

*BddRes = UseBdd (ComplementBDD (Bddl) 
return (BDD_OK) ; 



if (Bdd2 == BDD_1) 

{ 

/* If no Z in "Bddl" then we can directly return otherwise */ 

/* we need to continue to solve each leaves (this is due to the */ 

/* fact that (Z<=>1) -> X (and not Z)). */ 

i f ( BDD_Z JST0T_US ED ) 

{ 

*BddRes = UseBdd (Bddl) ; 
return (BDD_OK) ; 

} 
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if (IsBddTypelNV (Bddl) ) 

{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if (Bddl == Bdd2) 

{ 

*BddRes = BDD_1 ; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd_equi, 

GetBddPtr (Bdd2) , 
GetBddPtr (Bddl) , 

GLOB_BDD_WS - >EqCache , 
BddRes) ) ) 

return (Status) ; 



return (BDD_OK) ; 

} 

else 

{ 

if (GetBddPtr (Bddl) == ( BDD PTR ) Bdd2 ) 
{ 

*BddRes = BDD__0; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd_equi, 

GetBddPtr (Bddl) , 
(BDD_PTR)Bdd2, 

GLOB_BDD_WS - >EqCache , 
&Res) ) ) 

return (Status) ; 



*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) ; 

} 

} 

else 

{ 

if (IsBddTypelNV (Bdd2)) 
{ 

if ( (BDD_PTR) Bddl == GetBddPtr (Bdd2) ) 

{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd__equi, 

(BDD_PTR)Bddl, 
GetBddPtr (Bdd2) , 

GLOB_BDD_WS - >EqCache , 
&Res) ) ) 

return (Status) ; 



*BddRes = ComplementBDD (Res) ; 
return (BDD_OK) / 

} 

else 

{ 
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if (Bddl == Bdd2) 

{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if ((Status = ApplyCommutOp (bdd_equi, 

(BDD_PTR)Bddl / 
(BDD_PTR) Bdd2 , 

GLOB_BDD__WS - >EqCache , 
BddRes) ) ) 

return (Status) ; 



return (BDD_OK) ; 

} 

} 

} 



/* 



bdd_xor 


*/ 




Boolean XOR function applied. 




*/ 



BDDJ3TATUS bdd__xor (Bddl, Bdd2 , BddRes) 
BDD Bddl ; 

BDD Bdd2 ; 

BDD *BddReS; 

{ 

BDD Res; 
BDD_STATUS Status; 



if ((Status = bdd_equi (Complement BDD (Bddl), Bdd2 , BddRes))) 
return (Status) ; 

return (BDD_OK) ; 

} 

/* 

/* ResetTagOccurBitlnWs */ 

/* 

/* Reset all the Occur bits of all the bdd nodes in the work space "WS" . 

/* This is a brutal but safe reset. */ 

/* 

void ResetTagOccurBitlnWs (Ws) 
BDD_WS Ws ; 

{ 

int Index; 
int i ; 

BDD_PTR BddPtr; 
BLIST Cache; 
int NbVar; 



Cache = Ws->BddCache ; 
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NbVar = BListSize (Cache) ; 

for (Index = 0; Index < NbVar; Index++) 

{ 

/* If at least one node in this bucket we need to scan it. 
if (GetCache (Cache, Index) ->NbBddNode) 

{ 

for (i=0; i<GetCache {Cache, Index) ->CacheSize; i++) 

{ 

BddPtr = GetCache (Cache, Index) ->Buckets [i] ,- 
while (BddPtr != NULL) 
{ 

ResetBddTagOccurBit (BddPtr) ; 
BddPtr = BddPtr- >Next; 

} 

} 

} 

} 

} 



/* 

/* ResetTagOccurBit */ 
/* 

void ResetTagOccurBit (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 



if (ConstantBdd (Bdd) ) 
return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if ( ! IsBddTagOccurBit (BddPtr) ) 
return; 

ResetBddTagOccurBit (BddPtr) ; 

ResetTagOccurBit (GetBddPtrEdgel (BddPtr) ) ; 
ResetTagOccurBit (GetBddPtrEdgeO (BddPtr) ) ; 

} 



/* 

/* ResetTagCountBit */ 
/* 

void ResetTagCountBit (Bdd) 
BDD Bdd; 

{ 

BDDJPTR BddPtr; 



if (ConstantBdd (Bdd) ) 
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return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if ( ! IsBddTagCountBit (BddPtr) ) 
return; 

ResetBddTagCountBit (BddPtr) ; 

ResetTagCountBit (GetBddPtrEdgel (BddPtr) ) ; 
ResetTagCountBit (GetBddPtrEdgeO (BddPtr) ) ; 



/ 



/* #/ 

/* bdd_compose_rec */ 

/* */ 

/* Substitutes a list of Variables by their associated BDD. The list Var*/ 
/* must be sorted according to the field ->ld in the increasing order. */ 
/* */ 

/* WARNING! : this function may involves troubles if use conjointly with */ 

/* functions using the "TagOccurBit" (ex: BddCountNodesAndMark) . */ 
/* 

BDD_s TATUS bdd_compose_rec (Bdd, Varlndex, BddSub, BddRes) 

BDD Bdd ; 

Uint32 Varlndex; 
BDD BddSub; 
BDD *BddRes; 

{ 

BDD_PTR BddPtr; 

Uint32 index; 
BDD_S TATUS Status; 
BDD Res; 



if (ConstantBdd (Bdd)) 

{ 

*BddRes = Bdd; 
return (BDD_OK) ; 

} 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

/* Checking TagOccurBit to reuse eventually previous computation. */ 
if (IsBddTagOccurBit (BddPtr)) 

{ 

if (BddPtr != (BDD_PTR) Bdd) 

*BddRes = UseBdd (ComplementBDD (GetBddPtrCacheCompose (BddPtr))) 
else 

*BddRes = UseBdd (GetBddPtrCacheCompose (BddPtr) ) ; 
return (BDD_OK) ; 

} 

index = GetBddPtr Index (BddPtr) ; 
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/* No greater index so the result is BddPtr itself. */ 
if ( (GLOBJBDD_WS->IndexVarOrder (index < Varlndex) ) || 
( ! (GLOB_BDD_WS->IndexVarOrder) (index > Varlndex))) 

{ 

if (BddPtr != (BDD__PTR) Bdd) 

*BddRes = UseBdd ( Complement BDD ( (BDD) BddPtr) ) ; 
else 

*BddRes = UseBdd ( (BDD) BddPtr) ; 
return (BDD_OK) ; 

} 



switch ( (GLOB_BDD_WS->CompareIdx) (index, Varlndex)) 
{ 

BDD AndL; 

BDD AndR; 

BDD Bddl; 

BDD BddO ; 

BDD Self; 

case -1: 

BddTagOccurBit (BddPtr) ; 

if ( (Status = bdd_conipose__rec (GetBddPtrEdgel (BddPtr) , 

Varlndex, BddSub, &Bddl) ) ) 

return (Status) ; 

if ( (Status = bdd_compose_rec (GetBddPtrEdgeO (BddPtr) , 

Varlndex, BddSub, &BddO) ) ) 

return (Status) ; 



if ( (Bddl GetBddPtrEdgel (BddPtr) ) 
(BddO GetBddPtrEdgeO (BddPtr) ) ) 

{ 

FreeBdd (Bddl) ; 
FreeBdd (BddO) ; 

SetBddPtrCacheCompose (BddPtr, (BDD) UseBddPtr (BddPtr)) ; 
Res = GetBddPtrCacheCompose (BddPtr) ; 
if (BddPtr != (BDD_PTR) Bdd) 

*BddRes = UseBdd (Complement BDD (Res) ) ; 
else 

*BddRes = UseBdd (Res) ; 



return (BDD_OK) ; 

} 



Self = UseBdd (GetBddVar (index) ->Bdd) ; 

if ((Status = bdd_and (BddO, ComplementBDD (Self), ScAndL) ) ) 

return (Status) ; 
FreeBdd (BddO) / 

if ((Status = bdd__and (Bddl, Self, &AndR) ) ) 

return (Status) ; 
FreeBdd (Bddl) ; 
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if ((Status = bdd_or (AndL, AndR, &Res) ) ) 

return (Status) ; 
SetBddPtrCacheCompose (BddPtr, UseBdd (Res)) ; 
FreeBdd (AndL) ; 
FreeBdd (AndR) ; 
FreeBdd (Self) ; 

break; 

case 0 : 

if { (Status = bdd_and (GetBddPtrEdgeO (BddPtr) , 

ComplementBDD (BddSub) , &AndL) ) ) 

return (Status) ; 

if { (Status = bdd_and (GetBddPtrEdgel (BddPtr) , 

BddSub, &AndR) ) ) 

return (Status) ; 

if ((Status = bdd_or (AndL, AndR, &Res) ) ) 

return (Status) ; 
SetBddPtrCacheCompose (BddPtr, UseBdd (Res) ) ; 
BddTagOccurBit (BddPtr) ; 
FreeBdd (AndL) ; 
FreeBdd (AndR) ; 

} 

if (BddPtr U (BDD_PTR) Bdd) 

*BddRes = UseBdd (ComplementBDD (Res) ) ; 

else 

*BddRes = UseBdd (Res) ; 
return (BDD_OK) ; 



} 

/* 

/* bdd_compose */ 

/* 

/* Substitutes variable of index "index" with bdd "BddSub" in the bdd 
/* "Bdd". */ 

/* */ 

/* PREC! : The tag occur bit must be set to 0 for all the bdd nodes of 

/* "Bdd". */ 

/* 

BDD_STATUS bdd_compose (Bdd, index, BddSub, BddRes) 
BDD Bdd; 
int index; 
BDD BddSub; 
BDD *BddRes; 

{ 

BDD_STATUS Status; 

Status = bdd_compose_rec (Bdd, index, BddSub, BddRes) ; 
(void) ResetTagOccurBit (Bdd) ; 
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return (Status) ; 

} 

/* 

/* bdd__cofacO */ 
/* 

/* Builds the cofactor 0 of variable index "index" of Bdd "Bdd". 
/* 

BDD_STATUS bdd_cofacO (Bdd, index, BddRes) 
BDD Bdd; 
int index; 
BDD *BddRes; 



{ 



} 



BDD_STATUS Status; 

Status = bdd_compose_rec (Bdd, index, bdd_zero () , BddRes); 
(void) ResetTagOccurBit (Bdd) ; 

return (Status) ; 



/* 

/* bdd_cofacl */ 
/* 

/* Builds the cofactor 1 of variable index "index" of Bdd "Bdd". 
/* 

BDD_STATUS bdd_cofacl (Bdd, index, BddRes) 
BDD Bdd; 
int index; 
BDD *BddRes; 



{ 



BDDJSTATUS Status; 

Status = bdd_compose_rec (Bdd, index, bdd_one () , BddRes) ; 
(void) ResetTagOccurBit (Bdd) ; 

return (Status) ; 



} 

/* 
/* 
/* 



/*■ 

BDD_STATUS bdd_restrict (Bddl, dmn, BddRes) 
BDD Bddl; 
BDD dmn ; 

BDD *BddRes ; 

{ 

BDD Res ; 

BDD_STATUS Status; 



bdd_restrict 






*/ 




Logical Operator 


bdd_ 


_restrict the 


restrict operator with tdg 


as the 


Bddl and dmn as 


the 


chi function 


of the domain. 


*/ 



if ( (Bddl == BDD_X) I I (dmn == BDD_X) ) 
{ 
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*BddRes = BDD_X; 
return (BDD_OK) ; 

} 

if (dmn == BDD_0) 
{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 

if (ConstantBdd (Bddl) ) 
{ 

*BddRes = Bddl; 
return (BDD_OK) ; 

} 

if ((dmn == BDD_1 ) | | (dmn == BDD Z) ) 

{ 

*BddRes = UseBdd (Bddl) ; 
return (BDD_OK) ; 

} 

if (Bddl == dmn) 

{ 

*BddRes = BDD_1; 
return (BDD_OK) ; 

} 

if (GetBddPtr (Bddl) == GetBddPtr (dmn) ) 
{ 

*BddRes = BDD_0; 
return (BDD_OK) ; 

} 

if (Is BddType INV ( Bddl ) ) 
{ 

if ((Status = ApplyRestrict (GetBddPtrFromBdd (Bddl), dmn, 

GLOB_BDD_WS- >RstCache , &Res ) ) ) 

return (Status) ; 

*BddRes = Complement BDD (Res) ; 
return (BDD_OK) ; 

} 

else 

{ 

if ((Status = ApplyRestrict ( (BDD_PTR) Bddl , dmn, 

GLOB_BDD_WS - >RstCache , BddRes ) ) ) 

return (Status) ; 
return (BDD_OK) ; 

} 

} 

/* 

/* BddCountNodesRec */ 
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/* */ 

/* CAUTION ! : Field Hook is modified so take care if you use it outside I*/ 

/* The bit 0 is modified */ 

/* */ 

static int BddCountNodesRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr ; 



if (ConstantBdd (Bdd) ) 
return (0) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagCountBit (BddPtr)) 
return (0) ; 

BddTagCountBit (BddPtr) ; 

return (1 + 

BddCountNodesRec (GetBddPtrEdgel (BddPtr) ) + 
BddCountNodesRec (GetBddPtrEdgeO (BddPtr) ) ) ; 

} 



/* */ 

/* BddCountNodesAndMark */ 

/* */ 

/* CAUTION ! : two LSB bits of Field Hook can be modified so take care if */ 

/* you use this field ! */ 

/* The nodes are marked thru the Field Hook so if you rerun the same */ 

/* function it will not count the previous visited nodes. */ 

/* This function updates also Field ->TotalCountBddNode of the current */ 

/* BDD work space. */ 

/* */ 

void BddCountNodesAndMark (Bdd, NbNode) 
BDD Bdd; 
int * NbNode; 

{ 



*NbNode = BddCountNodesRec (Bdd) ; 
GLOB_BDD_WS->TotalCountBddNode += * NbNode; 

} 



/* 

/* BddCountNodes */ 

/* */ 

/* Counts the exact number of nodes of the bdd "Bdd" but removes marks */ 
/* after traversal in order to do not have side effects on next call to */ 
/* this function. */ 

/* */ 

void BddCountNodes (Bdd, NbNode) 

BDD Bdd; 

int *NbNode; 
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{ 

*NbNode = BddCountNodesRec (Bdd) ; 
(void) ResetTagCountBit (Bdd) ; 

} 

/* */ 

/* BddCountNodesOnVarRec */ 

/* */ 

/* CAUTION!: Field Hook is modified so take care if you use it outside !*/ 

/* The bit 0 is modified */ 

/* */ 

static int BddCountNodesOnVarRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr ; 
BDD VAR Var; 



if (ConstantBdd (Bdd) ) 
return (0) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagCountBit (BddPtr)) 
return (0) ; 

Var = GetBddVar (GetBddPtrlndex (BddPtr)); 

BddTagCountBit (BddPtr) ; 

(Var->Hook) ++; 

return (1 + 

BddCountNodesOnVarRec (GetBddPtrEdgel (BddPtr) ) + 
BddCountNodesOnVarRec (GetBddPtrEdgeO (BddPtr) ) ) ; 



} 



/* 

/* BddCountNodesOnVar */ 

/* i(/ 

void BddCountNodesOnVar (Bdd, NbNode) 
BDD Bdd; 
int *NbNode; 

{ 

*NbNode = BddCountNodesOnVarRec (Bdd) ; 
(void) ResetTagCountBit (Bdd) ; 

} 



z* ic/ 

I* UpDateBddRec */ 

/* ±/ 

void UpDateBddRec (Bdd, VarToSub) 
BDD Bdd; 
BDD VAR VarToSub; 
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{ 



BDD_PTR BddPtr; 



if (ConstantBdd (Bdd) ) 
return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagOccurBit (BddPtr)) 
return; 

if (GetBddPtrlndex (BddPtr) < VarToSub->Id) 

SetBddPtrlndex (BddPtr, GetBddPtrlndex (BddPtr) +1) ; 

else 

return ; 

BddTagOccurBit (BddPtr) ; 

UpDateBddRec (GetBddPtrEdgel (BddPtr) , VarToSub) ; 
UpDateBddRec (GetBddPtrEdgeO (BddPtr) , VarToSub) ; 



} 



/* + 1 

/* UpDateBdd */ 

/* i(/ 

void UpDateBdd (Bdd, VarToSub) 
BDD Bdd; 
BDD_VAR VarToSub ; 



{ 



int i ; 

BDD_PTR BddPtr; 



for (i=l; i<BListSize (GLOB_BDD_WS- >Var) ; i++) 

{ 

if (GetBddVar (i) ->Id < VarToSub->Id) 
(GetBddVar (i) ->id) ++; 

} 

VarToSub- > Id = 1; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

SetBddPtrlndex (BddPtr, 1) ; 

UpDateBddRec (GetBddPtrEdgel (BddPtr) , VarToSub) ; 
UpDateBddRec (GetBddPtrEdgeO (BddPtr) , VarToSub) ; 

(void) ResetTagOccurBit (Bdd) ; 



/* 

/* GetNbNode 
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/* 

int GetNbNode (Bdd, j) 
BDD Bdd; 
int j ; 



{ 



int NbNode; 

BDD_PTR BddPtr ; 

BDD_PTR BddPtr_l; 

BDD_PTR BddPtr_0; 



BddPtr = GetBddPtrFromBdd (Bdd) ; 
if (GetBddPtrlndex (BddPtr) == j) 
return (1) ; 

BddPtr_l = GetBddPtrFromBdd (GetBddPtrEdgel (BddPtr) ) ; 
BddPtr_0 = GetBddPtrFromBdd (GetBddPtrEdgeO (BddPtr) ) ; 

NbNode = 1; 

if (GetBddPtrlndex (BddPtr_l) == j) 

NbNode ++; 

if (GetBddPtrlndex (BddPtr_0) == j) 

NbNode ++ ; 

return (NbNode) ; 



/*- 

/* 

/*■ 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 



bdd_swap_node 
Description: 



*/ 








*/ 




indices in one BDD. 


*/ 




*/ 


y 


*/ 


/ \ 


*/ 


X X 


*/ 


/ \ / \ 


*/ 


a c b d 


*/ 




*/ 




*/ 


y 


*/ 


/ \ 


*/ 


X X 


*/ 


/ \ / \ 


*/ 


a c b c 


*/ 




*/ 


y 


*/ 


/ \ 


*/ 


X X 


*/ 


/ \ / \ 


*/ 


a c a d 


*/ 




*/ 


2 


*/ 


/ \ 


*/ 


X X 


*/ 


/ \ / \ 


*/ 



X 

/ \ 

y y 
/ \ / \ 

a be d 



x 

/ \ 

y \ 

/ \ \ 

a b c 
x 

/ \ 

/ y 
/ / \ 

a c d 

z 

/ \ 

y y 
/ \ / \ 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*- 



a be d 
x 

/ \ 

a c 

y 

/ \ 

a c 



a c b d 

y 

/ \ 
a c 

x 

/ \ 
a c 



BDD_STATUS bdd__swap_node (Bdd, i, j , GainNbNode, BddRes) 
BDD Bdd; 
int i ; 

int j ; 

int *GainNbNode; 
BDD *BddRes; 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
■*/ 



BDD_PTR 
Uint32 
BDD 

BDD_STATUS 
int 
int 



BddPtr; 
IndexBdd; 

MinBddLocal ; 
Status; 
NbNodel; 
NbNode2 ; 



BddPtr = GetBddPtrFromBdd (Bdd) ; 
IndexBdd = GetBddPtrlndex (BddPtr) ; 



if (IndexBdd == i) 



{ 



BDDJPTR 
BDD_PTR 
Uint32 
Uint3 2 
BDD Bdd_ 
BDD Bdd_ 
BDD Bdd^ 
BDD Bdd 



BddPtr_l = 
BddPtr_0 = 
IndexBdd_l 
IndexBdd 0 



BDD 
BDD 



Bddl ; 
Bdd2 ; 



GetBddPtrFromBdd 
GetBddPtrFromBdd 
= GetBddPtrlndex 
= GetBddPtrlndex 



int TypeBdd; 



(GetBddPtrEdgel 
(GetBddPtrEdgeO 
(BddPtr_l) ; 
(BddPtr 0) ; 



(BddPtr) ) ; 
(BddPtr) ) ; 



if (IndexBdd_l == j] 



{ 



if (IndexBdd_0 == j) 



{ 



Bdd_a = UseBdd 
Bdd_b = UseBdd 
Bdd_c = UseBdd 

Bdd_d = UseBdd (GetBddPtrEdgel _ 
TypeBdd = IsBddTypelNV (GetBddPtrEdgeO (BddPtr) 



(GetBddPtrEdgeO 
(GetBddPtrEdgel 
(GetBddPtrEdgeO 



(BddPtr_0) ) 
(BddPtr_0) ) 
(BddPtr_l) ) 
(BddPtr 1) ) 



else 

{ 



Bdd_a = UseBdd (GetBddPtrEdgeO (BddPtr) 
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Bdd_b = UseBdd (GetBddPtrEdgeO (BddPtr) ) ; 
Bdd_c = UseBdd (GetBddPtrEdgeO (BddPtr_l) ) ; 
Bdd_d = UseBdd (GetBddPtrEdgel (BddPtr_l) ) / 
TypeBdd = 0; 

} 

} 

else 

{ 

if (IndexBdd_0 == j) 

{ 

Bdd_a = UseBdd (GetBddPtrEdgeO (BddPtrJD) ) ; 
Bdd_b = UseBdd (GetBddPtrEdgel (BddPtr_0) ) ; 
Bdd_c = UseBdd (GetBddPtrEdgel (BddPtr) ) ; 
Bdd_d = UseBdd (GetBddPtrEdgel (BddPtr) ) ; 
TypeBdd = IsBddTypelNV (GetBddPtrEdgeO (BddPtr) ) ; 

else 

{ 

Bdd_a = UseBdd (GetBddPtrEdgeO (BddPtr) ) ; 
Bdd_b = UseBdd (Bdd_a) ; 

Bdd_c = UseBdd (GetBddPtrEdgel (BddPtr) ) ; 
Bdd__d = UseBdd (Bdd_c) ; 
TypeBdd = 0; 

} 

} 

if (TypeBdd) 

{ 

if ((Status = MakeBdd ( j , ComplementBDD (Bdd_a) , Bdd_c, &Bddl) ) ) 
return (Status) ; 

if ((Status = MakeBdd ( j , ComplementBDD (Bdd_b) , Bdd_d, &Bdd2))) 

return (Status) ; 
if {(Status - MakeBdd (i, Bddl, Bdd2 , ScMinBddLocal) ) ) 

return (Status) ; 
FreeBdd (Bddl) ; 
FreeBdd (Bdd2) ; 

} 

else 
{ 

if ((Status = MakeBdd ( j , Bdd__a, Bdd_c, ScBddl) ) ) 

return (Status) ; 
if ((Status = MakeBdd ( j , Bdd_b, Bdd_d, &Bdd2) ) ) 

return (Status) ; 
if {(Status = MakeBdd (i, Bddl, Bdd2 , &MinBddLocal ) ) ) 

return (Status) ; 
FreeBdd (Bddl); 
FreeBdd (Bdd2) ; 

} 

} 

else if (IndexBdd j) 
{ 

BDD Bdd_a; 
BDD Bdd_b; 

Bdd_a = (BDD)UseBddPtr (GetBddPtrFromBdd (GetBddPtrEdgeO (BddPtr))); 
Bdd_b = (BDD)UseBddPtr (GetBddPtrFromBdd (GetBddPtrEdgel (BddPtr))); 
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if (IsBddTypelNV (GetBddPtrEdgeO (BddPtr) ) ) 
{ 

if {(Status = MakeBdd (i, ComplementBDD (Bdd_a) , Bdd__b, 

&MinBddLocal) ) ) ~ 

return (Status) ; 

} 

else 

{ 

if ((Status = MakeBdd (i, Bdd_a, Bdd_b, ScMinBddLocal) ) ) 
return (Status) ; 

} 

} 

else 

{ 

if (IsBddTypelNV (Bdd) ) 

{ 

if ( (Status = bdd_not (Bdd, &MinBddLocal) ) ) 
return (Status) ; 

} 

else 

MinBddLocal = UseBdd (Bdd) ; 

} 

if (IsBddTypelNV (Bdd)) 

(*BddRes) = ComplementBDD (MinBddLocal); 

else 

(*BddRes) = MinBddLocal; 

*GainNbNode = 0; 

if (Bdd == * BddRes) 
return (BDD_OK) ; 

NbNodel = GetNbNode (Bdd, j) ; 
NbNode2 = GetNbNode (*BddRes, j ) ; 
*GainNbNode = NbNodel -NbNode 2 ; 

return (BDD OK) ; 



/* 

/* bdd_xnor 

/* 

BDD_STATUS bdd_xnor (Bddl, Bdd2 , BddRes) 

BDD Bddl ; 

BDD Bdd2 ; 

BDD * BddRes; 

{ 

return (bdd_equi (Bddl, Bdd2 , BddRes)); 

} 



/* 

/* bdd_index_occur_rec 

/* 
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/* CAUTION: The Tag ocur bit is used. When we pass a Bdd we set it to 1.*/ 
/* This means that all the Bdd must have their ocuur bit set to 0 before*/ 
/* calling the function. */ 
/* 

static int bdd_index_occur_rec (Bdd, index) 
BDD Bdd; 
Uint32 index; 



{ 



*/ 



BDD_PTR BddPtr; 



if (ConstantBdd (Bdd) ) 
return (0) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagOccurBit (BddPtr)) /* Already traversed ! 
return (0) ; 

BddTagOccurBit (BddPtr) ; 

if (GetBddPtrlndex (BddPtr) index) 
return (1) ; 

if (bdd_index_occur_rec (GetBddPtrEdgel (BddPtr) , index) ) 
return (1) ; 

if (bdd_index_pccur_rec (GetBddPtrEdgeO (BddPtr) , index) ) 
return (1) ; 

return (0) ; 



/* 

/* bdd__index_occur * / 
/* 

/* Returns 1 if at least one bdd node of index "index" occurs in the BDD*/ 
/* "bdd". */ 

/* */ 

/* PREC: All Occur bit of each Bdd nodes must be set to 0. */ 
/* [_ 

int bdd_index_occur (Bdd, index) 
BDD Bdd; 
Uint32 index; 



{ 



int Res; 



Res = bdd_index_occur_rec (Bdd, index) ; 
(void) ResetTagOccurBit (Bdd) ; 
return (Res) ; 
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/* FreezeBddNodeRec 

/* 

/* Freeze recursively a Bdd node in order to protect it. 
/* 

void FreezeBddNodeRec (Bdd) 
BDD Bdd; 

{ 

BDDJPTR BddPtr; 



if {ConstantBdd (Bdd) ) 
return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagOccurBit (BddPtr)) /* Already traversed ! */ 
return ; 

BddTagOccurBit (BddPtr) ; 

SetBddPtrRef Count (GetBddPtrFromBdd (Bdd) , BDDJVtAXREFCOUNT) ; 

FreezeBddNodeRec (GetBddPtrEdgel (BddPtr) ) ; 
FreezeBddNodeRec (GetBddPtrEdgeO (BddPtr) ) ; 

} 

/* 

/* FreezeBddNode */ 

/* 

/* Freeze the complete Bdd "bdd" by setting its reference to the max 

/* counter BDD JVIAXREFCOUNT . */ 

/* */ 

/* PREC: the Bdd and its sons must have a Occur bit set to 0. 

/* 

void FreezeBddNode (Bdd) 
BDD Bdd; 

{ 

(void) FreezeBddNodeRec (Bdd) ; 
(void) ResetTagOccurBit (Bdd) ; 

} 



/* 

/* pbRec */ 
/* 

static void pbRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 



BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (Bdd == BDD_0) 
{ 

fprintf (stderr, " (0)"); 
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return; 

} 

if (Bdd == BDD_1) 
{ 

fprintf (stderr, » (1) ») ; 
return; 

} 

if (Bdd == BDD_2) 
{ 

fprintf (stderr, " (2) ") ; 
return; 

} 

if (Bdd == BDD_X) 
{ 

fprintf (stderr, « (X) ") ; 
return; 

} 

if (BddPtrlsVar (BddPtr) ) 

{ 

if (IsBddTypelNV (Bdd)) 
fprintf (stderr, »-") ; 

fprintf (stderr, "%s", 

GetBddVar(GetBddPtrIndex (BddPtr) ) ->Name) ; 

return; 

} 

if (IsBddTypelNV (Bdd)) 
fprintf (stderr, »-»); 

fprintf (stderr, " ["); 
fprintf (stderr, n %s 

GetBddVar (GetBddPtrlndex (BddPtr) ) ->Name) ; 
pbRec (GetBddFromBddPtr (GetBddPtrEdgeO (BddPtr) ) ) ; 
fprintf (stderr, " "); 

pbRec (GetBddFromBddPtr (GetBddPtrEdgel (BddPtr) ) ) ; 
fprintf (stderr, «] ") ; 

return; 



bdd_print 


*/ 




Prints out on the sdterr stream the BDD "bdd". 




*/ 



void bdd_print (Bdd) 
BDD Bdd; 

{ 

fprintf (stderr, "\n"); 

pbRec (Bdd) ; 

fprintf (stderr, T, \n") ; 
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return; 

} 

/ v 

/* bdd_ref count */ 

/* it/ 

/* Prints out on the sdterr stream the reference counter of Bdd "Bdd" */ 

/*- v 

void bdd_refcount (Bdd) 
BDD Bdd; 

{ 

^ fprintf (stderr, "%d\n M , GetBddPtrRef Count (GetBddPtrFromBdd (Bdd))); 

/* ±/ 

I* bdd_index */ 

/*— *z 

/* Prints out on the sdterr stream the index of Bdd "Bdd" */ 

/* v 

void bdd_index (Bdd) 
BDD Bdd; 

{ 

^ fprintf (stderr, "%d\n", GetBddPtrlndex (GetBddPtrFromBdd (Bdd))); 

/* 

/* GetBddCache */ 

/* , 

/ *i 

/* Returns the bdd cache of the current Bdd work space. */ 

z* 

BLIST GetBddCache () 
{ 

return (GLOB_BDD WS- >BddCache) ; 

} 

/. v 

/* SetWorkSpace */ 

/* v 

/* Select the current BDD work space. All the BDD operations will be */ 
/* done within this Work Space. */ 

/* : - * 7 

void SetWorkSpace (Workspace) 
BDD_WS Workspace ; 

{ 

GLOB_BDD_WS = Workspace; 

} 

/* #/ 

/* GetWorkSpace */ 
/* 

/* returns the current BDD work space. */ 
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/* v 

BDD_WS GetWorkSpace () 

{ 

return ( GLOB_BDD_WS ) ; 

} 

/* SetNbMaxCreatedNode */ 

/*— : v 

/* This function allows the user to set the maximum number of nodes that*/ 

/* can be created physically. This does not correspond finally to the */ 

/* number of nodes counted at the end of the process (You may create */ 

/* physically 1000000 nodes for a final Bdd of 1000 nodes). */ 

/* This is usefull to control the complexity of any Bdd constructions. */ 
/* ie/ 

void SetNbMaxCreatedNode (NbMaxNode) 
int NbMaxNode ; 

{ 

GLOB_BDD_WS->MaxTotalBddCreated = NbMaxNode; 

} 

/* v 

/* GetNbMaxUsedNode */ 

/* */ 

int GetNbMaxUsedNode () 
{ 

return ( GLOB_BDD_WS - >MaxTotalUsedBddNode) ; 

} 

/* v 

/* GetNbTotalUsedNode */ 

/* 

mt GetNbTotalUsedNode () 
{ 

return (GLOB__BDD_WS->TotalUsedBddNode) ; 

/* v 

/* SetNbMaxUsedNode */ 
/* 

/ */ 

/* This function allows the user to set the maximum number of nodes that*/ 
/* can be used in the Bdd cache. This means that it represents the max. */ 
/* size of the bdd cache allowed. */ 

z* v 

void SetNbMaxUsedNode (NbMaxNode) 
int NbMaxNode ; 

{ 

^ GLOB_BDD_WS->MaxTotalUsedBddNode = NbMaxNode; 
/* 

/* SetUseBddZ */ 

/* . 

/ */ 

/* */ 

/* CAUTION ! can slower the BDD package run-time if activated ! */ 
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/* Ex: Bddl = [a [b c (0)] (0)], Bdd2 = [d e (z) ] */ 

/* if "SetUseBddZ" then we have: */ 

/* (1) Substitute (Bddl, c, Bdd2) --> [a [de (X)] (0)] */ 

/* */ 

/* if not "SetUseBddZ" then we have: */ 

/* (2) Substitute (Bddl, c, Bdd2) --> [a [d e (Z) ] (0)] */ 

/* */ 

/* Equation (2) is wrong and (1) is right. Unfortunately The option */ 
/* makes the BDD package slower. So use it only if you are sure that Z */ 
/* values are handle in your application. */ 
/* */ 

/*; */ 

void SetUseBddZ {) 

{ 

if (GLOBJBDD_WS->BddZ_IsUsed) 
return; 

fprintf (stderr, "BDD- INFO : Z mode activated\n" ) ; 
GLOB_BDD_WS - >BddZ IsUsed = 1; 

} 



/* 

/* InitBddWorkSpace */ 

/* , 

/ 

/* Creates a bdd workspace in which construction of Bdds will be */ 

/* performed. The index given for each bdd variable will follow the */ 

/* increasing order from [1, 2, x] . The special nodes like BDD_ONE,*/ 

/* BDD_ZER0 have an index of value ' BDD_MAX INDEX ' . A bdd work space */ 

/* 'Workspace 1 is returned if everything is OK. */ 

/* it/ 

BDD_STATUS InitBddWorkSpace (MaxVar, Workspace) 
int MaxVar; 
BDD_WS *WorkSpace; 

{ 

OBJECT_PAGE NewPage ; 
BLIST NewBddCache ; 
APPLY_CACHE NewApplyCache ; 
BDD_PTR NewBdd; 
BDD_STATUS Status; 
BLIST NewList; 



if ( (*WorkSpace = (BDD_WS) calloc (1, sizeof (BDD_WS_REC) ) ) ==NULL) 
return (BDD_MEMORY_FULL) ; 

(^Workspace) ->TotalMemoryCalloc = l*sizeof (BDD_WS_REC) ; 
SetWorkSpace (^Workspace) ; 

if (BListCreateWithSize (MaxVar+1, ScNewList) ) 

return (BDD_MEMORY_FULL) ; 
(*WorkSpace) ->Var = NewList; 

/* Allocating first page of BDD_REC objects. */ 
if ((Status - PageAllocate (BDD_PAGE_SIZE / sizeof (BDD__REC) , &NewPage) ) ) 
return (Status) ; 
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{* Workspace ) ->CurrentBddPage = NewPage; 



/* Allocating first page of APPLY_CELL_REC objects. */ 
if ((Status = PageAllocate (APPLY_PAGE_SIZE, sizeof (APPLY_CELL_REC) , 

&NewPage) ) ) 

return (Status) ; 
(^Workspace) ->CurrentApplyCellPage = NewPage; 

/* Allocating related apply caches */ 
if ((Status = CreateApplyCache (&NewApply Cache) ) ) 

return (Status) ; 
(*WorkSpace) ->OrCache = NewApplyCache ; 
if ({Status = CreateApplyCache UNewApply Cache) ) ) 

return (Status) ; 
(*WorkSpace) ->AndCache = NewApplyCache; 
if ((Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status) ; 
(^Workspace) ->ImpCache = NewApplyCache ; 
if {(Status = CreateApplyCache (&NewApply Cache) ) ) 

return (Status) ; 
(* Workspace ) ->EqCache = NewApplyCache; 
if ((Status = CreateApplyCache (&NewApply Cache) ) ) 

return (Status) ; 
(* Workspace ) ->Rst Cache = NewApplyCache; 
if ((Status = CreateApplyCache ( &NewApply Cache) ) ) 

return (Status) ; 
(* Workspace) ->JoinCache = NewApplyCache; 

(*WorkSpace) ->MaxTotalBddCreated = DEFAULT_MAX_NODE ; 
(* Workspace ) ->MaxTotalUsedBddNode = DEFAULT J4AX_N0DE ; 

/* Allocating the BDD cache. */ 
if ((Status = CreateBddCache (MaxVar, &NewBddCache) ) ) 

return (Status) ; 
<*WorkSpace) ->BddCache = NewBddCache; 

/* Increasing order. */ 

(*WorkSpace) ~>IndexVarOrder = 0; 

(* Workspace ) ->CompareIdx = Comparelndex; 

/* Create the 1 BDD node which corresponds to the logical 1. */ 
/* Its index is the highest one so it is always pushed to the leaves */ 
/* during the Apply calls. */ 
if ((Status = CreateBddNode (&NewBdd) ) ) 
return (Status) ; 

SetBddPtr Index (NewBdd, BDD_MAX INDEX) ; 

SetBddTypeDIR ( (*WorkSpace) ->BddOne, NewBdd); 
SetBddTypelNV ( (*WorkSpace) ->BddZero, NewBdd); 

/* Creates the Z BDD node. 
SetBddPtrZ ( (^Workspace) ->BddZ, NewBdd) ; 

/* Creates the X BDD node. 



*/ 
*/ 
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SetBddPtrX ( ( *WorkSpace) - >BddX , NewBdd); 

/* Initialize field 'Uniqueld' to 0. */ 
(* Workspace ) ->Unique Id = 0; 

/* adding a fake variable as first variable. */ 
/* The very first variable will start at Index - 1 in the list and * 
/* will have the bdd index =1. */ 
if (BListAddElt (GLOB_BDD_WS->Var, NULL) ) 
return ( BDD_MEMORY_FULL ) ; 

/* We add also a fake Bdd cache as first cache */ 
if (BListAddElt (GLOB_BDD_WS - >BddCache , NULL)) 
return ( BDD_MEM0R Y__FULL ) ; 

return (BDD_OK) ; 

} 

/* * 

/* InitBddWorkSpacelnvOrder */ 

/* ^ 

/* Creates a bdd workspace i which construction of Bdds will be */ 

/* performed. The index given for each bdd variable will follow the *, 

/* decreasing order from [x, . .., 2, 1, 0] . The special node like *[ 

/* BDD_0NE, BDD_2ER0 have an index of -1. */ 

/* A bdd work space 'Workspace' is returned if everything is OK. */ 

/* * 

BDD_STATUS InitBddWorkSpacelnvOrder (MaxVar, Workspace) 
int MaxVar; 
BDD_WS ^Workspace ; 



{ 



OB JECT_PAGE NewPage ; 
BLIST NewBddCache ; 
APPLY_CACHE NewApplyCache ; 
BDD_PTR NewBdd ; 
BDD_STATUS Status; 
BLIST NewList; 



if ((*WorkSpace = (BDD__WS) c alloc (1, sizeof (BDD_WS_REC) ) ) NULL) 
return ( BDD__MEMORY_FULL ) ; 

(*WorkSpace) - >TotalMemoryCalloc = l*sizeof (BDD_WS_REC) ; 
SetWorkSpace (* Workspace) ; 

if (BListCreateWithSize (MaxVar+1, ScNewList) ) 

return (BDD_MEMORY_FULL) ; 
(*WorkSpace) ->Var = NewList; 

/* Allocating first page of BDD_REC objects. */ 

if ((Status = PageAllocate (BDD_PAGE_SIZE, sizeof (BDD_REC) , &NewPage) ) ) 

return (Status) ,- 
(*WorkSpace) - >CurrentBddPage = NewPage ; 

/* Allocating first page of APPLY_CELL_REC objects. */ 
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if ((Status = PageAllocate (APPLY_PAGE_SIZE / sizeof (APPLY_CELL_REC) 

&NewPage) ) ) 

return (Status) ; 
(*WorkSpace) - >Cur rent ApplyCe 11 Page - NewPage; 



/* Allocating related apply caches */ 
if {(Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status) ; 
(* Workspace ) ->OrCache = NewApplyCache ; 
if ((Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status) ; 
(^Workspace) ->AndCache = NewApplyCache; 
if ((Status = CreateApplyCache ( ScNewAppl y Cache) } ) 

return (Status) / 
(^Workspace) ->ImpCache = NewApplyCache; 
if ((Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status) ; 
(^Workspace) ->EqCache = NewApplyCache; 
if ((Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status); 
(^Workspace) ->RstCache = NewApplyCache; 
if ((Status = CreateApplyCache (^NewApplyCache) ) ) 

return (Status) ; 
(* Workspace) ->JoinCache = NewApplyCache; 

(^Workspace) ->MaxTotalBddCreated = DEFAULT JVIAXJSTODE ; 
(* Workspace ) - >MaxTotalUsedBddNode = DEFAULT_MAX_NODE ; 

/* Allocating the BDD cache. */ 
if ((Status = CreateBddCache (MaxVar, &NewBddCache) ) ) 

return (Status) ; 
(^Workspace) ->BddCache = NewBddCache; 

/* Decreasing order. */ 
(^Workspace) ->IndexVarOrder = 1; 
(^Workspace) ->CompareIdx = CompareIndex__ec ; 

/* Create the 1 BDD node which corresponds to the logical 1. */ 
/* Its index is the highest one so it is always pushed to the leaves */ 
/* during the Apply calls. */ 
if ((Status = CreateBddNode (ScNewBdd) ) ) 
return (Status) ; 

SetBddPtr Index (NewBdd, -1) ; 

SetBddTypeDIR ( (*WorkSpace) ->BddOne, NewBdd) ; 
SetBddTypelNV ( ( *WorkSpace) ->BddZero, NewBdd); 

/* Creates the Z BDD node. */ 
SetBddPtrZ { (*WorkSpace) ->BddZ, NewBdd) ; 

/* Creates the X BDD node. */ 
SetBddPtrX ( (* Workspace) ->BddX, NewBdd) ; 

/* Initialize field 'Uniqueld' to -1. */ 
(*WorkSpace) ->UniqueId = -1; 
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return (BDD_OK) ; 

} 



/' 



Q 

m 

m 

m 

w 
o 

IU 

ru 
m 

Q 

□ 



B-CORE-63 



bbdcle 



/* 

/* 

/* File: bbdd.e 

/* Version: 1.1 

/* Modifications: 
/* Documentation: 
/* 

/* Class: none 

/* Inheritance: 
/* 

/* 

/* 

/* GLOBAL VARIABLE */ 

/* 

extern BDD_WS GLOB_BDD_WS; /* Default BDD Work Space 

/* 

/* InitBddWorkSpace */ 

/* 

extern BDD_STATUS InitBddWorkSpace (/* int MaxVar, BDD_WS ^Workspace */) 



/* 

/* SetUseBddZ */ 

/* 

/* */ 

/* CAUTION > can slower the BDD package run-time if activated ! 

/* */ 

/* */ 

/* Ex: Bddl = [a [b c (0)] (0)], Bdd2 = [d e (Z) ] */ 

/* if "SetUseBddZ" then we have: */ 

/* (1) Substitute (Bddl, c, Bdd2) --> [a [d e (X)] (0)] */ 

/* */ 

/* if not "SetUseBddZ" then we have: */ 

/* (2) Substitute (Bddl, c, Bdd2) --> [a [d e (Z) ] (0)] */ 

/* */ 

/* Equation (2) is wrong and (1) is right. Unfortunately The option 

/* makes the BDD package slower. So use it only if you are sure that Z 

/* values are handle in your application. */ 

/* */ 

/* 

extern void SetUseBddZ (); 



/* 

/* SetWorkSpace */ 

/* 

/* Select the current BDD work space. All the BDD operations will be 
/* done within this Work Space. */ 
/* 

extern void SetWorkSpace () ; 



/ 
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/* GetWorkSpace */ 

/* 

/* returns the current BDD work space. */ 
/* 

extern BDD_WS GetWorkSpace ( ) ; 



/* 

/* GetBddCache 

/* 

/* Returns the Bdd cache of the current Bdd work space. 
/* 

extern BDD_CACHE GetBddCache ( ) ; 



bddjprint 


*/ 




Prints out on the stderr stream the BDD "bdd" . 




*/ 



extern void bdd_print (/* BDD Bdd */) ; 



/* 

/* bdd_ref count */ 

/* 

/* Prints out on the stderr stream the reference counter of Bdd "Bdd" 
/* 

extern void bdd__ref count {/* BDD Bdd */); 



bdd_index 


*/ 




Prints out on the sdterr stream the index of Bdd "Bdd". 




*/ 



extern void bdd_index (/* BDD Bdd */); 



/* 

/* bdd_freeze */ 

/* 

/* Set the reference counter of bdd node "bdd" to BDD_MAXREF COUNT in 

/* order to freeze it. */ 

/* 

extern void bdd__freeze (/* BDD Bdd */); 



UseBdd 


*/ 


Increments the reference counter of the bdd node 


"Bdd" and returns 


its argument. 


*/ 



extern BDD UseBdd (/* BDD Bdd */) ; 
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/* v 

/* FreezeBdclNode */ 

/* v 

/* Freeze the complete Bdd "bdd" by setting its reference to the max */ 
/* counter BDDJ4AXREFC0UNT . */ 
/* */ 

/* PREC: the Bdd and its sons must have a Occur bit set to 0 . */ 
extern void FreezeBddNode (/* BDD Bdd */) ; 

/* v 

/* ResetTagOccurBitlnWs */ 

/* ic/ 

/* Reset all the Occur bits of all the bdd nodes in the work space "WS".*/ 
/* This is a brutal but safe reset. */ 

z* v 

extern void ResetTagOccurBitlnWs (/* BDD_WS Ws */) ; 

/* ie/ 

/* SquizWorkSpace */ 

/* v 

/* This function removes from the default Bdd work space all Bdd nodes */ 
/* which are not frozen (e.g with reference count < BDDJVIAXREFCOUNT . It */ 
/* reste also completly all the Apply cache tables. */ 

/* v 

extern void SquizDef aultWorkSpace () ; 

/ 4/ 

/* bdd_index_occur */ 

/* v 

/* Returns 1 if at least one bdd node of index "index" occurs in the BDD*/ 

/* "bdd" and 0 otherwise. */ 

/* */ 

/* PREC: All Occur bit of each Bdd nodes must be set to 0 . */ 

/* v 

extern mt bdd_index_occur (/* BDD Bdd, Uint32 index */); 

/* #/ 

/* SetNbMaxUserNode */ 

/*---- */ 

/* This function allows the user to set the maximum number of nodes that*/ 
/* can be used in the Bdd cache. This means that it represents the max. */ 
/* size of the bdd cache allowed. */ 

extern void SetNbMaxUserNode () ; 

/* ±/ 

I* GetNbTotalUsedNode */ 

/* * 7 

extern mt GetNbTotalUsedNode () ; 
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/* v 

/* GetNbMaxUsedNode */ 

/*- — -; */ 

extern mt GetNbMaxUsedNode (); 

/* 

/* SetNbMaxCreatedNode */ 

/* ^ 

/* This function allows the user to set the maximum number of nodes that*/ 

/* can be created physically. This does not correspond finally to the */ 

/* number of nodes counted at the end of the process (You may create */ 

/* physically 1000000 nodes for a final Bdd of 1000 nodes). */ 

/* This is usefull to control the complexity of any Bdd constructions. */ 
/* it/ 

extern void SetNbMaxCreatedNode (/* int NbMaxNode */); 

z* v 

/* BddCountNodesAndMark */ 
/* 

/* CAUTION J : two LSB bits of Field Hook can be modified so take care if */ 

/* you use this field \ */ 

/* The nodes are marked thru the Field Hook so if you rerun the same */ 

/* function it will not count the previous visited nodes. */ 

/* This function updates also Field - >TotalCountBddNode of the current */ 

/* BDD work space. */ 

/ v 

extern BDD_STATUS BddCountNodesAndMark (/* BDD Bdd, int *NbNode */); 

/* 

/* BddCountNodes */ 

/* 

I* Counts the exact number of nodes of the bdd "Bdd" but removes marks */ 
/* after traversal in order to do not have side effects on next call to * / 

/* this function. */ 

/* v 

extern void BddCountNodes (/* BDD Bdd, int *NbNode */); 

z* 

/* BddPtrlsVar */ 

/* v 

extern int BddPtrlsVar (/* BDD_PTR BddPtr */); 
/* 

I * bdd_one * / 

/* 

/* Returns the Bdd (1) of the current bdd work space. */ 

/* v 

extern BDD bdd_one () ; 

/*— v 

/* bdd zero */ 
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/* 

/* Returns the Bdd (0) of the current bdd work space. */ 
/* 

extern BDD bdd__zero () ; 



/* 

/* bdd_Z */ 

/* 

/* Returns the Bdd (Z) of the current bdd work space. */ 
/* 

extern BDD bdd_Z () ; 



/* 

/* bdd_X */ 
/* 

/* Returns the Bdd (X) of the current bdd work space. 
/* 

extern BDD bdd_X ( ) ; 



bdd_not 


*/ 




Boolean NOT function applied. 




*/ 



extern BDD_STATUS bdd_not (/* BDD Bddl, BDD *BddRes */); 



bdd_or 


*/ 




Boolean OR function applied. 




*/ 



extern BDD_STATUS bdd__or (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 



bdd_nor 


*/ 




Boolean NOR function applied. 




*/ 



extern BDD_STATUS bdd_nor (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 



bdd_and 


*/ 




Boolean AND function applied. 




*/ 



extern BDD_STATUS bdd_and (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 



/* 

/* bdd_nand 
/* 
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/* Boolean NAM) function applied. */ 

/* 

extern BDD_STATUS bdd_nand {/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 

/* 

/ * bdd_xor * / 

/* 

/* Boolean XOR function applied. */ 

/* 

extern BDD_STATUS bdd_xor (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 

/* 

/ * bdd__xnor * / 

/* 

/* Boolean XNOR function applied. */ 

/* 

extern BDD_STATUS bdd_xnor (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 

/* 

/* bdd__impl */ 

/* 

/* Boolean IMPLICATION function applied. */ 

/* 

extern BDD_STATUS bdd_impl (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 

/* 

/* bdd_equi */ 

/* 

/* Boolean EQUIVALENCE function applied. */ 

/* 

extern BDD_STATUS bdd_egui (/* BDD Bddl, BDD Bdd2, BDD *BddRes */); 

/* 

/* bdd_restrict */ 

/* 

/* Boolean RESTRICT function applied. */ 
/* 

extern BDD_STATUS bdd_restrict (/* BDD Bddl, BDD dmn, BDD *BddRes */) ; 



/* 

/* bdd_join * / 

/* 

/* Boolean JOIN function applied. Represents the resolution function ( 

/* defined by VHDL IEEE std logic 1164). */ 

/* 7 7 

extern BDD_STATUS bdd_join (/* BDD Bddl, BDD Bdd2 , BDD *BddRes */); 

/* 

/* bdd_compose */ 

/* 



_ i 
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/* Substitutes variable of index "index" with bdd "BddSub" in the bdd */ 

/* "Bdd". */ 
/* */ 

/* PREC!: The tag occur bit must be set to 0 for all the bdd nodes of */ 

/* "Bdd". */ 

z* v 

extern BDD_STATUS bdd_compose {/* Bdd, index, BddSub, BddRes */) ; 

/* v 

/* bdd_cofacO */ 

/*— : *z 

/* Builds the cofactor 0 of variable index "index" of Bdd "Bdd" */ 

/* ; v 

extern BDD_STATUS bdd_cofacO (/* Bdd, index, BddRes */) ; 

/* v 

/* bdd_cofacl */ 

/*— : v 

/* Builds the cofactor 1 of variable index "index" of Bdd "Bdd" */ 

/* _ v 

extern BDD_S TATUS bdd_cofacl (/* Bdd, index, BddRes */) ; 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

#ifndef BBDD_H 
#define BBDD H 



File: 


bbdd.h 


Version: 


1.1 


Modifications : 




Documentation : 




Class : none 




Inheritance : 





*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



#include <stdio.h> 

#define GetBddVar (index) 
#define GetWsBddVar {Ws , index) 
#define Get Cache (cache, index) 



( (BDD_VAR) BListElt ( GLOB_BDD_WS - >Var , index) ) 
{ (BDD_VAR) BListElt (Ws->Var, index)) 
( (BDD_CACHE) BListElt (cache, index) ) 



/* CRITICAL PARAMETERS 



/* Allocation of pages of BDDs objects 
ftdefine BDD_PAGE_S I Z E 4096 



/* Allocation of pages for applys objects 
#define APPLY PAGE SIZE 4 096 



/* Parameters for Operator cache tables. Tables are of size : 

/* APPLY_CACHE_SIZE . MAX_NB_APPLY_CELLS . sizeof (APPLY_CELL_REC) 

#define MAX_NB_APPLY_CELLS 10 



#define APPLY_CACHE_SIZE 
#define MAX APPLY CACHE SIZE 



10000 
200000 



/* Parameter for BDD cache table. 
#define BDD_PTR_SUB_CACHE_SIZE 
#define MAX BDD CACHE SIZE 



500 



600000 



/* Parameter to control rehashing of caches. 
#define MAX_APPLY_CONFLICT 100000 
#define MAX BDD CONFLICT 100 000 



/* Parameter to control complexity during BDD construction 
#define DEFAULT_MAX NODE 5000000 



= */ 
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/* 

/* BASIC types 
/* 



typedef unsigned int Uint32; 
typedef Uint32 BDD; 



/* 32 bit field 
/* Typed BDD 



/* 

/* Generic PAGE type to store different kinds of objects 
/* 

typedef struct OBJECTPAGEREC { 
int NbObj ; 

int FirstObject; 
int NextFreeObject; 
int Las tObj con- 

struct OBJECTPAGEREC *NextPage; 

int PageFull; /* l --> page full, 0 otherwise 

} OBJECT PAGE REC; 



*/ 
*/ 



*/ 
*/ 



-*/ 



/* # of objects in the page 



typedef OBJECT_PAGE_REC *0B JECT_PAGE ; 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/*- 



Basic structure of a BDD node. 
Layout of BDD REC record: 



31. 



.12 | 11 | 10 



Index 



| Tagl | TagO 



Ref Count 



Edge [0] 



Edge [1] 



Cache Compose 



Next 



Hook 



"7 



variable id: is on (31-12+1) = 20 bits so we can accept up to*/ 

2 A 20 = 1048576 variables. */ 



ref count : 
Tagl: 

TagO : 



is on (9-0+1) = 10 bits = 1024 



7 



7 



is a bit Tag used for traversal algorithms (ex */ 
BDD count node computation) */ 

*/ 

is a bit Tag used for traversal algorithms (ex */ 
var occur computation) */ 



Sizeof (BDD_REC) =28 Bytes. 
1 Million BDD nodes = 28 MegaB. 



*/ 
*/ 
*/ 
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typedef struct BDD_STRUCT { 

Uint32 Header; /* cf. encoding above */ 

BDD Edge [2]; /* 0 and 1 edge sons */ 
BDD CacheCompose; 

struct BDD_STRUCT *Next; /* next BDD in the Bdd cache */ 

Uint32 Hook; /* for user purpose */ 
} BDD_REC; 

#define IndexMask OxFFFFFOOO /* Index Mask */ 

#define RefCountMask Ox000003FF /* Ref Count Mask */ 

tdefine IndexMaskC OxOOOOOFFF /* Complement of Index Mask */ 

#define Ref CountMaskC OxFFFFFCOO /* Complement of Ref Count Mask */ 

#define CountBitMask 0x00000800 /* Count bit mask */ 

#define CountBitMaskC 0xFFFFF7FF /* Complement of Count bit mask */ 

#define OccurBitMask 0x00000400 /* Occur bit mask */ 

#define OccurBitMaskC OxFFFFFBFF /* Complement of Occur bit mask */ 

/* 

/* index operators */ 

/* v 

#defme GetBddPtrlndex (BddPtr) ( (BddPtr) ->Header >> 13) 

#define SetBddPtrlndex (BddPtr , Index) \ 

( (BddPtr) ->Header = (( (BddPtr) ->Header & IndexMaskC) | (Index << 13))) 

#define BDD_MAX INDEX ( (Uint32 ) OxOOOFFFFF) 

/* v 

/* Ref Count operators */ 

/* 

/* 

#define GetBddPtrRef Count (BddPtr) (( (BddPtr) ->Header) & RefCountMask) 

#define SetBddPtrRef Count (BddPtr , Ref Count) \ 

( (BddPtr) ->Header - (( (BddPtr) ->Header & Ref CountMaskC) | Ref Count) ) 

#define BDD_MAXREFCOUNT RefCountMask 

z* v 

/* Edges operators */ 
/* 

#def ine GetBddPtrEdgel (BddPtr) ( (BddPtr) ->Edge [1] ) 

#define SetBddPtrEdgel (BddPtr , T) ( (BddPtr) - >Edge [1] = T) 

#def ine GetBddPtrEdgeO (BddPtr) { (BddPtr) ->Edge [0] ) 

#define SetBddPtrEdgeO (BddPtr , E) ( (BddPtr) ->Edge [0] = E) 

/* #/ 

/* Next bdd operators */ 

/* ^ 

#def ine GetBddPtrNext (BddPtr) ( (BddPtr) ->Next) 

#define SetBddPtrNext (BddPtr, N) ( (BddPtr) ->Next = N) 



/* v 



/* count bit operators 



/ #/ 
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#define BddTagCountBit (BddPtr) ( (BddPtr) ->Header = (BddPtr- >Header 

| CountBitMask) ) 

#define IsBddTagCountBit (BddPtr) ( (BddPtr) ->Header & CountBitMask) 

#define Re set BddTagCountBit (BddPtr) ( (BddPtr) ->Header = (BddPtr- >Header & 
CountBitMaskC) ) 

/* v 

/* occur bit operators */ 

/* #/ 

#define BddTagOccurBit (BddPtr) ( (BddPtr) - >Header = (BddPtr- >Header 

| OccurBitMask) ) 

#define IsBddTagOccurBit (BddPtr) ( (BddPtr) - >Header & OccurBitMask) 
#define ResetBddTagOccurBit (BddPtr) ( (BddPtr) ->Header = (BddPtr- >Header & 
OccurBitMaskC) ) 

/* v 

/* Cache Compose */ 
/* ic/ 

#def ine GetBddPtrCache Compose (BddPtr) ( (BddPtr) ->CacheCompose) 

#define SetBddPtrCacheCompose (BddPtr, H) ( (BddPtr) -> Cache Compose = H) 

/* 

I* Hook field */ 

/* a/ 

#define GetBddPtrHook (BddPtr) ( (BddPtr) ->Hook) 

#define SetBddPtrHook (BddPtr , H) ( (BddPtr) - >Hook = H) 

/ 

/* Type BDD_PTR */ 

/* v 

typedef BDD_REC *BDD_PTR; /* Pointer on BDDJREC with no types */ 

#define BDD__PTR_NULL ( (BDD_PTR) NULL) 

/* v 

/* BDD node is a pointer on the basic structure BDD_REC like BDD_PTR */ 

/* but with type definition encoded on the bit 0. ~~ */ 

/* Layout of BDD (pointer to BDD_REC record) : */ 
/* */ 

/* 31 30 29 28 27 26 1 I 0 I */ 

/* + ; *; 

/* I BDD_PTR | T ype | */ 

/* + + + */ 

/* */ 

/* #/ 

#define BDD_NULL ( (BDD) NULL) 

#define BDDTypeMask 0x00000001 /* Extract BDD T s type: */ 

/* 0 -> DIR, 1 -> INV */ 
#define BDDTypeMaskC OxFFFFFFFE 

#define BDD_PTRMask OxFFFFFFFC /* BDD pointer */ 

#define BDD_Z_MASK 0x00000002 /* 2 mask to build BDD Z */ 

#define BDD_X__MASK 0x00000003 /* X mask to build BDD X */ 

#define BDD_CONST_MASK 0x00000003 /* Constants are coded on */ 

/* 2 firt LSB bits. */ 
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#define BDD CONST MASK C 



#define GetBddType (Bdd) 
#define GetBddPtr (Bdd) 



OxFFFFFFFC /* Mask to remove constant */ 
/* encoded bits. */ 



#define SetBddTypeDIR (Bddl , Bdd2) 
BDDTypeMaskC) ) 

#define SetBddTypelNV (Bddl , Bdd2) 
#define SetBddPtrZ (Bddl, Bdd2) 
BDD_Z_MASK) ) 

#define SetBddPtrX (Bddl , Bdd2) 
BDD X MASK) ) 



( (Bdd) Sc BDDTypeMask) 

( <BDD_PTR) { (Bdd) & BDD_PTRMask) ) 

(Bddl = (BDD) ( ( { int ) Bdd2 ) & 

(Bddl = (BDD) ( ( (int)Bdd2) | BDDTypeMask)) 
(Bddl = (BDD) ( ( (int)Bdd2) | 

(Bddl = (BDD) ( ( (int)Bdd2) j 



#define IsBddTypeDIR (Bdd) 
#define IsBddTypelNV (Bdd) 

#define BddRmConstant (Bdd) 
#define BddConstant Index (Bdd) 



(! GetBddType (Bdd) ) 
(GetBddType (Bdd) ) 

{Bdd Sc BDD_CONST_MASK_C) 
(Bdd & BDD_CONS T_MAS K ) 
/* 4 values; */ 
/* 0 -> BDD__ONE */ 
/* 1 -> BDD_ZERO */ 
/* 2 -> BDD_Z */ 
/* 3 -> BDD_X */ 



#define GetBddFromBddPtr (BddPtr) 



( (BDD) BddPtr) 



/* 

/ * ConstantBdd * / 

z v 

/* Constants are 1, 0, X, Z. */ 
#define ConstantBdd (Bdd) ( (BddRmConstant (Bdd) == BDD_1) ? 1 : 0) 

#define BDD_1 (GLOB_BDD_WS - >BddOne ) 

#define BDD_0 (GLOB_JBDD__WS - >BddZero) 

#define BDD_Z (GLOBJBDD_WS->BddZ) 

#define BDD_X (GLOB_BDD_WS- >BddX) 

#define BDD_l_WS(ws) (ws->BddOne) 

#define BDD_0_WS(ws) (ws- >BddZero) 

#define BDD_Z_WS(ws) (ws->BddZ) 

#define BDD_X_WS (ws) (ws->BddX) 

#define BDD_Z_NOT_USED ( GLOB_BDD_WS - >BddZ_IsUsed == 0) 



/* ComplementBDD 



/* We complement only the pointer only if it not the BDD_Z and BDD_X */ 
/* ~ ie/ 

/* THIS MACRO IS NOT SUPPORTED WITH THE GCC 

ftdefine ComplementBDD (x) ( ( (x == BDD_X) || (x == BDD_Z) ) ? BDD_X : (x A 

BDDTypeMask) ) 

*/ 
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/* 

/* Type APPLY_CACHE */ 
/* 

typedef struct APPLY_CELL_STRUCT { 

BDD_PTR Bddl; 

BDD_PTR Bdd2 ; 

BDD BddRes; 

struct APPLY_CELL_STRUCT *Next; 
} APPLY_CELL_REC ; 

typedef APPLY_CELL_REC *APPLY_CELL; 

typedef struct AP PL Y_CACHE_S TRUCT { 
int NbConflicts ; 

int CacheSize; 

APPLY_CELL *Buckets; /* Of size CacheSize */ 

} APPLY_CACHE_REC; 

typedef APPLY CACHE REC *APPLY CACHE; 



/* 

/* Type BDD_CACHE */ 

/* 

typedef struct BDD_CACHE_STRUCT { 
int CacheSize ; 

BDD_PTR *Buckets; /* Of size CacheSize */ 

int NbConflicts; 
int NbDeadBddNode ; 

int NbBddNode ; 

} BDD__CACHE_REC ; 

typedef BDD^CACHEJREC *BDD_CACHE ; 



/* Type BDD_VAR */ 

typedef enum { BDD_INPUT , BDD_OUTPUT, BDD_INOUT } DIRECTION; 

typedef struct BDD_VAR_S TRUCT { 

char *Name; 

BDD Bdd; 

int Id; 

struct BDD_VAR_S TRUCT *Next ; 

int *Hook; 
} BDD_VAR_REC; 



typedef BDD_VAR_REC *BDD_VAR; 



#def ine 


BddVarName (b) 


( ( (b) 


- >Name) ) 


#def ine 


BddVarBdd(b) 


( ( (b) 


->Bdd) ) 


#def ine 


BddVarld <b) 


( ( (b) 


->Id)) 


#def ine 


BddVarNext (b) 


( ( (b) 


->Next) ) 


#def ine 


BddVarHook(b) 


( C (b) 


->Hook) ) 
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#define SetBddVarName (b, n) 
#define SetBddVarBdd (b, n) 
#define SetBddVarld (b, n) 
#define SetBddVarNext (b, n) 
#define SetBddVarHook (b, n) 



{ ( (b) ->Name - n) ) 
(({b)->Bdd = n)) 
( { (b) ->id = n) ) 
( ( (b) ->Next = n) ) 
( ( (b) ->Hook = n) ) 



/* 

/* Environment structure type to manage any BDDs 



■*/ 
■*/ 



/ 

typedef int (*CmpFunc) (Uint32 Idxl, Uint32 Idx2) ; 
typedef struct BDD_WS_STRUCT { 
/* General informations about the BDD work space 



char 
BLIST 
int 



int 



CmpFunc 



*WorkSpaceName ; 
Var; 

Uniqueld; /* 
/* 
/* 

IndexVarOrder; 



Compare Idx; 



/* name of the work space 
/* List of BDD_VAR */ 
next free unique id. */ 
Represents the number of Var */ 
created in The Bdd Ws . */ 
/* 0/1 -> Variable are sorted in*/ 

/* increasing/decreasing index 
/* order. */ 
Default is increasing order */ 



/* Memory Manager related informations 
OBJECT_PAGE CurrentApplyCellPage; 
APPLY_CELL FreedApplyCel 1 ; 

OB JECT_PAGE CurrentBddPage ; 
BDD_PTR FreedBdd; 



*/ 

/* Page of Apply cell rec.*/ 



/* Page of BDD records */ 
/* List of freed BDD PTR 



/* All the Caches (Hash tables) 

OrCache ; 
AndCache; 
ImpCache; 
EqCache ; 
RstCache; 
JoinCache ; 



APPLY_CACHE 
APPLY_CACHE 
APPLY^CACHE 
APPLY_CACHE 
APPLY_CACHE 
APPLY__CACHE 

BLIST 



BddCache ; 



/* List of BDD CACHE 



*/ 



*/ 



/* Specific BDD constants 
BDD BddOne; 
BDD BddZero; 
BDD BddZ ; 

BDD BddX; 



/* 
/* 



*/ 

/* The constant BDD 1. 

*/ 
*/ 



The constant BDD 0 , 
High impedance. 



/* Conflict. 



int 



BddZ_IsUsed; 



/* 1 -> Z is used in the 
/* package, 0 -> not used */ 



*/ 



/* BDD related informations. 

int MaxTotalBddCreat ed ; 



/* Max physical Bdd nodes */ 
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/* 

int MaxTotalUsedBddNode ; 

/* 

int TotalBddCreated; 

/* 

int TotalUsedBddNode ; 

/* 

int TotalCountBddNode ; 

/* 

int TotalBddDead; 

int TotalBddConf licts ; 

/* 
/* 



/* APPLY related informations. 

int TotalApplyConf licts ; 

int TotalApplySuccess ; 

int TotalApplyCreated ; 



allowed. */ 

/* Max used Bdd nodes in */ 
the Bdd cache. */ 

/* Number of physical */ 
created Bdd nodes. */ 

/* Number of current nodes*/ 
in the Bdd cache. */ 

/* Number of current nodes*/ 
counted and Marked. */ 

/* Number of dead nodes */ 

/* Number of conflict when*/ 
searching matching in */ 
the Bdd cache. */ 



*/ 



int TotalMemoryCalloc; /* Total memory allocated */ 

/* in this BDD work space */ 

} BDD_WS_REC; 
typedef BDD_WS_REC *BDD_WS; 



/* 

/* Type BDD_STATUS */ 

/* 

/* ERROR returned codes during BDD construction and manipulation. */ 
typedef enum { 

BDD JDK, /* Everything OK 1 */ 

BDD_MAX_NODE_CREATED, /* Error if the number of physical 

/* nodes created is greater than a */ 
/* certain number specified by the user*/ 

BDD_MAX__NODE_USED, /* Error if the number of used */ 

/* bdd nodes is greater than a */ 
/* certain number specified by the user*/ 

BDD_MAX_VAR_ID_REACHED, /* Max. Id Variables reached. 

BDD_CACHE_TOO_SMALL, /* Specified a too small BDD cache */ 

/* compare to # variable created after */ 
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O 
C 
H 

m 

m 

m 
O 
4= 

H 

m 
m 
m 
a 

a 



BDD_MEMORY_FULL /* No more memory available 
BDD STATUS ; 



/* EOF 

tendif 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

#include <stdio.h> 



File: 


bbddmem . c 


Version: 


1.1 


Modifications: 




Documentation: 




Class : none 




Inheritance : 





*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



#ifdef MEMORY 
#include <malloc.h> 
#endif 



/* If one wants memory statistics for SUN */ 



#include "blist.h" 
#include "bbdd.h" 

/* 

/* EXTERN */ 
/* 

extern BDD_WS GLOB_BDD_WS; /* Current global BDD work space */ 

extern BDDJPTR GetBddPtrFromBdd () ; 
extern Uint32 GetBddPtrRef Count () ; 

/* 

/* BDD_CALLOC */ 

/* / ^ 

/* Basic allocation in the BDD work space. If STAT is define then we */ 
/* compute the memory allocated and store this information in the BDD */ 
/* work space. */ 
/* 1 

#ifdef STAT 

Uint32 BDD_CALLOC (NbObj , SizeObj) 
Uint32 NbObj; 
Uint32 SizeObj; 

{ 

GLOB_BDD_WS->TotalMemoryCalloc += NbObj * SizeObj ; 
return ( (Uint32) calloc (NbObj, SizeObj) ); 

#else 

#define BDDjCALLOC calloc 
#endif 

/* 

/ ^ 

/* PageAl locate */ 

/ #/ 

/* Allocate a memory page of 'NbObj' objects of size 'SizeObj 1 . */ 

. */ 
/* ERROR: if no more memory, BDD_MEMORY FULL is returned */ 

/* -_ ; 

BDD_STATUS PageAllocate (NbObj, SizeObj, NewPage) 
int NbObj ; 
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int SizeObj; 
OB JECT_PAGE *NewPage ; 

{ 

if ((*NewPage - (OBJECT_PAGE) 

BDD_CALLOC (1, sizeof (OBJECT_PAGE__REC) ) ) ==NULL) 

return ( BDD_MEMORY FULL) ; 

} 

if ( ( (*NewPage) ->FirstObject = (int) BDD_CALLOC (1, NbObj *SizeObj ) ) == 
(int) NULL) 

{ 

free ( (char*) *NewPage) / 

*NewPage = NULL; 

return (BDD_MEMORY_FULL) ; 

} 

(*NewPage) ->NbObj = NbObj ; 

(*NewPage) - >NextFreeObj ect = (*NewPage) ->FirstObject ; 

(*NewPage) ->LastObject = (*NewPage) ->FirstObject + SizeObj * (NbObj -1) ; 
(*NewPage) ->NextPage = NULL; 

return (BDD_OK) ; 

} 

/* 

/* GetFreedBdd */ 
/* 

/* Returns the first Bdd node previously freed and returns it. All the 
/* fields of the returned BDD_PTR are set to NULL. If not available 
/* BDD_PTR encountered then BDD_PTR_NULL is returned. */ 
/* */ 
/ * ERROR : none * / 
/* 

BDD_PTR GetFreedBdd () 
{ 

BDD_PTR FreedBdd; 



/* actually no freed Bdd yet . . . 
if (GLOBJBDD_WS->FreedBdd == NULL) 
return { BDD__PTR__NULL ) ; 

FreedBdd = GLOB_BDD_WS -> FreedBdd ; 
GLOB_BDD_WS - > FreedBdd = FreedBdd - >Next ; 

memset ( (char*) FreedBdd, 0, sizeof (BDD_REC) ) ; 

return (FreedBdd) ; 



/* 

/* GetFreedApplyCell 
/* 
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/* Returns the first APPLY_CELL previously freed and returns it. All the*/ 
/* fields of the returned APPLY_CELL are set to NULL. If not available */ 
/* APPLY_CELL then return NULL. */ 

/* */ 

/* ERROR: none */ 

/* */ 

APPLY_CELL GetFreedApplyCell () 

{ 

APPLY_CELL FreedApplyCell ; 



/* actually no freed APPLY_CELL yet ... */ 
if (GLOB_BDD_WS~ > Free dApply Cell == NULL) 
return (NULL) ,* 

FreedApplyCell = GL0B_BDD_WS- >FreedApplyCell ; 
GLOB_BDD_WS - > FreedApplyCell = FreedApplyCell->Next ; 

memset ( (char*) FreedApplyCell, 0, sizeof (APPLY_CELL_REC) ) ; 

return (FreedApplyCell) ; 

} 



/* */ 

/* CreateBddNode */ 

/* */ 

/* Creation of a basic Bdd node either cominf from the previous freed */ 

/* Bdds or from a real physical allocation. */ 

/* */ 



BDD_STATUS CreateBddNode (Bdd) 
BDD_PTR *Bdd; 

{ 

OB JE CT_P AGE CurrentBddPage ; 
OBJECT_PAGE NewPage ; 
BDD_STATUS Status ; 



/* Another Bdd node used. */ 
GLOB_BDD_WS->TotalUsedBddNode++; 

/* Too many used Bdd nodes in the Bdd cache. */ 
if ( GLOB_BDD_WS - > To t a lUs edBddNode > GLOB_BDD_WS- >MaxTotalUsedBddNode) 
return (BDD_MAX_NODE_USED) ; 

/* First we try to pick up a previous freed BDD */ 
if ((*Bdd = GetFreedBdd ()) 1= BDD_NULL) 
return (BDD_OK) ; 

/* If not, we try to pick up one in the current allocated BDD page */ 
CurrentBddPage = GLOB_BDD_WS - > CurrentBddPage; 

/* If the current page is full then we create a new one. */ 
if (CurrentBddPage- >PageFull) 

{ 
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if ((Status = PageAllocate (BDD__PAGE_SIZE, sizeof (BDD_REC) , 
ScNewPage) ) ) 

return (Status) ; 

NewPage->NextPage = CurrentBddPage; 
GLOB_BDD_WS->CurrentBddPage = NewPage; 
CurrentBddPage = GLOB_BDD_WS - > Current BddPage; 

*Bdd = (BDDJPTR) CurrentBddPage- >NextFreeObj ect; 

if ( CurrentBddPage ->NextFreeObject == CurrentBddPage- >LastObj ect) 

CurrentBddPage- >PageFull = 1; 
else 

CurrentBddPage - >NextFreeObj ect += sizeof (BDD_REC) ; 

/* The Bdd node is created physically */ 
GLOB_BDD_WS - >TotalBddCreated++ ; 

/* Too many physical Bdd nodes created. */ 
if (GLOB_BDD_WS->TotalBddCreated > GLOB_BDD JaTS - >MaxTotalBddCreated) 
return (BDD_MAX_NODE_CREATED) ; 

return (BDD_OK) ; 



FrozenBddNode 


*/ 




We froze the Bdd node by 


setting its ref count to the max one. 


This 


protect the Bdd from any 


Free afterwhile. 


*/ 



int FrozenBddNode (BddPtr) 
BDD_PTR BddPtr; 

{ 

return (GetBddPtrRef Count (BddPtr) == BDD_MAXREFCOUNT) ; 



/ v 

/* FreePhysicalBdd */ 

/* v 

/* We add the Bdd Ptr "BddPtr" in the global list of previously freed */ 
/* Bdd nodes "GLOB_BDD WS-FreedBdd" . */ 

/* : * 7 

void FreePhysicalBdd (BddPtr) 
BDD_PTR BddPtr; 

{ 

if (GLOB_BDD_WS->FreedBdd == BDD PTR NULL) 
{ ~ ~ 

GLOB_BDD_WS->FreedBdd = BddPtr; 
BddPtr- >Next = BDD_PTR__NULL ; 
return; 

} 



BddPtr- >Next = GLOB_BDD__WS - >FreedBdd ; 
GLOB__BDD_WS - >FreedBdd = BddPtr; 
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/* FreeApplyCell */ 

/* , 

/* We free the current apply cell "ApplyCell" and store it in the list */ 
/* GLOB_BDD_WS-FreedApplyCell of the BDD work space. */ 

/*;- */ 

void FreeApplyCell (ApplyCell) 
APPLY_CELL ApplyCell ; 

{ 

if (GLOB_BDD_WS->FreedApplyCell =- NULL) 
{ 

GLOB__BDD_WS->FreedApplyCell = ApplyCell; 

ApplyCell ->Next = NULL; 

return; 

} 

ApplyCell ->Next = GLOB_BDD_WS->FreedApplyCell; 
GLOB_BDD_WS->FreedApplyCell = ApplyCell; 

} 

*/ 



/* 



/* SubBucketGarbageCollector */ 
/ #/ 

/* We collect the Dead bdd nodes of the Bucket "Cache [Index] " . All the */ 
/* collected Bdd nodes are removed from the Bdd Cache and added in the */ 
/* list "GLOB_BDD_WS->FreedBdd" thru the function "FreePhysicalBdd" . */ 



/ 

void SubBucketGarbageCollector (Cache, Index 
BLIST Cache; 
int Index; 



{ 



BDD_PTR PreviousSSBucket ; 
BDD_PTR AuxSSBucket ; 
BDD_PTR SSBucket ; 
int i ; 

BDDjSTATUS Status; 



for (i=0; i<BDD_PTR_SUB CACHE SIZE; i++) 

{ 

PreviousSSBucket = BDD_PTR_NULL ; 

SSBucket = {GetCache (Cache, Index) ) ->Buckets [i] ; 
while (SSBucket != BDD PTR NULL) 
{ ~ " 

if (GetBddPtrRef Count (SSBucket) == 0) 
{ 

AuxSSBucket = SSBucket; 

if (PreviousSSBucket == BDD PTR NULL) 

{ ~ " 

GetCache (Cache, Index) ->Buckets [i] = 

GetBddPtrNext (SSBucket) ; 
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SSBucket = GetCache (Cache, Index) ->Buckets [i] ; 

else 
{ 

/* We skip the SSBucket by joining its previous */ 
/* SSBucket and its next one. */ 
SetBddPtrNext (PreviousSSBucket , 

GetBddPtrNext (SSBucket) ) ; 
^SSBucket = GetBddPtrNext (PreviousSSBucket) ; 

(void) FreePhysicalBdd (AuxSSBucket ) ; 

GetCache (Cache, Index) - >NbDeadBddNode- - ; 
GLOB_BDD_WS->TotalBddDead- - ; 
GetCache (Cache, Index) - >NbBddNode - - ; 

/* no more Dead node in this Bucket so we can stop */ 
if (GetCache {Cache, Index) - >NbDeadBddNode == 0) 
break; 

} 

else 

{ 

PreviousSSBucket = SSBucket; 
SSBucket = GetBddPtrNext (SSBucket) ; 

} 

/* no more Dead node in this Bucket so we can stop */ 
if (GetCache (Cache, Index) - >NbDeadBddNode =« 0) 
break; 

} 



} 



/* , 

/ 

/* MaxDeadBddReached */ 

z* v 

/* If the number of dead nodes "dead" is more than 10% of the created */ 
/* bdd nodes "Created" then we collect the corresponding subckt . */ 

z* v 

int MaxDeadBddReached (Dead, Created) 
int Dead; 
int Created; 

{ 

if (10*Dead > Created) 
return (1) ; 

return (0) ; 

} 



/* 

I* BddGarbageCollector */ 

z* #/ 

/* The garbage collector scans each bucket associated to each variable */ 
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/* and if the "dead condition 1 ' is reached on this bucket then we collect*/ 
/* all the dead nodes in it. */ 



void BddGarbageCollector () 

{ 

int i ; 

BLIST BddCache; 



BddCache = GLOB_BDD_WS - >BddCache ; 

for (i=0; i<BIjistSize (BddCache); i++) 
{ 

if (MaxDeadBddReached (GetCache (BddCache, i) ->NbDeadBddNode / 

GetCache (BddCache, i) - >NbBddNode ) ) 
(void) SubBucketGarbageCollector (BddCache, i) ; 



/* FreeBddRec */ 

/* v 

/* Recursive code of the main function "FreeBdd" . We decrement the Ref */ 
/* count of the Bdd and if this one becomes 0 then we propagate recursi-*/ 
/* vely the Free on its sons since they have one less reference. We also*/ 
/* update the fact that one more Bdd is Dead for a special bucket of the*/ 
/* bdd cache. 

/* 

BDD_STATUS FreeBddRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 
BDD_STATUS Status; 
BLIST Cache; 



/ 

*/ 



if (ConstantBdd (Bdd) ) 
return (BDD_OK) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

if (FrozenBddNode (BddPtr) ) 
return (BDD_OK) ; 

/* If the Reference count is 0 then we just decrement it. */ 
if (GetBddPtrRef Count (BddPtr) > 1) 
{ 

BddPtr- >Header - = l ; 
return (BDDJ3K) ; 

} 

if (GetBddPtrRef Count (BddPtr) 0) /* should never occur */ 

fprintf (stderr, "BDD- WARNING: attempt to free an already freed 
Bdd\n») ; 
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} 



return (BDD_OK) ; 

} 

/* We pass from a Ref count = 1 to 0. So the Bdd becomes dead. We */ 
/* may need to delete its corresponding BDD_CELL in the Bdd cache. */ 
/* This will be performed during the garbage collecting phase. */ 
GLOB_BDD_WS- >TotalBddDead++ ; 
Cache = GLOB__BDD_WS - >BddCache ; 

(GetCache (Cache, GetBddPtrlndex (BddPtr) ) ->NbDeadBddNode) ++; 

/* We free the sons since they are not pointed anymoe by the current */ 
/* Bdd that we are removing. */ 
if ((Status = FreeBddRec (GetBddPtrEdgel (BddPtr)))) 
return (Status) ; 

if ( (Status = FreeBddRec (GetBddPtrEdgeO (BddPtr) ) ) ) 
return (Status) ; 

BddPtr- >Header 1; 

return (BDD OK) ; 



/* itf 

/* FreeBdd */ 

/* v 

/* We free the BDD (either virtually or physically) and check if any */ 
/* garbage collection must be performed and invokes it if yes. Garbage */ 
/* is done if more than 10% of the BDD nodes are dead ones. */ 
/* i(/ 

BDD_STATUS FreeBdd (Bdd) 
BDD Bdd; 

{ 

BDDJSTATUS Status; 



Status = FreeBddRec (Bdd) ; 

/* If more than 50% of Bdd created are dead then we call the garbage */ 

/* collector. */ 

if (GLOB_BDD_WS- >TotalBddDead*2 > GLOB_BDD_WS->TotalBddCreated) 

(void) BddGarbageCollector ( ) ; 

} 

return (Status) ; 



/* it/ 

/* CreateApplyCell */ 

/* v 

/* Creation of a basic apply cell in order to store apply informations. */ 
/* This object constitutes the basic object of any Apply caches. */ 

/* v 

BDD_STATUS CreateApplyCell (NewCell) 
APPLY_CELL *NewCell; 
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OBJECT_PAGE Current ApplyCellPage ; 
OBJECT___PAGE NewPage ; 
BDD_STATUS Status ; 



/* First we try to pick up a previous freed APPLY_CELL */ 
if ((*NewCell = GetFreedApplyCell ( ) ) != NULL) 
return (BDD_OK) ; 

CurrentApplyCellPage = GLOB_BDD_WS - >Cur rent ApplyCellPage ; 

/* If the current page is full then we create a new one. */ 
if (CurrentApplyCellPage ->PageFull) 

{ 

if ((Status = PageAllocate (APPLY_PAGE_SIZE, sizeof (APPLY_CELL_REC) , 

&NewPage) ) ) 

return (Status) ; 

NewPage- >NextPage = CurrentApplyCellPage; 
GLOB_BDD__WS->Current ApplyCellPage = NewPage; 
^CurrentApplyCellPage = GLOB_BDD_WS -> Cur rent Apply Cell Page; 

*NewCell = (APPLY_CELL) CurrentApplyCellPage- >NextFreeObj ect ; 
if (CurrentApplyCellPage->NextFreeObject CurrentApplyCellPage - 
>LastObject) 

CurrentApplyCellPage- >PageFull = 1; 
else 

CurrentApplyCellPage->NextFreeObject += sizeof (APPLY_CELL_REC) ; 
GLOB__BDD_WS - >Tot alApplyCreat ed++ ; 
return (BDD_OK) ; 



/* v 

/* CreateApplyCache */ 
/* 

/* Creation of a cache (hash table) of Apply cells. */ 

BDD__STATUS CreateApplyCache (NewCache) 
APPLYJCACHE *NewCache ; 

{ 

if ((*NewCache = (APPLY_CACHE) BDD_CALLOC (1, 

sizeof (APPLY_CACHE_REC) ) ) == NULL) 

return (BDD_MEMORY_FULL) ; 

if ( ( (*NewCache) ->Buckets = (APPLY_CELL*) BDD_CALLOC (APPLY_CACHE_SIZE, 

sizeof (APPLY_CELL) ) ) == NULlY 

return ( BDD__MEMOR Y_FULL ) ; 
(*NewCache) ->CacheSize - AP PL Y_CACHE SIZE; 
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return <BDD_OK) ; 

} 



/* */ 

/* CreateBddCache */ 

/* */ 

/* Creation of the unique Bdd table/cache */ 

/* */ 

BDD_STATUS CreateBddCache (MaxVar, NewCache) 
int MaxVar; 
BLIST *NewCache; 

{ 

int i ; 



if (BListCreateWithSize (MaxVar, NewCache)) 
return (BDD_MEMORY__FULL) ; 

return (BDD_OK) ; 

} 



/* 

/* CreateBddVar */ 

/* 

/* Creation of a primary Var requiring its name as parameter. A unique */ 

/* Id is given to this var. An associated Bdd is contructed and added in*/ 

/ * the unique Bdd table . * / 

/* CAUTION: the name is pointed by one of the field of the 'Var' so take*/ 

/* care when you free it to update the name field of 'Var'. */ 

/* */ 

BDD_STATUS CreateBddVar (Name, Var) 
char *Name; 
BDD_VAR *Var; 

{ 

BDD_PTR NewBdd; 
BDD_STATUS Status ; 

BDD_CACHE NewCache ; 



++ (GLOB_BDD_WS->UniqueId) ; 

/* The current new index is greater or equal than the max allowed */ 
if ( <Uint32) (GL0B_BDD_WS- >UniqueId) >= BDD_MAX INDEX) 
return (BDD_MAX_VAR_ID_REACHED) ; 

if ((*Var= (BDD_VAR)BDD_CALLOC (1, sizeof (BDD_VAR_REC) ) ) == NULL) 
return (BDD_MEMORY_FULL) ; 

/* Adding the new variable in the main list of variables. */ 
/* Its index is by construction the current value of Uniqueld. */ 
if (BListAddElt (GLOB_BDD_WS->Var , (int) (*Var) ) ) 
return (BDD_MEMORY_FULL) ; 

/* we create a new cache for this variable in the list BddCache */ 
if ((NewCache = (BDD_CACHE) calloc (1, sizeof (BDD_CACHE_REC) ) ) == NULL) 

return ( BDD_MEMORY__FULL ) ; 
if (BListAddElt (GLOB_BDD_WS->BddCache , ( int ) NewCache) ) 

return (BDD_MEMORY_FULL) ; 
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if ( (NewCache->Buckets = (BDD_PTR*) BDD_CALLOC (BDD_PTR_SUB_CACHE__SIZE, 

sizeof (BDD_PTR) ) ) == NULL) 

return (BDD_MEMORY_FULL) / 
NewCache->CacheSize = BDD_PTR_SUB_CACHE_SIZE ; 

/* Creating and adding in the Bdd cache. */ 
if ((Status = AddOrGetBddlnCache (GLOB_BDD_WS - >BddCache , 

GLOB_BDD__WS - >Unique Id , 
BDD_1 , BDD__0, &NewBdd) ) ) 

return (Status) ; 



(void)bdd_freeze (NewBdd) ; /* This Bdd is frozen */ 

(*Var)->Name = Name; 

(*Var)->Bdd = GetBddFromBddPtr (NewBdd); 
(*Var)->Id = GLOB_BDDJrfS->UniqueId; 



return (BDDJDK) ; 



} 



/* 

/* SystemMemoryGet */ 

/* i!/ 

/* get info on memory usage, works only for SUN machines */ 
/* 

int SystemMemoryGet () 

{ 

#ifdef MEMORY 

struct mallinfo Info; 



Info = mallinfo (); 

return (Inf o.uordblks + Inf o . usmblks) 
#else 

return (0) ; 
#endif 



} 

/* ic/ 

/* FreeBddWorkSpace */ 

/* *i 

/* This function frees completly the BDD work space and garuantees a */ 
/* 0 -memory leak between the call of "InitBddWorkSpace" and itself. */ 
/* *i 

void FreeBddWorkSpace (Ws) 
BDDJtfS Ws ; 

{ 

int i ; 

OB JECT_PAGE Current Page ; 

OB JECT_PAGE PreviousPage ; 

APPLY_CELL ApplyCell ; 

APPLY_CELL PreviousApplyCell ; 

BLIST Cache; 



free ( (char* ) Ws - >WorkSpaceName) ; 
for (i=l; i<=Ws->UniqueId; i++) 
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{ 



if (Ws->Var) 
{ 

free { (char*) GetWsBddVar (Ws, i) ) ; 

} 

} 

BListQuickDelete (&(Ws->Var) ) ; 

CurrentPage = Ws->CurrentApplyCellPage; 
while (CurrentPage) 

{ 

PreviousPage = CurrentPage; 
CurrentPage = CurrentPage ~>NextPage; 

free ( (char*) PreviousPage- >FirstObject ) ; 
free { (char* ) PreviousPage) ; 

} 

CurrentPage = Ws->CurrentBddPage; 
whi 1 e ( CurrentPage ) 

{ 

PreviousPage = CurrentPage; 
CurrentPage = CurrentPage- >NextPage; 

free ( (char*) PreviousPage ->FirstObject) ; 
free { (char*) PreviousPage) ; 



} 



free 
free 
free 
free 
free 
free 
free 
free 
free 
free 
free 
free 



(char*) Ws->OrCache->Buckets) ; 

(char*) Ws~>OrCache) ; 

(char*) Ws->AndCache->Buckets) ; 

(char*) Ws->AndCache) ; 

(char*) Ws->ImpCache->Buckets) ; 

(char*) Ws->ImpCache) ; 

(char*) Ws->EqCache->Buckets) ; 

(char*) Ws->EqCache) ; 

(char*) Ws->RstCache->Buckets) ; 

(char*) Ws->RstCache) ; 

( char * ) Ws - > JoinCache - >Buckets ) ; 

(char*) Ws->JoinCache) ; 



Cache = Ws->BddCache; 

for (i=l; i<BListSize (Cache); i++) 



free { (char*) (GetCache (Cache, i) ->Buckets) ) ; 



BListQuickDelete (&Cache) ; 
free ((char*)Ws); 
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/* 






*/ 






/* 
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*/ 


/* 
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*/ 




/* 
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- 




*/ 




/* 


Documentation : 


- 




*/ 




/* 






*/ 






/* 


Class: none 






*/ 




/* 


Inheritance : 






*/ 




/* 






*/ 






/* 






*/ 






/*--- 













#include <stdio.h> 
#include <string.h> 
#include <malloc.h> 



#include "blist. h" 



/* 

/* BListCreateWithSize */ 

/* 

/* This function creates a list of "size" elements. It returns 0 if 

/* everything is OK and 1 if there was something wrong. Blist will be 

/* the new allocated list. */ 

/* 

int BListCreateWithSize (Size, Blist) 
int Size; 
BLIST *Blist; 

{ 

BLIST *r; 



if ((*Blist = (BLIST) calloc (1, sizeof (BLIST_REC) ) ) == NULL) 
return (1) ; 



} 



(*Blist) ->Size = (Size > 0 ? Size : 1) ; 
(*Blist) ->NbElt = 0; 



if ( ( (*Blist) ->Adress = 

(int*) calloc ( (*Blist) ->Size / sizeof (int) ) ) == NULL) 

{ 

free ( (char*) (*Blist) ) ; 
*Blist = NULL; 
return (1) ; 

} 

return (0) ; 



/* 

/* BListCreate 
/* 
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/* Creates a default BList with a default size of 2 */ 
/* 

int BListCreate (Blist) 
BLIST *Blist; 

{ 

return (BListCreateWithSize (2, Blist)); 

} 

/* 

/* BListQuickDelete */ 

/* 

void BListQuickDelete (L) 
BLIST *L; 

{ 

if <*L) 
{ 

free {(char *) (*L) ->Adress) ; 
free { (char *) *L) ; 
*L = NULL; 

} 

} 



BListDelShift 


*/ 




Returns 1 if failed and 0 if success. 




*/ 



int BListDelShift (L, Rank) 
BLIST L; 
int Rank; 

{ 

int i ; 

if (Rank <= 0) 
return (0) ; 

if (Rank > L->NbElt) 

{ 

return (1) ; 

} 

for (i = Rank; i < L->NbElt ; i++) 

(L->Adress) [i-l] - (L->Adress) [i] ; 
L- >NbElt- - ; 

return (0) ; 

} 



BListDellnsert 


*/ 




Returns 1 if failed and 0 if success. 




*/ 



int BListDellnsert (L, Rank) 
BLIST L; 
int Rank; 
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{ 

if (Rank <= 0) 
return (0) ; 

if {Rank > L->NbElt) 
{ 

return (1) ; 

} 

(L->Adress) [Rank - 1] = (L->Adress) [L->NbElt - 1] ; 
L->NbElt- - ; 

return (0) ; 

} 

/* 

/* BListAddElt */ 

/* 

int BListAddElt (L, Elt) 
BLIST L; 
int Elt; 

{ 

if (L->NbElt >= L->Size) 

{ 

L->Size * = 2; 

if ({L->Adress = (int*) realloc ((char*) (L->Adress) , 

(unsigned) (L->Size) * sizeof (int))) == NULL) 

return (1) ; 

} 

(L->Adress) [L- >NbElt ] = Elt; 
L->NbElt++; 

return (0) ; 

} 



/* 

/* Intldentical 

/* 

int Intldentical (II, 12) 
int II, 12; 

{ 

return (II 12) ; 

} 

/* 

/* Stringldentical 

/* 

int Stringldentical (SI, S2) 
char *S1; 
char *S2; 

{ 

return (istrcmp (SI, S2)); 

} 
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/* 

/* BListMemberOfList 

/* 

int BListMemberOfList (LI, Elt, Elemldentical) 
BLIST LI; 
int Elt; 
IntFctPtr Elemldentical; 

{ 

int i ; 

int *stopl; 

int * eleml; 



if (LI == NULL) 
return (0) ; 

i = 1 ; 

for (stopl = (eleml = Ll->Adress) + LI - >NbElt ; 

eleml < stopl; eleml++, i++) 

if ( (*ElemIdentical) (*eleml, Elt)) 
return (i) ; 

return (0) ; 

} 



/* 

/* BListElemFree */ 

/* 

void BListElemFree (Elem) 
int *Elem; 

{ 

free ( (char *) *Elem) ; 
*Elem - ( int) NULL; 

} 

/* 

/* BListDelete */ 

/* 

void BListDelete (L, ElemDelete) 
BLIST *L; 
VoidFctPtr ElemDelete ; 

{ 

int *stopl; 
int *eleml; 

if (*L) 

{ 

for (stopl = (eleml = ( *L) - >Adress) + (*L) - >NbElt ; eleml < stopl;) 

ElemDelete (eleml++) ; 
BListQuickDelete (L) ; 

} 

} 

/* 

/* BListlnsertlnList */ 
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/* */ 

int BListlnsertlnList <L, Elt, Rank) 
BLIST L; 
int Elt; 
int Rank; 

{ 

int i ; 



if ((Rank > BListSize (L) +1) || (Rank <= 0) ) 
{ 

return (1) ; 

} 

else 
{ 

BListAddElt (L, Elt) ; 

for (i = L->NbElt - 1/ i >= Rank; i--) 

(L->Adress) [i] = (L->Adress) [i - 1] ; 
(L->Adress) [Rank-1] = Elt; 

return (0) ; 

} 

} 



/* */ 

/* BListCopyNoEltCr */ 

/* */ 

/* Copy a list of elements but do not copy physically the elements. */ 

/* Returns 1 if failure and 0 if success. */ 

/* */ 

int BListCopyNoEltCr (L, Lcopy) 
BLIST L; 
BLIST *Lcopy; 

{ 



int i ; 



if (L == NULL) 
{ 

*Lcopy = NULL; 
return (0) ; 

} 

if (BListCreate (Lcopy) ) 
return (1) ; 

for (i = 0; i < L->NbElt; i++) 

if (BListAddElt (*Lcopy, (int) L->Adress [i] ) ) 
return (1) ; 

return (0) ; 

} 



/* *i 

/* BListUnionNoEltCr */ 

/* #/ 

int BListUnionNoEltCr (LI, L2 , UnionList) 
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BLIST LI; 

BLIST L2; 

BLIST * UnionList; 

int i ; 



if (LI == NULL) 

{ 

if (BListCopyNoEltCr (L2, UnionList) ) 
return (1) / 

} 

else 

{ 

if (BListCopyNoEltCr (LI, UnionList)) 
return (1) ; 



for (i = 0; i < BListSize (L2) ; i++) 
{ 

if ( IBListMemberOfList (LI, BListElt (L2, i) , Intldentical) ) 
if (BListAddElt (*UnionList, BListElt (L2, i) ) ) 
return (1) ; 

} 

} 



return (0) ; 

} 



/* 

/* BListlntersectionNoEltCr */ 

/* 

/* returns the intersection of LI and L2 according to the comparison 
/* function between two elements if no intersection returns NULL */ 
/* 

int BListlntersectionNoEltCr (LI, L2 , Elemldentical , InterList) 
BLIST LI; 
BLIST L2; 

IntFctPtr Elemldentical ; 

BLIST * InterList; 

{ 

int i ; 



if ( (LI == NULL) | | (L2 == NULL) ) 
{ 

*InterList = NULL; 
return (0) ; 

} 



if (BListCreate (InterList)) 
return (1) ; 



for (i = 0; i < BListSize (LI); i++) 

if (BListMemberOfList (L2, BListElt (LI , i) , Elemldentical)) 
if (BListAddElt (*InterList, BListElt (LI, i) ) ) 
return (1) ; 
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if (BListSize (*InterList) == 0) 

{ 

BListQuickDelete (InterList) ; 
*InterList = NULL; 
return (0) ; 

} 



return (0) ; 

} 

/* 

/* BLi st Append */ 
/* 

int BListAppend (LI, L2) 
BLIST LI; 
BLIST *L2; 

{ 

int i ; 



if { ! (*L2) ) 
return (0) ; 

for (i=0; i<BListSize (*L2) ; i++) 

{ 

if (BListAddElt (LI, BListElt (*L2, i) ) ) 
return (1) ; 

} 

BListQuickDelete (L2) ; 
return (0) ; 

} 



BListAddNoEltCr 


*/ 




Adds L2 to LI without destroying L2 




*/ 



int BListAddNoEltCr (LI, L2) 
BLIST LI; 
BLIST L2; 

{ 

int i; 

if (L2) 
{ 

for (i=0; i<BListSize (L2); i++) 
{ 

if (BListAddElt (LI, BListElt (L2, i) ) ) 
return (1) ; 

} 

} 

return (0) ; 

} 
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/* */ 

/* BListContextualldentical */ 

/* ie/ 

int BListContextualldentical (LI, L2, Elemldentical, Context) 
BLIST LI; 
BLIST L2; 

IntFctPtr Elemldentical ; 

int * Context; 



{ 



int *eleml 

int *elem2 

int *stopl 

int *stop2 



stopl = (eleml = Ll->Adress) + Ll->NbElt; 
stop2 = (elem2 = L2->Adress) + L2 ->NbElt ; 
do 

{ 

while (1) 
{ 

if (elem2 == stop2) 
return (0) ; 

if (Elemldentical (* (elem2++) , *eleml, Context)) 
break; 

} 

elem2 = L2->Adress; 

} 

while (++eleml < stopl) ; 

eleml = Ll->Adress; 
elem2 = L2->Adress; 
do 

{ 

while (1) 

{ 

if (eleml == stopl) 
return (0) ; 

if (Elemldentical (*(eleml++), *elem2, Context)) 
break; 

} 

eleml = Ll->Adress; 

} 

while (++elem2 < stop2) ; 
return (!) ; 



/* end of file 
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blist. e 



/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



/* 

/* BListCreateWithSize */ 

/* 

/* This function creates a list of "size" elements. It returns 0 if 

/* everything is OK and 1 if there was something wrong. Blist will be 

/* the new allocated list. */ 

/* 

extern int BListCreateWithSize (/* Size, Blist */) ; 
/* 

int Size; 
BLIST *Blist; 

*/ 

/* 
/* 
/* 
/* 
/* 

extern int BListCreate (/* Blist */) ; 
/* 

BLIST *Blist; 

*/ 

/* 

/* BListQuickDelete 

/* 

extern void BListQuickDelete (/* L */) ; 
/* 

BLIST *L; 

*/ 



BListCreate 


*/ 




Creates a default BList with a default size of 10 




*/ 



BListDelShift 


*/ 




Returns 1 if failed and 0 if success. 




*/ 



extern int BListDelShift (/* L, Rank */) ; 
/* 

BLIST L; 

int Rank; 

*/ 
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BListDel Insert 


*/ 




Returns 1 if failed and 0 if success. 




*/ 



extern int BListDel Insert (/* L, Rank */) ; 
/* 

BLIST L; 

int Rank ; 

*/ 



/* 

/* BListAddElt */ 
/* 

extern int BListAddElt (/* L, Elt */); 
/* 

BLIST L; 
int Elt; 

*/ 



/* 

/* Intldentical 

/* 

extern int Intldentical (/* II, 12 */) ; 
/* 

int II, 12; 

*/ 



/* 

/* Stringldentical 

/* 

extern int Stringldentical (/* SI, S2 */) ; 
/* 

char *S1; 
char *S2; 

*/ 



/* 

/* BListMemberOfList */ 
/* 

extern int BListMemberOfList (/* LI, Elt, Elemldentical */),- 

/* 

BLIST LI ; 

int Elt; 
IntFctPtr Elemldentical ,- 

*/ 



/* 

/* BListElemFree */ 
/* 

extern void BListElemFree (/* Elem */) ; 

/* 

int *Elem; 

*/ 
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/* BListDelete */ 
/* 

extern void BListDelete (/* L, ElemDelete */) ; 

/* 

BLIST *L; 
VoidFctPtr ElemDelete; 

*/ 



/* 

/* BListlnsertlnList */ 
/* 

extern int BListlnsertlnList (/* L, Elt, Rank */) ; 

/* 

BLIST L; 
int Elt; 
int Rank; 

*/ 



/* 

/* BListCopyNoEltCr */ 

/* 

/* Copy a list of elements but do not copy physically the elements. 

/* Returns 1 if failure and 0 if success. */ 

/* 

extern int BListCopyNoEltCr (/* L, Lcopy */) ; 
/* 

BLIST L; 
BLIST *Lcopy; 

*/ 



/* 

/* BListUnionNoEltCr */ 

/* 

/* returns the union of LI and L2 according to the comparison function 

/* between two elements. Add elemnts of L2 to LI which is returned 

/* 

extern int BListUnionNoEltCr (/* LI, L2 , Elemldentical , UnionList */) ; 
/* 

BLIST LI; 
BLIST L2; 

IntFctPtr Elemldentical ; 

BLIST *UnionList; 

*/ 

/* 

/* BListlntersectionNoEltCr */ 

/* 

/* returns the intersection of Ll and L2 according to the comparison 
/* function between two elements if no intersection returns NULL */ 
/* 

extern int BListlntersectionNoEltCr (/* Ll, L2, Elemldentical, InterList 
/* 

BLIST Ll; 
BLIST L2; 

IntFctPtr Elemldentical ; 

BLIST * InterList ; 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

#ifndef BLIST_H 
ftdefine BLIST_H 

typedef struct BLIST_STRUCT { 
int Size; 
int NbElt ; 

int *Adress; 







*/ 
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*/ 


*/ 




Class : none 






*/ 




Inheritance : 




*/ 


*/ 





} 



BLIST REC , *BLIST ; 



typedef int (*IntFctPtr) () ; 
typedef int * ( *PtIntFctPtr) () 
typedef int <*EltFctPtr) () ; 
typedef void (*VoidFctPtr) () 



/* 

/* DEFINE 

/* 

#def ine 
#def ine 
#def ine 
#def ine 

/* 

#endif 



■*/ 
■*/ 



BSize (L) 
BListAdress (L) 
BListSize (L) 
BListElt (L, Index) 



(((L) 



( (L) ->NbElt) 
( (L) ->Adress) 

( ( (L) ==NULL) ?0: (L) ->NbElt) 
->Adress) [ (Index) ] ) 

. EOF 



■*/ 
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/* */ 

/* */ 
/* File: gnl.h */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* */ 

#ifndef GNL_H 
#define GNL_H 

/* 

/* DEFINE */ 
/* */ 

#define GNL TOOL NAME " HUBBLE -RTL" 



#define GNL_MAP INVERSION "12.0 Alpha" 



#define HASH_TABLE_NAMES_SIZE 500001 
#define SMALL_HASH_TABLE_NAMES_S IZE 100 
#define HASH_TABLE_COMPO_NAMES__SIZE 1000 
#define HASH LIST PATH COMPO SIZE 1 



/* */ 

/* GNL_STATUS */ 

/* */ 

typedef enum { 
GNLJ3K, 

GNL_VAR_EXISTS, 
GNL__VAR_NOT_EX I STS , 
GNL_BAD_ARG_NUMBER , 
GNL_UNKNOWN_GATE , 
GNL_VAR_REDEF INED , 
GNL_BAD_CLOCK_DEFINITION, 
GNL_BAD_GNL, 
GNL_MULTI SOURCE , 
GNL _MAP_ERROR , 
GNL_C YCLE_DETE CTED , 
GNL_BAD_INSTANCE_INTERFACE , 
GNL_CANNOT_OPEN_INPUTFILE , 
GNL_CANNOT_OPEN_OUTFILE , 
GNL_CANNOT__OPEN_L IBRARY , 
GNL_CANNOT_FIND_TOP_LEVEL , 
GNL_ERROR_LIBRARY_READING , 
GNL_BAD_FSM_FOR_SYNTHESIS , 
GNL_FSM_PARSE_ERROR , 
GNL JBAD_INPUT_FORMAT , 
GNL_MEMORY_FULL , 

GNL_UNRE SOLVED , 

GNL_UNRESOLVED_AT_XOR_BUILD , 

GNL_UNRE SOL VED__AT_BUI LD_CUTPO I NT , 

GNL_UNRESOLVED_AT_EXTRACTION , 

GNL_EQUIVALENT , 

GNL JBQUIVALENT_AT_XOR_BUILD , 

GNL_EQUIVALENT_PHASE0 , 
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GNL_EQUIVALENT_PHASE1 , 
GNL_EQUIVALENT_PHASE2 , 
GNL_ERROR_DETECTED , 
GNL_ERROR_DETECTED_PHASE0 , 
GNL_ERR0R_DETECTED_PHASE1 , 
GNL__ERR0R_DETECTED_PHASE2 , 
GNL_ERROR_DETECTED__PHASE0_ONLY_INPUTS / 
GNL__ERR0R_DETECTED_PHASE1__0NLY_INPUTS / 
GNL_ERR0R_DETECTED_PHASE2_0NLY_INPUTS / 
GNL_ERRORJDETECTED_AT_XOR_BUI LD 
} GNL_STATUS; 

/* */ 

/* GNLJTYPE */ 
/* */ 

typedef enum { 

GNL_USER, 

GNL_CELL 
} GNLJTYPE; 

/* */ 

/* GNL_VAR_DIR */ 

/* */ 

/* CAUTION I */ 

/* The char value of these macros must be strictly greater than the */ 

/* values of the macro of the type GNL__OP. */ 

/* Please keep the order and keep GNL__VAR_LOCAL as lowest char value */ 

/* CAUTION: do not touch the macro below and char values associated to */ 

/* GNL_VAR_DIR and GNL_OP ! */ 

/* */ 

typedef char GNL_VAR_DIR; 

#define GNL_VAR_LO CAL 'a' /* ascii 97 */ 

#define GNL_VAR_LO CAL__W I R I NG 'b* /* ascii 98 */ 

#define GNL__VAR_INPUT 'c 1 /* ascii 99 */ 

#define GNL_VAR_INOUT 'd' /* ascii 100 */ 

#define GNL_VAR_OUTPUT 1 e' /* ascii 101 */ 

#define GNL_VAR__LOCAL_UNDRIVEN 'f /* ascii 102 */ 

#define GNL_VAR_LOCAL_DONTCARE 'g' /* ascii 103 */ 

#define GNL__VAR_FS M_FUNCT I ON 'h* /* ascii 104 */ 

#define GNL__S TATE_VAR 'i» /* ascii 105 */ 

#define GNL_OUT_STATE_VAR 'j* /*asciil06 */ 

#define GNL__VAR_FSM_BLACK_BOX 'k 1 /* ascii 107 */ 

#define GNL_VAR_FS M_B LACK_BOX_ INOUT '1' /* ascii 108 */ 

/* */ 

/* GNL_VAR_TYPE */ 

/* */ 

/* Var can be of two types: GNL__VAR_OR I G I NAL if it has been defined */ 
/* originally by the user or GNL_VAR_EXPANSED if it has been generated */ 
/* internally by a Bus expansion process. */ 
/* */ 

typedef char GNL_VAR_TYPE ; 

tfdefine GNL_VAR_OR I G INAL l O' /* Originally from User */ 

#define GNL_VAR_EXPANSED 1 E ' /* From a bus expansion */ 

#define GNL_VAR__ INTERNAL 'I' /* created internally */ 
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/* 

/* GNL_FORM_OUTPUT 

/* 

/* Forms of outputs for any sequential component. */ 

/* 

typedef char GNL_FORM_OUTPUT ; 

#define GNL_Q_QBAR 'p* /* It has two outputs Q and !Q 

#define GNL_Q 'q' /* It has one output Q */ 

#define GNL_QBAR ' r l /* It has one output IQ */ 



/* 

/* GNLJTRIG 

/* 

/* Signals behaviors in GNL */ 
typedef enum { 

GNL_NO_TRIG, 

GNL_RISING, 

GNL_FALLING, 

GNL_LOW_LEVEL, 

GNL_H I GH_LE VEL 
} GNL_TRIG; 



/* 

/* GNL_OP 

/* 

/* CAUTION ! */ 

/* The char value of these macros must be strictly less than the values 

/* of the macro of the type GNL_VAR_D I R */ 

/* CAUTION: do not touch the macro below and char values associated to 

/* GNL_VAR_DIR and GNL_OP ! */ 

/* 

typedef char GNL_OP; 



#def ine 


GNL_AND 


'A 


/* 


ascii 


65 




*/ 


#def ine 


GNL_NAND 1 B 1 


/* 


ascii 


66 




*/ 




#def ine 


GNL_OR 


'C 


/* 


ascii 


67 




*/ 


#def ine 


GNL_NOR 


' D 


/* 


ascii 


68 




*/ 


#def ine 


GNL__NOT 


! E 


/* 


ascii 


69 




*/ 


#def ine 


GNL_XOR 


1 F 1 


/* 


ascii 


70 




*/ 


#def ine 


GNL_XNOR ' G 1 


/* 


ascii 


71 




*/ 




#def ine 


GNL_WIRE 'H' 


/* 


ascii 


72 




*/ 




#def ine 


GNL_VAR I ABLE 


'I' 


/* 


ascii 


73 




*/ 


#def ine 


GNL_CONSTANTE 


'J' 


/* 


ascii 


74 




*/ 



/* Special operator in netlist. Only used to concatante signals for an 
/* actual port in a component instanciation (cf . GNL__ASS0C) */ 
#define GNL_CONCAT ! K' /* ascii 75 */ 

/* 

/* GNL_S EQUENT I AL_0 P 

/* 

/* Operators for sequential components. */ 
/* 

typedef enum { 

GNL_DFF, /* Flip-Flop with no reset nor set. */ 
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GNL_ 


_DFFX, 


/* 


gnl] 


[dffo , 


/* 


gnl~ 


"dffi, 


/* 


gnl] 


]latch, 


/* 


GNL_ 


_LATCHX , 




GNL_ 


_LATCHO , 




GNL~ 


"latchi 





} GNL_SEQUENTIAL_OP; 



Flip-Flop with set/reset, X 
Flip-Flop with set/reset, 0 
Flip-Flop with set/reset, 1 
Latch with no reset nor set. 
/* Latch with set/reset, 
/* Latch with set/reset, 
/* Latch with set/reset, 



value when both */ 
value when both */ 
value when both */ 
*/ 

X value when both 

0 value when both 

1 value when both 



/* 

/* GNL_COMPONENT_TYPE 

/* 

typedef char GNL_COMPONENT_TYPE ; 

#define GNL_SEQUENTIAL_COMPO 'S* 

#define GNL_TRISTATE_COMPO 'T' 

#define GNL_MACRO_COMPO ! M' 

#define GNLJJSER_COMPO 'U' 

#define GNL_BUF_COMPO 'V 1 

#define GNL BIDIR COMPO 'W 



/* 

/* GNL VAR STRUCT 



'/ 



/* 

/* NOTE: a GNL_VAR with Msb = Lsb = -1 means a Var with a undefined 

/* range. */ 

/* 

typedef struct GNL_VAR_S TRUCT 

{ 



/* the first field must be ' GNL_VAR DIR 



Dir; ' 



*/ 



GNL_ VAR_D I R 
*/ 

GNL_VAR_TYPE 

short int 

short int 

char 

int 

int 

int 
BLIST 



*/ 



char 

int 

float 

void 



Dir; /* GNL_VAR__LOCAL , GNL VAR INPUT , 



Type; /* Expansed, original or internal 



Msb; 
Lsb; 



*/ 
*/ 



/* Most significant bit 
/* Least significant bit 
*Name ; 

Id ; /* Unique Id identifying the Var. 

Rank; /* Rank in the list */ 
/* { Inputs+Outputs+Locals} 
♦Function; /* The function the var points on */ 

Dads; /* Elts of type <GNL__NODE>. List of 

/* nodes which point on this Variable. 

♦Location; /* Location */ 

Tag; /* Tag for traversal algorithms 
OutCapa;/* for NL Delay mapping. */ 
*Hook; /* to hook any particular structure 



GNL_VAR_REC , * GNL_VAR ; 

/* Usefull to determine if a presupposed GNL_VAR object is a true */ 
/* GNL_VAR . (because GNL NODE and GNL VAR are sometimes unified like in 
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/* the GNL_ASSOC structure for field Actual) . */ 

/* CAUTION: do not touch the macro below and char values associated to */ 



/* GNL_VAR_D I R and GNL_OP ! 
#define GnlVarlsVar (v) 

#define GnlVarDir(v) 
#define GnlVarType (v) 
#define GnlVarMsb (v) 
#def ine GnlVarLsb (v) 
#define GnlVarName (v) 
#define GnlVarld (v) 
#define GnlVarRank (v) 
#define GnlVarDriveFuncId (v) 
#define GnlVarDi stance (v) 
#define GnlVarFunction (v) 
#def ine GnlVarDads (v) 
#define GnlVarLocation (v) 
#define GnlVarTag (v) 
#define GnlVarOutCapa (v) 
#define GnlVarHook (v) 



({(v)->Dir) > = GNL VAR LOCAL) 



{ (v) ->Dir) ) 
{ (v) ->Type) ) 
{ (v) ->Msb) ) 
( (v) ->Lsb) ) 
{ (v) ->Name) ) 
( (v) ->id) ) 
( (v) ->Rank) ) 
( (v) ->Rank) ) 
( (v) ->Rank) ) 
( GNL_FUNCT I ON ) ( (v 
( (v) ->Dads) ) 
( (v) ->Location) ) 
( (v) ->Tag) ) 
( (v) ->OutCapa) ) 
( (v) ->Hook) ) 



/* in fsm read mode */ 
/* in verification mode */ 
>Function) ) 



#define SetGnlVarDir (v, d) ( ( (v) 

#define SetGnlVarType (v, t ) ( ( (v) 

#define SetGnlVarMsb (v,m) ( ( (v) 

#def ine SetGnlVarLsb (v, 1) ( ( (v) 

#define SetGnlVarName (v, n) ( ( (v) 

#def ine SetGnlVarld (v, i) ( { < v ) 

#define SetGnlVarRank (v, r) ( ( (v) 
#define SetGnlVarDriveFuncId (v, r) { ( (v) 
#define SetGnlVarDi stance (v, r) 
*/ 

#define SetGnlVarFunction {v, f ) 

#define SetGnlVarDads (v, d) ( { (v) 

#define SetGnlVarLocation (v, In) 

#def ine SetGnlVarTag (v, t) ( { (v) 

#def ine SetGnlVarOutCapa (v, t) ( ( (v) 

#def ine SetGnlVarHook <v, h) ( ( (v) 



•>Dir = d) ) 
>Type = t) ) 
>Msb = m) ) 
>Lsb = 1) ) 



>Name 
>Id = 
>Rank 
>Rank 
( ( (v) 



= n)) 
i)) 
= r)) 
= r)) 
->Rank 



/* fsm mode */ 

= r) ) /* verif .mode 



( ( (v) ->Function = (int*)f)) 
->Dads = d) ) 

( ( (v) ->Location - In) ) 
->Tag = t) ) 
->OutCapa = t) ) 
->Hook = (void*)h) ) 



/* 

/* GNL CUBE STRUCT 



*/ 
*/ 



/* 

typedef struct GNL_CUBE_STRUCT 
{ 

unsigned *High; 
unsigned *Low; 



GNL_CUBE_REC , *GNL__CUBE ; 

#define GnlCubeHigh (c) 
#define GnlCubeLow (c) 

#define SetGnlCubeHigh (c, h) 
#define SetGnlCubeLow (c, 1) 



/* 

/* GNL_NODE_S TRUCT 
/* 



( ( (c) ->High) ) 
( ( (c) ->Low) ) 



(((c) 
(((c) 



>High = h)) 
>Low = 1) ) 



V 

*/ 
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/* 
/* 
/* 
/* 
/* 
/* 

/* 

#define SEGMENT NODE SIZE 



This structure represents the Node of a Boolean Tree. General Node 
operators are classical Boolean operators like GNL_AND, GNL_OR or 
GNLJSTOT. They can be also GNL_VARIABLE , then the list of sons is the 
pointer to the GNL_VAR variable. */ 
It can be otherwise a GNL_CONSTANT representing either the 
Boolean values: 0 (The field Sons is 0) or 1 {The field Sons is 1). 



100 



*/ 
*/ 
*/ 

*/ 
*/ 
*/ 



typedef struct GNL_NOD E_S TRUCT 

{ 

/* The first field must be ! GNL_OP 
GNL_OP Op; 



Op; ' 



*/ 



BLIST 

BLIST 

int 

int 

void 

void 



Sons; 
Dads ; 
LineNumber; 
Tag; 

*OriginalCompo ; 
*Hook ; 



/* List of <GNL_NODE> */ 
/* List of <GNL NODE> */ 



GNL_NODE REC, *GNL NODE; 



#define GnlNodeTag (n) 
#define GnlNodeOp (n) 
#def ine GnlNodeSons (n) 
#def ine GnlNodeDads (n) 
#define GnlNodeLineNumber (n) 



<(<n) 
(((n) 
( ( (n) 
( ( (n) 
(((n) 



#def ine GnlMapNodelnf oOriginalCompo (n) 
#define GnlNodeHook (n) ( ( (n) 



>Tag) ) 

>Op) ) 
■>Sons) ) 
•>Dads) ) 

>LineNumber) ) 

( ( (n) ->OriginalCompo) 

>Hook) ) 



#define SetGnlNodeTag {n, t) ({(n)->Tag = t) ) 

#define SetGnlNodeOp (n, o) ({(n)->Op = o) ) 

#define SetGnlNodeSons (n, s) ( ( (n) ->Sons = s) ) 

tdefine SetGnlNodeDads (n, d) ( ( (n) ->Dads = d) ) 

#define SetGnl Node LineNumber (n, d) ( ( (n) ->LineNumber 
#define SetGnlMapNodelnf oOriginalCompo (n, d) { ( (n) - 

#define SetGnlNodeHook (n, h) (((n)->Hook = h) ) 



= d)) 

>OriginalCompo 



d)) 



/* 

/* GNL_FUNCTION_STRUCT */ 
/* 

typedef struct GNL_FUNCT 1 0N_S TRUCT 

{ 

GNL_VAR FctVar; /* Variable corresponding to the function 

GNL_N0DE OnSet; 

BLIST ListOnCubes ; 

GNL_NODE DCSet; 

BLIST ListDCCubes ; 

GNL NODE ZSet; 



*/ 
*/ 



GNL_FUNCTION_REC , * GNL_FUNCT I ON ; 

#define GnlFunctionVar (f ) 
#define GnlFunctionOnSet ( f ) 
#define Gnl FunctionOnSet Cubes (f) 
#define GnlFunctionDCSet (f ) 



( ( (f ) ->FctVar) ) 

(((f)->0nSet)) 

( ( (f ) ->ListOnCubes) 

(((f)->DCSet)) 
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#def ine GnlFunctionDCSetCubes (f ) ( ( (f ) - >ListDCCubes) ) 

ttdefine GnlFunctionZSet (f ) { ( (f ) ->ZSet) ) 

#define SetGnlFunctionVar {£ , v) ( { (f ) ->FctVar = v) ) 

#define SetGnlFunctionOnSet (f , o) (((f)->OnSet = o) ) 

#define SetGnlFunctionOnSetCubes (f , c) ( ( (f ) - >ListOnCubes = c) ) 

#define SetGnlFunctionDCSet (f , dc) (((f)->DCSet = dc) ) 

#define SetGnlFunctionDCSetCubes <f , c) ( ( (f ) ->ListDCCubes = c) ) 

#define SetGnlFunctionZSet (f , dc) (((f)->ZSet = dc) ) 

/* 

/* GNL_CONSTRAINT */ 

/* 

typedef struct GNL_CONSTRAINT_STRUCT 

{ 

GNL_KODE Node ; 

int Value; 

} 

GNL_CONSTRAINT_REC , *GNL_CONSTRAINT ; 

#def ine GnlConstraintNode (c) ( ( (c) ->Node) ) 

#def ine GnlConstraintValue (c) (((c) ->Value) ) 

#define SetGnlConstraintNode (c , n) ( { (c) ->Node = n) ) 

#define SetGnlCons traint Value (c,v) ( ( (c) ->Value = v) ) 

/* 

/* GNL_ASSOC */ 

/* 

typedef struct GNL_ASSOC_STRUCT 

{ 

void *FormalPort ; 

GNL_VAR ActualPort; /* It is generally a GNL_VAR object but */ 

/* it can be also a GNL_NODE with op. */ 
/* set to GNL_CONCAT */ 
/* This can be determined thru the first*/ 
/* field of the structure pointed by */ 
/* 'ActualPort ' . */ 

void *Hook; 

} 

GNL_ASSOC_REC, *GNL_ASSOC ; 

#def ine GnlAssocFormalPort (a) ( ( (a) - >FormalPort) ) 

#def ine GnlAssocActualPort (a) ( ( (a) - >ActualPort) ) 

ftdefine GnlAssocHook (a) ( ( (a) ->Hook) ) 

#define SetGnlAssocFormalPort (a, f ) ( ( (a) -> Formal Port = f ) ) 
#def ine SetGnlAssocActualPort (a, f ) ( ( (a) ->ActualPort = f ) ) 
#define SetGnlAssocHook (a, f ) ( ( (a) ->Hook = f ) ) 

/* 

/* GML_USER__COMPOMENT */ 

/* 

#define GNL_FORMAL_CHAR 'O 1 
#define GNL_FORMAL_VAR »1' 
typedef struct GNL_USER COMPONENT STRUCT 

{ 
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/* This field must be the first of the structure 

GNL_COMPONENT_TYPE Type ; 



char 
char 
char 



BLIST 

void 

void 

int 

void 



*Name ; 

* Ins tanceName ; 
FormalType; 

/* Type of formal ports in the interface*/ 
/* GNL_FORMAL_CHAR --> char *, or */ 
/* GNL_FORMAL_VAR --> GNL_VAR */ 
Interface; /* List of [GNL_ASSOC] */ 



*GnlDef ; 
*CellDef ; 
LineNumber ; 
*Hook; 



/* Gnl to which it refers. * 
/* Lib Cell to which it refers. 



7 



GNL USER COMPONENT REC, *GNL USER COMPONENT 



tdefine GnlUserComponentType (c) 

#define GnlUserComponentName (c) 

#define GnlUserComponentlnstName (c) {((c) 

#def ine GnlUser Component Formal Type (c) 

#def ine GnlUserComponent Inter f ace (c) 

#define GnlUserComponentGnlDef (c) (((c) 

#def ine GnlUserComponentCellDef (c) ( ( (c) 

#def ine GnlUserComponentLineNumber (c) 

#define GnlUserComponentHook (c) 

#def ine GnlUserComponentEquivCells (c) 



( ( (c) ->Type) ) 

( ( (c) ->Name) ) 
- >Ins tanceName) ) 

(((c) ->FormalType) ) 

( ( (c) ->Interface) ) 
->GnlDef ) ) 
->CellDef ) ) 

(((c) ->LineNumber) ) 

( ( (c) ->Hook) ) 

(((c)->Hook)) 



#def ine SetGnlUserComponentType (c,n) 

#def ine SetGnlUserComponentName (c,n) 

#def ine SetGnlUserComponentlnstName (c,n) (((c)- 

#def ine SetGnlUserComponentFormalType (c , n) 

#define SetGnlUserComponentlnterf ace (c , n) (((c)- 

#def ine SetGnlUserComponentGnlDef ( c , n) 

#def ine SetGnlUserComponentCellDef (c,n) 

#def ine SetGnlUserComponentLineNumber (c, n) 

#def ine SetGnlUserComponentHook (c,n) 

#def ine SetGnlUserComponentEquivCells (c , n) 



( ( (c) ->Type = n) ) 

( ( (c) ->Name = n) ) 

> Ins tanceName = n) ) 

( ( (c) ->FormalType = n) ) 

>Interf ace = n) ) 

( ( (c) ->GnlDef = n) ) 

( ( (c) ->CellDef - n) ) 

(((c) ->LineNumber = n) ) 

( ( (c) ->Hook = n) ) 

( ( (c) ->Hook - n) ) 



/* 

/* GNL_TR I STATE_COMPONENT 
/* 



*/ 



typedef struct GNL_TRISTATE_COMPONENT STRUCT 

{ 

/* This field must be the first of the structure ! 
GNL_COMPONENT_TYPE Type ; 



*/ 



char * Ins tanceName ; 

BLIST Interface/ /* [Input , Output , Select] */ 

int InputPol; 

int SelectPol; 

void *Hook; 

} 

GNL_TRISTATE_COMPONENT_REC , *GNL_TRISTATE_COMPONENT; 

#define GnlGetAssoc {c , i) \ 

( (GNL_ASSOC) BListElt ( (c) ->Interface, i) ) 
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#def ine GnlAssocActualPort (a) ( ( (a) ->ActualPort ) ) 

#def ine GnlTriStateType (c) ( ( (c) ->Type) ) 

#def ine GnlTriStatelnstName (c) ( ( (c) ->InstanceName) ) 

#def ine GnlTriStatelnterf ace (c) ( ( (c) ->Interface) ) 

#def ine GnlTriStatelnputAssoc (c) (GnlGetAssoc (c, 0) ) 

#define GnlTriStatelnput (c) \ 

GnlAssocActualPort (GnlTriStatelnputAssoc (c) ) 
#define GnlTriStatelnputPol (c) ( { (c) ->InputPol) ) 

#def ine GnlTriStateOutputAssoc (c) (GnlGetAssoc (c, 1} ) 
#define GnlTriStateOutput (c) \ 

GnlAssocActualPort (GnlTriStateOutputAssoc (c) ) 
#def ine GnlTriStateSelectAssoc (c) (GnlGetAssoc {c, 2) ) 
#define GnlTriStateSelect (c) \ 

GnlAssocActualPort (GnlTriStateSelectAssoc (c) ) 
#def ine GnlTriStateSelectPol (c) ( ( (c) ->SelectPol) ) 

#define GnlTriStateHook (c) ( ( (c) ->Hook) ) 

#define SetGnlTriStateType (c , n) {((c)->Type = n) ) 

#define SetGnlTriStatelnstName (c, n) ( ( (c) ->InstanceName = n) ) 
#define SetGnlTriStatelnterf ace (c , n) ( ( (c) ->Interface = n) ) 

#define SetGnlTriStatelnput (c, n) \ 

SetGnlAssocActualPort (GnlGetAssoc {c,0) ,n) 
#define SetGnlTriStatelnputPol (c , n) ( ( (c) ->InputPol = n) ) 
#define SetGnlTriStateOutput (c, n) \ 

SetGnlAssocActualPort (GnlGetAssoc (c, 1) ,n) 
#define SetGnlTriStateSelect (c , n) \ 

SetGnlAssocActualPort (GnlGetAssoc (c, 2) # n) 
#define SetGnlTriStateSelectPol (c , n) ( ( (c) ->SelectPol = n) ) 

#define SetGnlTriStateHook (c , n) ( ( (c) ->Hook = n) ) 

/* ±i 

/* GNL_SEQUENTIAL_C0MPONENT */ 

/* it/ 

typedef struct GNL_SEQUENTIAL_COMPONENT STRUCT 
{ 

/* This field must be the first of the structure ! */ 
GNL_COMPONENT_T YPE Typ e ; 

GNL_S EQUENT I AL_0 P Op ; 

GNL_FORM_OUTPUT FormOutputS; /* GNL_Q_QBAR , GNL_Q, GNL_QBAR */ 

char *InstanceNarae ; 

BLIST Interface; /* [Input, Output, OutputBar, */ 

/* Clock, Reset, Set] */ 

int ClockPol ; 

int ResetPol; 
int SetPol; 
void *Hook; 

} 

GNL_SEQUENTIAL_COMPONENT_REC , * GNL_S EQUENT I AL_COMPONENT ; 

#def ine GnlSequentialCompoType (pb) ( ( (pb) ->Type) ) 

#define GnlSequentialCompoOp (pb) ( ( (pb) ->Op) ) 

#def ine GnlSequentialCompoFormOutput (pb) ( ( (pb) ->FormOutputs) ) 

#define Gnl Sequent ialCompoInstName (pb) ( { (pb) - >InstanceName) ) 

#def ine GnlSequentialCompoInterf ace (pb) ( ( (pb) ->Interface) ) 

#def ine GnlSequentialCompoInputAssoc (pb) (GnlGetAssoc (pb, 0) ) 
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#def ine GnlSequentialCompoInput (pb) \ 

GnlAssocActualPort (GnlSequentialCompoInput Assoc (pb) ) 
#def ine GnlSequentialCompoOutputAssoc (pb) (GnlGetAssoc (pb, 1) ) 
#def ine GnlSequentialCompoOutput (pb) \ 

GnlAssocActualPort (GnlSequentialCompoOutputAssoc (pb) ) 
#def ine GnlSequentialCompoOutputBarAssoc (pb) (GnlGetAssoc (pb, 2) ) 
#define GnlSequentialCompoOutputBar (pb) \ 

GnlAssocActualPort ( GnlSequentialCompoOutput BarAssoc (pb) ) 
#def ine GnlSequentialCompoClockAssoc (pb) (GnlGetAssoc (pb, 3) ) 
#define GnlSequentialCompoClock (pb) \ 

GnlAssocActualPort (GnlSequentialCompoClockAssoc (pb) ) 
#def ine GnlSequentialCompoClockPol (pb) ( ( (pb) ->ClockPol) ) 

#define GnlSequentialCompoResetAssoc (pb) (GnlGetAssoc (pb, 4) ) 
#define GnlSequentialCompoReset (pb) \ 

GnlAssocActualPort (GnlSequentialCompoResetAssoc (pb) ) 
#def ine GnlSequentialCompoResetPol (pb) ( ( (pb) ->ResetPol) ) 

#def ine GnlSequentialCompoSetAssoc (pb) (GnlGetAssoc (pb, 5) ) 

#define GnlSequentialCompoSet (pb) \ 

GnlAssocActualPort (GnlSequentialCompoSetAssoc (pb) ) 
#def ine GnlSequentialCompoSetPol (pb) ( ( (pb) ->SetPol) ) 

#define GnlSequentialCompoHook (pb) ( ( (pb) ->Hook) ) 

#define SetGnlSequentialCompoType (pb, o) (((pb)->Type = o) ) 

#define SetGnlSequentialCompoOp (pb, o) ({(pb)->Op = o) ) 

#define SetGnlSequentialCompoFormOutput (pb, o) ( ( (pb) ->FormOutputs = o) ) 
#define Se tGnl Sequent ialCompoInstName (pb, n) ( ( (pb) ->InstanceName = n) ) 

#define SetGnlSequentialCompoInterf ace (pb, n) ( ( (pb) ->Interface = n) ) 

#define SetGnlSequentialCompoInput (pb, i) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb, 0) , i) 
#define Set GnlSequentialCompoOutput (pb, o) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb, 1) ,o) 
#define SetGnlSequentialCompoOutputBar (pb, o) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb, 2) ,o) 
#define SetGnlSequentialCompoClock (pb, c) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb, 3) ,c) 
#define SetGnlSequentialCompoClockPol (pb, ct) ( ( (pb) ->ClockPol - ct) ) 
#define SetGnlSequentialCompoReset (pb, r) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb,4) , r) 
#define SetGnlSequentialCompoResetPol (pb, r) ( ( (pb) ->ResetPol = r) ) 

#define SetGnlSequentialCompoSet (pb, s) \ 

SetGnlAssocActualPort (GnlGetAssoc (pb, 5) , s) 
#define SetGnlSequentialCompoSetPol (pb, s) ( ( (pb) ->SetPol = s) ) 
#define SetGnlSequentialCompoHook (pb, h) ( ( (pb) ->Hook = h) ) 

/* */ 

/* GNL_BIDIR_COMPONENT */ 

/* */ 

typedef struct GNL__B ID I R_COMPONENT_S TRUCT 

{ 

/* This field must be the first of the structure 1 */ 
GNL_COMPONENT_TYPE Type ; 

GNL_VAR Input ; 

GNL_VAR Output; 

} 

GKL_BIDIR_COMPONENT_REC , *GNL_BIDIR_COMPONENT ; 
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#define GnlBidirType (c) ( ( (c) - >Type) ) 

#def ine GnlBidir Input (c) ( ( (c) ->Input) ) 

#def ine GnlBidirOutput (c) ( { (c) ->Output) ) 

#define SetGnlBidirType (c, n) (({c)->Type = n) ) 

#define SetGnlBidirlnput (c , n) (((c)->Input = n) ) 

#define SetGnlBidirOutput (c , n) ( ( (c) ->Output = n) ) 

/* ±/ 

/* GNL_BUF_COMPONENT */ 

/* 

typedef struct GNL_BUF__COMPONENT_STRUCT 

{ 

/* This field must be the first of the structure ! */ 
GNL_COMPONENT_TYPE Type ; 

char * Ins tanceName ; 

BLIST Interface; 
void *Hook; 

} 

GNL_B UF_COMPONENT_REC , * GNL_BUF_COMPONENT ; 

#def ine GnlBufType (c) ({(c) ->Type) ) 

#def ine GnlBuf InstName (c) ( ( (c) -> Ins tanceName) ) 

#define GnlBuf Interface (c) { ( (c) - >Interf ace) ) 

#define GnlBuf Input Assoc (c) (GnlGetAssoc (c , 0 ) ) 

#define GnlBuf Input (c) \ 

GnlAssocActualPort (GnlBuf InputAssoc (c) ) 
#define GnlBuf Output Assoc (c) (GnlGetAssoc (c , 1) ) 

#define GnlBuf Output (c) \ 

GnlAssocActualPort (GnlBuf OutputAssoc (c) ) 
#def ine GnlBufHook (c) ( ( (c) ->Hook) ) 

#define SetGnlBuf Type (c , n) (((c)->Type = n) ) 
#def ine SetGnlBuf InstName (c,n) ( ( (c) ->InstanceName - n) ) 

#define SetGnlBuf Interface (c, n) ( ( (c) ->Interface = n) ) 

#define SetGnlBuf Input (c, n) \ 

SetGnlAssocActualPort (GnlBuf InputAssoc (c) ,n) 
#define SetGnlBuf Output (c , n) \ 

SetGnlAssocActualPort (GnlBuf OutputAssoc (c) , n) 
#define SetGnlBuf Hook (c, n) ( { (c) ->Hook = n) ) 

/* ie/ 

I* GNL_COMPONENT */ 

/* 1t/ 

typedef struct GNL__COMPONENT_S TRUCT 

{ 

GNL_COMPONENT_TYPE Type; /* GNL_SEQUENTIAL_COMPO , */ 

/* GNL__TR I S TATE_COMPO , */ 
/* GNL_BUF_COMPO, */ 
/* GNL__MACRO_COMPO, */ 
/* GNL_USER_COMPO */ 
/* GNL_BIDIR__COMPO */ 

GNL_COMPONENT_REC 7 *GNL_COMPONENT ; 

#def ine Gnl Component Type (c) ( ( (c) ->Type) ) 



B-CORE-115 



gnl.h 



tdefine SetGnlComponentType (c, t) (((c)->Type = t) ) 

/* 

/* GNL_CLOCK_VAR */ 

/* 

typedef struct GNL_CLOCK VAR STRUCT 

{ 

GNL_VAR Clock ; 

BLIST ListComponents; /* List of GNL_SEQUENTIAL_COMPONENT 

void *Hook; 

} 

GNL_CLOCK_VAR_REC , *GNL_CL0CK_VAR ; 

#define GnlClockVarClock (c) { ( (c) - >Clock) ) 

#def ine GnlClockVarComponents (c) ( ( (c) ->List Components) ) 

#define GnlClockVarHook (c) ( { (c) ->Hook) ) 

ttdefine SetGnlClockVarClock (c, cl) (((c)->Clock = cl) ) 

#define SetGnlClockVarComponents <c , b) (( (c) ->List Components = b) ) 

#define SetGnlClockVarHook (c , b) { ( (c) ->Hook = b) ) 



/* 

/ * GNL_PATH_COMPONENT * / 
/* 

typedef struct GNL_PATH COMPONENT STRUCT 

{ 

GNL_USER_COMPONENT Component ; 

struct GNL_PATH_COMPONENT STRUCT *Previous; 

} 

GNL_PATH_C0MP0NENT_REC , *GNL_PATH_C0MP0NENT ; 

#define Gnl Pat hComponent Component (c) ( (c) ->Component) 

#def ine GnlPathComponentPrevious (c) ( (c) ->Previous) 

#define SetGnlPathComponent Component (c # w) ( (c) - >Component = w) 
#define SetGnlPathComponentPrevious {c , w) ( (c) - >Previous = w) 



/* 

/* GNL_STRUCT */ 

/* ^ 

typedef struct GNL STRUCT 
{ 

int Uniqueld; 
int Tag; 

int Ref Count; /* Reference counter */ 

GNL_TYPE Type; 

char *Name; 

char *SourceFileName ; 

BLIST ListSourceFiles ; 

unsigned Status; 

BLIST ListPorts; 

BL ^ST HasTableNames; /* Hash Tables of GNL_VAR */ 

BLIST HasTableCompoNames; /* Hash Tables of names of */ 

/* user components */ 

int Instanceld; 
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/* GNL_N0DE management */ 



BLIST NodesSegments; /* Segments of GNL_NODE */ 

GNL_NODE Fi r s tNode ; 

GNL_NODE Las tNode; 

BLIST ListFreeNodes ; 

int Nbln; 

int NbOut; 

int NbLocal ; 

BLIST InputVars; /* List of GNL_VAR */ 

BLIST OutputVars; /* List of GNL_VAR */ 

BLIST Local Vars; /* List of GNL_VAR */ 

BLIST Functions; /* List of GNL_VAR */ 

BLIST ListClocks; /* List of GNL_CLOCK_VAR */ 

BLIST Li st Components; /* Sequential, user and macros 

*/ 

/* components. */ 

int NbDffs; 

int NbLatches; 

int NbTri states; 

int NbBuffers; 

int NbLitt; 

int LineNumber; 



/* List of Paths of Component which uses the current Gnl . 

/* objects are of type [BLIST] . 

/* This is a Hash List of [ GNL_P ATH_COM PONENT ] 

BLIST ListPathComponent ; 

/* fields to store data information. 



Pointed 
*/ 

*/ 



double 

double 

int 

int 

float 

float 



Area ; 
NetArea ; 
Depth; 
MaxFanout ; 

TechMax; 

TechMin; 



/* fields to store FSM- input related information. 



BLIST 
BLIST 



ListStateVar; 
HashListFsmVar; 



/* List of GNL_VAR */ 
/* Hash list of fsm vars. */ 



struct GNL__STRUCT 
void 



*SynthesizedGnl ; 
*Hook ; 



GNL_REC , *GNL; 



#define GnlUniqueld (g) 

#define GnlTag(g) 

#define GnlRef Count (g) 

#def ine GnlType (g) 

#define GnlName (g) 

#define GnlSourceFileName (g) 

ttdefine GnlListSourceFiles (g) 

#define GnlStatus(g) 

#def ine GnlListPorts (g) 

#def ine GnlHashNames (g) 

#def ine GnlHashCompoNames (g) 



( ( (g) ->UniqueId) ) 
({(g)->Tag)) 
( ( (g) ->Ref Count) ) 
( ( (g) ->Type) ) 
(g) ->Name) ) 

(g) ->SourceFileName) ) 

(g) ->ListSourceFiles) ) 

(g) ->Status) ) 

(g) ->ListPorts) ) 

(g) ->HasTableNames) ) 

(g) ->HasTableCompoNames) ) 
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#def ine 


Gnllnstanceld (g) 


(((g) 


->lnstanceld) ) 


#def ine 


GnlNodesSegments (g) 


(((g) 


- >Nodes Segments) ) 


#def ine 


GnlFirstNode (g) 


(((g) 


->FirstNode) ) 


#def ine 


GnlLastNode (g) 


(((g) 


->LastNode) ) 


#def ine 


GnlListFreeNodes (g) 


(((g) 


->ListFreeNodes) ) 


#def ine 


GnlNbln(g) 


(((g) 


->NbIn) ) 


#def ine 


GnlNbOut (g) 


(((g) 


->NbOut) ) 


#def ine 


GnlNbLocal (g) 


(((g) 


->NbLocal) ) 


#def ine 


Gnllnputs (g) 


(((g) 


->InputVars) ) 


#def ine 


Gnl Outputs (g) 


(((g) 


->OutputVars) ) 


#def ine 


GnlLocals (g) 


(((g) 


->LocalVars) ) 


#def ine 


GnlFunctions (g) 


(((g) 


->Functions) ) 


#def ine 


GnlClocks (g) 


( ( (g) 


->ListClocks) ) 


#def ine 


Gnl Components (g) 


(((g) 


- > Li st Components) ) 


#def ine 


GnlNbDf f s (g) 


( ( (g) 


->NbDff s) ) 


#def ine 


GnlNbLatches (g) 


( ( (g) 


->NbLatches) ) 


#def ine 


GnlNbTristates (g) 


( ( (g) 


~>NbTristates) ) 


#def ine 


GnlNbBuf f ers (g) 


(((g) 


->NbBuffers) ) 


#def ine 


GnlNbLitt (g) 


(((g) 


->NbLitt) ) 


#def ine 


GnlListPathComponent (g) 




( ( (g) ->ListPathComponent) ) 


#def ine 


GnlLineNumber (g) 


( ( (g) 


->LineNumber) ) 


#def ine 


Gnl Are a (g) 


( ( (g) 


~>Area) ) 


#def ine 


GnlNetArea (g) 


( ( (g) 


->NetArea) ) 


#def ine 


GnlDepth (g) 


( ( (g) 


->Depth) ) 


#def ine 


GnlMaxFanout (g) 


(((g) 


->MaxFanout) ) 


#def ine 


GnlTechMax (g) 


( ( (g) 


->TechMax) ) 


#def ine 


GnlTechMin(g) 


( ( (g) 


->TechMin) ) 


#def ine 


GnlListStateVar (g) 


( ( (g) 


->ListStateVar) ) 


#def ine 


GnlHashListFsmVar (g) 


(((g) 


->HashListFsmVar) ) 


#def ine 


GnlSynthesizedGnl (g) 


( ( (g) 


->SynthesizedGnl) ) 


#def ine 


Gnl Hook (g) 


(((g) 


->Hook) ) 


#def ine 


IncrGnlTag (g) 




[ { (g) ->Tag++) ) 


#def ine 


SetGnlUniqueld (g , t ) 




[ ( (g) ->UniqueId = t) ) 


#def ine 


SetGnlTag (g, t) 




[ ( (g) ->Tag = t) ) 


#def ine 


SetGnlRef Count (g, t) 


( ( 


(g) ->Ref Count = t) ) 


#def ine 


SetGnlType (g , t ) 


{ ( 


(g) ->Type = t) ) 


#def ine 


SetGnlName (g r n) 


( ( (g) 


- >Name = n) ) 


#def ine 


SetGnlSourceFileName (g, s) 


( ( (g) 


->SourceFileName = s) ) 


#def ine 


SetGnlListSourceFiles (g, s) 


({(g) 


->ListSourceFiles = s) ) 


#def ine 


SetGnlStatus (g, s) 


( ( (g) 


->Status = s) ) 


#def ine 


SetGnlListPorts (g,h) 


( ( (g) 


->ListPorts = h) ) 


#def ine 


SetGnlHashNames (g, h) 


( ( (g) 


~>HasTableNames = h) ) 


#def ine 


SetGnlHashCompoNames (g,h) 


( ( (g) 


~>HasTableCompoNames = h) ) 


#def ine 


SetGnllnstanceld (g, h) 


( ( (g) 


->lnstanceld = h) ) 


#def ine 


SetGnlNodesSegments (g, s) 


(((g) 


->NodesSegments = s) ) 


#def ine 


SetGnlFirstNode (g, n) 


(((g) 


->FirstNode = n) ) 


#def ine 


SetGnlLastNode (g,n) 


(((g) 


->LastNode = n) ) 


#def ine 


SetGnlListFreeNodes (g,n) 


(((g) 


~>ListFreeNodes = n) ) 


#def ine 


SetGnlNbln ( g , nbi ) 


(((g) 


->NbIn = nbi) ) 


#def ine 


SetGnlNbOut (g, nbo) 


(((g) 


->NbOut = nbo) ) 


#def ine 


SetGnlNbLocal (g,nbl) 


(((g) 


->NbLocal = nbi) ) 


#def ine 


SetGnllnputs (g, i) 


(((g) 


->InputVars = i) ) 


#def ine 


SetGnlOutputs (g, o) 


(((g) 


->OutputVars = o) ) 


#def ine 


SetGnlLocals (g, 1) 


(((g) 


->LocalVars = 1) ) 


#def ine 


SetGnlFunctions (g, f ) 


(((g) 


->Functions = f ) ) 


#def ine 


SetGnlClocks (g, c) 


(((g) 


->ListClocks = c) ) 
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#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



SetGnlComponent s (g , w) ( 


{ Cg) 


- > Li st Components - w) ) 


oe L.on±j>iDijr is ig, wj { 


( (g) 


- >NDDr r s = w) ) 


SetGnlNDLat cries (g, wj ( 


( (g) 


->NbLatches = w) ) 


betGniNoTristates (g/W) 




( ( (g) ->NbTristates = w) ) 


setGnlRDBut ters (g, w) ( 


( (g) 


->NbBuf f ers = w) ) 


beuGniNDLitt (g 7 ( 


( (g) 


->NbLitt = w) ) 


SetGnlListPathComponent (g,w) 




( ( (g) - >ListPathComponent = w) ) 


SetGnlLineNumber (g, w) ( 


{ (g) 


->LineNumber - w) ) 


SetGnlArea (g, w) ( 


( (g) 


->Area = w) ) 


SetGnlNetArea {g, w) ( 


( (g) 


->NetArea = w) ) 


SetGnlDepth (g, w) { 


( (g) 


- >Depth = w) ) 


SetGnlMaxFanout (g, w) ( 


( (g) 


- >MaxFanout = w) ) 


O t^i +- /"* T-i T T 1 & yi "Ui TUT — i r f fw T t \ / 

oetuiiiieciiMax tg / w; ( 


( (g) 


- >TechMax = w) ) 


SetGnlTechMin (g, w) ( 


((g) 


->TechMin = w) ) 


SetGnlListStateVar (g, w) 




( ( (g) ->ListStateVar = w) ) 


SetGnlHashListFsmVar (g, w) { 


((g) 


->HashListFsmVar = w) ) 


SetGnlSynthesizedGnl (g,w) ( 


((g) 


->SynthesizedGnl = w) ) 


SetGnlHook(g,h) ( 


((g) 


->Hook = h) ) 



/* 

/* GNL_INFO_REC 
* 



/ 

typedef struct GNL_INFO STRUCT 

{ 

int Nblnputs; 

int NbOutputs; 

int NblnOuts; 

int NbClocks; 

int NbFlipFlops; 

int NbLatches; 

int NbTriStates; 

int NbBuffers; 

int NbLiterals; 
float NbCombEquiGates ; 

float NbSeqEquiGates ; 

float NbTotalEquiGates ; 

int MaxDepth; 



*/ 

*/ 



} 



GNL_INFOJREC , *GNL_INF0 ; 



#define Gnllnf oNblnputs (i) 
#define Gnllnf oNbOutputs ( i) 
ttdefine Gnllnf oNblnOuts (i ) 
#define Gnllnf oNbClocks (i) 
#define Gnllnf oNbFlipFlops ( i ) 
#define Gnllnf oNbLatches ( i ) 
#define Gnllnf oNbTriStates (i) 
#define Gnllnf oNbBuff ers ( i ) 
#define Gnllnf oNbLit (i) 
#define Gnllnf oNbCombEqui Gates (i) 
#define Gnllnf oNbSeqEquiGates ( i ) 
#def ine Gnllnf oNbTotalEquiGates (i) 
#def ine Gnllnf oMaxDepth ( i ) 

#define SetGnllnf oNblnputs ( i , n) 
#define SetGnllnf oNbOutputs ( i , n) 
#define SetGnllnf oNblnOuts (i , n) 



((i 
({i 
((i 
((i 
( (i 
((i 
((i 
((i 
((i 
(<i 
(<i 
((i 
((i 



->NbInputs) ) 
->NbOutputs) ) 
->NbInOuts) ) 
->NbClocks) ) 
->NbFlipFlops) ) 
->NbLatches) ) 
->NbTriStates) ) 
->NbBuf f ers) ) 
->NbLiterals) ) 
->NbCombEquiGates) ) 
->NbSeqEquiGates) ) 
- >NbTotalEquiGates ) 
->MaxDepth) ) 



( ( (i) ->NbInputs = n) ) 
( { (i) ->NbOutputs = n) ) 

( ( (i) ->NbInOuts = n) ) 
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#define SetGnllnf oNfoClocks {i , n) 
#define SetGnllnf oNbFlipFlops {i , f) { ( (i) 
#define SetGnllnf oNbLatches (i , 1) ( ( (i) 
#define SetGnllnf oNbTriStates (i, t) (((i) 
ttdefine SetGnllnf oNbBuf f ers (i, t) ( ( (i) 
#define SetGnllnf oNbLit (i , nb) ( ( (i) 

#def ine SetGnllnf oNbCombEqui Gates (i , e) 
#define SetGnllnf oNbSeqEquiGates (i,e) 
#def ine SetGnllnf oNbTotalEquiGates (i , e) 
#define SetGnllnf oMaxDepth (i , tnd) ( ( (i) 



( ( (i) ->NbClocks - n) ) 

->NbFlipFlops = f ) ) 

->NbLatches = 1) ) 

->NbTriStates = t) ) 

->NbBuf fers = t) ) 

->NbLiterals = nb) ) 
( ( (i) ->NbCombEquiGates = e) ) 
( ( (i) ->NbSeqEquiGates = e) ) 
( ( (i) ->NbTotalEquiGates = e) ) 

->MaxDepth = md) ) 



/* 

/* GNL_NETWORK 

/* 

typedef struct GNL_NETWORK STRUCT 

{ 



*/ 
*/ 



int 


Tag; 


GNL 


TopGnl ; 


BLIST 


ListGnls; 


double 


Area; 


float 


NLDelayArea; 


float 


Period; 


int 


Depth; 


int 


NbDffs; 


int 


NbLatches; 


int 


NbTristates; 


int 


NbBuf fers; 


void 


*Hook; 



GNL_NETWORK_REC , *GNL_NETWORK ; 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



GnlNetworkTag (n) ( ( ( n ) 

GnlNetworkTopGnl (n) ( ( ( n ) 

GnlNetworkArea (n) ( ( ( n ) 

GnlNetworkNLDelayArea (n) ( ( (n) 

GnlNetworkPeriod (n) ( { (n) 

GnlNetworkNbDf f s (n) ( ( (n) 
GnlNetworkNbLatches (n) 

GnlNetworkNbTristates (n) ( ( (n) ■ 
GnlNetworkNbBuf f ers (n) 

GnlNetworkDepth (n) ( ( (n) - 

GnlNetworkHook (n) ( ( (n) ■ 

SetGnlNetworkTag(n, t) ( ( (n) - 

SetGnlNetworkTopGnl (n, t) ( { (n) - 
SetGnlNetworkArea (n, t) 
SetGnlNetworkNLDelayArea (n, t) 
SetGnlNetworkPeriod (n, t) 

SetGnlNetworkNbDf f s (n, t) ( ( (n) - 

SetGnlNetworkNbLatches (n, t) ( ( (n) - 
SetGnlNetworkNbTristates (n # t) 

SetGnlNetworkNbBuf f ers (n, t) ( ( (n) - 
SetGnlNetworkDepth (n, t) 
SetGnlNetworkHook (n, t) 



->Tag) ) 
->TopGnl) ) 
->Area) ) 
->NLDelayArea) ) 
->Period) ) 
->NbDf f s) ) 

( ( (n) ->NbLatches) ) 
->NbTristates) ) 

( ( (n) ->NbBuf fers) ) 
->Depth) ) 
->Hook) ) 

->Tag = t) ) 
■>TopGnl = t) ) 
( ( (n) ->Area = t) ) 
( ( (n) ->NLDelayArea = t) ) 
( ( (n) ->Period = t) ) 
>NbDff s - t) ) 
>NbLatches = t) ) 
( ( (n) ->NbTristates = t) ) 
>NbBuf fers = t) ) 
( ( (n) ->Depth = t) ) 
( ( (n) ->Hook = t) ) 
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/* EOF */ 

#endif 
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/* 

/* */ 
/* File: gnllib.c */ 

/* Version: l.l */ 

/* Modifications: - */ 

/* Documentation: - */ 

*/ 

/* Class: none */ 

/* Inheritance : * / 

/* 

/* ^ 

#mclude "blist .h" 

#include "gnl .h" 

^include "bbdd.h" 

#include " libc_mem .h" 

#include n libc__api .h" 

#include "gnllibc.h" 

ftinclude "gnlmap.h" 

#include "gnloption.h" 

#include "blist .e" 
# include "bbdd.e" 

/* 

/* DEFINE */ 
/* 

/ 

#defme TRACE_COMBO_CELL /* if we want to view combinational cells */ 

/* extracted from the synopsys library with */ 
/* their boolean function. */ 
#unde f TRACE_COMBO_CELL 

#define GNL_M I N_NB_CANON I CAL_E LEM 2000 /* !4 */ 
#define GNL_MAX_NB_CANONICAL_ELEM 2000 /* 16 */ 

/* 

/* EXTERN 

/* J 

extern BDD_PTR GetBddPtrFromBdd (); 
extern Uint32 GetBddPtrRef Count () ; 
extern GNL_ENV G_GnlEnv; 

/. 

/* GLOBAL VARIABLES */ 

/*--; V 

Static GNL_VAR G_VAR_ZERO; 
static GNL_VAR G_VAR_ONE; 
static int G_MaxNbDe rive Cells ; 

/* 

/* GnlLibCreate */ 

/. 

GNL_STATUS GnlLibCreate (GnlLib) 
GNL_LIB *GnlLib; 

{ 

if (<*GnlLib = (GNL_LIB) calloc (1, sizeof (GNL_LIB_REC) ) ) == NULL) 
return { GNL _MEMORY_FULL ) / 
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return (GNL_OK) ; 

} 

/* 

/* GnlLibDeriveCellCreate */ 

/* 

GNL_STATUS GnlLibDeriveCellCreate (DeriveCell) 
LIB_DERIVE_CELL *DeriveCell ; 

{ 

if ( (*DeriveCell = { L I B_DERI VE_CELL ) 

calloc (1, sizeof (LIB_DERIVE_CELL_REC) ) ) ==NULL) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlVarLiblnfoCreate */ 

/* 

GNL_STATUS GnlVarLiblnfoCreate (VarLiblnfo) 
GNL_VAR_LIB_INFO *VarLibInfo; 

{ 

BLIST NewList; 

if ( (*VarLibInfo = (GNL_VAR_LIB_INFO) 

calloc (1, sizeof (GNL_VAR_LIB_INFO_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarLiblnfoSymmetrics (*VarLibInf o, NewList) ; 

return (GNL OK) ; 

} 

/* 

/* GnlLibCellCreate */ 

/* 

GNL_STATUS GnlLibCellCreate (LibCell) 
LIB_CELL *LibCell; 

{ 

if ((*LibCell = (LIB_CELL) calloc (1, sizeof (LIB_CELL_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 

} 

/* 

/* GnlCreatelnputData */ 

/* [ 

GNLJSTATUS GnlCreatelnputData (InputData) 
L I B_ I N PUT_D ATA * InputData; 

{ 

if ((^InputData = ( L I B_ I N PUT_D ATA ) 

calloc (1, sizeof (LIB_INPUT_DATA_REC) ) ) == NULL) 
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} 



return ( GNL_MEMORY_FULL) ; 
return (GNL OK) ; 



/* 

/* GnlSinglePinName */ 

/* 

/* Verifies if the list of name has a single element or several ones 
/* 

int GnlSinglePinName (ListPinName) 
LIBC_NAME_LIST ListPinName; 

{ 

if ( I ListPinName) 
return (0) ; 

if (LibNameListNext (ListPinName) ) 
return (0) ; 

return (1) ; 

} 



/* 

/* apply_unary_op * / 

/* 

BDD_STATUS apply_unary_op (Mode, bdd_func, ListNodes, NewBdd) 
int Mode ; 

BDD_STATUS (bdd__f unc ) ( ) ; 

BLIST ListNodes; 
BDD * NewBdd; 



{ 



} 



BDD_STATUS Status ; 

BDD Bddl ; 



switch (Mode) { 
case 0: 

Bddl = GnlNodeBdd ( (GNL_N0DE) BListElt (ListNodes, 0) ) ; 
break; 
default: 

Bddl = GnlMapNodelnfoBdd ( (GNL__NODE) 

BListElt (ListNodes, 0) ) ; 

break; 

} 

if ((Status = (bdd_func) (Bddl, NewBdd))) 
return (Status) ; 

return (BDD OK) ; 



/* CmpIndexBddNode */ 



/ 
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static int CmpIndexBddNode (Nodel, Node2) 
GNL_NODE *Nodel; 
GNL_NODE *Node2; 

{ 

Uint32 Indexl; 
Uint32 Index2; 



Indexl = GetBddPtrlndex (GetBddPtrFromBdd (GnlNodeBdd (*Nodel) ) ) ; 
Index2 = GetBddPtrlndex (GetBddPtrFromBdd (GnlNodeBdd (*Node2))); 

if (Indexl > Index2) 
return (-1) ; 

if (Indexl == Index2) 
return (0) ; 

return (1) ; 

} 



/* CmpIndexBddMapNode 



static int CmpIndexBddMapNode (Nodel, Node2) 
GNL_NODE *Nodel; 
GNL_N0DE *Node2; 

{ 

Uint32 Indexl; 
Uint32 Index2; 



Indexl = GetBddPtrlndex (GetBddPtrFromBdd ( 

GnlMapNod* 
rFromBdd ( 
GnlMapNodelnfoBdd (*Node2) ) ) ; 



GnlMapNodelnfoBdd (*Nodel) ) ) ; 
Index2 = GetBddPtrlndex (GetBddPtrFromBdd ( 



if (Indexl > Index2) 
return ( -1) ; 

if (Indexl Index2) 
return (0) ; 

return (1) ; 

} 

/* 

/* SortSonsWithlndex */ 
/* 1 

/* We sort the sons of the operator in the decreasing order according to*/ 
/* the top index of their associated Bdds. This is to apply first of all*/ 
/* Bdds which should be at the bottom of the final Bdd. */ 
/* i 

static void SortSonsWithlndex (Mode, ListNodes) 
int Mode; 
BLIST ListNodes; 
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/* Not necessary to sort if less than 3 arguments, 
if (BListSize (ListNodes) < 3) 
return; 



if (Mode) 

qsort (BListAdress (ListNodes), BListSize (ListNodes), 
sizeof (GNL_NODE) , CmpIndexBddMapNode) ; 



else 



qsort (BListAdress (ListNodes), BListSize (ListNodes), 
sizeof (GNL_N0DE) , CmpIndexBddNode) ; 



app ly_c ommu t_op 


*/ 




For GNL_OR, GNL_AND, GNL_XOR and GNL_XNOR 




*/ 



BDD_STATUS apply_commut_op (Mode, bdd_func, ListNodes, NewBdd) 
int Mode ; 

BDD_STATUS (bdd_func) () ; 

BLIST ListNodes; 
BDD *NewBdd; 

{ 

int i ; 
BDD_STATUS Status ; 

BDD Bddl ; 

BDD Bdd2 ; 

BDD BddRes; 
GNL_NODE Nodel; 



/* We sort the Sons according to the top most variable Id of their */ 
/* associated Bdd so that we decrease the number of Apply calls. */ 
SortSonsWithlndex (Mode, ListNodes) ; 



/* There is a "UseBdd (Bddl)" because we free Bddl later on in the */ 
/* for loop. *i 
Nodel = (GNL_NODE) BListElt (ListNodes, 0) ; 
switch (Mode) { 
case 0: 

Bddl = UseBdd (GnlNodeBdd (Nodel)); 
break; 
default : 

Bddl = UseBdd (GnlMapNodelnf oBdd (Nodel)); 
break; 

} 

for (i=l ; i<BListSize (ListNodes); i++) 
{ 

Nodel = (GNL_N0DE) BListElt (ListNodes, i) ; 
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switch (Mode) { 
case 0 : 

Bdd2 = GnlNodeBdd (Nodel); 

break; 
default : 

Bdd2 = GnlMapNodelnfoBdd (Nodel) ; 
break; 

} 

if ((Status = (bdd_func) (Bddl, Bdd2 , &BddRes) ) ) 
return (Status) ; 

FreeBdd (Bddl) ; 

Bddl = BddRes; 

} 

*NewBdd = BddRes ; 
return (BDD_OK) ; 

} 

z* 

/ * apply_nand * / 
/* 

BDDJSTATUS apply_nand (Mode, ListNodes, NewBdd) 
int Mode ; 

BLIST ListNodes; 
BDD *NewBdd; 

{ 

int i ; 

BDD_S TATUS Status ; 

GNLJsTODE Nodel; 
BDD BddRes ; 

BDD Bddl ; 

BDD Bdd2 ; 



/* We sort the Sons according to the top most variable Id of their 
/* associated Bdd so that we decrease the number of Apply calls. 
SortSonsWithlndex (Mode, ListNodes) ; 

/* There is a "UseBdd (Bddl) " because we free Bddl later on in the 
/* for loop. */ 
Nodel = (GNL_NODE) BListElt (ListNodes, 0) ; 
switch (Mode) { 
case 0 : 

Bddl = UseBdd (GnlNodeBdd (Nodel)); 
break; 
default : 

Bddl = UseBdd (GnlMapNodelnfoBdd (Nodel)); 
break; 

} 
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for (i=l; i<BListSize (ListNodes) ; i++) 

{ 

Node I = (GNL__NODE) BListElt (ListNodes, i) ; 

switch (Mode) { 
case 0 : 

Bdd2 = GnlNodeBdd (Nodel) ; 
break; 
default : 

Bdd2 = GnlMapNodelnfoBdd (Nodel); 
break; 

} 

/* each time we complement the previuos result. 
/* Z = NAND (a,b,c) -- NAND (a # b) = Y - - Z = NAND (iY,c) */ 
if {(Status = bdd_nand (ComplementBDD (Bddl), Bdd2 , &BddRes) ) ) 
return (Status) ; 

FreeBdd (Bddl) ; 

Bddl = BddRes ; 

} 

*NewBdd = BddRes; 
return (BDD_OK) ; 

} 

/* 

/* apply_nor */ 

/* 

BDD__STATUS apply_nor (Mode, ListNodes, NewBdd) 
int Mode; 
BLIST ListNodes; 
BDD * NewBdd; 

{ 

int i ; 

BDD_STATUS Status ; 

GNL_NODE Nodel; 
BDD BddRes; 
BDD Bddl ; 

BDD Bdd2 ; 



/* We sort the Sons according to the top most variable Id of their 
/* associated Bdd so that we decrease the number of Apply calls. 
SortSonsWithlndex (Mode, ListNodes) ; 

/* There is a "UseBdd (Bddl) 11 because we free Bddl later on in the 
/* for loop. */ 
Nodel = (GNLJSfODE) BListElt (ListNodes, 0) ; 
switch (Mode) { 
case 0 : 

Bddl = UseBdd (GnlNodeBdd (Nodel)); 
break; 
default : 
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Bddl = UseBdd (GnlMapNodelnf oBdd (Nodel)); 
break ; 

} 

for (i=l; i<BListSize (ListNodes); i++) 

{ 

Nodel = (GNL_NODE) BListElt (ListNodes, i) ; 

switch (Mode) { 
case 0 : 

Bdd2 = GnlNodeBdd (Nodel) / 
break; 
default : 

Bdd2 = GnlMapNodelnfoBdd (Nodel) ; 
break; 

} 

/* each time we complement the previous result. */ 
/* Z = NOR (a,b,c) NOR (a,b) - Y -- Z = NOR (!Y,c) */ 
if ((Status = bdd_nor (ComplementBDD (Bddl), Bdd2, &BddRes) ) ) 
return (Status) ; 

FreeBdd (Bddl) ; 

Bddl = BddRes; 

} 

* NewBdd = BddRes; 
return (BDDJDK) ; 

} 



/* v 

/* GnlBddNodeApply */ 

z* v 

BDD_STATUS GnlBddNodeApply (Mode, Gnl , Node, NewBdd) 
int Mode ; 

GNL Gnl ; 

GNL_NODE Node; 
BDD *NewBdd; 

{ 

BDD_STATUS Status; 
BLIST Sons; 



Sons = GnlNodeSons (Node) ; 

switch (GnlNodeOp (Node)) { 
case GNL_AND: 

if ((Status = apply_commut_op (Mode, bdd_and, Sons, NewBdd))) 

return (Status) ; 
break; 



case GNL OR: 
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if ((Status = apply_commut_op (Mode, bdd_or, Sons, NewBdd) ) ) 

return (Status) ; 
break; 



case GNL_NAND: 

if ((Status = apply_nand (Mode, Sons, NewBdd))) 

return (Status) / 
break; 

case GNL_NOR: 

if ({Status = apply_nor (Mode, Sons, NewBdd))) 

return (Status) ; 
break; 



case GNL_NOT: 

if ((Status = apply_unary_op (Mode, bdd_not, Sons, NewBdd))) 

return (Status) ; 
break ; 



case GNL_XOR: 

if ((Status = apply_commut__op (Mode, bdd_xor, Sons, NewBdd))) 

return (Status) ; 
break; 



case GNL__XNOR: 

if ((Status = apply_commut_op (Mode, bdd_xnor, Sons, NewBdd))) 

return (Status) ; 
break; 



default : 

fprintf (stderr, "Operator not supported yet\n") 
exit (1) ; 

} 



return (BDD_OK) ; 

} 

/* #/ 

/* GnlCorrectNodeTag ★/ 

/* z 

/* tells if the node 'Node 1 has the same Tag as the general Gnl . */ 
/* 

i . 

int GnlCorrectNodeTag (Gnl, Node) 

GNL Gnl ; 

GNL_NODE Node; 

{ 

return (GnlTag (Gnl) GnlNodeTag (Node) ) ; 

/* v 

/* GnlBuildBddOnNode */ 
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/ 



/* 

/* This procedure computes recursively the Bdd associated to GNL_NODE */ 
/* 'Node' and stores it in one of its fields (actually the Hook). */ 
/* On a reconvergent Node we re -use the Hook field as a previous */ 
/* computed Bdd only if the Tag of the Node and the Tag of the main Gnl */ 
/* are the same. */ 

/* This tag notion is usefull if one wants to recompute all the Bdds on * / 
/* tree: he just has to increment the Tag of the Gnl and everything is */ 
/* re -computed. */ 
/* Regarding the GNL_VARIABLE end case we take its corresponding Bdd */ 
/* thru 'GnlVarBdd* if this Var has no binded Var. If it has a binded */ 
/* var then we take the bdd of its binded Var. */ 
/* This i susefull to consider a same boolean tree under different var. */ 
/* ordering. */ 
/* 

BDD_STATUS GnlBuildBddOnNode (Gnl, Node) 
GNL Gnl ; 

GNL NODE Node; 



{ 



int i ; 
BDD_STATUS Status; 
BLIST Sons; 
GNL_NODE Node I; 
BDD NewBdd; 
GNL_VAR Var; 



/ 



/* Bdd already computed for this node in a previous pass */ 
if (GnlNodeBdd (Node) GnlCorrectNodeTag (Gnl, Node)) 

UseBdd ( (BDD) GnlNodeBdd (Node) ) ; 
return (BDD_OK) ; 

} 

SetGnlNodeTag (Node, GnlTag (Gnl)); 
if (GnlNodeOp (Node) == GNL CONSTANTE) 

{ 

if (GnlNodeSons (Node) == (BLIST) 0) 
SetGnlNodeBdd (Node, bdd_zero()) ; 

else 

SetGnlNodeBdd (Node, bdd_one()) ; 
return (BDD_OK) ; 

} 

if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 

/* If the GNL_VAR 'Var 1 has a bind variable then we take its */ 

/* corresponding Bdd. */ 

/* This is useful to generate different ordering of the same */ 

/* Boolean tree. */ 

if (GnlVarBindVar (Var) ) 

Var = GnlVarBindVar (Var); /* we pick up the bind var */ 
SetGnlNodeBdd (Node, UseBdd (GnlVarBdd (Var))); 
return (BDD_OK) ; 

} 
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Sons = GnlNodeSons (Node) ,- 
for (i=0; i<BListSize (Sons); i++) 
{ 

Nodel = (GNL_NODE) BListElt (Sons, i) ; 
if ({Status = GnlBuildBddOnNode {Gnl, Nodel))) 
return (Status) ; 

} 

/* All the Bdd of the sons have been computed. Now we compute the Bdd*/ 
/* of Node. */ 
if ((Status = GnlBddNodeApply (0, Gnl, Node, &NewBdd) ) ) 
return (Status) ; 

/* We store the computed Bdd in the structure of 'Node'. */ 
SetGnlNodeBdd (Node, NewBdd) ; 

return (BDD_OK) ; 



/* 

/* GnlSetBddlnputs */ 

/* 1t/ 

/* Before invoking this function, a current BDD work space must exist. */ 
/* (Use the function "InitBddWorkSpace" before) . */ 
/* This function creates an associate BDD for each Variable which is in */ 
/* the list 'BList'. The ordering of Variables is the one in 'BList'. */ 
/* Each Bdd of variable is stored thru 1 SetGnlVarBdd ' . */ 
/* 



BDD_STATUS GnlSetBddlnputs (Gnl, BList) 
GNL Gnl ; 

BLIST BList; 

{ 

int i; 
BDD_VAR VarBdd; 
BDDJSTATUS Status ; 

GNL_VAR Varl; 



} 



for (i=0; i<BListSize (BList); i++) 
{ 

Varl = (GNL_VAR) BListElt (BList, i) ; 

if ((Status = CreateBddVar (GnlVarName (Varl), &VarBdd) ) ) 
return (Status) ; 

SetGnlVarBdd (Varl, BddVarBdd (VarBdd)); 
SetGnlVarTag (Varl, GnlTag (Gnl) ) ; 

} 

return (BDD OK) ; 



/* it/ 

/* GnlGetBddMaxIndex */ 

/* i(/ 

/* this procedure extracts the maximum of any variable in the Bdd 'Bdd' */ 
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/* Before calling this procedure you need to set 1 *MaxIndex' to 0 */ 

v 



/* 



static GnlGetBddMaxIndex (Bdd, Maxlndex) 
BDD Bdd; 
Uint32 *MaxIndex; 



{ 



BDD_PTR BddPtr; 
Uint32 Index; 



if (ConstantBdd (Bdd) ) 
return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
Index = GetBddPtrlndex (BddPtr) ; 

if (Index > *MaxIndex) 
*MaxIndex =' Index; 



} 

/* 

/ 

/* 



GnlGetBddMaxIndex (GetBddPtrEdgel (BddPtr) , Maxlndex) ; 
GnlGetBddMaxIndex (GetBddPtrEdgeO (BddPtr) , Maxlndex) ; 



/* LibBddlnfoCreate */ 

GNL_STATUS LibBddlnfoCreate (BddPtr, NewBddlnfo) 
BDD__PTR BddPtr; 
LIB_BDD_INFO *NewBddInf O ; 



{ 



BLIST NewList; 



if { (*NewBddInfo = 

<LIB_BDD_INFO)calloc (1, sizeof (LIB_BDD_INFO_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

SetBddPtrHook (BddPtr, (int) *NewBddInfo) ; 
if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetLibBddlnfoDeriveCells (BddPtr, NewList) ; 

return (GNL_OK) ; 

} 

/* ^ 



/* GnlBddAddBddLiblnfo */ 

/* — ; */ 

/* This procedure creates a structure which is Hooked on each Bdd node. */ 
/* This structure is usefull to stored signature -type information */ 
/* Before calling this procedure all the Hook fields of each Bdd node */ 
/* must be NULL */ 

/* . */ 

GNL_STATUS GnlBddAddBddLiblnfo (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 
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LIB_BDD_INFO NewBddlnf o ; 



BddPtr = GetBddPtrFromBdd (Bdd) ; 

/* we already created a signature structure for this bdd node and */ 
/* below ... */ 
if (GetBddPtrHook (BddPtr) ) 
return (GNL_OK) ; 

if (LibBddlnfoCreate (BddPtr, &NewBddInfo) ) 
return { GNL_MEMORY_FULL) ; 

SetBddPtrHook (BddPtr, ( int) NewBddlnf o) ; 



if (ConstantBdd (Bdd)) 
return (GNL_OK) ; 



if (GnlBddAddBddLiblnfo (GetBddPtrEdgel (BddPtr) ) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlBddAddBddLiblnfo (GetBddPtrEdgeO (BddPtr) ) ) 
return ( GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* v 

/* GnlResetBddHook */ 

/* ^ 

/* This procedure set all the Hook field of all the Bdd nodes to NULL. */ 
/* This function is not optimized (repass by already visited nodes) so */ 
/* it must be used on Bdd trees or small Bdds (like library functions) */ 
/* A bdd tag can be used to treat the reconvergent bdd node in oreder */ 
/* to optimize this but we do not know the value of each Tag here. So it*/ 
/* more robust to do the way below. */ 

/* *z 

static void GnlResetBddHook (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 



if (ConstantBdd (Bdd) ) 
{ 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
SetBddPtrHook (BddPtr, (int)NULL); 
return; 

} 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
SetBddPtrHook (BddPtr, (int) NULL) ; 

GnlResetBddHook (GetBddPtrEdgel (BddPtr) ) ; 
GnlResetBddHook (GetBddPtrEdgeO (BddPtr) ) ; 
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7 



/* 

/* GnlComputeBddMinterms 

/* 

/* This procedure computes for each Bdd node the number of minterms of 
/* the On Set of the function when the Top bdd node variable is 0 or 1. 
/* 'Mini' --> Nb minterm in the On Set when the Var =1. */ 
/* 'MinO' --> Nb minterm in the On Set when the Var =0 */ 
/* 

GNL_STATUS GnlComputeBddMinterms (Inv, Bdd, Maxlndex, Index, Mini, MinO) 



*/ 

*/ 
*/ 



.IIjX 


Inv; 


BUD 


Bdd; 


TT-i nflO 
U IuLj z 


Maxlndex ; 


Uint32 


* Index ; 


int 


*Minl; 


int 


*MinO; 


BDD_PTR 


BddPtr; 


Uint32 


Index 0 ; 


Uint32 


Indexl ; 


int 


MinOl; 


int 


MinOO; 


int 


Minll; 


int 


MinlO; 


int 


Power 0 ; 


int 


Powerl ; 


LIB_BDD_ 


INFO NewBddlnfo; 



if (ConstantBdd (Bdd) ) 
{ 

* Index = Maxlndex+l; 

if (((Bdd == bdd__one () ) && I Inv) || 
((Bdd == bdd zero () ) && Inv)) 

{ 

*Minl = 1; 
*MinO = 0; 
return (GNL OK) ; 

} 

*Minl = 0; 
*MinO = 0; 
return (GNL_OK) ; 

} 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
* Index = GetBddPtrlndex (BddPtr) ; 
Inv A = (Bdd != (BDD) BddPtr) ; 

if (GnlComputeBddMinterms (Inv, GetBddPtrEdgeO (BddPtr), Maxlndex, 

&IndexO, &Min01, &Min00) ) 
return (GNL_MEMORY_FULIi) ; 
if (GnlComputeBddMinterms (Inv, GetBddPtrEdgel (BddPtr), Maxlndex, 

fclndexl, &Minll, &MinlO) ) 
return (GNL_MEMORY_FULL) ; 

PowerO = (int) IndexO- (int) * Index- 1; 
Powerl = (int) Indexl- (int) * Index- 1; 
*MinO = (MinOl+MinOO) ; 



B-CORE-135 



gnllibx 



while (PowerO--) *MinO = 2 * (*MinO) ; 

*Minl = (Minll+MinlO) ; 

while (Powerl--) *Minl = 2 * (*Minl) ; 

if ( IGetBddPtrHook (BddPtr) ) 
{ 

if (LibBddlnfoCreate (BddPtr, &NewBddInf o) ) 
return ( GNL_MEMORY_FULL) ; 
^SetBddPtrHook (BddPtr, (int) NewBddlnf o) ; 

SetLibBddlnfoMinO (BddPtr, *MinO) ; 
SetLibBddlnfoMinl (BddPtr, *Minl) ; 

return (GNL_OK) ; 



/* GnlGetVarSignature 



/* This procedure returns the signature couple (MinO, MinlO of the */ 

/* Variable of index 'Index'. */ 

/* MinO = Number of Minterms of the OnSet of the function (Bdd) when the*/ 

/* Var of Index 'Index' is set to 0. */ 

/* Mini = Number of Minterms of the OnSet of the function (Bdd) when the*/ 

/* Var of Index 'Index' is set to 1. */ 

/* 7 

static void GnlGetVarSignature (Inv, Bdd, Maxlndex, Index, Previous Index, 

MinO, Mini) 



int 


Inv; 


BDD 


Bdd; 


int 


Maxlndex; 


int 


Index; 


int 


Previous Index; 


int 


*MinO; 


int 


*Minl; 


BDD_PTR 


BddPtr ; 


Uint32 


IndexBdd; 


int 


Power; 


int 


MinOO; 


int 


MinOl; 


int 


MinlO; 


int 


Minll; 


int 


Min; 


int 


Next Inv; 



if (ConstantBdd (Bdd) ) 
{ 

if (((Bdd == bdd_one ()) ! Inv) || 

((Bdd == bdd zero ()) && Inv)) 

{ 

Min = 1; 

Power = (int) Maxlndex- (int) Previous Index- 1; 
while (Power--) Min = 2 * Min; 
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*MinO += Min; 
*Minl += Min; 

} 

return; 

} 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
IndexBdd = GetBddPtr Index (BddPtr) ; 

if (Index == IndexBdd) 
{ 

Min « LibBddlnf oMinl (BddPtr) ; 

Power = (int) IndexBdd- (int) Previouslndex-l ; 

while (Power--) Min = 2 * Min; 

*Minl += Min; 

Min = LibBddlnf oMinO (BddPtr) ; 

Power = (int) IndexBdd- (int) Previous Index- 1; 

while (Power--) Min = 2 * Min; 

*MinO += Min; 

return; 

} 

if (IndexBdd > Index) 
{ 

Min = LibBddlnf oMinO (BddPtr) ; 
Min += LibBddlnf oMinl (BddPtr) ; 

Power = (int) IndexBdd- (int) PreviousIndex-2 ; 

while (Power--) Min = 2 * Min; 

*MinO += Min; 

*Minl +- Min; 

return; 

} 

Nextlnv = Inv " (Bdd != (BDD) BddPtr) ; 

/* Otherwise the 'IndexBdd' is less than the var 'Index' we are */ 
/* looking for. */ 
MinOO = MinOl = MinlO = Minll = 0; 

GnlGetVarSignature (Nextlnv, GetBddPtrEdgeO (BddPtr), Maxlndex, Index, 

IndexBdd, &Min00, &Min01) ; 
GnlGetVarSignature (Nextlnv, GetBddPtrEdgel (BddPtr) , Maxlndex, Index, 

IndexBdd, ScMinlO, &Minll) ; 

Min = MinOO+MinlO; 

Power = (int) IndexBdd- (int) Previous Index- 1; 

while (Power--) Min = 2 * Min; 

*MinO += Min; 

Min = MinOl+Minll; 

Power = (int) IndexBdd- (int) Previouslndex- 1 ; 
while (Power--) Min = 2 * Min; 
*Minl += Min; 

} 



/* GnlComputeVarsSignatureFromBdd */ 
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/* 

/* This procedure computes the signature couple (MinO, Mini) for each 
/* bdd node which are represented in the bdd 'Bdd'. */ 
/* 7 

GNL_STATUS GnlComputeVarsSignatureFromBdd (LibGnl, Bdd) 



GNL 
BDD 



LibGnl; 
Bdd; 



BDD_PTR 

int 

int 

Uint32 
Uint32 
int 
BLIST 
GNL VAR 



BddPtr; 

Mini; 

MinO; 
BddMaxIndex; 
Index; 

i; 

Li s t Inputs; 
Varl; 



Listlnputs = Gnllnputs (LibGnl) ; 
BddMaxIndex = 0; 

GnlGetBddMaxIndex (Bdd, ^BddMaxIndex) ; 
#ifdef 0 

/* We reset to NULL all the bdd nodes in 'BddNode'. */ 
GnlResetBddHook (Bdd) ; 
#endif 

/* We add the LIB_BDD_INFO structure on each hook of each Bdd node */ 
if (GnlBddAddBddLiblnf o (Bdd) ) 
return (GNL_MEMORY_FULL) ; 

/* for each Bdd node we compute the number of minterms of the On set */ 
/* of the function when the bdd node var. is 0 or 1. */ 
if (GnlComputeBddMinterms (0, Bdd, BddMaxIndex, fclndex, &Minl, ScMinO) ) 
return ( GNL_MEMORY_FULL) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
SetLibBddlnfoMinl (BddPtr, Mini) ; 
SetLibBddlnfoMinO (BddPtr, MinO) ; 

for (i=l ; i<=BddMaxIndex; i++) 
{ 

MinO = Mini = 0; 

GnlGetVarSignature (0, Bdd, BddMaxIndex, i, 0, &Min0, &Minl) ; 

Varl = (GNL_VAR) BListElt (Listlnputs, i-l) ; 
SetGnlVarMinO (Varl, MinO) ; 
SetGnlVarMinl (Varl, Mini) ; 
} 

return (GNL OK) ; 

} 



/* GnlCompatibeSignature 



B-CORE-138 



gnllib.c 



int GnlCompatibeSignature (Varl, Var2) 
GNL_VAR Varl; 
GNL_VAR Var2 ; 

{ 

if (GnlVarMinO (Var2) > GnlVarMinO (Varl)) 
return (1) ; 

if (GnlVarMinO (Var2) < GnlVarMinO (Varl)) 
return (0) ; 

if (GnlVarMinl (Var2) >= GnlVarMinl (Varl)) 
return (1) ; 

return (0) ; 

} 

/* v 

/* CmpVar Signature */ 

z* v 

int CmpVar Signature (Varl, Var2) 
GNL_VAR *Varl ; 
GNL_VAR *Var2 ; 

{ 

if (GnlVarMinO (*Var2) > GnlVarMinO (*Varl) ) 
return (1) ; 

if (GnlVarMinO (*Var2) < GnlVarMinO (*Varl) ) 
return (-1) ; 

return (0) ; 

} 

/* GnlListVarCompatibleSignature */ 

/* ^ 

/* This function verifies if the Variables respects the decreasing */ 
/* ordering of their signatures. */ 

/*--- — ; */ 

int GnlListVarCompatibleSignature (Celllnputs) 
BLIST Celllnputs; 

{ 

int i ; 

GNL_VAR Varl ; 
GNL__VAR VarlNext ; 

for (i=0; i<BListSize (Celllnputs) -1; i++) 
{ 

Varl = GnlVarBindVar ( (GNL_VAR) BListElt (Celllnputs, i) ) ; 
VarlNext = GnlVarBindVar ( (GNL_VAR) BListElt (Celllnputs, i + 1) ) ; 
if (! GnlCompatibeSignature (VarlNext, Varl)) 
return (0) / 

} 

return (1) ; 

} 
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/* 

/* GnlSymmetricVars */ 
/* 1 

/* This function returns 1 if the two Vars 'Varl' and »Var2' are */ 
/* symmetric. 

/* 1 

mt GnlSymmetricVars (Varl, Var2) 
GNL_VAR Varl; 
GNL_VAR Var2 ; 

{ 

int i ; 

GNL_VAR Varl ; 



return (0) ; 

for (i=0; i<BListSize (GnlVarSymmetrics (Varl)); i++) 

Varl = (GNL_VAR) BListElt (GnlVarSymmetrics (Varl), i) ; 
if (Varl == Var2) 
return (1) ; 

} 



} 



return (0) ; 



/* 

/* GnlSymmetricInputs 

/* 

GNL_STATUS GnlSymmetricInputs (Inputs, Celllnputs) 
BLIST Inputs ; 
BLIST Celllnputs; 



{ 



int i ; 

GNL_VAR Varl ; 
GNL_VAR VarCelll; 
1 int NbDif f ; 

NbDiff = 0; 

for (i=0; i<BListSize (Inputs); i++) 

Varl = (GNL_VAR) BListElt (Inputs, i) ; 

VarCelll = GnlVarBindVar { (GNL_VAR) BListElt (Celllnputs i) ) * 
if (Varl != VarCelll) 
{_ 

if (BListAddElt (GnlVarSymmetrics (Varl), (int) VarCelll) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlVarSymmetrics (VarCelll), (int) Varl)) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL OK) ; 



-*/ 
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/* GnlVarHasSymmetricVar 
/* 



*/ 



/ 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*■ 

GNL_STATUS GnlVarHasSymmetricVar (Bdd, MotherCell, Cell Inputs, Symmetric) 
BDD Bdd; 
LIB_CELL MotherCell; 
BLIST Celllnputs; 
int * Symmetric; 



This procedure returns '^Symmetric* set to 1 if there exists a derive*/ 
cell which realises the same Bdd 'Bdd' and which have only two switch*/ 
variable inputs compare to the binded vars of 'Celllnputs'. This is a*/ 
two symmetric variable case and we store the symmetry information */ 
between these two vars in the field ' GnlVarSymmetrics ' of these two */ 
vars. This will allow to cope the exploration tree later on when we */ 
want to switch those two vars. */ 

7 



{ 



BDD_PTR BddPtr; 
BLIST ListDerivedCells; 
int i ; 

LIB_DERIVE_CELL DeriveCelll ; 



BddPtr = GetBddPtrFromBdd (Bdd) ; 

/* No hook associated yet for the Bdd */ 
if ( IGetBddPtrHook (BddPtr)) 
{ 

*Symmetric = 0; 
return (GNL_0K) ; 

} 

ListDerivedCells = LibBddlnf oDeriveCells (BddPtr) ; 

for (i=0; i<BListSize (ListDerivedCells); i++) 

DeriveCelll = (LIB_DERIVE_CELL) BListElt (ListDerivedCells, i) ; 

/* If there is a derived cell realizing the same Bdd ... */ 
/* for the same mother cell. */ 
/* Then it is not necessary to create a derive cell. Moreover we*/ 
/* store the information between symmetric variables. */ 
if ((Bdd == LibDeriveCellBdd (DeriveCelll)) && 

(LibDeriveCellMotherCell (DeriveCelll) MotherCell)) 
{ 

/* We consider 1 to 1 one input between 'Celllnputs' and */ 
/* 'LibDeriveCelllnputs (DeriveCelll) as symmetric */ 
if (GnlSymmetricInputs (LibDeriveCell Inputs (DeriveCelll) , 
Celllnputs) ) 
return (GNL_MEMORY_FULL) ; 
*Symmetric = 1; 
return (GNL__OK) ; 

} 

} 

*Symmetric = 0; 
return (GNL_OK) ; 

} 
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/* GnlSavelnputSupport */ 

z* v 

GNL_STATUS GnlSavelnputSupport (Support, NewSupport) 
BLIST Support; 
BLIST *NewSupport ; 



{ 



int i ; 

BLIST SupportNode ; 

GNL_VAR Varl; 

GNL_VAR VarNewI ; 



if (BListCreateWithSize (BListSize (Support), NewSupport)) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (Support); i++) 

{ 

Varl = (GNL_VAR) BListElt (Support, i) ; 
VarNewI = GnlVarBindVar (Varl) ; 
if (BListAddElt (*NewSupport , (int ) VarNewI) ) 
return (GNL MEMORY FULL) ; 

} 

return (GNL_OK) ; 

} 



/* GnlRestorelnputSupport 



void GnlRestorelnputSupport (Support, SavedSupport ) 

BLIST Support; 

BLIST SavedSupport ; 

{ 

int i ; 

GNL__VAR Varl ; 

GNL_VAR VarNewI ; 



for (i=0; i<BListSize (Support); i++) 

Varl = (GNL_VAR) BListElt (Support, i) ; 
VarNewI = (GNL_VAR) BListElt (SavedSupport, i) ; 
SetGnlVarBindVar (Varl, VarNewI) ; 
} 



/* GnlSubstitutelnputSupport 



/* Ex: Support = (iO il i2) and OrderedSupport = (il i2 iO) then we */ 
/* have to substitute in 'SupportNode' il by iO, i2 by il and iO by i2 */ 
/* so we get: SupportNode = (i2 iO il) */ 



void GnlSubstitutelnputSupport (Support, OrderedSupport) 
BLIST Support; 
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BLIST 



OrderedSupport ; 



int 

int 

BLIST 

GNL__VAR 

GNL_VAR 

GNL VAR 



i; 
j ; 

SupportNode ; 
Varl ; 
VarJ; 
VarNewI ; 



for (i=0; i<BListSize (OrderedSupport); i++) 

/* We will substitute 'Varl' by the i-th element of 'Support'*/ 
Varl = (GNL_VAR) BListElt (OrderedSupport, i) ; 
if ((Varl 1= G_VAR_ZERO) && 
(Varl != G_VAR_ONE) ) 

{ 

for (j=0; j<BListSize (Support); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Support, j); 
if (Varl == VarJ) 
break; 

} 

/* We substitute bind Var of j -th Var in 'SupportNode 1 by 
/* i-th var of ' Celllnputs ' . */ 
SetGnlVarBindVar ( (GNL_VAR) BListElt (Support, j), 
(GNLJVAR) BListElt (Support, i) ) ; 

} 



/* 

/* GnlGenerateDerivedCellRec 

/* 

static int G_NbGnlGenerateDerivedCellRecCall ; 

static GNL G_LibGnl; 

static LIB_CELL G_Cell; 

static GNL_NODE G_Ce 11 Function ; 

static BLIST G_CellInputs ; 

GNL_STATUS GnlGenerateDerivedCellRec (Index) 
int Index; 

{ 



int 



GNL_VAR Va r Aux ; 

GNL_VAR Varl ; 

GNL_VAR Var Index; 
BDD Bdd; 

BDD_PTR BddPtr; 
LIB_BDD_INFO NewBddlnfo; 

BLIST NewList; 
LIB_DERIVE_CELL NewDeriveCell ; 

i n t Symmetric; 

BLIST SaveSupport ; 
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G__NbGnlGenerateDerivedCellRecCall++; 

if (BListSize (LibHCellDeriveCells (G_Cell) ) > G_MaxNbDe rive Cells) 
return (GNL_OK) ; 

if (Index < BListSize (G_Ce 11 Inputs) -1) 

{ 

if (GnlGenerateDerivedCellRec (Index + 1)) 
return (GNL_MEMORY_FULL) ; 

for (i = Index+l; i<BListSize (G_Ce 11 Inputs) ; i++) 
{ 

Varl = GnlVarBindVar ( (GNL_VAR) BListElt (G_Cell Inputs , i) ) ; 
Varlndex = GnlVarBindVar ( (GNL_VAR) BListElt (G_Ce 11 Inputs, 

Index) ) ; 

if ( (Varl != G_VAR_ZERO) && (Varl ! = G_VAR_ONE) && 

(Varlndex != G_VAR_ZERO) (Varlndex 1= G VAR ONE)) 

{ ~ ~ 

Varlndex = GnlVarBindVar ( (GNL_VAR) BListElt (G_CellInputs , 

Index) ) ; 

/* We use the pseudo canonical ordering that we got and we*/ 
/* cope the exploration tree if the order is not compatible/ 
/* We cope also the tree if the two Vars are symmetric */ 
if ( !GnlSymmetricVars (Varlndex, Varl)) 
{ 

SetGnlVarBindVar ( (GNL_VAR) BListElt ( G_Ce 11 Input s , i) , 
Varlndex) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt (G_Cell Inputs , Index) , 
Varl) ; 

if (GnlGenerateDerivedCellRec (Index + 1)) 
return (GNL__MEMORY_FULL) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt (G_Cell Inputs , Index), 
Varlndex) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt ( G_Ce 11 Input s , i) , 
Varl) ; 

} 

} 

} 

return (GNL_OK) ; 

} 



/* Then Index is equal to BListSize (G_Cell Inputs) . We are at the */ 
/* end of the recursion. */ 
/* We increment the Tag of the Gnl so we will recompute the Bdd for */ 
/* t G_CellFunction' and not use the Hook field. */ 
SetGnlTag (G_LibGnl, GnlTag (G_LibGnl) +1) ; 

/* BUG fix (05/20/99) */ 
#ifdef BUG_FIX 

if (GnlSavelnputSupport ( G_Ce 11 Input s , &SaveSupport ) ) 
return ( GNL_MEMORY_FULL ) ; 

/* we substitute the variables in order to respect the pseudo order */ 
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GnlSubstitutelnputSupport (G_Cel 1 Inputs , SaveSupport) ; 
#endif 

/* we build the new Bdd on the Boolean tree * G_Ce 11 Function ' */ 
if (GnlBuildBddOnNode (G_LibGnl, G_Ce 11 Function) ) 

return ( GNL_MEMORY_FULL ) ; 
Bdd = GnlNodeBdd (G_CellFunction) ; 

/* Actually this Bdd has been already computed and we are in a */ 
/* symmetric case. */ 
if (GnlVarHasSymmetricVar (Bdd, G_Cell, G_CellInputs , ^Symmetric) ) 
return ( GNL_MEMORY_FULL ) ; 

/* BUG fix (05/20/99) */ 
#ifdef BUG_FIX 

GnlRestorelnputSupport ( G_Ce 11 Input s , SaveSupport) ; 

BListQuickDelete (^SaveSupport ) ; 
#endif 

if (Symmetric) 

return (GNL_0K) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

/* We create the Bdd info structure if the Bdd has none in order to */ 
/* attach it usefull informations like the Derive Cell which realizes*/ 
/* it. */ 
if ( IGetBddPtrHook (BddPtr)) 
{ 

if (LibBddlnfoCreate (BddPtr, &NewBddInf o) ) 
return (GNLJVIEMORY FULL) ; 

} 

/* We create a new derive Cell and store all relevant informations */ 
/* related to it. */ 
if (GnlLibDeriveCellCreate ( &NewDe rive Cell ) ) 

return (GNL_MEMORY_FULL) ; 
SetLibDeriveCellMotherCell (NewDeriveCell , G_Cell) ; 
SetLibDeriveCellBdd (NewDeriveCell, Bdd) ; 

if (BListCreateWithSize (BListSize (G_Ce 11 Inputs) , &NewList) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<BListSize (G Cell Inputs) ; i++) 
{ 

Varl = GnlVarBindVar ( (GNL_VAR) BListElt (G_Cel 1 Inputs , i) ) / 
if (BListAddElt (NewList, (int)Varl)) 
return (GNL_MEMORY FULL) ; 

} 

SetLibDeriveCelllnputs (NewDeriveCell, NewList); 

/* we store on the Bdd node the fact that the current derive cell */ 
/* realizes it. */ 
if (BListAddElt (LibBddlnf oDeriveCells (BddPtr) , (int) NewDeriveCell) ) 
return (GNL_MEMORY_FULL) ; 

/* Adding this derive cell in the field of the Mother Cell */ 
if (BListAddElt (LibHCellDeriveCells (G_Cell) , (int) NewDeriveCell ) ) 
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return ( GNL_MEMORY_FULL ) ; 
return (GNL OK) ; 



/* ^ 

/* GnlGenerateDerivedCell */ 

z* v 

GNL_STATUS GnlGenerateDerivedCell (LibGnl, Cell, Init) 
GNL LibGnl; 
L1B_CELL Cell; 
int Init; 



{ 



int i ; 

GNL_VAR Varl ; 

BLIST Celllnputs; 

BLIST NewList; 

if {BListCreate UNewList) ) 
return ( GNL__MEMORY_FULL ) ; 

SetLibHCellDeriveCells (Cell, NewList) ; 

Celllnputs = LibHCe 11 Inputs (Cell) ; 

if (Init) 
{ 

for <i=0; i<BListSize (Celllnputs); i++) 

{ 

Varl = (GNL_VAR) BListElt (Celllnputs, i) ; 

/* Initialization: we bind each Variable by itself. */ 
SetGnlVarBindVar (Varl, Varl) ; 

/* If the list of symmetric vars already exists we reset it */ 
/* because it corresponds to the symmetric vars of the previous */ 
/* cell function. */ 
BSize (GnlVar Symmetries (Varl)) = 0; 

} 

/* setting global variables for recursive calls. */ 
G_LibGnl = LibGnl; 
G_Cell = Cell; 

G_Ce 11 Function = LibHCellFunction (Cell) ; 
G_CellInputs = Celllnputs; 

G_NbGnlGenerateDerivedCellRecCall = 0; 

/* We generate different Derived cells corresponding to each Bdd */ 
if (GnlGenerateDerivedCellRec (0)) 
return (GNL_MEMORY_FULL) ; 

/* 

fprintf (stderr, "NB CALL = %d\n», G_NbGnlGenerateDerivedCellRecCall) ; 
*/ 
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return (GNL_OK) ; 

} 

/* *i 

/* GnlDerivedCell */ 

/* *i 

/* This procedure analyze a mother cell and derives from it a list of */ 
/* Derived cells which corresponds to different flavour of the same */ 
/* function (but different Bdds) . */ 
/* 

GNL_STATUS GnlDerivedCell (LibGnl, Cell, Init) 
GNL LibGnl ; 

LIB_CELL Cell; 
int Init; 

{ 

BDD BddFunction; 
int i ; 

int j ; 

GNL_VAR Varl; 
LIB_DERIVE_CELL DeriveCelll ; 

GNL_VAR VarJ; 



SetGnlTag (LibGnl, GnlTag (LibGnl) +1); 

/* We build the Bdd corresponding to the function of the Cell which */ 
/* is a Boolean tree (GNL_NODE) . */ 
if (GnlBuildBddOnNode (LibGnl, LibHCe 11 Function (Cell))) 
return <GNL_MEMORY_FULL) ; 

BddFunction = GnlNodeBdd (LibHCellFunction (Cell)); 
if (GnlComputeVarsSignatureFromBdd (LibGnl, BddFunction) ) 
return (GNL_MEMORY_FULL) ; 

#ifdef TRACE_S IGNATURE 

for (i=0; i<BListSize (LibHCell Inputs (Cell)); i++) 
{ 

Varl = (GNL_VAR) BListElt (LibHCe 11 Inputs (Cell), i) • 
fprintf (stderr, " <%s> MinO=%d Minl=%d\n n / GnlVarName (Varl), 
GnlVarMinO (Varl), GnlVarMinl (Varl)); 

#endif 



if (GnlGenerateDerivedCell (LibGnl, Cell, Init)) 
return { GNL_MEMORY_FULL ) ; 

#ifdef TRACE_LIB 

for (i=0; i<BListSize (LibHCellDeriveCells (Cell)); i++) 
{ 

DeriveCelll = (LIB_DERIVE_CELL) 

BListElt (LibHCellDeriveCells (Cell), i) ; 
printf ("CELL <%s>\n'\ 

LibHCellName (LibDeriveCellMotherCell (DeriveCelll) ) ) ; 
bdd__print (LibHDeriveCellBdd (DeriveCelll) ) ; 

for (j=0; j<BListSize (LibHDeriveCell Inputs (DeriveCelll)); j++) 
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VarJ = ( GNL_ VAR ) 

BListElt (LibHDeriveCelllnputs (DeriveCelll) , j) 
printf ("%s GnlName (GnlVarBindVar (VarJ))); 

} 

printf ("\n\n n ) ; 
} 

#endif 

return (GNL_OK) ; 

} 

/* 

/* GnlDegenerateCellRec */ 

/* 

GNL_STATUS GnlDegenerateCellRec (LibGnl, Cell, Index) 
GNL LibGnl ; 

LIB_CELL Cell; 
int Index; 

{ 

int i; 
GNL_VAR Varl; 
BLIST Celllnputs; 



■*/ 
■*/ 



if (BListSize (LibHCellDeriveCells (Cell)) > G_MaxNbDeriveCells) 
return (GNL_OK) ; 

Celllnputs = LibHCell Inputs (Cell) ; 

if (Index < BListSize (Celllnputs) -1) 
{ 

if (GnlDegenerateCellRec (LibGnl, Cell, Index + 1)) 
return (GNL_MEMORY_FULL) ; 

for (i=lndex+l; i<BListSize (Celllnputs); i++) 

Varl = GnlVarBindVar { (GNL_VAR) BListElt (Celllnputs, i) ) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt (Celllnputs, i) , 
G_VAR_ZERO) ; 

if (GnlDegenerateCellRec (LibGnl, Cell, Index + 1)) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt (Celllnputs, i) , 

G_VAR_ONE) ; 

if (GnlDegenerateCellRec (LibGnl, Cell, Index + 1)) 
return (GNLJVIEMORY_FULL) ; 

SetGnlVarBindVar ( (GNL_VAR) BListElt (Celllnputs, i) , Varl) ; 
return (GNL_OK) ; 

} 

G_NbGnlGenerateDerivedCellRecCall = 0; 
if (GnlDerivedCell (LibGnl, Cell, 0)) 
return (GNL_MEMORY_FULL) ; 
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return (GNL_OK) ; 

} 

/* 

/* GnlDegenereCell 

/* 

GNL_STATUS GnlDegenereCell (LibGnl, Cell) 
GNL LibGnl ; 

LIB_CELL Cell; 



{ 



} 



BLIST Celllnputs; 
int i ; 

GNL VAR Varl; 



Celllnputs = LibHCell Inputs (Cell) ; 
for (i=0; i<BListSize (Celllnputs); i++) 
{ 

Varl = (GNL_VAR) BListElt (Celllnputs, i) ; 

/* Initialization: we bind each Variable by itself. */ 
SetGnlVarBindVar (Varl, Varl) ; 

/* If the list of symmetric vars already exists we reset it */ 
/* because it corresponds to the symmetric vars of the previous */ 
/* cell function. */ 
BSize (GnlVarSymmetrics (Varl)) = 0; 

} 



if (GnlDegenerateCellRec (LibGnl, Cell, 0) ) 
return { GNL_MEMORY_FULL ) ; 

return (GNL OK) ; 



/* 

/* GnlBuildDerivedCells 

/* 

GNLJSTATUS GnlBuildDerivedCells (GnlLib) 
LIBC_LIB GnlLib; 

{ 

int i ; 

GNL LibGnl ; 

LIBC_CELL Cell I; ^ 

LIB_CELL HCelll; 

GNL_LIB HGnlLib; 

int NbComboCells; 

int Index; 

LIBC_PIN Output Pin; 



HGnlLib = (GNL_LIB) LibHook (GnlLib); 
LibGnl = GnlHLibGnl (HGnlLib) ; 



■*/ 



/* we count first the number of combinational cells 
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NbComboCells = 0; 

Celll = LibCells (GnlLib) ; 

for (; Celll 1= NULL; Celll = LibCellNext (Celll)) 
{ 

/* If a sequential cell or cell not to use */ 
if (LibCellFFLatch (Celll) || LibCellDontUse (Celll)) 
continue; 

/* if it is a 3 states cell we return. */ 
if (LibCellWith3StatePin (Celll, &OutputPin) ) 
continue; 

HCelll = (LIB_CELL) LibCellHook (Celll); 

/* We derive only combinational cells. */ 
if (LibHCellType (HCelll) != CELL_I S_COMB INATORIAL ) 
continue; 

/* The cell has no function. */ 
if { ILibHCe 11 Function (HCelll)) 
continue; 

NbComboCells++ ; 

} 

Celll = LibCells (GnlLib) ; 
Index = 0; 

for (; Celll != NULL; Celll = LibCellNext (Celll)) 

{ 

/* If a sequential cell or cell not to use */ 
if (LibCellFFLatch (Celll) || LibCellDontUse (Celll)) 
continue ; 

/* if it is a 3 states cell we return. */ 
if (LibCellWith3StatePin (Celll, &OutputPin) ) 
continue ; 

HCelll = (LIB_CELL) LibCellHook (Celll); 

/* We derive only combinational cells. */ 
if (LibHCellType (HCelll) 1= CELL_IS_COMB INATORIAL) 
continue; 

/* The cell has no function. */ 
if ( ILibHCellFunction (HCelll)) 
continue; 

Index++; 

if (IGnlEnvLog () ) 
{ 

fprintf (stderr, "%c Building Combinational Cell [%d/%d] n , 13, 
Index, NbComboCells) ; 

} 

if (GnlDerivedCell (LibGnl, HCelll, 1)) 
return (GNL_MEMORY_FULL) ; 
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#ifdef USE_DEGENERATED_CELL 

if (GnlDegenereCell (LibGnl, HCelll) ) 
return ( GNL_MEMORY_FULL ) ; 

#endif 
/* 

fprintf (stderr, " GATE <%s>: NB DERIVED CELLS = %d\n", 
LibHCellName (HCelll) , 
BListSize (LibHCellDeriveCells (HCelll) ) ) ; 

*/ 



if (IGnlEnvLog ()) 
{ 

fprintf (stderr, "%c Building Combinational Cell [%d/%d] \n\n" , 13, 
Index, NbComboCells) ; 

} 

return (GNLOK) ; 

} 

/* 

/* GnlPrintLibc */ 
/* 

void GnlPrintLibc (GnlLib) 



it/ 

LIBC_LIB GnlLib; 



{ 

LIBC_CELL Celll; 
LIBC_PIN Pins; 

LIB C_NAME_L 1ST ListPinName; 



Celll = LibCells (GnlLib) ; 

for (; Celll != NULL; Celll = LibCellNext (Celll)) 

fprintf (stderr, "%s (", LibCellName (Celll) ) ; 
Pins = LibCellPins (Celll); 

for (;Pins 1= NULL; Pins = LibPinNext (Pins) ) 

if (LibPinNext (Pins) == NULL) 
break; 

ListPinName = LibPinName (Pins) ; 

if ( IGnlSinglePinName (ListPinName) ) 

{ 

fprintf (stderr, "??, ») ; 

} 

else 

{ 

fprintf (stderr, "%s, ", LibNameListName (ListPinName))- 

} 

} 

if (Pins) 

{ 

ListPinName = LibPinName (Pins) ; 
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if ( IGnlSinglePinName (ListPinName)) 
{ 

fprintf {stderr, "??"); 

} 

else 

{ 

fprintf (stderr, »%s", LibNameListName (ListPinName)); 

} 

} 

fprintf (stderr, n )\n") ; 

} 

fprintf (stderr, "\n\n\n\n\n") ; 

} 

/* */ 

/* GnlBuildLibBdd */ 

/* *i 

/* This procedure analyzes each cell of the library and build its pseudo*/ 
/* canonical Bdd representation. All these Bdds are stocked in the Bdd */ 
/* work space 'Ws' which is the Bdd image of the netlist 'GnlLibGnl' of */ 
/* 'GnlLib'. For each Bdd node we store eventually the list of cells on */ 
/* which it can be mapped on. */ 
/* 

GNL^STATUS GnlBuildLibBdd (GnlLib) 
LIBCJbIB GnlLib; 

{ 

GNL LibGnl; 
int MaxFanln; 
GNL_STATUS Status ; 

BDD_WS Ws ; 
GNL_LIB HGnlLib; 

/* We pick up the "virtual" associated netlist of the current lib. */ 
HGnlLib = (GNL_LIB) LibHook (GnlLib) ; 
LibGnl = GnlHLibGnl (HGnlLib) ; 

MaxFanln = BListSize (Gnllnputs (LibGnl)); 

/* Initializing the Bdd work space */ 
if ((Status = InitBddWorkSpace (MaxFanln+l , &Ws) ) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlHLibBddWorkSpace (HGnlLib, Ws) ; 

/* Creating Bdd for each primary input. */ 
if ((Status = GnlSetBddlnputs (LibGnl, Gnllnputs (LibGnl)))) 
return (Status) ; 

/* Giving terminal Bdd for specific variables */ 
SetGnlVarBdd (G_VAR_ZERO, bdd_zero () ) ; 
SetGnlVarBdd (G_VAR_ONE, bdd_one {) ) ; 

/* Now we derive all the cells of the Library. */ 
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} 



if (GnlBuildDerivedCells (GnlLib) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL OK) ; 



/* 

/* GnlNormalizelnputsInNode */ 

/* 

/* This procedures substitutes each old Variable by the associated */ 

/* normalized one. */ 

/* We use the Hook field of the old variables to point on their new */ 

/* unify variable. So we substitute old variables by their Hook field */ 

/* if this one is not NULL . */ 

/* ie/ 

static BLIST G_ListInputs; 
static int G_Index; 

GNL_STATUS GnlNormalizelnputsInNode (Gnl, Node) 
GNL Gnl ; 

GNLJtfODE Node; 

{ 

int i ; 

GNL_NODE SonI; 
GNL_VAR Var; 
BLIST Sons; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNLJDK) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL__VAR) GnlNodeSons (Node); 

/* If already passed thru this var we take the inputs $i which */ 
/* has been previously associated to it. */ 
if (GnlVarTag (Var) == GnlTag (Gnl)) 
{ 

SetGnlNodeSons (Node, (BLIST) Gnl VarHook (Var) ) ; 
return (GNL_OK) ; 

} 

SetGnlVarTag (Var, GnlTag (Gnl) ) ; 

/* we affect to this Var the first available normalized input. To*/ 
/* do so, we use the Hook field. */ 
SetGnlVarHook (Var, (void* ) BListElt (G_Li st Inputs , G_Index++) ) ; 
SetGnlNodeSons (Node, (BLIST) GnlVarHook (Var) ) ; 
return (GNL_OK) ; 

} 

Sons = GnlNodeSons (Node) ; 

for (i=0; i<BListSize (Sons); i++) 

{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlNormalizelnputsInNode (Gnl, SonI)) 
return (GNL_MEMORY_FULL) ; 

} 
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return (GNL OK) ; 



} 

v 



/* 



/* GnlGetGnlNodeSupportRec */ 
/★ 

GNL_STATUS GnlGetGnlNodeSupportRec (GnlNode, Support) 
GNL_NODE GnlNode / 

BLIST * Support; 



{ 



int i ; 

GNL_NODE SonI; 
GNL_VAR Var; 



if (GnlNodeOp (GnlNode) GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (GnlNode) == GNL VARIABLE) 
{ 

Var = ( GNL_VAR ) GnlNode S ons (GnlNode); 
if ( IBListMemberOfList (*Support, Var, Intldentical) 
if (BListAddElt (*Support, (int) Var)) 
return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (GnlNode)); i++) 

SonI = (GNL_NODE)BListElt (GnlNodeSons (GnlNode), i) ; 
if (GnlGetGnlNodeSupportRec (SonI, Support)) 
return ( GNL_MEMORY FULL) ; 

} 

return (GNL OK) ; 



} 

/* 
/* 
/* 



/*- 

GNL_STATUS GnlGetGnlNodeSupport (GnlNode, Support) 
GNL__NODE GnlNode; 
BLIST ^Support; 



GnlGetGnlNodeSupport 




*/ 


Returns the support of the Boolean Tree 
is 'Support' and is composed of GNL VAR 


' GnlNode ' , 
elements . 


. The returned list 
*/ 



{ 



if (BListCreateWithSize (1, Support)) 
return (GNL_MEMORY_FULL) ; 

if (GnlGetGnlNodeSupportRec (GnlNode, Support)) 
return (GNL_MEMORY__FULL) ; 

return (GNL OK) ; 
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/* GnlGetlnputs 



/* This procedure scans recursively the expression 'Node' and builds the*/ 
/* list of GNL_VAR which are the leaves. This list is 'Inputs'. Each var*/ 
/* is present only one time. */ 



GNL_STATUS GnlGetlnputs (Node, Inputs) 
GNL_NODE Node; 
BLIST Inputs; 

{ 

int i ; 

GNL_VAR Var; 
GNLJNODE SonI; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node); 

if ( !BListMemberOfList (Inputs, Var, Intldentical) ) 
if (BListAddElt (Inputs, (int) Var)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
if (GnlGetlnputs (SonI, Inputs)) 
return ( GNL_MEMORY FULL) ; 

} 

return (GNL OK) ; 

} 

/* 

/* GnlGetOutputPinFromPins */ 

/* 1 

I ^ 

/* This procedure scans a list of Pins and returns the first output or */ 

/* inout pin encountered. */ 

/* If there is no such pin then a NULL value is assigned to ' OutputPin ' . */ 

/*; */ 

void GnlGetOutputPinFromPins (Pins, OutputPin) 

LIBC_PIN Pins; 

LIBC_PIN * Output Pin; 

{ 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

if ( (LibPinDirection (Pins) OUTPUT_E) || 

(LibPinDirection (Pins) == INOUT E) ) 

{ 

♦OutputPin = Pins; 
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return; 

} 

} 

*OutputPin = NULL; 

} 

/* ^ 

/* GnlGetListOutputPinFromPins */ 
/ * , 

/* This procedure scans a list of Pins and returns the list of outputs */ 
/* or inout pin encountered. 

/* If there is no such pin then a NULL value is assigned to ' OutputPin ' . */ 
/* v 

GNLJSTATUS GnlGetListOutputPinFromPins (Pins, ListOutputPin) 
LIBC_PIN Pins; 
BLIST *ListOutputPin; 

{ 

if (BListCreateWithSize (1, ListOutputPin)) 
return (GNL_MEMORY_FULL) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ 

if ( (LibPinDirection (Pins) == OUTPUT_E) || 
(LibPinDirection (Pins) == INOUT E) ) 

{ 

if (BListAddElt (*ListOutputPin, (int)Pins)) 
return (GNL MEMORY FULL) ; 

} 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlOpFromBoolOprOp */ 

/* v 

/* Returns the GNL_OP operator corresponding to the libc_bool_type E one*/ 
/* z ic/ 

GNL_OP GnlOpFromBoolOprOp (BoolOprOp) 
libc_bool type E BoolOprOp ; 

{ 

switch (BoolOprOp) { 
case OR_B: 

return (GNL_OR) ; 
case AND_B: 

return (GNL AND) ; 

} 



} 



/* #/ 

/* GnlGetGnlNodeFromBoolOpr */ 
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GNL 
LIBC_BOOL_ 
GNL_NODE 
int 



LibGnl ; 
OPR BoolOpr; 
* GnlNode; 

♦Error ; 



/ 



/* This procedure returns the GNL_NODE expression thru 'GnlNode' of the */ 

/* original tree expression of type LIBC_BOOL_OPR generated in the LIBC */ 

/* parsing. Indexsignal, buses are not considered and we exit(l). */ 

/* The GNL_NODE objects are created in the memory segment of 'LibGnl'. */ 
/* 

GNL_STATUS GnlGetGnlNodeFromBoolOpr (LibGnl, BoolOpr, GnlNode, Error) 



text_buf f er 

GNL_STATUS 

GNL_VAR 

GNL__NODE 

GNL__NODE 

BLIST 



*VarName; 

GnlStatus ; 
GnlVar ; 
GnlNodeLeft; 
GnlNodeRight / 
NewList ; 



* Error = 0; 



/* terminal bool opr. */ 
switch (LibBoolOprType (BoolOpr) ) { 

/* terminal case of a signal. */ 
case ID_B: 

VarName = LibBoolOprldName (BoolOpr) ; 

if ((GnlStatus = GnlVarCreateAndAddlnHashTable (LibGnl, 
^ VarName, &GnlVar) ) ) 

if (GnlStatus 1= GNL_VARJBXISTS) 
return (GNL MEMORY FULL) ; 

} 

if (GnlCreateNode (LibGnl, GNL__VARIABLE, GnlNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*GnlNode, (BLIST) GnlVar) ; 
break; 



case ZERO_B: 

if (GnlCreateNodeVss (LibGnl, GnlNode)) 

return ( GNL_MEMORY_FULL ) ; 
break; 



case ONE_B: 

if (GnlCreateNodeVdd (LibGnl, GnlNode)) 

return ( GNL__MEMORY_FULL ) ; 
break; 

/* case of binary Boolean operators */ 
case XOR_B: 
case OR_B : 
case AND_B: 

if (GnlGetGnlNodeFromBoolOpr (LibGnl, 

LibBoolOprLef tSon (BoolOpr) , 
&GnlNodeLef t, Error) ) 

return ( GNL_MEMORY__FULL ) ; 
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if (*Error) 

return (GNL_OK) ; 

i f ( GnlGe tGnlNodeFromBoolOpr ( LibGnl , 

LibBoolOprRightSon (BoolOpr) , 
&GnlNodeRight , Error) ) 

return ( GNL_MEMORY_FULL ) ; 

if (*Error) 

return (GNL_OK) ; 

if (LibBoolOprType (BoolOpr) == XOR B) 
{ 

if (GnlCreateNodeXor (LibGnl, GnlNodeLeft, GnlNodeRight , 

GnlNode, 0)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

} 

if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) GnlNodeLef t) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, ( int ) GnlNodeRight ) ) 

return ( GNL__MEMORY_FULL ) ; 

if (GnlCreateNode (LibGnl, 

GnlOpFromBoolOprOp (LibBoolOprType (BoolOpr) ) , 

GnlNode) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*GnlNode, NewList); 
break; 

/* Unary Boolean operators. It son is the right one */ 
case NOT_B: 

if (GnlGetGnlNodeFromBoolOpr (LibGnl , 

LibBoolOprRightSon (BoolOpr) , 
^GnlNodeRight , Error) ) 

return <GNL_MEMORY_FULL) ; 

if (*Error) 

return (GNL_OK) ; 

if (GnlCreateNodeNot (LibGnl, GnlNodeRight, GnlNode)) 

return ( GNL_MEMORY_FULL ) ; 
break; 

default : 

*Error = 1; 
return (GNL OK) ; 

} 

return (GNL_OK) ; 



B-CORE-158 



gnllib.c 



/* GnlGetCelllnputsOrigin */ 

z* v 

/* For each combinatorial cell we build the GNL_NODE of its function and*/ 

/* extracts the inputs composing this function. These inputs are stored 
*/ 

/* in the list 'SetLibCelllnputsOrigin'. */ 

z* #/ 

GNL_STATUS GnlGetCelllnputsOrigin (LibGnl, Cell) 

GNL LibGnl ; 

LIBC_CELL Cell; 

{ 

GNL JNTODE Node ; 

BLIST NewList; 

LIBC_PIN Pins; 

LIBC_PIN OutputPin; 

L I BC_BOOL_OPR Func t i on ; 

LIB_CELL HCell; 

LIB C_MAME_L 1ST ListPinName; 
char *PinName; 
int Error; 



/* It is a sequential cell. */ 
if (LibCellFFLatch (Cell)) 
return (GNL_OK) ; 

/* if it is a 3 states cell we return. */ 
if (LibCellWith3StatePin (Cell, ScOutputPin) ) 
return (GNL_OK) ; ; 

Pins = LibCellPins (Cell) ; 

/* we extract the first output Pin. If no output pin then we return */ 
GnlGetOutputPinFromPins (Pins, &OutputPin) ; 
if (! OutputPin) 

return (GNL_OK) ; 

Function = LibPinFunction (OutputPin) ; 

ListPinName = LibPinName (OutputPin) ; 

/* Since 1 PinName ' can be a bundle a bus or a pin group we need to */ 
/* that it is a single bit signal. */ 
/* if there are different names we do not take this cell into account*/ 
if ( !GnlSinglePinName (ListPinName)) 
return (GNL_OK) ; 

PinName = LibNameListName (ListPinName) ; 

if (! Function) 
{ 

/* WARNING: we need to print out a warning message. */ 
return (GNL OK) ; 

} 

/* Creating the GNL_NODE expression from the BOOL_OPR expression */ 
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if (GnlGetGnlNodeFromBoolOpr (LibGnl, Function, &Node, &Error) ) 
return (GNL_MEMORY_FULL) ; 

if (Error) 

return (GNL_OK) ; 

HCell = (LIB_CELL) LibCellHook (Cell) ; 

/* If there is no real functionality then we continue. */ 
if ( (GnlNodeOp (Node) == GNL__VARIABLE) | | 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

SetLibHCellFunction (HCell, NULL) ; 
SetLibHCelllnputsOrigin (HCell, NULL); 
SetLibHCellType (HCell, CELL_ISJEXOTIC) ; 
return (GNL_OK) ; 

} 

/* Adding the ouput name. */ 
SetLibHCellOutput (HCell, PinName) ; 

/* Then the cell is a combinatorial one. */ 
SetLibHCellType (HCell, CELL_IS_COMBINATORIAL> ; 

/* Setting the field function of the gnl cell 'HCell'. The function */ 
/* is a GNL_NODE inherited from the BOOL_OPR expression. */ 
SetLibHCellFunction (HCell, Node) ; 

#ifdef TRACE_COMBO__CELL 

fprintf (stderr, "Cell <%s>: %s - », LibHCellName (HCell), PinName); 

GnlPrintNodeRec (stderr, Node, 0) ; 

fprintf (stderr, "\n"); 
#endif 

if (BListCreateWithSize (1, &NewList) ) 
return ( GNL__MEMORY_FULL ) ; 

SetLibHCelllnputsOrigin (HCell, NewList) ; 

if (GnlGetlnputs (Node, NewList)) 
return (GNL__MEMORY_FULL) ; 

return (GNL_OK) ; 



/* GnlUnifylnputsInLibGnl 



/* This procedures redefines the primary inputs in order to put all the */ 

/* cells boolean functions dependant on these primary inputs. If for */ 

/* instance the MaxFanln of the library is 'n' then we will create »n' */ 

/* new internal primary inputs which are: $il, $i2, $in. In each */ 

/* boolean tree we will replace the old primary inputs by those ones. */ 
/* Ex: (a+b+c) . (!a+!b) --> ($il+$i2+$i3 ) . (!$il.!$i2) */ 

/* So the 'GnlLibGnl' of 'GnlLib' has new inputs which will be used by */ 
/* all the cells functions (e.g. GNL_NODE) . */ 
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/* 

GNL_STATUS GnlUnif y Input slnLibGnl (GnlLib) 
LIBC_LIB GnlLib ; 

{ 

int i ; 

GNL LibGnl; 
GNL_VAR NewVar; 
BLIST NewList; 
LIBC_CELL Celll; 
GNL_VAR_LIB_INFO VarLiblnf o ; 

BLIST Support; 
GNL_LIB HGnlLib; 
LIB_CELL HCelll; 



HGnlLib = (GNL_LIB) LibHook (GnlLib); 
LibGnl = GnlHLibGnl (HGnlLib) ; 

/* Creating List inputs for each Cell and extracting the Max Fan In 
SetGnlHLibMaxFanln (HGnlLib, 0) ; 
Celll = LibCells (GnlLib) ; 

for {; Celll NULL; Celll = LibCellNext (Celll)) 

if (GnlGetCelllnputsOrigin (LibGnl, Celll)) 
return (GNL_MEMORY__FULL) ; 

HCelll = (LIB_CELL)LibCellHook (Celll); 
if (BListSize (LibHCell Input sOrigin (HCelll)) > 
GnlHLibMaxFanln (HGnlLib) ) 
SetGnlHLibMaxFanln (HGnlLib, 

BListSize (LibHCelllnputsOrigin (HCelll))) 

/* we create the new unify list of inputs used by all the cells 
/* functions. */ 
if (BListCreate (ScNewList) ) 

return { GNL_MEMORY_FULL ) ; 
for (i=0; i<GnlHLibMaxFanIn (HGnlLib); i++) 

if (GnlCreateUniqueVar (LibGnl, "$1", &NewVar) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
/* Adding extra information on the Hook fiels\d of these Vars 
if (GnlVarLiblnfoCreate (&VarLibInf o) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlVarHook (NewVar, VarLiblnf o) ; 



/* we create two particular Variables which are GNL_VAR_ZERO and 
/* GNL_VAR_ONE usefull for the degenerate pass. * 
if (GnlCreateUniqueVar (LibGnl, "$ZERO", &G_VAR_ZERO) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarLiblnfoCreate (&VarLibInf o) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlVarHook (G_VAR_ZERO, VarLiblnfo) ; 
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if {GnlCreateUniqueVar (LibGnl, " $ONE" , &G_VAR_ONE) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarLiblnfoCreate < &VarLibInf o) ) 

return ( GNL __MEMORY_FULL ) ; 
SetGnlVarHook ( G_VAR_ONE , VarLiblnfo) ; 

BListQuickDelete (&GnlInputs (LibGnl) ) ; 
SetGnllnputs (LibGnl, NewList) ; 

SetGnlNbln (LibGnl, BListSize (Gnllnputs (LibGnl))); 
G_List Inputs = Gnllnputs (LibGnl) ; 

Celll = LibCells (GnlLib) ; 

for (; Celll != NULL; Celll = LibCellNext (Celll)) 
{ 

G_Index = 0; 

/* We increment the Gnl Tag in order to re -compute data in the 
/* 1 GnlFunctionOnSet • */ 
SetGnlTag (LibGnl, GnlTag (LibGnl) +1) ; 

/* If it is not a combinational gate we continue */ 
HCelll = (LIB_CELL) LibCellHook (Celll) ; 
if ( I LibHCe 11 Function (HCelll)) 
continue; 

if (GnlNormalizelnputsInNode (LibGnl, LibHCe 11 Function (HCelll))) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlGetGnlNodeSupport (LibHCellFunction (HCelll), ^Support) ) 
return (GNL_MEMORY_FULL) ; 

/* The new inputs of the Cell 'Celll 1 is the support function 
SetLibHCelllnputs (HCelll, Support); 



return (GNL_OK) ; 

} 

/* 

/* GnlGetlnverters */ 

/* 

/* This procedure extracts the list of inverters in the library and 
/* stores it in "GnlLiblnverters (GnlLib) " . * 
/* 

GNL_STATUS GnlGetlnverters (GnlLib) 
LIBC_LIB GnlLib; 

{ 

GNL LibGnl; 
BLIST Listlnputs; 
GNL_VAR Var; 
GNL__N0DE NodeVar; 
GNL__NODE NotNodeVar; 
BDD Bdd; 
BDD_PTR BddPtr; 
GNL_L IB HGn 1 L i b ; 
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HGnlLib = (GNL_LIB) LibHook (GnlLib) ; 
LibGnl = GnlHLibGnl (HGnlLib) ; 
Listlnputs = Gnllnputs (LibGnl) ,* 
Var - (GNL_VAR) BListElt (Listlnputs, 0) ; 

if (GnlCreateNodeForVar (LibGnl, Var, &NodeVar) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateNodeNot (LibGnl, NodeVar, &NotNodeVar) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlBuildBddOnNode (LibGnl, NotNodeVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarBindVar (Var, NULL) ; 



Bdd = GnlNodeBdd (NotNodeVar) ; 



} 



BddPtr = GetBddPtrFromBdd (Bdd) ; 
if (IGetBddPtrHook (BddPtr) || 

(BListSize {LibBddlnf oDeriveCells (BddPtr)) 0)) 

fprintf {stderr, "ERROR: not inverters defined in the library\n w ) ; 
return ( GNL_MEMOR Y FULL) ; 

} 

SetGnlHLiblnverters (HGnlLib, LibBddlnf oDeriveCells (BddPtr)); 
return (GNL_0K) ; 



. * 



/ 



ic/ 

/* GnlGetSizeOfBasicEquivalentGate */ 
±/ 

/* This procedure extracts the size of the basic gates of the current */ 
/* library (e.g Minimum of AND2) and stores it in one of the field of */ 
/* library 'HGnlLib'. */ 
/* 

GNL_STATUS GnlGetSi zeOf BasicEquivalentGate (GnlLib) 

LIBC_LIB GnlLib; 

{ 

GNL LibGnl; 

BLIST Listlnputs; 

GNL__VAR Varl; 

GNL_VAR Var2 ; 

GNL__N0DE NodeVar 1 ; 

GNL__NODE NodeVar2 \ 

GNL_N0DE NodeAnd2 \ 

BDD Bdd; 

BDD_PTR BddPtr; 

GNL_LIB HGnlLib; 

BLIST NewList; 

LIB_DERIVE_CELL Cell I ; 

LIB_CELL MotherCelll ; 

LIB_CELL BestCell; 

float Area; 

int i ; 
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HGnlLib = (GNL_LIB) LibHook (GnlLib) ; 
LibGnl = GnlHLibGnl (HGnlLib) ; 
Listlnputs = Gnllnputs (LibGnl) ; 
Varl = (GNL_VAR) BListElt (Listlnputs, 0) ; 
Var2 = (GNL_VAR) BListElt (Listlnputs, 1) ; 

if (GnlCreateNodeForVar (LibGnl, Varl, &NodeVarl) ) 
return (GNL__MEMORY_FULL) ; 

if (GnlCreateNodeForVar (LibGnl, Var2 , &NodeVar2) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (LibGnl, GNL__AND, &NodeAnd2)) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (2, &NewList)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) Node Varl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) NodeVar2 ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NodeAnd2, NewList) ; 

if (GnlBuildBddOnNode (LibGnl, NodeAnd2) ) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlVarBindVar (Varl, NULL) ; 
SetGnlVarBindVar (Var2 , NULL) ; 

Bdd = GnlNodeBdd (NodeAnd2); 

BddPtr = GetBddPtrFromBdd (Bdd) ; 

/* There is no AND in the netlist */ 
if ( IGetBddPtrHook (BddPtr) || 

(BListSize (LibBddlnfoDeriveCells (BddPtr)) == 0)) 

return (GNL_OK) ; 

} 

Area = 1000000000.0; 

for (i=0; i<BListSize (LibBddlnfoDeriveCells (BddPtr)); i++) 

Celll = (LIB__DERIVE_CELL) BListElt (LibBddlnfoDeriveCells (BddPtr) 

i); 

MotherCelll = LibDeriveCellMotherCell (Celll) ; 
if ((Bdd == LibDeriveCellBdd (Celll)) && 
(LibHCellArea (MotherCelll) < Area)) 

{ 

Area = LibHCellArea (MotherCelll) ; 
BestCell = MotherCelll; 

} 

} 

/* If not found any area for basic gate then we give 1.0 as area */ 
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if (Area == 1000000000.0) 
Area = 1.0; 

SetGnlHLibAreaBasicEqGate (HGnlLib, (double) Area) ; 
return (GNL_OK) ; 

} 

/* #/ 

/* GnlCreateFillLibcHookStructures */ 

/*— : ' v 

/* This procedure creates our own structures related to GNL LIB, */ 

/* LIB_CELL, ... and hooks them to the LIBC structures. At the same time*/ 

/* some fields are set especially for the LIB CELL structure */ 

/* t ; v 

GNL_STATUS GnlCreateFillLibcHookStructures (GnlLibc) 
LIBC_LIB GnlLibc; 



{ 



LIBC_CELL Celll; 

LIB_CELL LibCell; 

GNL__LIB GnlLib; 
char *NewName; 



if (GnlLibCreate (&GnlLib)) 
return (GNL__MEMORY_FULL) ; 



/* Adding our own structure library to the original one 
SetLibHook (GnlLibc, GnlLib); 



Celll = LibCells (GnlLibc) ; 

for {; Celll != NULL; Celll = LibCellNext (Celll)) 

if (GnlLibCellCreate (&LibCell) ) 
return (GNL_MEMORY_FULL) ; 

/* We fill some particular important fields of the LIB_CELL */ 
/* structure. */ 
if (GnlStrCopy (LibCellName (Celll), &NewName)) 

return (GNL_MEMORY_FULL) ; 
SetLibHCellName (LibCell, NewName) ; 
SetLibHCellLibcCell (LibCell, Celll) ; 
SetLibHCellLib (LibCell, GnlLib) ; 

/* Hooking libc cell 'Celll' with the gnl cell 'LibCell'. */ 
SetLibCellHook (Celll, LibCell); 



return (GNL OK) ; 

} 

z* 

/* GnlCelllsBuffer */ 
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/* This function returns 1 if the cell 'Cell' is a buffer and 0 
/* otherwise. */ 
/* [_ 

int GnlCelllsBuffer (Cell) 
LIBC_CELL Cell; 

{ 

LIBC_PIN Pins; 
LIBC_PIN OutputPin ; 

LIBC_BOOL_OPR Function; 



Pins = LibCellPins (Cell) ; 
if (!Pins) 

return (0) ; 

if (ILibPinNext (Pins)) 
return (0) ; 

if (LibPinNext (LibPinNext (Pins)) != NULL) 
return (0) ; 

GnlGetOutputPinFromPins (Pins, &OutputPin) ; 
Function = LibPinFunction (OutputPin) ; 

if (! Function) 
return (0) ; 

if (LibBoolOprType (Function) != ID_B ) 
return (0) ; 

return (1) ; 



/* 

/* GnlExtractLibcBuffers 



GNL_STATUS GnlExtractLibcBuffers (GnlLibc, LibcBuffers) 

LIBC_LIB GnlLibc; 
^ BLIST *LibcBuffers; 

int i ; 

LIBC_CELL Celll; 



-*/ 



if (BListCreate (LibcBuffers)) 
return (GNL_MEMORY_FULL) ; 

Celll = LibCells (GnlLibc) ; 

for ( ; Celll 1= NULL; Celll = LibCellNext (Celll)) 

if (LibCellDontTouch (Celll) | | LibCellDontUse (Celll) 
LibCellPad (Celll) ) 
continue; 

if ( I GnlCelllsBuffer (Celll)) 
continue; 
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if (BListAddElt ( *LibcBuf f ers , Celll) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* v 

/* GnlComputeCellArea */ 

/* v 

/* Returns the AREA of the cell 'Cell'. Here we pick up simply the value*/ 
/* stored in ' LibCellArea (Cell)*. */ 

z* v 

float GnlComputeCellArea (Cell) 
LIBC_CELL Cell; 

{ 

return (LibCellArea (Cell) ) ; 

} 

/* v 

/* GnlComputeBddTransitionProbability */ 

/* , 

f ^ j 

/* Returns the transition for the Cell 'Cell' to pass from the output */ 
/* value '0' to '1'. we use a bdd representant to compute the cardi- */ 
/* nality of the On set and Off set. */ 
/* 

GNL_STATUS GnlComputeBddTransitionProbability (Bdd, Proba) 
BDD Bdd; 
float *Proba; 



{ 



int NbOnSetMinterm; 

int NbOffSetMinterm; 

int NbTotalMinterm; 

int TotalTransitions ; 

int ToggleTransi tions ; 

Ui nt 3 2 B ddMax I ndex ; 

Uint32 Index; 

int Mini; 

int MinO; 



BddMaxIndex = 0; 

GnlGetBddMaxIndex (Bdd, &BddMaxIndex) ; 

if (GnlComputeBddMinterms (0, Bdd, BddMaxIndex, &Index, &Minl, 

&MinO ) ) 
return ( GNL__MEMORY_FULL ) ; 

/* The On set cardinality id the sum of 'Mini 1 and 'MinO*. 
NbOnSetMinterm = Mini + MinO; 

NbTotalMinterm = 1; 

while (BddMaxIndex--) NbTotalMinterm = 2*NbTotalMinterm ; 



*/ 
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NbOf f SetMinterm = NbTotalMinterm-NbOnSetMinterm; 

TotalTransitions = NbTotalMinterm * NbTotalMinterm; 
ToggleTransitions = NbOnSetMinterm * NbOf f SetMinterm; 

*Proba - (float) ToggleTransitions/ (float) TotalTransitions; 
return (GNL_OK) ; 



/* 

/* GnlComputeCellChargeProba */ 
/* */ 
/* Returns the transition for the Cell 'Cell* to pass from the output */ 
/* value -0' to '1*. we use a bdd representant to compute the cardi- */ 
/* nality of the On set and Off set. */ 

/* If the cell has no representant then we take 0.5 as probability. */ 
/* 

GNL_STATUS GnlComputeCellChargeProba (GnlLibc, Cell, Proba) 
LIBC_LIB GnlLibc; 
LIBC_CELL Cell; 
float *Proba; 



{ 



LIB_CELL LibCell; 
float LoadCapacitance; 
BLIST ListEquivCells ; 

LIB_DERIVE_CELL DeriveCell; 
BDD Bdd; 



. * 



LibCell = (LIB_CELL) LibCellHook (Cell) ; 
ListEquivCells = LibHCellDeriveCells (LibCell) ; 

if (ListEquivCells) 
{ 

DeriveCell = (LIB_DERIVE_CELL) BListElt (ListEquivCells, 0) ; 
Bdd = LibDeriveCellBdd (DeriveCell); 

/* we compute the probability of the gate to transit from output */ 
/* 0 to 1. */ 

if (GnlComputeBddTransitionProbability (Bdd, Proba)) 
return ( GNLJ4EM0R Y_FULL ) ; 

/* 

fprintf (stderr, » GATE : %s %f\n», LibHCellName (LibCell), 
Proba) ; 

*/ 

return (GNL OK) ; 

} 

*Proba = 0.5; 
return (GNL OK) ; 

} 
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/* 

/* GnlGetlnternalPower */ 
/* 

float GnlGetlnternalPower (GnlLibc, Cell) 
LIBC_LIB GnlLibc; 
LIBC_CELL Cell; 

{ 

float Power; 

Power = LibCellPower (Cell) + LibCellCellLeakagePower (Cell); 
return (Power) ; 

} 



/* v 

/* GnlComputeCellsCostFunctionsInLibc */ 

/* 1r/ 

I* This procedure computes different value features on the cells of the */ 
/* library. This values are stored in the field of each LIB_CELL. The */ 
/* values are : * / 

/* - Area */ 

/* - Probability of charge (0 --> 1) */ 

/* - Internal Power */ 

/* it/ 

GNL_STATUS GnlComputeCellsCostFunctionsInLibc (GnlLibc) 
LIBC_LIB GnlLibc; 

{ 

LIBC_CELL Celll; 

LIB_CELL LibCell; 

GNL_LIB GnlLib; 

float Area; 

float Proba ; 

float InternalPower; 



Celll = LibCells (GnlLibc) ; 

for (; Celll J= NULL; Celll = LibCellNext (Celll)) 
{ 

LibCell = (LIB_CELL) LibCellHook (Celll); 

/* Computing the AREA value of the cell 'Celll'. */ 
Area = GnlComputeCellArea (Celll) ; 
SetLibHCellArea (LibCell, Area); 

/* Computing the charge probability of the cell 'Celll'. */ 
if (GnlComputeCellChargeProba (GnlLibc, Celll, ScProba) ) 

return ( GNL_MEMORY_FULL ) ; 
SetLibHCellChargeProba (LibCell, Proba) ; 

/* Computing the total internal power comsumption which is the */ 
/* sum of the leakage power and internal power. */ 
InternalPower = GnlGetlnternalPower (GnlLibc, Celll) ; 
SetLibHCell InternalPower (LibCell, InternalPower) ; 



return (GNL_OK) ; 
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/* ic/ 

/* GnlBuildLib */ 

/* i(/ 

/* This procedure hooks our own library structure on the LIBC library */ 
/* structure. It analyzes each cell and put them in the right places. */ 
/* For combinational cells, thier Boolean function is derived into a set*/ 
/* of canonical Bdds representants useful for the technology mapping */ 
/* phase. */ 

v 

GNL_S TATUS GnlBuildLib (GnlLibc) 
LIBC_LIB GnlLibc; 



GNL LibGnl ; 

GNL_LIB HGnlLib; 

BLIST LibcDffs; 

BLIST LibcLatches ; 

BLIST Libc3States ; 

BLIST LibcBuf f ers ; 



if (GnlEnvBuildLibForce () == GNL__BUI LD_L IB_M IN ) 

G_MaxNbDeriveCells = GNL_MIN__NB_CANONICAL_ELEM; 
else 

G_MaxNbDer iveCe lis = GNL_MAX_NB_CANONICAL_ELEM; 

/* We add hooked structures on ? GnlLibc' and the cells. */ 
if (GnlCreateFillLibcHookStructures (GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

HGnlLib = (GNL_LIB) LibHook (GnlLibc) ; 
SetGnlHLibName (HGnlLib, LibName (GnlLibc)); 
if (GnlCreate (LibName (GnlLibc), &LibGnl) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlHLibGnl (HGnlLib, LibGnl); 

/* We create new inputs for all the cells functions. All these */ 
/* functions will depend upon these new unify variables. */ 
if (GnlUnify Input slnLibGnl (GnlLibc) ) 
return { GNL_MEMORY_FULL ) ; 

/* We build the library by deriving cells according to their Bdds */ 
/* representations (for each new Bdd representant of a cell we have */ 
/* a new derived cell) . */ 
if (GnlBuildLibBdd (GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We extract the list of all the inverters in the library and store */ 
/* them in a special place to have direct access to them. */ 
if (GnlGet Inverters (GnlLibc) ) 
return (GNL_MEMORY_FULL) ; 

/* we compute different cost functions for all the Comb, cells like */ 
/* (AREA, POWER, TIMING). */ 
if (GnlComputeCellsCostFunctionsInLibc (GnlLibc) ) 
return ( GNL__MEMORY__FULL ) ; 
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/* We extract the minimum area of a basic equivalent gate (AND2) and */ 
/* store its value. */ 
if (GnlGetSizeOfBasicEquivalentGate (GnlLibc) ) 
return (GNL_MEMORY_FULL) ; 

/* extraction of the flip-flops and latches in the libc library */ 
if (GnlExtractLibcSequential (GnlLibc, &LibcDffs, &LibcLatches) ) 
return (GNL_MEMORY_FULL) ; 

/* extraction of the tri-states in the libc library */ 
if (GnlExtractLibc3States (GnlLibc, &Libc3States) ) 
return ( GNL_MEMORY__FULL ) ; 

/* extraction of the buffers in the libc library */ 
if (GnlExtractLibcBuf fers (GnlLibc, &LibcBuf fers) ) 
return (GNLJVTEMORY FULL) ; 



SetGnlHLibCellsDffs (HGnlLib, LibcDf fs) ; 
SetGnlHLibCellsLatches (HGnlLib, LibcLatches) 
SetGnlHLibCells3States (HGnlLib, Libc3States) 
SetGnlHLibCellsBuf f ers (HGnlLib, LibcBuf fers) 



fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 

fprintf (stderr, 



\n", BListSize (LibcDf f s) ) ; 
Library Feature :\n", BListSize (LibcDf fs) ) ; 

o NB. DFFS = %d\n", BListSize (LibcDf f s) ) ; 

o NB. LATCHES = %d\n", BListSize (LibcLatches)) 
o NB. 3-STATES = %d\n» , BListSize (Libc3States) ) 
o NB. BUFFERS = %d\n\ BListSize (LibcBuf fers) ) 



return (GNL OK) ; 
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/* it/ 

/* */ 

/* File: gnllib.h */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* */ 

/* #/ 

#ifndef GNLLIB_H 
#define GNLLIB_H 

/* Info stored on GNL_NODE thru Hook field */ 
/* v 

#def ine GnlNodeBdd (n) ( (BDD) ( (n) ->Hook) ) 

#define SetGnlNodeBdd (n, b) ({(n)->Hook= (void*)b)) 

/* + i 

/* Info stored on GNL_VAR thru Hook field */ 
/* it/ 

typedef struct GNL_VAR_LIB_INFO_STRUCT { 
BDD Bdd; 
int MinO; 
int Mini ; 

GNL_VAR BindVar ; 

BLIST Symetrics; /* List of symmetric vars */ 

GNL__VAR_LIB_INFO_REC , *GNL_VAR_LIB_INFO ; 

#def ine GnlVarBdd (n) ( ( (GNL_VAR_LIB_INFO) ( (n) ->Hook) ) ->Bdd) 

#def ine GnlVarMinO (n) ( ( (GNL_VAR_LIB_INFO) ( (n) ->Hook) ) ->MinO) 

#def ine GnlVarMinl (n) ( ( <GNL_VAR_LIB_INFO) ( (n) ->Hook) ) ->Minl) 

#def ine GnlVarBindVar (n) { ( (GNL_VAR_LIB_INFO) ( (n) ->Hook) ) ->BindVar) 

#def ine GnlVar Symmetries (n) ( ( (GNL__VAR_LIB_INFO) ( (n) ->Hook) ) ->Symetrics) 

#define SetGnlVarBdd (n, b) ( { (GNL_VAR_LIB_INFO) ( (n) - >Hook) ) ->Bdd = b) 
#define SetGnlVarMinO (n, m) ( ( (GNL_VAR_LIB_INFO) ( (n) ->Hook) } ->MinO = m) 
#define SetGnlVarMinl (n, m) ( ( (GNL_VAR_LIB_INFO) ( (n) - >Hook) ) ->Minl = m) 
#define Set GnlVar BindVar (n, b) \ 

( ( (GNL_VAR_LIB_INFO) ( (n) ->Hook) ) ->BindVar = b) 
#define SetGnlVarSymmetrics (n, s) \ 

( ( ( GNL__VAR_L IB_INFO ) ( (n) ->Hook) ) ->Symetrics = s) 



#define SetGnlVarLiblnf oSymmetrics (v, s) ( (v) - >Symetrics = s) 

/* v 

/* Info stored on bdd Node thru Hook field */ 

z* v 

typedef struct LIB BDD INFO 
{ " " 

BLIST DeriveCells ; 

int NbMintermO ; 

int NbMinterml; 

} 
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LIB_BDD_INFO_REC, *LIB_BDD_INF0; 

#define LibBddlnf oDeriveCells (bptr) \ 

( ( (LIB_BDD_INFO)GetBddPtrHook(bptr) ) - >DeriveCells) 
#def ine LibBddlnf oMinO (bptr) \ 

( ( (LIB_BDD_INFO)GetBddPtrHook(bptr) ) ->NbMintermO ) 
#define LibBddlnf oMinl (bptr) \ 

( ( (LIB_BDD_INFO)GetBddPtrHook(bptr) ) ->NbMinterml) 

ftdefine SetLibBddlnf oDeriveCells (bptr, d) \ 

( ( (LIB_BDD_INFO)GetBddPtrHook(bptr) ) - >DeriveCells = d) 
#define SetLibBddlnf oMinO (bptr , n) \ 

{ ( (LIB_BDD__INFO)GetBddPtrHook(bptr) ) ->NbMintermO = n) 
#define SetLibBddlnf oMinl (bptr , n) \ 

( ( (LIB_BDD_INFO)GetBddPtrHook(bptr) ) ->NbMinterml = n) 



/* 

/* L I B_CELL_TYPE 

/* 

typedef enum { 

CELL_I S_COMB INATOR I AL , 

CELL_IS__SEQUENTIAL , 

CELL_IS_EXOTIC 
} LIB_CELL_TYPE; 

/* 

/* LIB_INPUT_DATA 

/* 

typedef struct LIB_INPUT DATA STRUCT 



float 
float 
float 
float 
float 
float 



InputLoad; 
MaxLoad; 



RiseBlockDelay; 
Ri s eFanoutDe 1 ay ; 
FallBlockDelay; 
Fa 1 1 Fanout De 1 ay ; 



LIB_INPUT_DATA_REC , *LIB_INPUT_DATA; 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



LibRiseBlockDelay (c) 
LibRiseFanoutDelay (c) 
LibFallBlockDelay (c) 
LibFallFanoutDelay (c) 



LiblnputLoad (c) 
LibMaxLoad(c) 



((c 
((c 
((c 
((c 
((c 
((c 



->RiseBlockDelay) ) 
->RiseFanoutDelay) ) 
->FallBlockDelay) ) 
->FallFanoutDelay) ) 



-> InputLoad) ) 
~>MaxLoad) ) 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



SetLibRiseBlockDelay (c , 1 ) 
SetLibRiseFanoutDelay (c, 1) 
SetLibFallBlockDelay (c, 1) 
SetLibFallFanoutDelay (c, 1) 



SetLibInputLoad{c, 1) 
Se t LibMaxLoad ( c , 1 ) 



( (c) ->RiseBlockDelay) = 1) 
( (c) ->RiseFanoutDelay) = 1) 
( (c) ->FallBlockDelay) = 1) 
( (c) ->FallFanoutDelay) = 1) 



( (c) ->InputLoad) = 1) 
( (c) ->MaxLoad) = 1) 



/* 

/* LIB_OUTPUT_DATA 
/* 
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typedef struct LIB_OUTPUT_DATA_STRUCT 
{ 



float 



} 



Impedance; 



LIB_OUTPUT_DATA_REC , *LIB_OUTPUT_DATA; 



#define Liblmpedance (c) 
#define SetLiblmpedance (c , 1 ) 



{((c) -> Impedance) ) 

{((c) -> Impedance) 



1) 



/* 

/* Hooked structure related to the CELL group 
/* 



typedef struct LIB_CELL_STRUCT 
{ 



char 

LIB_CELL__TYPE 

int 

char 

BLIST 

BLIST 

float 

float 

float 

float 

GNL_NODE 

BLIST 

LIBC_CELL 

int 



*Name ; 
Type; 

*Lib; 

*Output; 

Inputs; 

InputsOrigin; 

Area ; 

Timing; 

ChargeProba; 

InternalPower; 
Function; 

DeriveCells; 
LibcCell; 
*Hook; 



LIB_CELL_REC , *LIB_CELL ; 

#define LibHCellName (c) 

#define LibHCellLibcCell (c) 

tdefine LibHCellType (c) 

#define LibHCellLib (c) 

#define LibHCellOutput (c) 

#define LibHCelllnputs (c) 

#define LibHCelllnputsOrigin (c) 

#define LibHCellArea (c) 

#define LibHCellTiming (c) 

#define LibHCellChargeProba (c) 

#define LibHCelllnternalPower (c) 

#define LibHCe 11 Function (c) 

#define LibHCellDeriveCells (c) 

#define LibHCellHook (c) 

#define Set LibHCellName (c , n) 
#define SetLibHCellLibcCell (c, n) 
#define SetLibHCellType (c , n) 
#define SetLibHCellLib (c , n) 
#define SetLibHCellOutput (c , n) 
#define SetLibHCell Inputs (c , n) 
#def ine SetLibHCelllnputsOrigin (c ( 
#define SetLibHCellArea (c , n) 
#define SetLibHCellTiming (c, n) 
#def ine SetLibHCellChargeProba (c, 



( (c) ->Name) 
( (c) ->LibcCell) 
( (c) ->Type) 
( (GNL_LIB) { (c) ->Lib) ) 
((c) ->Output) 
( (c) ->Inputs) 

( (c) ->InputsOrigin) 
((c) ->Area) 
( (c) ->Timing) 

((c) ->ChargeProba) 
( (c) - >InternalPower) 
( (c) ->Function) 

( (c) ->DeriveCells) 
( (c) ->Hook) 

( (c) ->Name = n) 
( (c) ->LibcCell = n) 
( (c) ->Type = n) 
(((c)->Lib) = (int*)n) 
((c) ->Output = n) 
( (c) ->Inputs = n) 
n) ( (c) ->InputsOrigin = 

((c) ->Area = n) 

( (c) ->Timing = n) 
( (c) ->ChargeProba = n) 



n) 



n) 
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#define SetLibHCelllnternalPower (c, n) ( (c) ->InternalPower = n) 
#define SetLibHCellFunction (c, n) ( (c) ->Function = n) 
#define SetLibHCellDeriveCells (c , n) ( (c) - >DeriveCells = n) 

#define SetLibHCellHook (c , n) ( (c) ->Hook = n) 



/* 

/* LIB_DERIVE_CELL 

/* 

typedef struct LIB_DERIVE_CELL STRUCT 
{ 

LIB_CELL MotherCell ; 
BLIST Inputs; 
BDD Bdd; 

} 

LIB_DERIVE_CELL_REC, * L IB_DER I VE CELL; 



#def ine LibDeriveCellMotherCell (c) 
#define LibDeriveCelllnputs (c) 
#define LibDeriveCellBdd (c) 



(((c) ->MotherCell) ) 

( ( (c) -> Inputs) ) 
( ( (c) ->Bdd) ) 



#def ine SetLibDeriveCellMotherCell (0,111) 
#define Se tLibDeriveCell Inputs (c , m) (((c) 



ftdefine SetLibDeriveCellBdd (c , m) 



( ( (c) ->MotherCell = m) ) 
■>Inputs = m) ) 



( ( (c) ->Bdd = m) ) 



/* 

/* Hooked structure related to the LIB group 
/* 

typedef struct GNL_L I B_S TRUCT 

{ 



char 
char 
float 
int 

double 
BLIST 
BLIST 
BLIST 

*/ 

BLIST 
BLIST 



*Name; /* name of the library. 

*SourceFileName;/* File where the library comes from 
Techno; 

MaxFanln; /* of the combinational LIBC_CELL cells */ 
AreaBasicEqGate;/* Area of the basic AND2 */ 

Inverters; /* List of the LIBC_CELL inverters */ 
CellsDffs; /* List of the DFF LIBC_CELL */ 
CellsLatches; /* List of the LATCH LIBC CELL 



*/ 
*/ 



Cells3States ; 
CellsBuf f ers ; 



/* List of the 3 -States LIBC_CELL 
/* List of the Buffers LIBC CELL 



/* To stores Bdds (BDD) and boolean trees (GNL_NODE) of the cell 
/* function. */ 
BDD_WS BddWorkSpace ; 

GNL Gnl; /* fake gnl to store functions */ 

/* ( GNL_NODE ) of each LIB_CELL */ 

int *Hook ; 

GNL__L IB_REC , *GNL_LIB ; 



*/ 
*/ 



#define GnlHLibName (g) 

#define GnlHLibSourceFileName (g) 

#define GnlHLibTechno (g) 

#define GnlHLibMaxFanln (g) 

#def ine GnlHLibAreaBasicEqGate (g) 

#def ine GnlHLiblnverters (g) 

#define GnlHLibCellsDf f s (g) 



(g) ->Name) 

(g) ->SourceFileName) 

(g) ->Techno) 

(g) ->MaxFanIn) 

(g) ->AreaBasicEqGate) 

(g) ->Inverters) 

(g) ->CellsDffs) 



B-CORE-175 



gnllibc.h 



#define GnlHLibCellsLatches (g) 
#define GnlHLibCells3States (g) 
#define GnlHLibCellsBuf f ers (g) 

#define GnlHLibBddWorkSpace (g) 
#def ine GnlHLibGnl (g) 
#define GnlHLibHook (g) 



( (g) ->CellsLatches) 
{ (g) ->Cells3States) 
( (g) ->CellsBuffers) 

( (g) ->BddWorkSpace) 
( (g) ->Gnl) 
( (g) ->Hook) 



#define SetGnlHLibName (g, 1) 
#def ine SetGnlHLibSourceFileName (g, 
#define SetGnlHLibTechno (g, 1) 
#define SetGnlHLibMaxFanln (g, 1) 
#def ine SetGnlHLibAreaBasicEqGate (g, 
#define SetGnlHLiblnverters (g, 1) 
#define SetGnlHLibCellsDf f s (g, 1) 
#define SetGnlHLibCellsLatches (g, 1) 
#define SetGnlHLibCells3States <g, 1) 
#define SetGnlHLibCellsBuf f ers <g, 1) 



#define SetGnlHLibBddWorkSpace (g, 1) 
#define SetGnlHLibGnl (g, 1) ((g) 
tdefine SetGnlHLibHook (g, h) ((g) 



( (g) 
1) 

((g) 

1) 

((g) 
((g) 



• >Name = 1 ) 

( (g) ->SourceFileName = 1) 
( (g) ->Techno = 1) 

>MaxFanIn = 1) 
( (g) ->AreaBasicEqGate = 1) 

>Inverters = 1) 

>CellsDffs = 1) 
( (g) ->CellsLatches = 1) 
( (g) ->Cells3States = 1) 
( (g) ->CellsBuffers = 1) 



( (g) ->BddWorkSpace = 
->Gnl = 1) 
->Hook = h) 



1) 



EOF 



*/ 



#endif 
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/* 




/ * F i 1 e • crn 1 man n 




/* Modifications: 




/* Documentation: 




/* 




/* Description: 


*/ 


/* 







#include <stdio.h> 

#ifdef MEMORY 
#include <malloc.h> 
#endif 

#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 



"blist .h" 
"gnl.h" 
"gnlmint -h" 
"bbdd.h" 
"libc_mem. h" 
n libc_api.h" 
"gnllibc.h" 
" gnlmap.h" 
"gnloption.h" 



/* If one wants memory statistics for SUN */ 



#include "blist. e" 
#include "libutil . e" 



/* 

/* For statistics. 

/* 

#undef STAT 

int G_NB_TARGET_FUNC = 0; 
int G_R0BDDJ3UILT - 0; 
int G__NB_CELL_FOUND = 0; 
float G_WireCapa; 



/* 

/* DEFINE 
/* 



#define MAX_AREA_VALUE 
#define MAX_POWER_VALUE 
#define MAX_NL_DELAY_VALUE 
#define MAX_DE PTH_VALUE 
#define MAX_NET_VALUE 
#define GNL DEFAULT FANIN CELL 



1000000000.0 
1000000000.0 
1000000000 . 0 
1000000000 
1000000000 
6 



#define MAX FACTORIZE FUNC 



100000 



/* 

/* EXTERN 

/* 

extern GNL_ENV G_GnlEnv; 

extern BDD_PTR GetBddPtrFromBdd () ; 

extern int CmpVar Signature (); 
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extern double GnlGetGnlMapArea () ; 

/* 

/* STATIC GLOBAL VARIABLES */ 

/* 

static GNL G_Gnl; 

static GNL G_LibGnl; 

static GNL_LIB G_GnlLib; 

static BLIST G_LibInputS; 

static LIB__CELL GJBestlnverter ; 

static int G__Effort; 

static int G_PrintModuleCounter = 0; 

static int G__MaxCellSizeSupport ; 

/* ie/ 

LIBC_LIB G_GnlLibc ; 

/*__ 

/* FORWARD */ 

/* *i 

GNL_STATUS GnlBestAreaMapNode () ; 
GNL_STATUS GnlBestDepthMapNode () ; 
GNL_STATUS GnlBestPowerMapNode (); 
GNL_STATUS GnlBestNLDelayMapNode (); 
GNL_STATUS GnlBestNetMapNode (); 
GNL__VAR GnlGetOriginalVar () ; 

/* 

/* GnlMapNodelnfoCreate */ 
/* 

/* Create structure in order to store informations for the mapping phase*/ 
/* ie/ 

GNL_STATUS GnlMapNodelnfoCreate (MapNodelnf o) 
GN L_MAP_NODE__ INFO *MapNodeInf o ; 

{ 

if ( (*MapNodeInfo = (GNL_MAP_NODE_INFO) 

calloc (1, sizeof (GNL_MAP_NODE__INFO__REC) ) ) == NULL) 
return { GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* it/ 

/* GnlCreateSNode */ 

/* ie/ 

GNL_STATUS GnlCreateSNode (SNode) 
GNL_SN0DE * SNode ; 

{ 

if ((*SNode = (GNL_SNODE) calloc (1, sizeof (GNL_SNODE_REC) ) ) ==NULL) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 
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/* v 

/* GnllnsertWireNodelnNode */ 

/* ie/ 

GNL_STATUS GnllnsertWireNodelnNode (Gnl, Node, NewNode) 
GNL Gnl ; 

GNL_NODE Node; 
GNL_NODE *NewNode; 

{ 

int i ; 

GNLJSTODE Node I ; 
GNL_NODE NewNodel; 



if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
return (GNL_OK) ,- 

if (GnlNodeOp (Node) == GNL_WIRE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

if (GnlCreateNode (Gnl, GNL_WIRE , NewNode)) 
return < GNL_MEMORY_FULL ) ; 

/* The son of a WIRE node is of type GNL_NODE. */ 
SetGnlNodeSons (*NewNode, (BLIST) Node ) ; 

SetGnlNodeLineNumber (*NewNode, GnlNodeLineNumber (Node) ) ; 
return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnllnsertWireNodelnNode (Gnl, Nodel, &NewNodeI) ) 

return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node), i) = (int) NewNode I ; 

if (GnlCreateNode (Gnl, GNL_WIRE, NewNode)) 
return ( GNL _MEMORY_FULL ) ; 

/* The son of a WIRE node is of type GNL_NODE. */ 
SetGnlNodeSons (*NewNode, (BLIST) Node) ; 

SetGnlNodeLineNumber (*NewNode, GnlNodeLineNumber (Node) ) ; 
return (GNL_OK) ; 



/. v 

/* GetBestAreaLiblnverter */ 

/*--- */ 

/* This function looks among the inverters provided in the library */ 
/* 'GnlLib' and returns the one with the minimum area. */ 

/* v 

LIB_CELL GetBestAreaLiblnverter (GnlLib) 
GNL_LIB GnlLib; 

{ 
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int i ; 

LIB_DERIVE_CELL Cell I ; 

LIB_CELL MotherCelll; 
float Area; 
LIB_CELL BestCell ; 



Area = MAX__AREA_VALUE ; 

for (i=0; i<BListSize {GnlHLiblnverters (GnlLib) ) ; i++) 
{ 

Celll = (LIB_DERIVE_CELL) BListElt (GnlHLiblnverters (GnlLib), i) ; 
MotherCelll = LibDeriveCellMotherCell (Celll) ; 
if {LibHCellArea (MotherCelll) < Area) 
{ 

Area = LibHCellArea (MotherCelll) ; 
BestCell = MotherCelll; 

} 

} 

return (BestCell) ; 

} 

/* 

/* GetBestPowerLiblnverter */ 
/* 

/* This function looks among the inverters provided in the library */ 
/* 'GnlLib 1 and returns the one with the minimum Internal Power and with*/ 
/* minimum area. */ 

/* 

LIB_CELL GetBestPowerLiblnverter (GnlLib) 
GNL_LIB GnlLib; 

{ 

int i ; 

LIB_DERIVE_CELL Celll ; 

LIB_CELL MotherCelll ; 

float Power; 

float Area; 

LIB_CELL BestCell; 



Power = MAX__POWER_VALUE ; 
Area = MAX_AREA_VALUE ; 

for (i=0; i<BListSize (GnlHLiblnverters (GnlLib)); i++) 
{ 

Celll = (LIB_DERIVE_CELL) BListElt (GnlHLiblnverters (GnlLib), i) ; 
MotherCelll = LibDeriveCellMotherCell (Celll) ; 
if (LibHCelllnternalPower (MotherCelll) < Power) 
{ 

Power = LibHCelllnternalPower (MotherCelll) ; 
Area = LibHCellArea (MotherCelll); 
BestCell = MotherCelll ; 
continue ; 

} 

if ( (LibHCelllnternalPower (MotherCelll) == Power) && 
(LibHCellArea (MotherCelll) < Area) ) 

{ 
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} 



Power = LibHCelllnternalPower (MotherCelll) ; 
Area = LibHCellArea (MotherCelll) ; 
BestCell = MotherCelll; 
continue; 

} 



return (BestCell) ; 



/* 

/* GnllnsertWireNodes */ 

/* it/ 

/* This function creates GNL_NODE objects (GNL_WIRE) for each net of the*/ 
/* Gnl . This can be useful for th technology mapping in order to store */ 
/* the same information on net than on gate. */ 
/* + 1 

GNL_STATUS GnllnsertWireNodes (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_FUNCTION FunctionI ; 
GNL_NODE NewNode; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = Gnl Var Function (Varl) ; 
if (GnllnsertWireNodelnNode (Gnl, GnlFunctionOnSet (FunctionI), 

ScNewNode) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (FunctionI, NewNode) ; 
} 

return (GNL_OK) ; 

} 



/* ie/ 

/* GnlAndifyNodePropagate */ 
/* it/ 

/* This function transform a GNL_NODE 'Node' into a new physical tree */ 
/* where all operators will be either GNL_AND or GNL_NOT. Moreover */ 
/* inverters propagation is performed thru the argument 'DoNegation' in */ 
/* to simplify the whole logic. */ 
/* + 1 

GNL_STATUS GnlAndifyNodePropagate (Gnl, Node, DoNegation, NewNode) 

GNL Gnl ; 

GNL_NODE Node; 

int DoNegation; 

GNL_NODE *NewNode ; 

{ 

int i ; 

BLIST SonList; 

GNL_NODE Sonl; 
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BLIST 
GNL_NODE 
GNL_NODE 
GNL NODE 



Sons ; 
SNocie ; 
VarNode; 
AndNode ; 



if (Node == NULL) 
{ 

*NewNode = NULL; 
return (GNL_OK) ; 

} 

if (GnlCreateNode (Gnl, NULL, NewNode) ) 
return (GNL_MEMORY_FULL) ; 

switch (GnlNodeOp (Node)) { 
case GNL_AND: 

if (BListCreateWithSize (1, &SonList) ) 

return (GNL_MEMORY_FULL) ; 
if (DoNegation) 
{ 

/* GNL_NOT of GNL_AND . . . 

SetGnlNodeOp (*NewNode, GNL_NOT) ; 

SetGnlNodeSons (*NewNode, SonList) ; 

if (GnlCreateNode (Gnl, GNL_AND, SAndNode) ) 

return (GNL_MEMORY__FULL) ; 
if (BListAddElt (SonList, (int ) AndNode) ) 

return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &SonList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (AndNode, SonList) ; 

Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons) ; i++) 
{ 

SonI - (GNL_NODE) BListElt (Sons, i) ; 
if (GnlAndifyNodePropagate (Gnl, SonI, 

0, &SNode)) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL_OK) ; 

} 

else /* We create the inverter with a Nand gate 
{ 

SetGnlNodeOp (*NewNode, GNL_AND) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlAndifyNodePropagate (Gnl, SonI, 

0, &SNode)) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
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return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

break ; 

case GNL_OR: 

if (BListCreateWithSize (1, &SonList) ) 

return (GNL_MEMORY_FULL) ; 
if ( IDoNegation) /* We create an inverter 

{ 

SetGnlNodeOp (*NewNode, GNL_NOT) ; 

if (GnlCreateNode (Gnl, GNL_AND, &AndNode) ) 

return ( GNL__MEMORY_FULL ) ; 
if (BListAddElt (SonList, (int) AndNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
if (BListCreateWithSize (1, &SonList) ) 

return ( GNL _MEMOR Y_FULL ) ; 

Sons = GnlNodeSons (Node) ; 

for (i=0; i<BListSize (Sons); i++) 

{ 

SonI = ( GNL_NODE ) BLi s t E 1 1 (Sons, i) ; 
if (GnlAndifyNodePropagate (Gnl , SonI, 
1, &SNode)) 

return ( GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlNodeSons (AndNode, SonList) ; 
return (GNL_OK) ; 

} 

else 
{ 

SetGnlNodeOp (*NewNode, GNL_AND) ; 
Sons = GnlNodeSons (Node) / 
for (i=0; i<BListSize (Sons) ; i++) 
{ 

SonI = ( GNL_NODE ) BL i s t E 1 1 (Sons, i) ; 
if (GnlAndifyNodePropagate (Gnl, SonI, 

1, &SNode)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

break; 

case GNL_NOT: 

Sons = GnlNodeSons (Node) ; 

SonI = (GNL_NODE) BListElt (Sons, 0) ; 

if (DoNegation) 

return (GnlAndifyNodePropagate (Gnl, SonI, 

0, NewNode) ) ; 
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else 

return (GnlAndif yNode Propagate (Gnl , SonI , 

1 , NewNode ) ) ; 

break; 

case GNL_VARIABLE : 

if ( IDoNegation) 
{ 

SetGnlNodeOp (*NewNode, GNL_VARIABLE) ; 
SetGnlNodeSons (*NewNode, GnlNodeSons (Node)); 
return (GNL_OK) ; 

} 

else 
{ 

SetGnlNodeOp ( *NewNode , GNL_NOT) ; 
if {BListCreateWithSize (1, &SonList) ) 
return (GNL_MEMORY__FULL) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons (VarNode ; GnlNodeSons (Node) ) ; 
if (BListAddElt (SonList, (int) VarNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 

} 

break; 

case GNL__CONSTANTE : 

SetGnlNodeOp ( *NewNode , GNL_CONS TANTE ) ; 
if (DoNegation) 

SetGnlNodeSons (*NewNode, (BLIST) i GnlNodeSons (Node) ) 
else 

SetGnlNodeSons (*NewNode, (BLIST) GnlNodeSons (Node) ) ; 
return (GNLJDK) ; 



default : 

fprintf (stderr, T, 4:Unknown node operator\n" ) ; 
exit (1) ; 

} 



/* 

/* GnlAndif yNode */ 

/* 

/* This function transform a GNL_NODE 'Node' into a new physical tree 

/* where all operators will be either GNL_AND or GNL_NOT. In this case 

/* GNL_OR are transformed by De Morgan law and no inverter propagation 

/* is performed. This is use for the best area option because we can use 

/* input polarities with this. */ 

/* 

GNL_STATUS GnlAndif yNode (Gnl, Node, NewNode) 
GNL Gnl ; 

GNL_NODE Node ; 

GNL_NODE *NewNode ; 
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int 
BLIST 



SonList ; 
SonI ; 



GNL_NODE 
BLIST 



Sons; 
SNode ; 



GNLJNTODE 
GNLJtfODE 
GNL_NODE 
GNL NODE 



SNodeNot ; 
VarNode ; 
AndNode ; 



if (Node == NULL) 



*NewNode = NULL; 
return (GNL__OK) ; 

} 

if (GnlCreateNode (Gnl, NULL, NewNode) ) 
return <GNL_MEMORY_FULL) ; 

switch (GnlNodeOp (Node) ) { 
case GNL_AND: 

if (BListCreateWithSize (1, &SonList) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (*NewNode, GNL_AND) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons) ; i++) 



{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlAndifyNode (Gnl, SonI, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
return (GNL_MEMORY_FULL) ; 



return (GNL OK) ; 



case GNL_0R: 

if (BListCreateWithSize (1, &SonList) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (*NewNode, GNL_NOT) ; 

if (GnlCreateNode (Gnl, GNL_AND, &AndNode) ) 
return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (SonList, (int) AndNode) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, SonList) ; 

if (BListCreateWithSize (1, &SonList) ) 
return <GNL_MEMORY_FULL) ; 

Sons = GnlNodeSons (Node) ; 

for (i=0; i<BListSize (Sons) ; i++) 



SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlAndifyNode (Gnl, SonI, &SNode) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, SNode, &SNodeNot) ) 



} 
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return { GNL_MEMORY_FULL ) ; 
if (BListAddElt (SonList, (int ) SNodeNot } ) 
return (GNL MEMORY FULL) ; 

} 

SetGnlNodeSons (AndNode, SonList) ; 
return (GNLjDK) / 

case GNL_NOT: 

if (BListCreateWithSize (1, &SonList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeOp (*NewNode, GNL__NOT) ; 
Sons = GnlNodeSons (Node) ; 
SonI = { GNL_NODE ) BLi s t El t (Sons, 0) ; 
if (GnlAndifyNode (Gnl, SonI, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 



case GNL_VARIABLE : 

SetGnlNodeOp ( *NewNode , GNL_VARIABLE ) ; 
SetGnlNodeSons (*NewNode, GnlNodeSons (Node) ) ; 
return (GNL__OK) ; 



case GNL_CONSTANTE : 

SetGnlNodeOp (*NewNode, GNL_CONSTANTE) ; 
SetGnlNodeSons (*NewNode, (BLIST) GnlNodeSons (Node) ) ; 
return (GNLJDK) ; 



default : 

fprintf (stderr, "liUnknown node operator\n"] 
exit (1) ; 

} 



/* 



/* GnlAndifyPropagate ★/ 
/* 

/* This function transforms the current Gnl netlist into a netlist using*/ 
/* only nodes of type GNL_N0T, GNL_AND, GNL_VAR I ABLE or GNL_CONSTANTE */ 
/* Moreover, Inverters propagations are perfomed in order to simplify */ 
/* the Gnl description. */ 
/* 

GNL_STATUS GnlAndifyPropagate (Gnl) 
GNL Gnl ; 

{ 

int i ; 

char *CopyName; 
GNL_VAR Varl ; 

GNL_FUNCT I ON FunctionI; 
GNL_NODE Ne wOnS e t ; 

GNL_NODE NewDCSet; 
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BLIST 
int 
BLIST 
GNL 



NewListFunctions / 
j ; 

NodesSegments ; 
NewGnl ; 



if ((NewGnl = (GNL) calloc (1, sizeof (GNL_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNbln (NewGnl, GnlNbln (Gnl)); 
SetGnlNbOut (NewGnl, GnlNbOut (Gnl)); 
SetGnlNbLocal (NewGnl, GnlNbLocal (Gnl)); 

SetGnllnputs (NewGnl, Gnllnputs (Gnl)); 
SetGnlOutputs (NewGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (NewGnl, GnlLocals (Gnl)); 

SetGnlHashNames (NewGnl, GnlHashNames (Gnl)); 

if (BListCreate (^NodesSegments) ) 

return ( GNL JVTEMOR Y__FULL ) ; 
SetGnlNodesSegments (NewGnl, NodesSegments); 
SetGnlFirstNode (NewGnl, NULL); 
SetGnlLastNode (NewGnl, NULL) ; 

SetGnlComponents (NewGnl, GnlComponents (Gnl)); 

if (BListCreate (&NewList Functions) ) 
return (GNL_MEMORY_FULL) ; 

fprintf (stderr, » Structuring (1) for mapping..."); 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlAndifyNodePropagate (NewGnl, GnlFunctionOnSet (FunctionI), 

0, &NewOnSet)) 

return (GNL_MEMORY_FULL) ; 

if (BListAddElt (NewListFunctions, ( int ) NewOnSet) ) 
return (GNL_MEMORY_FULL) ; 

} 

fprintf (stderr, "\n"); 

/* Deleting all the nodes from the gnl 'Gnl*. */ 
GnlFreeNodesSegments (Gnl) ; 

i = 0; 

for (j=0; j<BListSize (NewListFunctions); j++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

NewOnSet = (GNL_N0DE) BListElt (NewListFunctions, j); 
SetGnlFunctionOnSet (FunctionI, NewOnSet) ; 
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i + +; 

} 

BListQuickDelete <&NewList Functions) ; 

SetGnlNodesSegments (Gnl, GnlNodesSegments (NewGnl) ) ; 
SetGnlFirstNode (Gnl, GnlFirstNode (NewGnl)); 
SetGnlLastNode (Gnl, GnlLastNode (NewGnl)); 

free ( (char* ) NewGnl) ; 

return (GNLJDK) ; 



/* ic/ 

/* GnlAndify */ 

/* *i 

/* This function transforms the current Gnl netlist into a netlist using*/ 
/* only nodes of type GNLJtfOT, GNL_AND, GNL_VAR I ABLE or GNL_CONSTANTE . */ 
/* No Inverters propgation are performed so the description is always */ 
/* bigger than the original one. */ 
/* ief 

GNL_S TATUS GnlAndify (Gnl) 
GNL Gnl ; 

{ 

int i ; 

char * CopyName ; 

GNL_VAR Varl; 

GNL_FUNCT I ON FunctionI; 

GNL_NODE NewOnSet; 

GNL_N0DE NewDCSet ; 

BLIST NewListFunctions ; 

int j ; 

BLIST NodesSegments ; 

GNL NewGnl ; 



if ((NewGnl = (GNL)calloc (1, sizeof (GNL_REC) ) ) NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNbln (NewGnl, GnlNbln (Gnl) ) ; 
SetGnlNbOut (NewGnl, GnlNbOut (Gnl) ) ; 
SetGnlNbLocal (NewGnl, GnlNbLocal (Gnl) ) ; 

SetGnllnputs (NewGnl, Gnllnputs (Gnl) ) ,- 
SetGnlOutputs (NewGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (NewGnl, GnlLocals (Gnl) ) ; 

SetGnlHashNames (NewGnl, GnlHashNames (Gnl) ) ; 

if (BListCreate (^NodesSegments) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments (NewGnl, NodesSegments) ; 
SetGnlFirstNode (NewGnl, NULL) ; 
SetGnlLastNode (NewGnl, NULL) ; 



B-CORE-188 



gnlmap.c 



SetGnl Components (NewGnl, GnlComponents (Gnl)); 

if (BListCreate (&NewList Functions) ) 
return ( GNL _MEMORY_FULL ) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Functionl = GnlVarFunction (Varl) ; 

if (GnlAndifyNode (NewGnl, GnlFunctionOnSet (Functionl), 

&NewOnSet) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt (NewListFunctions , (int ) NewOnSet) ) 
return ( GNL_MEMORY_FULL ) ; 

} 



GnlFreeNodesSegments (Gnl) ; 



i = 0; 

for (j=0; j<BListSize (NewListFunctions); j++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Functionl = GnlVarFunction (Varl) ; 

NewOnSet = (GNL_NODE) BListElt (NewListFunctions, j); 

SetGnlFunctionOnSet (Functionl, NewOnSet) ; 

i++ ; 

} 

BListQuickDelete ( NewListFunctions ) ; 

SetGnlNodesSegments (Gnl, GnlNodesSegments (NewGnl)) ; 
SetGnlFirstNode (Gnl, GnlFirstNode (NewGnl)); 
SetGnlLastNode (Gnl, GnlLastNode (NewGnl)); 



free ( (char*) NewGnl) ; 



} 



return (GNL OK) ; 



/* ie/ 

/* GnlNAndifyNode */ 

/* v 

/* This function transform a GNL_N0DE 'Node 1 into a new physical tree */ 
/* where all operators will be either GNL_NAND or GNL_NOT * In this case */ 
/* GNL_0R are transformed by De Morgan law and no inverter propagation */ 
/* is performed. This is use for the best area option because we can use*/ 
/* input polarities with this. */ 
v 

GNL_STATUS GnlNAndifyNode (Gnl, Node, NewNode) 

GNL Gnl; 

GNL_N0DE Node ; 

GNL_N0DE * NewNode ; 

{ 

int i ; 

BLIST SonList; 



/ 
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GNL_NODE 

BLIST 

GNLJNfODE 

GNL_NODE 

GNL_NODE 

GNL_NODE 

GNL NODE 



SonI ; 
Sons ; 
SNode ; 
SNodeNot ; 
VarNode ; 
AndNode ; 
NAndNode ; 



if (Node == NULL) 

{ 

*NewNode = NULL; 
return (GNL_OK) ; 

} 

if (GnlCreateNode (Gnl, NULL, NewNode) ) 
return ( GNL_MEMORY_FULL ) ; 

switch {GnlNodeOp (Node)) { 
case GNL_AND: 

if (BListCreateWithSize (1, &SonList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (*NewNode, GNL_NAND ) ; 
SetGnlNodeSons (*NewNode, SonList) ; 

Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlNAndifyNode (Gnl, SonI, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int) SNode)) 

return (GNL_MEMORY FULL) ; 

} 

if (GnlCreateNodeNot (Gnl, *NewNode, &NAndNode) ) 

return (GNL_MEMORY_FULL) ; 
*NewNode = NAndNode; 
return (GNL_OK) ; 

case GNL_OR: 

if (BListCreateWithSize (1, &SonList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (*NewNode, GNL_NAND) ; 
SetGnlNodeSons (*NewNode, SonList) ; 

Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNLJSTODE) BListElt (Sons, i) ; 
if (GnlNAndifyNode (Gnl, SonI, fcSNode) ) 

return ( GNL__MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, SNode, &SNodeNot) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int) SNodeNot) ) 

return ( GNL_MEMOR Y FULL) ; 

} 

return (GNL_OK) ; 
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case GNL_NOT: 

if (BListCreateWithSize (1, SSonList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (*NewNode, GNL_NOT) ; 
Sons = GnlNodeSons (Node) ; 
SonI = (GNL_NODE) BListElt (Sons, 0) ; 
if (GnlNAndifyNode (Gnl, SonI, ScSNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 

return (GNLJVTEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
return (GNLJDK) ; 



case GNL_VARIABLE : 

SetGnlNodeOp (*NewNode, GNL_VARIABLE) ; 
SetGnlNodeSons (*NewNode / GnlNodeSons (Node) ) ; 
return (GNL__0K) ; 



case GNL__CONSTANTE : 

SetGnlNodeOp (*NewNode, GNL_CONSTANTE) ; 
SetGnlNodeSons (*NewNode, (BLIST) GnlNodeSons (Node) ) ; 
return (GNL_0K) ; 



default : 

fprintf (stderr, "2:Unknown node operator\n" ) ; 
exit (1); 

} 



/* #/ 

/* GnlAndify */ 

/*— v 

/* This function transforms the current Gnl netlist into a netlist using*/ 
/* only nodes of type GNL_N0T, GNL_NAND, GNL_VARIABLE or GNL_CONSTANTE . */ 
/* No Inverters propgation are performed so the description is always */ 
/* bigger than the original one. */ 

z* J 

GNL_STATUS GnlNAndify (Gnl) 
GNL Gnl ; 

{ 

int i ; 

char *CopyName; 

GNL_VAR Varl; 

GNL_FUNCTION FunctionI; 

GNL_NODE NewOnSet ; 

GNL_NODE NewDCSet ; 

BLIST NewListFunctions ; 

int j ; 

BLIST NodesSegments ; 

GNL NewGnl / 



B-CORE-191 



gnlmap.c 



if {(NewGnl = (GNL)calloc (1, sizeof (GNL_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNbln (NewGnl, GnlNbln (Gnl)); 
SetGnlNbOut (NewGnl, GnlNbOut (Gnl) ) ; 
SetGnlNbLocal (NewGnl, GnlNbLocal (Gnl)); 

SetGnllnputs (NewGnl , Gnllnputs (Gnl)); 
SetGnlOutputs (NewGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (NewGnl, GnlLocals (Gnl)); 

SetGnlHashNames (NewGnl, GnlHashNames (Gnl) ) • 

if (BListCreate ( &Nodes Segments ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments (NewGnl, NodesSegments) ; 
SetGnlFirstNode (NewGnl, NULL) ; 
SetGnlLastNode (NewGnl, NULL) ; 

SetGnl Components (NewGnl, GnlComponents (Gnl) ) ; 

if (BListCreate (&NewList Functions) ) 
return (GNL__MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlNAndifyNode (NewGnl, GnlFunctionOnSet (FunctionI), 

&NewOnSet) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (NewList Functions , (int ) NewOnSet ) ) 
return (GNL_MEMORY__FULL) ; 

} 

GnlFreeNodesSegments (Gnl) ; 
i = 0; 

for (j=0; j<BListSize (NewListFunctions) ; j++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl); 

NewOnSet = (GNLJTODE) BListElt (NewListFunctions, j); 
SetGnlFunctionOnSet (FunctionI, NewOnSet) ; 
i+-f ; 

} 

BListQuickDelete (&NewList Functions) ; 

SetGnlNodesSegments (Gnl, GnlNodesSegments (NewGnl)); 
SetGnlFirstNode (Gnl, GnlFirstNode (NewGnl)); 
SetGnlLastNode (Gnl, GnlLastNode (NewGnl) ) ; 

free ( ( char* ) NewGnl ) ; 
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return (GNL_OK) / 

} 



/* it/ 

/* GnlBalanceComp */ 

/* if/ 

/* Comparison function to check balancing between two Trees. */ 
/* i!/ 

static int GnlBalanceComp (Nodel, Node2) 
GNL_NODE *Nodel; 
GNL NODE *Node2; 



{ 



int Criticl; 
int Critic2; 

Criticl = GnlNodeMaxDepth (*Nodel) ; 
Critic2 = GnlNodeMaxDepth (*Node2) ; 

if (Criticl < Critic2) 
return ( -1) ; 

if (Criticl Critic2) 
return (0) ; 

return (1) ; 



z v 

/* GnlCreateBalancedNode */ 

/* ie/ 

/* This function modifies the GNL_NODE 'Node' structure in order to get */ 
/* a balanced binary tree. Balancing is done according to the cost */ 
/* function 'GnlBalanceComp'. */ 
/* A/ 

GNL_STATUS GnlCreateBalancedNode (Gnl, Criter, Node) 
GNL Gnl ; 

int Criter; 
GNL_NODE Node; 

{ 

int i ; 

BLIST Sons ; 
GNL__N0DE Sonl; 
GNL_NODE Son2; 
GNL_NODE NewNode; 
BLIST SonList; 



if ( (GnlNodeOp (Node) 
(GnlNodeOp (Node) 
(GnlNodeOp (Node) 
return (GNL OK) ; 



GNL_AND) 
GNL_N0T) 
GNL OR) ) 



Sons = GnlNodeSons (Node) ; 

/* Nothing to do if the number of sons is already two 
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if (BListSize (Sons) == 2) 
return (GNL_OK) ; 

while (BListSize (Sons) > 2) 
{ 

/* 'Criter' = 0 --> Depth Minimization */ 
if (ICriter) 

qsort (BListAdress (Sons), BListSize (Sons) , sizeof (GNL_NODE) , 
GnlBa lance Comp) ; 

Sonl = (GNL_NODE) BListElt (Sons, 0) ; 
Son2 = (GNL_N0DE) BListElt (Sons, 1) ; 
BListDelShif t (Sons, 1) ; 
BListDelShif t (Sons, 1); 

/* we build the Function Node of the two least critical sons */ 
if (GnlCreateNode (Gnl, GnlNodeOp (Node), &NewNode) ) 

return (GNLJ4EMORY_FULL) ; 
if (BListCreateWithSize (2, &SonList) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)Sonl)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)Son2)) 
return (GNLJVEMORYJFULL) ; 
SetGnlNodeSons (NewNode, SonList) ; 

if (BListAddElt (Sons, (int) NewNode) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNLJ3K) ; 

} 



/* ic/ 

/* GnlMakeBalanceBinaryNode */ 

/* + i 

/* This function creates a new node 'NewNode' from 'Node 1 which is a */ 

/* balanced binary tree. */ 

/* 

GNL__STATUS GnlMakeBalanceBinaryNode (Gnl, Node, Criter, NewNode) 

GNL Gnl ; 

GNL_N0DE Node ; 

int Criter; /* 'Criter 1 = l -> Area, 0 -> depth */ 

GNLJSFODE *NewNode; 

{ 

int i ; 

BLIST SonList; 

GNL__N0DE Sonl ; 

BLIST Sons ; 

GNL_N0DE SNode ; 

GNL_N0DE VarNode ; 



if (Node == NULL) 
{ 

*NewNode = NULL; 
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return (GNL_OK) ; 

} 

switch (GnlNodeOp (Node) ) { 
case GNL_AND: 
case GNL_OR: 

if (GnlCreateNode (Gnl, GnlNodeOp (Node), NewNode) ) 

return (GNL__MEMORY_FULL) ; 
if {BListCreateWithSize (1, &SonList) ) 
return ( GNL_MEMORY_FULL ) / 
Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons) ; i++) 
{ 

SonI = (GNL_NODE)BListElt (Sons, i) ; 
if (GnlMakeBalanceBinaryNode (Gnl, SonI, Criter, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 
return (GNL_MEMORY FULL) ; 

} 

SetGnlNodeSons (*NewNode, SonList) ; 

if (GnlCreateBalancedNode (Gnl, Criter, *NewNode) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 
break; 



case GNL_NOT: 

if (GnlCreateNode (Gnl, GNLJNOT, NewNode)) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (1, ScSonList) ) 

return (GNL_MEMORY_FULL) ; 
Sons = GnlNodeSons (Node) ; 
SonI = { GNL_NODE ) BLi s t E 1 1 (Sons, 0) ; 
if (GnlMakeBalanceBinaryNode (Gnl, SonI, Criter, &SNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SonList, (int)SNode)) 

return ( GNL__MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, SonList) ; 
return (GNL_OK) ; 
break; 



case GNL_VARIABLE : 

if (GnlCreateNode (Gnl, GNL_VARIABLE, NewNode)) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, GnlNodeSons (Node)); 
return (GNL_0K) ; 
break; 

case GNL_CONSTANTE : 

if (GnlCreateNode (Gnl, GNL_CONSTANTE , NewNode)) 

return (GNL_MEMORY__FULL) ; 
SetGnlNodeSons (*NewNode, (BLIST) GnlNodeSons (Node) ) ; 
return (GNL__OK) ; 
break; 
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default : 

fprintf (stderr, "3:Unknown node operator\n" ) ; 
exit (1) ; 



} 



/* 

/* GnlMakeBalanceBinary */ 

/* 

/* This modifies the GNL 'Gnl' and replaces all its functions by */ 

/* balanced binary trees. */ 

/* 

GNL_STATUS GnlMakeBalanceBinary (Gnl, Criter) 
GNL Gnl ; 

int Criter; 



{ 



int i ; 

char *CopyName; 

GNL_VAR Varl ; 

GNL_FUNCTION FunctionI; 

GNL_NODE NewOnSet ; 

GNL_NODE NewDCSet; 

int j ; 

BLIST Nodes Segments ; 

GNL NewGnl ; 

BLIST ListNodesSegments ; 

GNL_NODE Segment I; 



if { (Nev^Gnl = (GNL) calloc (1, sizeof (GNL_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNbln (NewGnl, GnlNbln (Gnl) ) ; 
SetGnlNbOut (NewGnl, GnlNbOut (Gnl) ) ; 
SetGnlNbLocal (NewGnl, GnlNbLocal (Gnl) ) ; 

SetGnllnputs (NewGnl, Gnllnputs (Gnl) ) ; 
SetGnlOutputs (NewGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (NewGnl, GnlLocals (Gnl) ) ; 

SetGnlHashNames (NewGnl, GnlHashNames (Gnl) ) ; 

if (BListCreate (&Nodes Segments) ) 

return ( GNL_MEMORY_FULL ) / 
SetGnlNodesSegments (NewGnl, NodesSegments ) ; 
SetGnlFirstNode (NewGnl, NULL) ; 
SetGnlLastNode (NewGnl, NULL) ; 

SetGnlComponents (NewGnl, GnlComponents (Gnl)); 
fprintf (stderr, " Structuring (2) for mapping ...") ; 
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for (i = 0; i<BListSize (GnlFunctions (Gnl) ) / i++) 
{ 

Varl - (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlMakeBalanceBinaryNode (NewGnl, GnlFunctionOnSet (FunctionI), 

Criter, ScNewOnSet) ) 

return (GNLJVIEMORY_FULL) / 

GnlFreeNodeSons (GnlFunctionOnSet (FunctionI) ) ; 
GnlFreeNodeSons (GnlFunctionDCSet (FunctionI) ) ; 

SetGnlFunctionOnSet (FunctionI, NewOnSet) ; 

} 

fprintf (stderr, "\n") ; 

Li stNodes Segments = GnlNodes Segments (Gnl) ; 

for (i=0; i<BListSize (ListNodesSegments) ; i++) 
{ 

SegmentI = (GNL_NODE) BListElt (ListNodesSegments , i) ; 
free ( ( char* ) Segment I ) ; 

} 

SetGnlFirstNode (Gnl, NULL) ; 
SetGnlLastNode (Gnl, NULL) ; 



/* 

i = 0; 

for (j=0; j<BListSize (NewListFunctions) ; j++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

NewOnSet = (GNL_NODE) BListElt (NewListFunctions, j); 

SetGnlFunctionOnSet (FunctionI, NewOnSet) ; 

i++; 

} 

BListQuickDelete (&NewList Functions) ; 
*/ 

SetGnlNodesSegments (Gnl, GnlNodesSegments (NewGnl)); 
free ( (char* ) NewGnl) ; 
return (GNL_0K) ; 

} 

*/ 



/* 

/* GnlResetGnlNodeHook ★/ 

/* v 

/* We recursively reset to NULL the field Hook of node ■Node". */ 
/* ic/ 

static void GnlResetGnlNodeHook (Node) 
GNL_N0DE Node; 

{ 

int i ; 
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GNL_NODE SonI; 



if (GnlNodeOp (Node) == GNL CONSTANTE) 

{ 

SetGnlNodeHook (Node, NULL) ; 
return ; 

} 

if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

SetGnlNodeHook (Node, NULL) ; 
return ; 



SetGnlNodeHook (Node, NULL) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL__NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlResetGnlNodeHook (SonI) ; 

} 



} 



/* 

/* GnlAddMapNodelnfo */ 



/* 

/ t */ 

/* This function adds recursively a data structure ' GNL_MAP_NODE INFO ' */ 
/* to GNL_NODE 'Node' and hooks it on the field ' GnlNodeHook (Node)'. */ 
/* ; 

GNL_STATUS GnlAddMapNodelnfo (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_MAP_NODE_INFO NewMapNode Inf o ; 
GNL_N0DE SonI ; 

GNL_SN0DE s iNode ; 

GNL_SNODE PSNode ; 

/* If we already pass thru this node */ 
if ((GnlNodeHook (Node) !=NULL) && 

(GnlMapNodelnf oSNodes (Node) '= NULL)) 
return (GNL_OK) ; 

if (GnlNodeHook (Node) == NULL) 

if (GnlMapNodelnfoCreate (&NewMapNodeInf o) ) 
return (GNL_MEMORY_FULL) ; 
^SetGnlNodeHook {Node, NewMapNodelnf o) ; 

if ((GnlNodeOp (Node) == GNL_VARI ABLE ) || 
(GnlNodeOp (Node) == GNL_CONSTANTE) ) 

return (GNL OK) ; 
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} 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNLJtfODE)BListElt (GnlNodeSons (Node), i) ; 

if (GnlAddMapNodelnfo (SonI)) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateSNode (&SiNode) ) 

return (GNL__MEMORY_FULL) ; 
SetGnlSNodeNode (SiNode, SonI); 

if (GnlMapNodelnfoSNodes (Node) == NULL) 

{ 

SetGnlMapNodelnfoSNodes (Node, SiNode) ; 

} 

else 

SetGnlSNodeNext (PSNode, SiNode) ; 

PSNode = SiNode ; 
} 



return (GNL OK) ; 



/* 

/* GnlFreeMapSNodes 

/* 

void GnlFreeMapSNodes (SNode) 
GNL_SNODE SNode; 



-*/ 
■*/ 



{ 



} 



if (SNode == NULL) 
return ; 

GnlFreeMapSNodes (GnlSNodeNext (SNode) ) ; 
free (SNode) ; 



/* 

/* GnlFreeSNodeOfMapNodelnfo 

/* 

void GnlFreeSNodeOfMapNodelnfo (Node) 

GNL_NODE Node; 

{ 

int i ; 

GNL_NODE SonI ; 



/* If we already pass thru this node 
if (GnlMapNodelnfoSNodes (Node) == NULL) 
return ; 

if ( (GnlNodeOp (Node) == GNL_VARI ABLE ) | 
(GnlNodeOp (Node) == GNL_CONSTANTE) ) 



■*/ 
■*/ 
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{ 

return ; 

} 

GnlFreeMapSNodes (GnlMapNodelnf oSNodes (Node) ) ; 
SetGnlMapNodelnfoSNodes (Node, NULL) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlFreeSNodeOfMapNodelnfo (SonI) ; 



} 



/* 

/* GnlBuildDirectBddOnMapNode */ 

z* * i 

I* This procedure builds a direct Bdd on the node 'Node 1 and stores it */ 
/* in the field ' GnlMapNodelnf oBdd (Node) ■ . This procedure takes as */ 
/* Bdd of a Var the Bdd of its associated lib. var which must exist. */ 

/ * 

BDD_STATUS GnlBuildDirectBddOnMapNode (Node) 
GNL_NODE Node ; 

{ 

int i ; 
BDD_STATUS Status ; 
BLIST Sons; 
GNL_NODE Node I; 

BDD NewBdd; 



if (GnlNodeOp (Node) == GNL_VARIABLE) 
GNL_VAR Var; 

/* We access the associated library var of this node. 
Var = GnlMapNodelnf oLibVar (Node) ; 

/* The Bdd for this node is the Bdd of the library var 
SetGnlMapNodelnfoBdd (Node, UseBdd (GnlVarBdd (Var) ) ) ; 
return (BDD_OK) ; 

} 

if (GnlTag (G_Gnl) == GnlNodeTag (Node) ) 
GNL_VAR Var; 

Var = GnlMapNodelnf oLibVar (Node) ; 

SetGnlMapNodelnfoBdd (Node, UseBdd (GnlVarBdd (Var) ) ) ; 
return (BDD OK) ; 

} 

if (GnlNodeOp (Node) == GNL__CONS TANTE ) 

if (GnlNodeSons (Node) (BLIST) 0) 

SetGnlMapNodelnfoBdd (Node, bdd_zero () ) ; 
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else 

SetGnlMapNodelnf oBdd (Node , bdd_one ( ) ) ; 
return (BDD_OK) ; 

} 

Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons) ; i++) 
{ 

Nodel = (GNL_NODE) BListElt (Sons, i) ; 
if ((Status = GnlBuildDirectBddOnMapNode (Nodel))) 
return (Status) ; 

} 

/* All the Bdd of the sons have been computed. Now we compute the Bdd*/ 
/* of Node . * / 

if ((Status = GnlBddNodeApply (1, GJLibGnl, Node, &NewBdd) ) ) 
return (Status) ; 

SetGnlMapNodelnf oBdd (Node, NewBdd) ; 

return (BDDJDK) ; 



/* 

/* GnlGetBestAreaCell */ 



7 



/* v 

/* This function returns the Best Cell and Best Area from a given list */ 

/* cells. The list of cells is a list of LIB_DERIVE_CELL and all have */ 

/* the same Bdd or !Bdd. A cell having a bdd LibDeriveCellBdd (Cell) */ 

/* which !Bdd needs also an inverter to realize the !. So the area */ 

/* associated to this cell is its own area + area best inverter. If the */ 

/* Bdd LibDeriveCellBdd (Cell) of a cell is Bdd then its area is simply */ 
/* LibHCellArea (LibDeriveCellMotherCell (cell)) */ 

/* : 

void GnlGetBestAreaCell (ListCells, Bdd, BestCell, BestArea, BestDepth) 
BLIST ListCells; 
BDD Bdd; 
LIB_DERIVE_CELL * Best Cell ; 

float *BestArea; 
int *BestDepth; 



{ 



int i ; 

LIB__DERIVE_CELL Celll ; 

LIB^CELL MotherCelll ; 

float CArea; 
int CDepth; 



* Be st Are a = MAX_AREA_VALUE ; 

*BestCell = NULL; 

*BestDepth = MAX_DEPTH_VALUE ; 

for (i=0; i<BListSize (ListCells); i++) 
{ 

/* first pick up the derive cell area thru its mothercell. */ 
Celll = (LIB_DERIVE__CELL) BListElt (ListCells, i) ; 
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MotherCelll = LibDeriveCellMotherCell (Celll) ; 
CArea = LibHCellArea (MotherCelll) ; 
CDepth = 1; 

/* If Bdd of the derive cell is the complement of the Bdd of the*/ 
/* current node then an inverter is mandatory so we increase */ 
/* the Area of the cell by the area of the best inverter. */ 
/* Corner case: if the cell is itself the best inverter then we */ 
/* do not do it. */ 
if ((MotherCelll i = G_Best Inverter) && 
(Bdd != LibDeriveCellBdd (Celll))) 

{ 

CArea += LibHCellArea (G_Best Inverter) ; 
CDepth++; 

} 

/* storing the new best area. */ 
if ( (CArea < *BestArea) | | 
^ ( (CArea == *BestArea) && (CDepth < *BestDepth) ) ) 

*BestArea = CArea ; 
*BestCell = Celll; 
*BestDepth = CDepth; 

} 

} 



/ v 

/* GnlCellPowerEstimate */ 

/. J f 

float GnlCellPowerEstimate (MotherCell, CellCapa) 
L1B_CELL Mother-Cell; 
float CellCapa; 

{ 

float Power; 

Power = LibHCelllnternalPower (MotherCell) + 
0.5 * GnlEnvVDD () * GnlEnvVDD () * 
LibHCellChargeProba (MotherCell) * CellCapa; 

/* 

fprintf (stderr, 

" GATE : %s\n IPwr = %f ChargeProba = %f CellCapa = %f\n», 
LibHCellName (MotherCell) , LibHCelllnternalPower (MotherCell) , 
LibHCellChargeProba (MotherCell), CellCapa); 



*/ 

} 



return (Power) ; 



/*■ 
/* 
/*■ 



i</ 

/* GnlGetBestPowerCell * 



/ 
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/* 
/* 
/* 
/* 
/* 
/*■ 

void GnlGetBestPowerCell 



This function returns the Best Cell from which we expect the minimum * 

power consumption. Since we cannot have an accurate estimation at * 

level to estimate the correct power consumption, we try to take the * 

cell with the minimum charge probability. This value is given by the * 
field 'LibHCellChargeProba (MotherCelll) ■ . */ 



ListCells, 
BestPower , 
BLIST ListCells; 
float Capacitance; 
BDD Bdd; 
L I B_DER I VE_CELL *BestCell ; 

float *BestPower; 
int *BestDepth; 



Capacitance, Bdd, BestCell, 
BestDepth) 



int 

LIB__DER I VE_CELL 

LIB_CELL 

float 

int 

int 

int 



i; 

Celll; 

MotherCelll; 
CPower; 
CDepth; 
Area; 
BestArea ; 



*Best Power = MAX_POWER_VALUE ; 
*BestCell = NULL; 
*BestDepth = MAX_DEPTH_ VALUE ; 
BestArea = MAX_AREA_VALUE ; 

for (i=0; i<BListSize (ListCells); i++) 

{ 

/* first pick up the derive cell area thru its mothercell. */ 

Celll = (LIB_DERIVE_CELL) BListElt (ListCells, i) ; 

MotherCelll = LibDeriveCellMotherCell (Celll) ; 

CPower = GnlCellPowerEstimate (MotherCelll, Capacitance); 

CDepth = 1; 

Area = LibHCellArea (MotherCelll) ; 

/* If Bdd of the derive cell is the complement of the Bdd of the*/ 
/* current node then an inverter is mandatory so we increase */ 
/* the Area of the cell by the area of the best inverter. */ 
/* Corner case: if the cell is itself the best inverter then we */ 
/* do not do it. * j 

if ((MotherCelll != G_Best Inverter) 

(Bdd 1= LibDeriveCellBdd (Celll))) 

{ 

CPower += GnlCellPowerEstimate (G_Best Inverter , Capacitance); 
CDepth++; 

^Area += LibHCellArea (G_Best Inverter) ; 

/* storing the new best area. */ 
if ( (CPower < *BestPower) | | 

^ ( (CPower == *BestPower) (CDepth < *BestDepth) ) ) 

*BestPower - CPower; 
*BestCell = Celll; 
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*BestDepth 
BestArea = 
continue ; 



= CDepth; 
Area; 



if ( (CPower == *BestPower) && (CDepth *BestDepth) 
(Area < BestArea) ) 

{ 

*BestPower = CPower; 
*BestCell = Celll; 
*BestDepth = CDepth; 
BestArea = Area; 
continue; 

} 

} 

} 

/* 

/* GnlGetBestDepthCell */ 
/* 1 

/* This function returns the Best Cell and Best Depth from a given list */ 
/* cells. The list of cells is a list of LIB_DERIVE_CELL and all have */ 
/* the same Bdd or IBdd. A cell having a bdd LibDeriveCellBdd (Cell) */ 
/* which^ !Bdd needs also an inverter to realize the !. So the Depth */ 
/* associated to this cell is its own Depth 4- inverter Depth. If the */ 
/* Bdd LibDeriveCellBdd (Cell) of a cell is Bdd then its depth is simply*/ 
/* 1- */ 

/*; */ 

void GnlGetBestDepthCell (ListCells, Bdd, BestCell, BestArea, BestDepth) 
BLIST ListCells; 
BDD Bdd; 
LIB_DERIVE_CELL *BestCell ; 

float *BestArea; 
int *BestDepth; 



{ 



int i ; 
LIB_DERIVE_CELL Celll ; 

LIB_CELL MotherCelll ; 

float CArea; 
int CDepth; 



*BestArea = MAX_AREA_VALUE ; 

*BestCell = NULL; 

*BestDepth = MAX_DEPTH_VALUE; 

for (i=0; i<BListSize (ListCells) ; i++) 
{ 

/* first pick up the derive cell area thru its mothercell. */ 

Celll = (LIB_DERIVE__CELL) BListElt (ListCells, i) ; 
MotherCelll = LibDeriveCellMotherCell (Celll) ; 
CArea = LibHCellArea (MotherCelll) ; 
CDepth = l; 

/* If Bdd of the derive cell is the complement of the Bdd of the*/ 
/* current node then an inverter is mandatory so we increase */ 
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/* the Area of the cell by the area of the best inverter. */ 
/* Corner case: if the cell is itself the best inverter then we * / 
/* do not do it . */ 
if ( (MotherCelll != G_Best Inverter) 

(Bdd != LibDeriveCellBdd (Celll) ) ) 

{ 

CArea += LibHCellArea (GJBestlnverter) ; 
CDepth++ ; 

} 

/* storing the new best depth. */ 
if { (CDepth < ♦BestDepth) | | 
^ ( (CDepth == ♦BestDepth) (CArea < ♦BestArea) ) ) 

♦BestDepth = CDepth; 
♦BestArea = CArea; 
♦BestCell = Celll; 

} 

} 



7 



/ 



/* GnlGetBestNetCell 

/* 

/* This function returns the Best Cell and Best Depth from a given list 
/* cells. The list of cells is a list of LIB_DERIVE_CELL and all have 
/* the same Bdd or !Bdd. A cell having a bdd LibDeriveCellBdd (Cell) 
/* which !Bdd needs also an inverter to realize the 1. So the Depth 
/* associated to this cell is its own Depth + inverter Depth. If the 
/* Bdd LibDeriveCellBdd (Cell) of a cell is Bdd then its depth is simply*/ 
/* l . 

/* 



*/ 
*/ 
*/ 
*/ 
*/ 
♦/ 



/ 



void GnlGetBestNetCell 
BLIST 
BDD 

L I B_DER I VE_CELL 

int 

int 



(ListCells, Bdd, BestCell, BestDepth, BestNet) 
ListCells; 
Bdd; 

♦BestCell; 

♦BestDepth; 
♦BestNet; 



/ 



int 

L I B_D ER I VE_CELL 
LIB_CELL 
int 
int 
float 
float 



i; 

Celll; 

MotherCelll; 
CDepth ; 
CNet; 



BestArea; 
CArea; 



BestArea = MAX_AREA_VALUE ; 

♦BestDepth = MAX_DEPTH_VALUE ; 

♦BestCell = NULL; 

♦Be st Net = MAX_NE T_ VALUE ; 

for (i=0; i<BListSize (ListCells); i++) 
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{ 

/* first pick up the derive cell area thru its mothercell. */ 
Celll = (LIB_DERIVE__CELL) BListElt (ListCells, i) ; 
MotherCelll = LibDeriveCellMotherCell (Celll); 
CArea = LibHCellArea (MotherCelll) ; 
CDepth = 1; 
CNet = 1; 

/* If Bdd of the derive cell is the complement of the Bdd of the*/ 
/* current node then an inverter is mandatory so we increase */ 
/* the Area of the cell by the area of the best inverter. */ 
/* Corner case: if the cell is itself the best inverter then we * / 
/* do not do it . */ 
if ((MotherCelll 1= G_BestInverter) 

(Bdd 1= LibDeriveCellBdd (Celll))) 

{ 

CDepth += 1; 
CNet++; 

CArea += LibHCellArea (G Bestlnverter) ; 

} 

/* storing the new best depth. */ 
if {(CNet < *BestNet) || 

( (CNet == *BestNet) (CArea < BestArea) ) ) 

*BestNet = CNet; 
*BestDepth = CDepth; 
BestArea = CArea; 
*BestCell = Celll; 

} 



} 



/* 

/* GnlCreateSupportNodeFromNode */ 
/* 

/ 

I* This function returns a GNL_SNODE » SNode 1 which is constituted of */ 
/* all the Sons of 'Node 1 . All the corresponding GNL_SNODE are chained */ 
/* thru 'GnlSNodeNext ' . */ 

,* v 

GNL^STATUS GnlCreateSupportNodeFromNode (Node, SNode) 
GNL_NODE Node; 

GNL_SNODE * SNode ; 

{ 

int i ; 
GNL_NODE SonI; 

GNL_SNODE SiNode ; 

GNL_SNODE PSNode ; 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCreateSNode (&SiNode) ) 
return (GNL_MEMORY_FULL) ; 
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SetGnlSNodeNode (SiNode, SonI) ; 
if (i == 0) 

{ 

*SNode = SiNode; 

} 

else 

SetGnlSNodeNext (PSNode, SiNode); 

PSNode = SiNode; 
} 

SetGnlSNodeNext (PSNode, NULL); 
return (GNL OK) ; 



/* it/ 

/* GnlExtractSortedLibVars */ 

/* it/ 

/* This function returns a BLIST of GNL_VAR which correspond to the Var */ 

/* associated to each SNode. If the Node of a SNode is a GNL_VARIABLE */ 

/* then its associated var is GnlVarBindVar (GnlNodeSons (Node)). If the*/ 

/* Node of a SNode is an operator (GNL_NOT, ...) the its associated var */ 

/* is GnlMapNodelnfoLibVar (Node). */ 

/* Thi slist of vars is then sorted according to their canonical */ 

/* signature. */ 

/* v 

GNL_S TATUS GnlExtractSortedLibVars (SNodes, SortedVars) 
GNL_SN0DE SNode s ; 

BLIST *SortedVars; 



{ 



GNL_NODE Node I; 
GNL__VAR Var; 
GNL^VAR LibVarl; 



if (BListCreateWithSize (1, SortedVars)) 
return ( GNL_MEMORY_FULL ) ; 

while (SNodes 1= NULL) 

{ 

Node I = GnlSNodeNode (SNodes) ; 
if (GnlNodeOp (Nodel) == GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Nodel); 
LibVarl = GnlVarBindVar (Var) ; 

} 

else if (GnlNodeOp (Nodel) == GNL CONSTANTE) 

{ 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

else 

{ 

LibVarl = GnlMapNodelnfoLibVar (Nodel) ; 
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} 



} 

/* We add only one time a Var in ' *SortedVars » . */ 
if ( IBListMemberOfList (*SortedVars , LibVarl, Intldentical) ) 
if (BListAddElt ( *SortedVars , (int ) LibVarl) ) 
return (GNL_MEMORY_FULL) ; 

SNodes = GnlSNodeNext (SNodes); 



/* we sort the inputs in order to respect the ordering of signatures */ 
qsort (BListAdress (*SortedVars) , BListSize (*SortedVars) , 
sizeof (GNL_VAR) , CmpVarSignature) ; 

return (GNL OK) ; 



/* it/ 

/* GnlGetSortBindVar */ 

/* This function returns the original var associated to 'BindVar' in the*/ 

/* list 1 OriginVars ■ . */ 

/* #/ 

GNL_VAR GnlGetSortBindVar (BindVar, SortedVars, OriginVars) 
GNL_VAR BindVar; 
BLIST SortedVars ; 
BLIST OriginVars; 



{ 



int i ; 



for {i=0; i<BListSize (SortedVars); i++) 
{ 

if (BindVar == (GNL_VAR) BListElt (SortedVars, i) ) 
break; 

} 

return ( (GNL_VAR) BListElt (OriginVars, i) ) ; 

/* #/ 

/* GnlBindSupportWithLibVars */ 

/*— v 

/* This functions associates to each Node of SNode a bind/library var. */ 
/* Corner case: a Node of a SNode can refer several times to the same */ 
/* GNL_VARIABLE. We need to associate to this Var always the same Bind */ 
/* Var. */ 
/* ^ 

GNL_STATUS GnlBindSupportWithLibVars (SNodes) 
GNL__SNODE SNode s ; 

{ 

int i ; 
GNL_VAR Varl ; 

GNL_VAR Var; 
GNL_NODE Node I ; 

GNL_VAR_LIB_INFO VarLiblnf o ; 
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/* we use this tag to make sure we create only one single var when */ 
/* we are in the case where a same GNL_VARAIBLE is referenced several*/ 
/* times. */ 
SetGnlTag (G_Gnl, GnlTag (G_Gnl) +1) ; 

i = 0; /* i is the index of the next library variable */ 

/* available. */ 
while (SNodes != NULL) 

{ 

if (i > BListSize (G_LibInputs) ) 

{ 

fprintf (stderr, 

"\n ERROR: Tree not enough decomposed to be mapped\n"); 
exit (1) ; 

} 

Nodel = GnlSNodeNode (SNodes) ; 

/* If node is a GNL_VARIABLE then we bind a new library */ 

/* variable to its var and to the Node GNL_VARIABLE . Do not do*/ 

/* it if this variable was already processed. */ 

/* variable level ... */ 

if (GnlNodeOp (Nodel) == GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Nodel); 
if (IGnlVarHook (Var)) 

{ 

if (GnlVarLiblnfoCreate ( &VarLibInf o) ) 
return (GNL__MEMORY_FULL) ; 
SetGnlVarHook (Var, VarLiblnfo) ; 



/* If the tag is different we did not already processed */ 
/* this Variable r Var' . */ 
if (GnlVarTag (Var) 1= GnlTag (G Gnl) ) 

{ 

/* we set the tag so in the next pass we know that we */ 
/* already visited it. */ 
SetGnlVarTag (Var, GnlTag (G_Gnl)) ; 

Varl = (GNL_VAR) BListElt (G_LibInputs , i) ; 
SetGnlVarBindVar (Var, Varl) ; 

i++; 

} 

/* We bind also the Node with this variable */ 
^SetGnlMapNodelnfoLibVar (Nodel, GnlVarBindVar (Var) ) ; 

else if (GnlNodeOp (Nodel) == GNL CONSTANTE) 
{ 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

else /* otherwise at the Node level. */ 

{ 

SetGnlNodeTag (GnlSNodeNode (SNodes), GnlTag (G_Gnl) ) ; 
Varl = (GNL_VAR) BListElt (G_LibInputs , i) ; 
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SetGnlMapNodelnfoLibVar (GnlSNodeNode (SNodes) , Varl) ; 
i++; 

} 

SNodes = GnlSNodeNext (SNodes) ; 

} 

return (GNL_OK) ; 

} 



/* */ 

/* GnlReassignLibVars */ 

/* 

/* We redo the library var assignment in order to respect the signatures*/ 

/* The list ' SortedVars 1 gives the correct order. */ 

/* */ 

void GnlReassignLibVars (SNodes, SortedVars) 
GNLjSNODE SNodes; 
BLIST SortedVars; 



{ 



} 



GNL_NODE Node I ; 

GNL_VAR Var; 

GNL_VAR BindVar; 

GNL_VAR NewBindVar; 



while (SNodes != NULL) 
{ 

Node I = GnlSNodeNode (SNodes) ; 

if (GnlNodeOp (Nodel) == GNL_CONSTANTE) 

{ 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

BindVar = GnlMapNodelnf oLibVar (Nodel) ; 

NewBindVar = GnlGetSortBindVar (BindVar, SortedVars, G_LibInputs) ; 

/* substitute the old bind var ' BindVar f by the correct one which */ 
/* is 'NewBindVar'. */ 
/* Warning: the substitution can affect also the bind var of Var */ 
/* of Nodel in order to be consistant so may be its godd to */ 
/* update it too. */ 
SetGnlMapNodelnfoLibVar (Nodel, NewBindVar) ; 

SNodes = GnlSNodeNext (SNodes) ; 

} 



/* ic/ 

/* GnllsAlreadylnList */ 

/* it/ 

/* This functions checks if 'Node' which is a GNL_VARIABLE has already */ 
/* an equivalent node GNLJVARIABLE which points on the same Var. returns*/ 
/* if Yes and 0 otherwise. */ 
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/* 

int GnllsAlreadylnList (Node, NodeSupport) 
GNL_NODE Node; 
BLIST NodeSupport ; 

{ 

int i; 
GNL_NODE Nodel ; 



for (i=0; i<BListSize (NodeSupport); i++) 
{ 

Nodel - (GNL_NODE) BListElt (NodeSupport, i) ; 
if { (GnlNodeOp (Nodel) GNL_VARIABLE) 

(GnlNodeSons (Nodel) == GnlNodeSons (Node))) 
return (1) ; 

} 

return (0) ; 

} 



/* 

/* GnlSavelnstance */ 

/* 

/* This function saves for a particular node, its support function and */ 
/* library variables associated to this support. Both lists are stored */ 
/* in 'GnlMapNodelnfoNodeSupport 1 and 1 GnlMapNodelnf oNode Support r fields*/ 
/* of the Node. */ 
/* * f 

GNL_STATUS GnlSavelnstance (Node, SNodes) 
GNL_N0DE Node; 
GNL SNODE SNodes; 



{ 



GNL_NODE Nodel; 
GNL_VAR Var; 
GNL_VAR BindVar ; 
BLIST NewList; 



if (GnlMapNodelnfoNodeSupport (Node) == NULL) 

{ 

if (BListCreateWithSize (1, ScNewList) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlMapNodelnfoNodeSupport (Node, NewList) ; 

} 

/* reseting the list to store a new instance 
BSize (GnlMapNodelnfoNodeSupport (Node)) = 0; 

if (GnlMapNodelnf oLibVarSupport (Node) == NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlMapNodelnf oLibVarSupport (Node, NewList) 

} 

/* reseting the list to store a new instance 
BSize (GnlMapNodelnf oLibVarSupport (Node)) = 0; 
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while (SNodes 1= NULL) 

{ 

Node I = GnlSNodeNode (SNodes) ; 

if (GnlNodeOp (Nodel) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Nodel) ; 
/* Already added in the support so not needed to add it */ 
/* one more time. */ 
if (GnllsAlreadylnList (Nodel, 

GnlMapNodelnf oNodeSupport (Node) ) ) 

{ 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

/* we add the Node 'Nodel' in the support. */ 
if (BListAddElt (GnlMapNodelnf oNodeSupport (Node) , 
(int) Nodel) ) 
return (GNL_MEMORY_FULL) ; 

/* we add the lib var 'BindVar' in the list of lib vars */ 

BindVar = GnlMapNodelnf oLib Var (Nodel) ; 
if (BListAddElt (GnlMapNodelnfoLibVarSupport (Node) , 
(int) BindVar) ) 
return (GNL_MEMORY_FULL) ; 

} 

else if (GnlNodeOp (Nodel) == GNL_CONSTANTE) 
{ 

SNodes = GnlSNodeNext (SNodes); 
continue; 

} 

else 

{ 

/* we add the Node ! Nodel 1 in the support. */ 
if (BListAddElt (GnlMapNodelnf oNodeSupport (Node) , 
(int) Nodel) ) 
return (GNL_MEMORY_FULL) ; 

/* we add the lib var 'BindVar' in the list of lib vars */ 

BindVar = GnlMapNodelnf oLibVar (Nodel) ; 
if (BListAddElt (GnlMapNodelnfoLibVarSupport (Node) , 
(int) BindVar) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

SNodes = GnlSNodeNext (SNodes) ; 

} 

return (GNL_OK) ; 

} 

/* 1e/ 

/* GnlExpanseSupportNode */ 

/* i!/ 

/* This procedure creates a New SNode 'NewSNodes' from 'SNodes* by */ 
/* replacing the SNode at index 'i' by its sons. */ 
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/* Ex: SNodes = [xl x2 a b x3] , i = 2, x2 = a + x4 then 'NewSNodes' is: */ 

/* NewSNodes = [xl a x4 a b x3] . */ 

/* */ 

void GnlExpanseSupportNode (SNodes, i, NewSNodes, FirstSNode) 
GNL_SNODE SNodes ; 

int i ; 

GNL_SNODE *NewSNode s ; 

GNL_SNODE *FirstSNode; 

{ 

GNL_SNODE SNodesC ; 

int j ; 

GNL_NODE Nodel; 
GNL_SNODE PSNode ; 

GNLJSNODE S iNode ; 

GNL NODE SonI; 



*NewSNodes = NULL; 

PSNode = NULL; 
SNodesC = SNodes; 
for (j=0; j<i; j++) 
{ 

PSNode = SNodesC; 

SNodesC = GnlSNodeNext (SNodesC) ; 
} 

Node I = GnlSNodeNode (SNodesC) ; 

if (PSNode) 
{ 

SetGnlSNodeNext (PSNode, GnlMapNodelnf oSNodes (Nodel) ) ; 
*NewSNodes = SNodes; 

*FirstSNode = GnlMapNodelnf oSNodes (Nodel) ; 
PSNode = GnlSNodeNext (PSNode) ; 

} 

else 

{ 

*NewSNodes = GnlMapNodelnf oSNodes (Nodel) ; 
*FirstSNode = GnlMapNodelnf oSNodes (Nodel) ; 
PSNode = *NewSNodes; 

} 

while (GnlSNodeNext (PSNode)) 
{ 

PSNode = GnlSNodeNext (PSNode) ; 

} 

SetGnlSNodeNext (PSNode, GnlSNodeNext (SNodesC)); 

} 

/* */ 

/* GnlDeleteSupportNode */ 

/* */ 

/* This procedure does the opposite of 'GnlExpanseSupportNode' and */ 
/* de-expanse 'NewSNode' in order to get the previous original support */ 
/* */ 
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void GnlDeleteSupportNode (SupportNodes , NewSNode, Index, SNodes, Length) 



GNL_SNODE 
GNL_SNODE 
int 

GNL__SNODE 
int 



SupportNodes ; 
NewSNode ; 
Index; 
SNodes ; 
Length; 



int 

GNL SNODE 



PSNode ; 



PSNode = NULL; 

for ( j = 0 ; j < Index ; j ++ ) 

{ 

PSNode = SupportNodes; 

SupportNodes = GnlSNodeNext (SupportNodes) ; 

} 

if (PSNode == NULL) 
{ 

for (j=0; j<Length; j++) 

{ 

NewSNode = GnlSNodeNext (NewSNode) ; 

} 

SetGnlSNodeNext (NewSNode, NULL) ; 
return; 

} 

for (j=0; j<Length; j++) 

{ 

SupportNodes = GnlSNodeNext (SupportNodes); 

} 

SetGnlSNodeNext (PSNode, SNodes) ; 

SetGnlSNodeNext (SNodes, GnlSNodeNext (SupportNodes) ) ; 
SetGnlSNodeNext (SupportNodes, NULL) ; 



} 



/* it/ 

/* GetRealSizeSupport */ 

/* it/ 

/* Returns the real number of different nodes in the support constituted*/ 
/* of SupportNodes and nodes. When NODE variable are used then we count */ 
/* only one time this variable. */ 
/* it/ 

int GetRealSizeSupport (SupportNodes, Sons) 
GNL_SNODE SupportNodes ; 

BLIST Sons; 

{ 

int Size; 
GNL_NODE Node; 
GNL_NODE SonJ; 
GNL_VAR Var; 
int j ; 

if (BListSize (Sons) == 1) 
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return (1) ; 

Size = BListSize (Sons); 
while (SupportNodes) 

{ 

Node = GnlSNodeNode (SupportNodes) ; 
if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node); 
for (j=0; j<BListSize (Sons); j++) 
{ 

SonJ = (GNL_NODE) BListElt (Sons, j); 
if ( (GnlNodeOp (SonJ) == GNL_VARIABLE) 

(Var (GNL_VAR) GnlNodeSons (SonJ))) 
Size-- ; 

} 

} 

Size++; 

SupportNodes = GnlSNodeNext (SupportNodes) ; 

} 

return (Size-1) ; 

} 



/- 



/* GnlGetBestAreaCellOnNode */ 

/* *i 

/* This procedure is the main Mapping Area function. It looks for all */ 
/* the cells which can realize the functionality starting from GNL_NODE */ 
/* 'Node' and which leaves are the ones in 'SupportNodes*. It select */ 
/* the best cell which involves the best overall area mapping. Recursive*/ 
/* call is performed on other functionalities starting fron Node (which */ 
/* are still defined by the support 1 NewSupportNodes 1 . Indirect */ 
/* recursive call is also performed on ' GnlBestAreaMapNode ' when a cell */ 
/* has been found. THis call is perfomed on all the Node of the current */ 
support. The best area is stored on the field GnlMapNodelnf oBestArea */ 
of 'Node ' . */ 
'Done* is 1 if the mapper was able to map and f 0' otherwise. 



/* 
/* 
/* 
/* 

GNL_STATUS GnlGetBestAreaCellOnNode (Node, SupportNodes, Index, 

SizeSupportNodes , FirstSNode, Done) 



*/ 
*/ 



GNL_ 


_NODE 


Node ; 


GNL~ 


"SNODE 


SupportNodes; 


int" 




S i ze SupportNode s 


int 




Index ; 


GNL_ 


_SNODE 


FirstSNode; 


int 




*Done; 


int 




i; 


GNL_ 


_VAR 


Varl; 


gnl" 


_SNODE 


SNodes; 


int 




Ce 11 Found; 


BDD_ 


_PTR 


NewBddPtr; 


GNL_ 


^STATUS 


Status ; 


BDD~ 




NewBdd; 


GNL_ 


_NODE 


Node I; 
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GNL_SNODE 
GNL_SNODE 
int 
int 
BLIST 
float 
float 

L IB_DER I VE_CELL 
int 
int 
int 
int 



NewSupportNodes ; 
SNodei; 

SizeNewSupport ; 
CDone ; 
SortedVars ; 
Area; 
NArea ; 

BestCell; 
NDepth; 
Depth; 
MaxDepth; 
RealSizeSupport ; 



#ifdef STAT 

G_NB_TARGET_FUNC + + ; 
#endif 



*Done = 0; 

if ( (GnlNodeOp (Node) == GNL_VARIABLE) | | 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done = 1; 
return (GNL_OK) ; 

} 

SNodes = FirstSNode; 
i = Index; 

while (SNodes != NULL) 
{ 

Node I = GnlSNodeNode (SNodes) ; 

/* It is not necesary to expanse Nodes with index less than 
/* 'Index' because it has been already done. */ 
if ((GnlNodeOp (Nodel) != GNL_VARIABLE) && 
(GnlNodeOp (Nodel) != GNL CONSTANTE) ) 

{ 

#ifndef ENHANCE_1 

RealSizeSupport = GetRealSizeSupport (SupportNodes , 

GnlNode Sons ( Node I ) 
if (RealSizeSupport > G__MaxCellSizeSupport ) 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 



#else 



SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

if (SizeNewSupport > GJVIaxCellSizeSupport) 
i++; 
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SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

#endif 

GnlExpanseSupportNode (SupportNodes , i , ^NewSupportNodes , 

&SNodei) ; 

if (GnlGetBestAreaCellOnNode (Node, NewSupportNodes , i, 

SizeNewSupport , SNodei, &CDone) ) 

return (GNL_MEMORY_FULL) ; 
*Done |- CDone; 

GnlDeleteSupportNode (SupportNodes, NewSupportNodes, i, 
SNodes, 

SizeNewSupport - SizeSupportNodes ) ; 

} 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* We bind the Nodes of the support to bdd primary inputs of the tech*/ 
/* library. */ 

if (GnlBindSupportWithLibVars (SupportNodes) ) 
return ( GNL_MEMORY_FULL ) ; 

if ((Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT++ ; 

#endif 

NewBdd = GnlMapNodelnfoBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

/* The Bdd is simply a constant. */ 
if ( (NewBdd == bdd_one () ) || (NewBdd bdd__zero ())) 

*Done = 1; 

SetGnlMapNodelnfoBestBdd (Node, NewBdd) ; 
SetGnlMapNodelnf oBestArea (Node, 0.0) ; 
SetGnlMapNodelnfoBestDepth (Node, 0) ; 
return (GNL_OK) ; 

} 

CellFound = (GetBddPtrHook (NewBddPtr) 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) / 

/* If no cell found we simply return. */ 
if (I CellFound) 
{ 

return (GNL_0K) ; 
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} 

#ifdef STAT 

G_NB_CELL_FOUND-f+ ; 
#endif 

*Done = 1; 

/* Computing the best Area taking this cell as solution */ 
GnlGetBestAreaCell (LibBddlnf oDeriveCells (NewBddPtr) , 

NewBdd, &BestCell, &Area, &Depth) ; 

MaxDepth = 0; 
SNodes = SupportNodes; 
while (SNodes ! = NULL) 
{ 

if (GnlBestAreaMapNode (GnlSNodeNode (SNodes) , &NArea, 

&NDepth, Done) ) 
return ( GNL_MEMORY_FULL ) ; 

/* Impossible to map 'GnlSNodeNode (SNodes) * . 
if ( I (*Done) ) 

return (GNL_0K) ; 

Area += NArea; 

if (NDepth > MaxDepth) 
MaxDepth = NDepth; 

/* We cope since we have already found a better solution 
if (Area > GnlMapNodelnf oBestArea (Node) ) 
break; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* If better then save everything: Area, Bdd, vars associations */ 

if ((Area < GnlMapNodelnf oBestArea (Node)) || 

((Area == GnlMapNodelnf oBestArea (Node)) && 
(MaxDepth+Depth < GnlMapNodelnf oBestDepth (Node) ) ) ) 

SetGnlMapNodelnf oBestArea (Node, Area) ; 
SetGnlMapNodelnf oBestDepth (Node, MaxDepth+Depth) ; 
SetGnlMapNodelnf oBestBdd (Node, NewBdd) ; 
if (GnlSavelnstance (Node, SupportNodes)) 
return (GNL_MEMORY FULL) ; 

} 



} 



return (GNL OK) ; 



/* * 7 

/* GnlBestAreaMapNode */ 

/*.... v 

/* This is the main procedure for the Mapping area option. It looks for */ 
/* the best mapping starting from node *Node» and returns the best Area */ 
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/* seen so far. The area information is also stored in the field */ 

/* 'GnlMapNodelnfoBestArea ' of node 'Node* in oreder to pick it up if 

/* we recall this function on the same Node. */ 

/* 'Done* is 1 if the mapper was able to map and '0' otherwise. 



GNLJSTATUS GnlBestAreaMapNode (Node, Area, Depth, Done) 
GNL_NODE Node; 
float *Area; 
int *Depth; 
int *Done; 

{ 

GNL_SNODE SupportNode ; 



if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

*Done = 1; 
*Area = 0.0; 
*Depth = 0; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL_C0NS TANTE ) 
{ 

*Done = l; 
*Area = 0.0; 
*Depth = 0; 
return (GNL_0K) ; 

} 

if ((GnlMapNodelnfoBestArea (Node) I - 0.0) && 

(GnlMapNodelnfoBestArea (Node) 1= MAX_AREA_VALUE) ) 

*Done = 1 ; 

*Area = GnlMapNodelnfoBestArea (Node) ; 
*Depth = GnlMapNodelnfoBestDepth (Node) ; 
return (GNL_OK) ; 

} 



SetGnlMapNodelnfoBestArea (Node, MAX_AREA_VALUE ) ; 
SetGnlMapNodelnf oBestDepth (Node, MAX_DEPTH_VALUE) ; 

SupportNode = GnlMapNodelnf oSNodes (Node) ; 

if (GnlGetBestAreaCellOnNode (Node, SupportNode, 0, 

BListSize (GnlNodeSons (Node) ) , 
SupportNode , Done ) ) 

return ( GNL_MEMORY_FULL ) ; 

/* we were not able to map everything. */ 
if ( (*Done) == 0) 
{ 

return (GNL_OK) ; 

} 

*Area = GnlMapNodelnfoBestArea (Node) ; 
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} 



*Depth = GnlMapNodelnfoBestDepth (Node) ; 
return (GNL OK) ; 



/* ±f 

/* GnlGetCapOnNode 

/* *i 

/* This function extracts the capacitance of the input pin associated to*/ 

/* SNode 'SNodes' . */ 

/* i(/ 

float GnlGetCapOnNode (SNodes, Cell) 
GNL_SNODE SNodes ; 

LIB_DERIVE_CELL Cell ; 

{ 

GNL_NODE Node ; 

GNL_VAR B i ndVar ; 

LIBJ2ELL MotherCell ; 

GNL_VAR Var; 
LIBCJPIN Pins; 
LIBC_NAME_LIST ListPinName; 
LIBC_CELL LibCell ; 



Node = GnlSNodeNode (SNodes) / 

BindVar = GnlMapNodelnf oLibVar (Node) ; 

MotherCell = LibDeriveCellMotherCell (Cell) ; 

Var = GnlGetOriginalVar (Cell, MotherCell, BindVar); 
if (IVar) 

return (0.0) ; 

LibCell = LibHCellLibcCell (MotherCell); 

Pins = LibCellPins (LibCell) ; 

for (;Pins 1= NULL; Pins = LibPinNext (Pins ) ) 

{ 

ListPinName = LibPinName (Pins) ; 

if Ustrcmp (GnlVarName (Var), LibNameListName (ListPinName))) 

if (LibPinCapa (Pins) != 0.0) 

return (LibPinCapa (Pins)); 
return (LibDef ault Input PinCap (G_GnlLibc) ) ; 

} 

return (LibDef aultlnputPinCap (G_GnlLibc) ) ; 

/* v 

/* GnlGetAssociatedPin */ 

/*— - 

/* This function returns the associated pin of the cell 'Cell' which is */ 
/* associated to the SNODE 'SNodes'. */ 

LIBCJPIN GnlGetAssociatedPin (SNodes, Cell) 
GNL_SNODE SNode s ; 
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LIB DERIVE CELL 



Cell; 



GNL_NODE 

GNL_VAR 

LIB_CELL 

GNL_VAR 

LIBC_PIN 

LIB C_NAME__L 1ST 

LIBC CELL 



Node ; 

BindVar; 

MotherCell; 

Var; 

Pins ; 

ListPinName; 
LibCell; 



Node = GnlSNodeNode (SNodes) ; 

BindVar = GnlMapNodelnf oLibVar (Node) ; 

MotherCell = LibDeriveCellMotherCell (Cell) ; 

Var = GnlGetOriginalVar (Cell, MotherCell, BindVar); 
if (!Var) 

return (NULL) ; 

LibCell = LibHCellLibcCell (MotherCell) ; 
Pins = LibCellPins (LibCell) ; 
for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ 

ListPinName = LibPinName (Pins) ; 

if (Istrcmp (GnlVarName (Var), LibNameListName (ListPinName))) 

{ 

return (Pins) ; 

} 

} 

return (NULL) ; 

} 



/* 1t/ 

/* GnlGetCapaFromPin */ 
/* it/ 

/* Returns the associated capacitance of pin 'Pin'. */ 

/* ie/ 

float GnlGetCapaFromPin (Pin) 
LIBC_PIN Pin; 

{ 

if (LibPinCapa (Pin) != 0.0) 
return (LibPinCapa (Pin) ) ; 



return (LibDef aultlnputPinCap (G GnlLibc) ) ; 

} 



/* ±/ 

/* GnlGetBestPowerCellOnNode */ 
/* ie/ 

/* This procedure is the main Mapping Power function. It looks for all */ 
/* the cells which can realize the functionality starting from GNL_NODE */ 
/* 'Node' and which leaves are the ones in ' SupportNodes ' . It select */ 
/* the best cell which involves the best overall Power mapping . Recursive*/ 
/* call is performed on other functionalities starting fron Node (which */ 
/* are still defined by the support ' NewSupport Nodes ') . Indirect */ 
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/* recursive call is also performed on 1 GnlBestAreaMapMode ' when a cell */ 
/* has been found. This call is perfomed on all the Node of the current */ 
/* support. The best Power is stored on the field GnlMapNodelnf oBestPower*/ 
/* of 'Node' . */ 

/* 'Done' is 1 if the mapper was able to map and '0' otherwise. */ 
/* ic/ 

GNL_STATUS GnlGetBestPowerCellOnNode (Node, Capacitance, SupportNodes , 

Index, SizeSupportNodes, Rec, Done) 



GNL NODE 


Node ; 




float Capacitance 


r 


GNL_SN0DE 


SupportNodes; 


int 


SizeSupportNodes ; 


int 


Index ; 




int 


Rec; 




int 


*Done; 




int 




i; 


GNL_VAR 




Varl ; 


GNL_SNODE 




SNodes ; 


int 




Ce 11 Found; 


BDD_PTR 




NewBddPtr; 


GNL_STATUS 




Status; 


BDD 




NewBdd ; 


GNL_NODE 




Node I ; 


GNL_SNODE 




NewSupportNodes ; 


GNL_SN0DE 




SNodei; 


int 




SizeNewSupport ; 


int 




CDone ; 


BLIST 




SortedVars ; 


float 




Power; 


float 




NPower ; 


LIB_DERIVE_ 


CELL 


BestCell; 


int 




NDepth; 


int 




Depth; 


int 




MaxDepth; 


float 


CapaOnNode ; 



#ifdef STAT 

G_NB_TARGET_FUNC++ ; 
#endif 



*Done = 0; 

if ( (GnlNodeOp (Node) == GNL_VARIABLE) || 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done - 1; 
return (GNL_0K) ; 

} 

SNodes = SupportNodes; 
i = 0; 

while (SNodes i= NULL) 

{ 

Node I = GnlSNodeNode (SNodes) ; 

/* It is not necesary to expanse Nodes with index less than */ 
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/* 'Index' because it has been already done. */ 
if ( (i >- Index) && 

(GnlNodeOp (Nodel) != GNL_VARIABLE) 
(GnlNodeOp (Nodel) ! = GNL_CONSTANTE) ) 
{ ^ 

SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

if (SizeNewSupport > G_MaxCel IS ize Support ) 

{ 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

GnlExpanseSupportNode (SupportNodes , i , ^NewSupportNodes , 

fcSNodei) ; 

if (GnlGetBestPowerCellOnNode (Node, Capacitance, 

NewSupportNodes, i, 
SizeNewSupport, Rec+1, &CDone) ) 

return ( GNL_MEMORY_FULL ) ; 
*Done | = CDone ; 

GnlDeleteSupportNode (SupportNodes , NewSupportNodes , i , 

SNodes, 

Si zeNewSupport - Si zeSupportNodes ) ; 

if (lG_Effort 5c& CDone) 
break; 

} 



i++; 

SNodes = GnlSNodeNext (SNodes); 

} 



/* We bind the Nodes of the support to bdd primary inputs of the tech*/ 
/* library. */ 
if (GnlBindSupportWithLibVars (SupportNodes) ) 
return ( GNL_MEMOR Y_FULL) ; 

if ((Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) ; 



#ifdef STAT 

G_ROBDD__BUILT++ ; 
#endif 



NewBdd = GnlMapNodelnfoBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 



/* The Bdd is simply a constant. 

if ((NewBdd == bdd_one () ) || (NewBdd == bdd zero ())) 
{ 

*Done = 1; 
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SetGnlMapNodelnf oBestBdd (Node, NewBdd) ; 
SetGnlMapNodelnf oBestPower (Node, 0.0); 
SetGnlMapNodelnf oBestDepth (Node, 0) ; 
return (GNL_0K) ; 

} 

CellFound = (GetBddPtrHook (NewBddPtr) && 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 

/* If no cell found we rebuild the Bdd with a pseudo canonical order 
if (I CellFound) 

{ 

/* We compute the signature of the Node tree from the previous 
/* computed Bdd. 

if (GnlComputeVarsSignatureFromBdd (G_LibGnl, NewBdd) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlExtractSortedLibVars (SupportNodes, &SortedVars) ) 
return (GNL_MEMORY_FULL) ; 

GnlReassignLibVars (SupportNodes, SortedVars) ; 

if ((Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT++ ; 

#endif 

NewBdd = GnlMapNodelnfoBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

CellFound = (GetBddPtrHook (NewBddPtr) && 

BListSize (LibBddlnfoDeriveCells (NewBddPtr) ) ) ; 

BListQuickDelete (&SortedVars) ; 

} 

if (CellFound) 
{ 

#ifdef STAT 

G__NB_CELL_FOUND++ ; 

#endif 

*Done = 1; 

/* Computing the best Power taking this cell as solution 
GnlGetBe st Power Cell (LibBddlnfoDeriveCells (NewBddPtr) , 

Capacitance, NewBdd, &BestCell, &Power, 

&Depth) ; 

MaxDepth = 0; 
SNodes = SupportNodes; 
while (SNodes != NULL) 
{ 

/* we extract the capacitance of the pin associated to 
/* SNodes. */ 
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CapaOnNode = GnlGetCapOnNode (SNodes, BestCell) ; 

if (GnlBestPowerMapNode (GnlSNodeNode (SNodes) , CapaOnNode, 

&NPower, &NDepth, Rec, Done) ) 
return ( GNL_MEMORY_FULL ) ; 

/* Impossible to map 'GnlSNodeNode (SNodes) ' */ 
if ( i (*Done) ) 

return (GNL_OK) ; 

Power += NPower; 

if (NDepth > MaxDepth) 
MaxDepth = NDepth; 

/* We cope since we have already found a better solution */ 
if (Power > GnlMapNodelnf oBestPower (Node) ) 
break; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* If better then save everything: Power, Bdd, vars associations */ 
if ( (Power < GnlMapNodelnf oBestPower (Node) ) | | 

( (Power — GnlMapNodelnf oBestPower (Node) ) && 
(MaxDepth+Depth < GnlMapNodelnfoBestDepth (Node) ) ) ) 

{ 

SetGnlMapNodelnf oBestPower (Node, Power) ; 
SetGnlMapNodelnfoBestDepth (Node, MaxDepth+Depth) ; 
SetGnlMapNodelnf oBestBdd (Node, NewBdd) ; 
if (GnlSavelnstance (Node, SupportNodes) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 



return (GNL_OK) ; 

} 



/* */ 

/* GnlBestPowerMapNode */ 
/* */ 

/* This is the main procedure for the Mapping Power option. It looks for*/ 
/* the best mapping starting from node 'Node' and returns the best Power*/ 
/* seen so far. The Power information is also stored in the field */ 
/* 'GnlMapNodelnf oBestPower' of node 'Node' in order to pick it up if */ 
/* we recall this function on the same Node. */ 

/* 'Done' is 1 if the mapper was able to map and '0' otherwise. */ 
/* */ 



GNLJ3TATUS GnlBestPowerMapNode (Node, Capacitance, Power, Depth, Rec, 

Done) 

GNL_NODE Node ; 

float Capacitance ; 
float *Power; 
int *Depth; 
int Rec; 
int *Done ; 
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GNL_SNODE SupportNode ; 



if (GnlNodeOp (Node) == GNL VARIABLE) 

{ 

*Done = 1 ; 
* Power = 0.0; 
*Depth = 0; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 

{ 

*Done = 1; 
* Power = 0.0; 
*Depth = 0; 
return (GNL_0K) ; 

} 

if ( (GnlMapNodelnf oBestPower (Node) != 0.0) && 

(GnlMapNodelnf oBestPower (Node) != MAX POWER VALUE) ) 

{ 

*Done = 1; 

*Power = GnlMapNodelnfoBestPower (Node) ; 
*Depth = GnlMapNodelnf oBestDepth (Node) ; 
return (GNL_0K) ; 

} 



SetGnlMapNodelnf oBestPower (Node, MAX_POWER_VALUE) ; 
SetGnlMapNodelnf oBestDepth (Node, MAX_DEPTH_VALUE ) ; 

SupportNode = GnlMapNodelnf oSNodes (Node) ; 

if (GnlGetBestPowerCellOnNode (Node, Capacitance, SupportNode, 0, 

BListSize (GnlNodeSons (Node) ) , 
Rec, Done) ) 

return ( GNL_MEMORY_FULL ) ; 

/* we were not able to map everything. */ 
if ((*Done) == 0) 
{ 

return (GNL_0K) ; 

} 

*Power = GnlMapNodelnfoBestPower (Node) ; 
*Depth = GnlMapNodelnf oBestDepth (Node) ; 

return (GNLjOK) ; 

} 



/* ic/ 

/* GnlGetFirstOutputPinCell */ 
/* ic/ 

/* returns the first output in the derive cell ^estCell 1 */ 

/* ie/ 
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LIBC_PIN GnlGetFirstOutputPinCell (BestCell) 
LIB_DERIVE_CELL BestCell ; 

{ 

LIB_CELL MotherCell ; 

LIBC_CELL LibCell; 
LIBC_PIN Pins; 

MotherCell = LibDeriveCellMotherCell (BestCell) ; 
LibCell = LibHCellLibcCell (MotherCell); 

Pins = LibCellPins (LibCell) ; 

/* we look for the first output pin. */ 
for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

if (LibPinDirection (Pins) == OUTPXJT_E) 
break; 

} 

return (Pins) ; 

} 

/* */ 

/* GnlComputeNLCellDelay */ 
/* it/ 

/* Returns the delay of the cell 'BestCell 1 having an output capacitance*/ 
/* of 'Capacitance' corresponding to the propagation from pin 'Pin' on */ 
/* which there is a transition delay of 'Transition'. */ 
/* */ 

void GnlComputeNLCellDelay (BestCell, OutPin, InPin, Capacitance, 

TransitionR, TransitionF, DelayR, DelayF, 
TransR, TransF) 

LIB_DERIVE_CELL BestCell ; 

LIBC_PIN OutPin; 

LIBC_PIN InPin; 

float Capacitance; 

float TransitionR 

float TransitionF 

float *DelayR; 

float *DelayF; 

float *TransR; 

float *TransF; 

{ 

LIB^CELL MotherCell ; 

LIBC_CELL LibCell; 
LIBC_PIN Pins; 



MotherCell = LibDeriveCellMotherCell (BestCell) ; 
LibCell = LibHCellLibcCell (MotherCell) ; 

LibDelayArcCell (TransitionR, TransitionF, Capacitance, 0.0, 1, 

LibCell, InPin, OutPin, (float *) DelayR, (float*) TransR, 
(float*) DelayF, (float*) TransF) ; 
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/* */ 

/* GnlGetBestNLDelayCell */ 
/* */ 

void GnlGetBestNLDelayCell (Node, ListCells, Capacitance, Bdd, BestCell, 

OutPin) 

GNL_NODE Node / 

BLIST ListCells; 

float Capacitance ; 

BDD Bdd; 

LI B_DERI VE_CELL *BestCell; 

LIBC PIN *OutPin; 



{ 



mt 

LIB_DERIVE__ 

LIB_CELL 

float 

LIBC_CELL 

LIBC_PIN 

LIBC_PIN 

float 

float 

float 

float 

float 

float 

float 

char 



1; 

CELL Celll; 

MotherCelll; 
BestNLDelay; 
LibCell; 

Pins ; 
OPin; 

MaxCe 1 1 de 1 ay ; 
MinMaxCe 1 iDe 1 ay ; 
PinCapa; 
DelayR; 
DelayF 
TransR 
Trans F 

*CompoName / 



*BestCell = NULL; 
CompoName = NULL; 

if (GnlMapNodelnfoOriginalCompo (Node) ) 
CompoName = GnlUserComponentName ( 

(GNL_USER_COMPONENT) GnlMapNodelnfoOriginalCompo (Node) ) ; 
MinMaxCellDelay = MAX_NL_DELAY_VALUE ; 

for (i=0; i<BListSize (ListCells) ; i++) 
{ 

/* first pick up the derive cell area thru its mothercell. */ 
Celll = (LIB_DERIVE_CELL) BListElt (ListCells, i) ; 
MotherCelll = LibDeriveCellMotherCell (Celll) ; 

/* we found the same gate as the kept one. So we retake this */ 
/* one. */ 
if (CompoName) 

{ 

if (Istrcmp (CompoName, LibHCellName (MotherCelll) ) ) 
{ 

*OutPin = GnlGetFirstOutputPinCell (Celll) ; 

*BestCell = Celll; 

return; 

} 

else 

{ 

*BestCell = NULL; 

} 
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} 



/* If Bdd of the derive cell is the complement of the Bdd of the*/ 
/* current node then an inverter is mandatory so we increase */ 
/* the Area of the cell by the area of the best inverter. */ 
/* Corner case: if the cell is itself the best inverter then we */ 
/* do not do it. */ 
if ( (MotherCelll != G_Best Inverter) && 
(Bdd != LibDeriveCellBdd (Celll) ) ) 

{ 

continue; 

} 

OPin = GnlGetFirstOutputPinCell (Celll) ; 

if (!OPin) 
{ 

fprintf (stderr, 

" ERROR: cannot find output pin of cell ■ %s'\n" , 
LibCellName (LibCell) ) ; 
exit (1) ; 

} 

LibCell = LibHCellLibcCell (MotherCelll) ; 
Pins « LibCellPins (LibCell); 

/* we compute the max cell delay with an output capacitance */ 
/* 'Capacitance' and an input transition of 0 . 0 . */ 
MaxCelldelay = 0.0; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ 

if (LibPinDirection (Pins) != INPUT_E) 
continue; 

PinCapa = GnlGetCapaFromPin (Pins) ; 

/* we suppose all the pins to have a Fall/Rise Transition */ 
/* equals to 0 . 0 */ 
GnlComputeNLCellDelay (Celll, OPin, Pins, Capacitance, 

0.0, 0.0, 

&DelayR, &DelayF, &TransR, &TransF) ; 
if (DelayR > MaxCelldelay) 

MaxCelldelay = DelayR; 
if (DelayF > MaxCelldelay) 

MaxCelldelay = DelayF; 

} 

if (MinMaxCellDelay > MaxCelldelay) 
{ 

*BestCell = Celll; 
*OutPin = OPin; 

MinMaxCellDelay = MaxCelldelay; 

} 



} 
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/* 

/* PrintNodeAndMatchCell 

/* 

void PrintNodeAndMatchCell (Node, BestCell) 

GNL_NODE Node ; 

LIB_DERIVE_CELL BestCell / 

{ 

LIB_CELL MotherCell ; 

LIBC_CELL LibCell ; 



MotherCell = LibDeriveCellMotherCell (BestCell) ; 
LibCell = LibHCellLibcCell (MotherCell); 

fprintf (stderr, "\n") ; 

fprintf (stderr, " MATCh CELL = %s\n", LibCellName (LibCell)); 
PrintNodeRec (Node, 0) ; 
fprintf (stderr, "\n"); 



/* 

/* GetNbNetOccurence 

/* 

int GetNbNetOccurence (SupportNodes , SNodes) 
GNL_SNODE Suppor tNode s ; 

GNL_SNODE SNodes ; 



GNL_NODE Node ; 

GNL_VAR Var; 

GNL_NODE Node I ; 

GNL^VAR Varl ; 
int NbOccur; 



Node = GnlSNodeNode (SNodes) ; 

if (GnlNodeOp (Node) != GNL_VARIABLE) 

return (1) ; 
Var - (GNL__VAR) GnlNodeSons (Node) ; 

/* May be node VARIABLE used several times. */ 
NbOccur = 0; 

while (SupportNodes != NULL) 

{ 

Nodel - GnlSNodeNode (SupportNodes) ; 
if (GnlNodeOp (Node) != GNL VARIABLE) 

{ 

SupportNodes = GnlSNodeNext (SupportNodes) ; 
continue; 

} 

Varl = (GNL_VAR) GnlNodeSons (Nodel); 

if (Var == Varl) 
NbOccur++; 

SupportNodes = GnlSNodeNext (SupportNodes) ,* 
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return (NbOccur) ; 



/* *j 

/* GnlGetBestNLDelayCellOnNode */ 
/* ± j 

/* This procedure is the main Non linera delay Mapping. It looks for all*/ 

/* the cells which can realize the functionality starting from GNL_NODE */ 

/* 'Node 1 and which leaves are the ones in ' SupportNodes ' . It select */ 

/* the best cell which involves the best overall NL-Delay mapping. */ 

/* Recursive call is performed on other functionalities starting from */ 

/* Node (which are still defined by the support ' NewSupport Nodes ') . */ 

/* Indirect recursive call is also performed on ' GnlBestNLDelayMapNode ' */ 

/* when a cell has been found. This call is perfomed on all the Node of */ 

/* the current support. The best NL-delay is stored on the field */ 

/* , GnlMapNodeInfoBestArrival{r / F} ' of 'Node'. */ 

/* 'Done 1 is 1 if the mapper was able to map and ' 0' otherwise. */ 
/* +1 



GNL_STATUS GnlGetBestNLDelayCellOnNode (Node, Capacitance, SupportNodes, 

Index, SizeSupportNodes , 
FirstSNode, Done) 



GNL_NODE 


Node ; 


float 


Capacitance; 


GNL_SNODE 


SupportNodes ; 


int 


Index ,- 


int 


SizeSupportNodes ; 


GNL_SNODE 


FirstSNode; 


int 


*Done ; 


int 


i ; 


GNL_VAR 


Varl ; 


GNL_SNODE 


SNodes; 


int 


Ce 11 Found; 


BDD^PTR 


NewBddPtr; 


GNL_STATUS 


Status ; 


BDD 


NewBdd ; 


GNL_NODE 


Nodel; 


GNL_SNODE 


NewSupport Nodes ; 


GNL_SNODE 


SNodei; 


int 


S i zeNewSupport ; 


int 


CDone ; 


BLIST 


SortedVars ; 


float 


MaxNLDelay; 


float 


MaxCurrentNLDelay; 


float 


NLDelayR; 


float 


NLDelayF; 


float 


NArrivalR; 


float 


NArrivalF; 


float 


DelayR; 


float 


DelayF; 


float 


TransR; 


float 


TransF; 


float 


CellDelay; 


float 


NTransitionR; 


float 


NTransitionF; 
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f 1 oat MaxNTrans i t ionR ; 
f 1 oa t MaxNTr ans i t i onF ; 
float CriticPinTransition; 
LIB_DERIVE_CELL BestCell ; 
float MaxNLDelayR; 
float MaxNLDe 1 ay F ; 
f 1 oat CapaOnNode ; 
LIBC_PIN Pin; 
LIBC_PIN Outpo- 
int RealSizeSupport; 
LIBC_TIMING Timing; 
float MaxArrival ; 
float WireEstim; 
int NetOccur; 



#ifdef STAT 

G_NB_TARGET_FUNC++ ; 
#endif 



*Done = 0 ; 

if ( (GnlNodeOp (Node) == GNL_VARIABLE) | | 
(GnlNodeOp (Node) == GNL_CONSTANTE) ) 

{ 

*Done = 1; 
return (GNL_OK) ; 

} 

SNodes = FirstSNode; 
i = Index; 

while (SNodes != NULL) 

{ 

Node I = GnlSNodeNode (SNodes) ; 

if ((GnlNodeOp (Nodel) 1= GNL_VARIABLE) && 
(GnlNodeOp (Nodel) != GNL CONSTANTE) ) 

{ 

RealSizeSupport = GetRealSizeSupport (SupportNodes , 

GnlNodeSons (Nodel) ) ; 
if (RealSizeSupport > G_MaxCellSizeSupport ) 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

GnlExpanseSupportNode (SupportNodes , i , &NewSupportNodes , 

ScSNodei) ; 

if (GnlGetBestNLDelayCellOnNode (Node, Capacitance, 

NewSupportNodes , i , 
SizeNewSupport , SNodei , 
&CDone) ) 
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return { GNL__MEMORY_FULL ) ; 
*Done |= CDone; 

GnlDeleteSupportNode (SupportNodes , NewSupport Nodes , i , 

SNodes, 

S i z eNe wSuppor t - S i z e Supp or tNode s ) ; 

} 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* We bind the Nodes of the support to bdd primary inputs of the tech*/ 
/* library. 

if (GnlBindSupportWithLibVars (SupportNodes) ) 
return (GNL_MEMORY_FULL) ; 

if ({Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) / 

#ifdef STAT 

G_ROBDD_BUILT++ ; 
#endif 

NewBdd = GnlMapNodelnf oBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

/* The Bdd is simply a constant. */ 
if ((NewBdd == bdd_one ()) || (NewBdd bdd_zero ())) 

*Done = 1; 

SetGnlMapNodelnfoBestBdd (Node, NewBdd) ; 
SetGnlMapNodelnf oBes tArrivalR (Node , 0.0); 
SetGnlMapNodelnf oBes tArrivalF (Node , 0.0); 
SetGnlMapNodelnfoTransitionR (Node, 0.0) ; 
SetGnlMapNodelnf oTransitionF (Node, 0.0) ; 
return (GNL_OK) ; 

} 

CellFound - (GetBddPtrHook (NewBddPtr) 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 

/* If no cell found there is no match. */ 
if (1 CellFound) 

return (GNL_OK) ; 

ttifdef STAT 

G__NB_CELL__FOUND++ ; 

#endif 

*Done = 1; 

/* Selecting the best gate minimizing the NL-delay. */ 
GnlGetBestNLDelayCell (Node, LibBddlnf oDeriveCells (NewBddPtr) , 
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Capacitance, NewBdd, fcBestCell, &OutPin) ; 

if ('BestCell) 

return (GNL_OK) ; 

/* 

PrintNodeAndMatchCell (Node, BestCell) ; 

*/ 

/* we scan all the pins of the selected gate and call recursively 
/* the mapping on the associated nodes. Then we compute the max 
/* arrival rise and fall at the output of the gate. 
MaxNLDe 1 ayR = 0.0; 
MaxNLDelayF = 0.0; 
MaxNLDelay = 0.0; 

/* We extract the max delay already computed on node 'Node'. 

MaxCurrentNLDelay = (GnlMapNodelnf oBestArrivalR (Node) < 

GnlMapNodelnfoBestArrivalF (Node) ? 
GnlMapNode In f oBe s t Arrival F ( Node ) : 
GnlMapNodelnf oBestArrivalR (Node) ) ; 

MaxNTransitionR = 0.0; 

MaxNTransitionF = 0.0; 

SNodes = SupportNodes; 

while (SNodes != NULL) 
{ 

Pin = GnlGetAssociatedPin (SNodes, BestCell) ; 

/* 

NetOccur = GetNbNetOccurence (SupportNodes, SNodes); 

*/ 

if (I Pin) 

{ 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

/* we extract the capacitance of the pin associated to */ 
/* 1 SNodes' and add the default wire capacitance. */ 

/* 

WireEstim = G_WireCapa/NetOccur; 

*/ 

WireEstim = G_WireCapa; 

CapaOnNode = GnlGetCapaFromPin (Pin) + WireEstim; 

/* We compute recursively the mapping on the associated node 
if (GnlBestNLDelayMapNode (GnlSNodeNode (SNodes), CapaOnNode, 

&NArrivalR, ScNArrivalF, 
&NTr ans i t i onR , &NTr an sit i onF , 
Done ) ) 

return (GNL_MEMORY_FULL) ; 

/* Computing the delay of the cell. */ 
GnlComputeNLCellDelay (BestCell, OutPin, Pin, Capacitance, 

NTransitionR, NTransitionF, 
&DelayR, &DelayF, £cTransR, &TransF) ; 



B-CORE-234 



gnlmap.c 

/* The total Arrival time at the output of the cell is the one*/ 



/* composed of: */ 
/* - cell delay */ 

/* - arrival time of the inputs */ 

/* - (wire delay) (to implement I) */ 

Timing = LibGetArcTiming (Pin, Out Pin) ; 



if (! Timing) 

{ 

MaxArrival = (NArrivalR < NArrivalF ? NArrivalF : NArrivalR) 
NLDelayR = DelayR + MaxArrival; 
NLDelayF = DelayF + MaxArrival; 

} 

else 

{ 

switch (LibTimingSense (Timing) ) { 
case POSITIVE_UNATE_E: 

NLDelayR = DelayR + NArrivalR ; 
NLDelayF - DelayF + NArrivalF; 
break; 

case NEGATIVE_UNATE_E: 

NLDelayR = DelayR + NArrivalF ; 

NLDelayF = DelayF + NArrivalR; 
break; 

case NON_UNATE_E: 

MaxArrival = (NArrivalR < NArrivalF ? NArrivalF : 

NArrivalR) ; 
NLDelayR = DelayR + MaxArrival; 
NLDelayF = DelayF + MaxArrival ; 
break; 

} 

} 

/* Impossible to map ' GnlSNodeNode (SNodes) ' */ 
if ( I (*Done) ) 

return (GNLJDK) ; 

if (NLDelayR > MaxNLDelayR) 

{ 

M axNLD e 1 ay R = NLDelayR; 
if (MaxNLDelayR > MaxNLDelay) 
MaxNLDelay = MaxNLDelayR; 

} 

if (NLDelayF > MaxNLDe 1 ay F ) 

{ 

MaxNLDe 1 ay F = NLDelayF ; 
if ( MaxNLDe 1 ay F > MaxNLDelay) 
MaxNLDelay = MaxNLDe 1 ay F; 

} 

if (TransR > MaxNTransitionR) 
MaxNTransitionR - Trans R; 

if (TransF > MaxNTransitionF) 
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MaxNTransitionF = TransF; 

/* We cope since we have already found a better solution */ 
if (MaxNLDelay >= MaxCurrentNLDelay) 
break; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* If better then save everything: NL-delay, Bdd, vars associations */ 
if (MaxNLDelay < MaxCurrentNLDelay) 
{ 

SetGnlMapNodelnfoBestCell (Node, BestCell) ; 
SetGnlMapNodelnf oBestArrivalR (Node, MaxNLDelayR) ; 
SetGnlMapNodelnfoBestArrivalF (Node, MaxNLDelayF) ; 

SetGnlMapNodelnf oTransitionR (Node, MaxNTransitionR) ; 
SetGnlMapNodelnf oTransitionF (Node, MaxNTransitionF) ; 

SetGnlMapNodelnf oBestBdd (Node, NewBdd) ; 

if (GnlSavelnstance (Node, SupportNodes) ) 
return ( GNL_MEMOR Y_FULL) ; 

} 



return (GNL_OK) ; 

} 



/*- 

/* 

/*- 



Gn 1 B e s t NLDe 1 ayMapNode 



/* This is the main procedure for the NL-delay Mapping. It looks for 
/* the best mapping starting from node 'Node' and returns the best 

NL-delay seen so far. The NL-delay information is also stored in the 
field 'GnlMapNodelnfoBestNLDelay » of node 'Node 1 in order to pick it 
/* up if we recall this function on the same Node. 
/* 'Done' is 1 if the mapper was able to map and 



/* 

/* 



' 0' otherwise. 



/* 

GNL_STATUS GnlBestNLDelayMapNode (Node, Capacitance, ArrivalR, ArrivalF, 

TransitionR, TransitionF, Done) 

GNL_NODE Node ; 

float Capacitance; 
float *ArrivalR; 
float *ArrivalF; 
float *TransitionR; 
float *TransitionF; 
int *Done ; 



*/ 
■*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



{ 



GNL_SNODE 

GNL_VAR 

GNL MAP NODE 



SupportNode ; 
Var; 

INFO NewMapNodelnf o ; 



if (GnlNodeOp (Node) == GNL_VARIABLE) 
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{ 

Var = (GNL_VAR) GnlNodeSons (Node); 

/* Either a primary input or net connected to black box */ 
if ( !GnlVarFunction (Var)) 

{ 

*Done = 1; 
*ArrivalR = 0.0; 
*ArrivalF = 0.0; 

*TransitionR =0.0; /* Inputs have 0.0 transition delay */ 

*TransitionF =0.0; /* Inputs have 0.0 transition delay */ 

return (GNL_OK) ; 

} 

Node = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 

*ArrivalR = GnlMapNodelnf oBestArrivalR (Node) ; 
*ArrivalF = GnlMapNodelnf oBestArrivalF (Node) ; 
*TransitionR = GnlMapNodelnf oTransitionR (Node) ; 
*TransitionF = GnlMapNodelnf oTransitionF (Node) ; 

return (GNL__0K) ; 

} 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
{ 

*Done = 1; 
*ArrivalR = 0.0; 
*ArrivalF = 0.0; 
*TransitionR = 0.0; 
*TransitionF = 0.0; 
return (GNL__0K) ; 

} 



if (( (GnlMapNodelnf oBestArrivalR (Node) 1= 0.0) && 

(GnlMapNodelnf oBestArrivalR (Node) != MAX_NL__DELAY_VALUE) ) | 

( (GnlMapNodelnf oBestArrivalF (Node) != 0.0) 

(GnlMapNodelnf oBestArrivalF (Node) != MAX NL DELAY VALUE))) 

{ - - - 

*Done = 1; 

*ArrivalR = GnlMapNodelnf oBestArrivalR (Node) ; 
*ArrivalF = GnlMapNodelnf oBestArrivalF (Node) ; 
*TransitionR = GnlMapNodelnf oTransitionR (Node) ; 
*TransitionF = GnlMapNodelnf oTransitionF (Node) ; 
return (GNL_0K) ; 

} 



SetGnlMapNodelnf oBestArrivalR (Node, MAX_NL__DELAY_VALUE ) ; 
SetGnlMapNodelnf oBestArrivalF (Node, MAX__NL_DELAY__VALUE ) ; 

SupportNode = GnlMapNodelnf oSNodes (Node) ; 

if (GnlGetBestNLDelayCellOnNode (Node, Capacitance, SupportNode, 0, 

BListSize (GnlNodeSons (Node) ) , 
SupportNode, Done) ) 
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return (GNL_MEMORY_FULL) ; 

/* we were not able to map everything. */ 
if ( (*Done) 0) 
{ 

return (GNL_0K) ; 

} 

*ArrivalR = GnlMapNodelnf oBestArrivalR (Node) ; 
*ArrivalF = GnlMapNodelnf oBestArrivalF (Node) ; 
*TransitionR = GnlMapNodelnf oTrans it ionR (Node) ; 
*TransitionF = GnlMapNodelnf oTransitionF (Node) ; 

return (GNL_OK) ; 



/* */ 

/* GnlGetBestDepthCellOnNode */ 

/* */ 

/* This procedure is the main Mapping Time function. It looks for all */ 
/* the cells which can realize the functionality starting from GNL_NODE */ 
/* 'Node' and which leaves are the ones in 'SupportNodes'. It select */ 
/* the best cell which involves the best overall Depth mapping. Recursiv*/ 
/* call is performed on other functionalities starting fron Node (which */ 
/* are still defined by the support ' NewSupportNodes r . Indirect */ 
/* recursive call is also performed on 1 GnlBestDepthMapNode ' when a cell*/ 
/* has been found. THis call is perfomed on all the Node of the current */ 
/* support. The best Depth is stored in field GnlMapNodelnf oBestDepth */ 
/* of 'Node* . */ 
/* 'Done' is 1 if the mapper was able to map and '0 1 otherwise. */ 
/* */ 



GNLJ3TATUS GnlGetBestDepthCellOnNode (Node, SupportNodes, Index, 

SizeSupportNodes, Rec, Done) 



GNLJSTODE 


Node ; 


GNL_SNODE 


SupportNodes ; 


int 


SizeSupportNodes; 


int 


Index; 


int 


Rec; 


int 


*Done; 


int 


i; 


GNL_VAR 


Varl ; 


GNL_SNODE 


SNodes; 


int 


Ce 11 Found; 


BDD_PTR 


NewBddPtr; 


GNL_STATUS 


Status; 


BDD 


NewBdd ; 


GNL_N0DE 


Nodel; 


GNL_SN0DE 


NewSupportNodes 


GNL_SNODE 


SNodei; 


int 


SizeNewSupport ; 


int 


CDone ; 


BLIST 


SortedVars ; 


float 


Area ; 


float 


NArea ; 


LIB_DERIVE_ 


_CELL BestCell; 
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int NDepth; 
int Depth; 
int MaxDepth; 

#ifdef STAT 

G_NB__TARGET_FUNC++ ; 
#endif 



*Done = 0; 

if ( (GnlNodeOp (Node) == GNL_VARIABLE) | | 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done = 1; 
return (GNL_OK) ; 

} 

SNodes = SupportNodes ; 
i = 0; 

while (SNodes '= NULL) 
{ 

Node I = GnlSNodeNode (SNodes) ; 

/* It is not necesary to expanse Nodes with index less than 
/* 'Index' because it has been already done. */ 
if ( {i >= Index) && 

(GnlNodeOp (Nodel) i= GNL_VAR I AB LE ) && 

(GnlNodeOp (Nodel) ! = GNL CONSTANTE) ) 

{ 

SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

if (SizeNewSupport > G_MaxCellSizeSupport) 
i++ ; 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

Gnl Expans eSupportNode ( Suppor tNode s , i , &NewSuppor tNode 

&SNodei) ; 

if (GnlGetBestDepthCellOnNode (Node, NewSuppo r tNode s , i, 

Si zeNewSupport , Rec+1 , 
&CDone) ) 

return (GNL_MEMORY_FULL) ; 
*Done |= CDone; 

GnlDeleteSupportNode (SupportNodes, NewSupport Nodes , i, 
SNodes, 

SizeNewSupport -SizeSupportNodes) ; 

if (!G_Effort ScSc CDone) 
break; 

} 
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i + +; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* We bind the Nodes of the support to bdd primary inputs of the tech*/ 
/* library. */ 
if (GnlBindSupportWithLibVars (SupportNodes ) ) 
return ( GNLJVIEMORY_FULL) ; 

if ((Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT+ + ; 
#endif 

NewBdd = GnlMapNodelnf oBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

/* The Bdd is simply a constant. */ 
if ((NewBdd === bdd_one {)) || (NewBdd == bdd_zero ())) 

*Done = l; 

SetGnlMapNodelnfoBestBdd (Node, NewBdd) ; 
SetGnlMapNodelnfoBestDepth (Node, 0) ,- 
return (GNL_0K) ; 

} 

CellFound = (GetBddPtrHook (NewBddPtr) 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 

/* If no cell found we rebuild the Bdd with a pseudo canonical order */ 
if (I CellFound) 
{ 

/* We compute the signature of the Node tree from the previous */ 
/* computed Bdd. */ 
if (GnlComputeVarsSignatureFromBdd (G_LibGnl, NewBdd)) 
return (GNL_MEMORY_FULL) ; 

if (GnlExtractSortedLibVars (SupportNodes, &SortedVars) ) 
return (GNL_MEMORY_FULL) ; 

GnlReassignLibVars (SupportNodes, SortedVars) ; 

if ((Status = GnlBuildDirectBddOnMapNode (Node))) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT++ ; 

#endif 

NewBdd = GnlMapNodelnf oBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

CellFound = (GetBddPtrHook (NewBddPtr) 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 
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BListQuickDelete ( &SortedVars) ; 

} 



if (CellFound) 

{ 

Sifdef STAT 

G_NB_CELL_FOUND++ ; 

#endi f 

*Done = 1; 

/* Computing the best Depth taking this cell as solution */ 
GnlGetBestDepthCell (LibBddlnf oDeriveCells (NewBddPtr) , 
NewBdd, &BestCell, &Area, &Depth) ; 

MaxDepth = 0; 
SNodes = SupportNodes; 
while (SNodes != NULL) 
{ 

if (GnlBestDepthMapNode (GnlSNodeNode (SNodes) , &NArea, 

&NDepth, Rec, Done)) 
return (GNL_MEMORY_FULL) ; 

/* Impossible to map 'GnlSNodeNode (SNodes) ' */ 
if ( I (*Done) ) 
return (GNL_OK) ; 

if (NDepth > MaxDepth) 
MaxDepth = NDepth; 

Area += NArea; 

/* We cope since we have already found a better solution */ 
if (MaxDepth+Depth > GnlMapNodelnf oBestDepth (Node) ) 
break; 

/* We cope since we have already found a better solution */ 
if ((MaxDepth+Depth == GnlMapNodelnf oBestDepth (Node)) 
(Area >= GnlMapNodelnf oBest Area (Node) ) ) 
break; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* If better then save everything: Area, Bdd 7 vars associations */ 
if ( (MaxDepth+Depth < GnlMapNodelnf oBestDepth (Node) ) | | 
( (MaxDepth+Depth == GnlMapNodelnf oBestDepth (Node) ) 
(Area < GnlMapNodelnf oBest Area (Node) ) ) ) 

{ 

SetGnlMapNodelnf oBestDepth (Node, MaxDepth+Depth); 

SetGnlMapNodelnfoBestArea (Node, Area) ; 
SetGnlMapNodelnf oBestBdd (Node, NewBdd) ; 
if (GnlSavelnstance (Node, SupportNodes)) 
return (GNL_MEMORY FULL) ; 

} 

} 
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return (GNL_OK) ; 

} 



/* #/ 

/* GnlBestDepthMapNode */ 

/*---- */ 

/* This is the mam procedure for the Mapping Depth option. It looks for*/ 

/* the best mapping starting from node 'Node' and returns the best Depth*/ 

/* seen so far. The Depth information is also stored in the field */ 

/* 'GnlMapNodelnfoBestDepth' of node 'Mode* in order to pick it up if */ 

/* we recall this function on the same Node. */ 

/* 'Done 1 is 1 if the mapper was able to map and T 0' otherwise */ 

/* : v 

GNL_STATUS GnlBestDepthMapNode (Node, Area, Depth, Rec, Done) 
GNL_NODE Node; 
float *Area; 
int *Depth; 
int Rec; 
int *Done; 



{ 



GNL_SNODE SupportNode ; 



if ( (GnlNodeOp (Node) == GNL_VARIABLE) || 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done = l; 
*Depth = 0; 
*Area = 0.0; 
return (GNL_0K) ; 

} 

if ((GnlMapNodelnfoBestDepth (Node) != 0) 

(GnlMapNodelnfoBestDepth (Node) != MAX DEPTH VALUE)) 

{ 

*Done = 1; 

*Depth = GnlMapNodelnfoBestDepth (Node) ; 
*Area = GnlMapNodelnf oBestArea (Node) ; 
return (GNL_OK) ; 

} 

SetGnlMapNodelnfoBestDepth (Node, MAX_DEPTH_VALUE) ; 
SetGnlMapNodelnf oBestArea (Node, MAX__ARE A_VALUE ) ; 

SupportNode = GnlMapNodelnf oSNodes (Node) ; 

if (GnlGetBestDepthCellOnNode (Node, SupportNode, 0 7 

BListSize (GnlNodeSons (Node)), Rec, 
Done) ) 

return (GNL_MEMORY_FULL) ; 

/* we were not able to map everything. */ 
if ( (*Done) 0) 

{ 
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return (GNL OK) ; 



} 



*Depth = GnlMapNodelnf oBestDepth (Node) ; 
*Area = GnlMapNodelnf oBestArea (Node) ; 

return (GNL_OK) ; 



/* 

/* GnlGetBestNetCellOnNode 

/* 

/* This procedure is the main Mapping Net function. It looks for all 
/* the cells which can realize the functionality starting from GNLJtfODE 
■Node' and which leaves are the ones in * SupportNodes 1 . It select 
the best cell which involves the best overall Net mapping. Recursive 
call is performed on other functionalities starting fron Node (which 
/* are still defined by the support ' NewSupport Nodes ' . Indirect 
/* recursive call is also performed on ' GnlBestDepthMapNode * when a cell 
/* has been found. THis call is perfomed on all the Node of the current 
/* support. The best Net is stored in field GnlMapNodelnf oBestNet 

/* 
/* 

GNL_STATUS GnlGetBestNetCellOnNode 



/* 
/* 
/* 



of 'Node' 

'Done' is 1 if the mapper was able to map and 



' 0' otherwise. 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



GNL_N0DE 


Node ; 


GNLJSNODE 


SupportNodes; 


int 


SizeSupportNodes ; 


int 


Index / 


int 


Rec; 


int 

{ 

int 


*Done / 


i; 


GNL_VAR 


Varl; 


GNL_SNODE 


SNodes; 


int 


CellFound; 


BDD_PTR 


NewBddPtr; 


GNL_STATUS 


Status; 


BDD 


NewBdd; 


GNLJNODE 


Node I ; 


GNL_SNODE 


NewSupportNode s 


GNL_SN0DE 


SNodei; 


int 


S i z eNewSuppor t ; 


int 


CDone ; 


BLIST 


SortedVars; 


int 


Depth; 


int 


NDepth; 


LIBJDERIVE_ 


CELL BestCell; 


int 


NNbNet; 


int 


NbNet; 


int 


MaxDepth; 


#ifdef STAT 





(Node, SupportNodes, Index, 
SizeSupportNodes, Rec, Done) 



G_NB__TARGET_FUNC++ ; 
#endif 
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*Done = 0; 

if ( (GnlNodeOp (Node) GNL_VARIABLE) | | 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done = 1; 
return (GNL_OK) ; 

} 

SNodes = SupportNodes; 
i = 0; 

while (SNodes != NULL) 

{ 

Node I = GnlSNodeNode (SNodes) ; 

/* It is not necesary to expanse Nodes with index less than */ 
/* 'Index' because it has been already done. */ 
if ( (i Index) && 

(GnlNodeOp (Nodel) != GNL_VARIABLE) && 

(GnlNodeOp (Nodel) != GNL CONSTANTE) ) 

{ 

SizeNewSupport = SizeSupportNodes + 

BListSize (GnlNodeSons (Nodel) ) -1; 

if (SizeNewSupport > GJVfaxCellSizeSupport) 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 
continue; 

} 

GnlExpanseSupportNode (SupportNodes , i , ScNewSupportNodes , 

ScSNodei); 

if (GnlGetBestNetCellOnNode (Node, NewSupportNodes , i, 

S i zeNewSupport , Rec+1 , 
&CDone) ) 

return (GNL_MEMORY_FULL) ; 
*Done | = CDone ; 

GnlDeleteSupportNode (SupportNodes , NewSupportNodes , i , 

SNodes, 

S i zeNewSupport - S i zeSuppor tNodes ) ; 

if {!G_Effort && CDone) 
break; 

} 

i++; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* We bind the Nodes of the support to bdd primary inputs of the tech*/ 
/* library. * j 

if (GnlBindSupportWithLibVars (SupportNodes) ) 
return (GNLJYIEMORY_FULL) ; 
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if ( (Status = GnlBuildDirectBddOnMapNode (Node) ) ) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT++ ; 
#endif 

NewBdd = GnlMapNodelnfoBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

/* The Bdd is simply a constant. */ 
if ((NewBdd == bdd_one ()) || (NewBdd bdd zero ())) 
{ 

*Done = 1; 

SetGnlMapNodelnfoBestBdd (Node, NewBdd) ; 
SetGnlMapNodelnfoBestNet (Node, 0) ; 
SetGnlMapNodelnfoBestDepth (Node, 0) ; 
return (GNLJDK) ; 

} 

CellFound = (GetBddPtrHook (NewBddPtr) && 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 

/* If no cell found we rebuild the Bdd with a pseudo canonical order */ 
if (! CellFound) 

{ 

/* We compute the signature of the Node tree from the previous */ 
/ * computed Bdd . * / 

if (GnlComputeVarsSignatureFromBdd (G_LibGnl, NewBdd) ) 
return ( GNL_MEMORY_FULL) ; 

if (GnlExtractSortedLibVars (SupportNodes , &SortedVars) ) 
return (GNL_MEMORY_FULL) ; 

GnlReassignLibVars (SupportNodes, SortedVars) ; 

if ( (Status = GnlBuildDirectBddOnMapNode (Node) ) ) 
return (Status) ; 

#ifdef STAT 

G_ROBDD_BUILT++ ; 

#endif 

NewBdd = GnlMapNodelnf oBdd (Node) ; 
NewBddPtr = GetBddPtrFromBdd (NewBdd) ; 

CellFound = (GetBddPtrHook (NewBddPtr) 

BListSize (LibBddlnf oDeriveCells (NewBddPtr) ) ) ; 

BListQuickDelete (&SortedVars) ; 

} 

if (CellFound) 
{ 

#ifdef STAT 

G_NB_CELL_FOUND++ ; 
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#endif 

*Done = 1; 

/* Computing the best Net taking this cell as solution */ 
GnlGetBestNetCell (LibBddlnf oDeriveCells (NewBddPtr) , 

NewBdd, fcBestCell, &Depth, &NbNet) ; 

MaxDepth = 0; 
SNodes = SupportNodes; 
while (SNodes != NULL) 
{ 

if (GnlBestNetMapNode {GnlSNodeNode (SNodes) , &NDepth, 

&NNbNe t , Re c , Done ) ) 
return (GNL_MEMORY_FULL) ; 

/* Impossible to map 'GnlSNodeNode (SNodes)' */ 
if (<(*Done)) 

return (GNL_OK) ; 

NbNet += NNbNet; 

if (NDepth > MaxDepth) 
MaxDepth = NDepth; 

/* We cope since we have already found a better solution */ 
if (NbNet > GnlMapNodelnfoBestNet (Node) ) 
break; 

SNodes = GnlSNodeNext (SNodes) ; 

} 

/* If better then save everything: Area, Bdd, vars associations */ 
if ((NbNet < GnlMapNodelnfoBestNet (Node)) || 
((NbNet == GnlMapNodelnfoBestNet (Node)) 
(MaxDepth+Depth < GnlMapNodelnf oBest Depth (Node) ) ) ) 

SetGnlMapNodelnfoBestNet (Node, NbNet) ; 
SetGnlMapNodelnfoBestDepth (Node, MaxDepth+Depth) ; 
SetGnlMapNodelnfoBestBdd (Node, NewBdd) ; 
if (GnlSavelnstance (Node, SupportNodes)) 
return (GNL_MEMORY FULL) ; 

} 



return (GNL_OK) ; 

} 



_ * 



/ 



z* 

/* GnlBestNetMapNode */ 

/*—--- */ 

/* This is the mam procedure for the Mapping Nets option. It looks for */ 
/* the best mapping starting from node 'Node' and returns the best Nets */ 
/* seen so far. The Net information is also stored in the field */ 
/* 'GnlMapNodelnfoBestNet* of node 'Node' in order to pick it up if */ 
/* we recall this function on the same Node. */ 
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/* 'Done' is 1 if the mapper was able to map and '0' otherwise. */ 

/* v 

GNL_STATUS GnlBestNetMapNode (Node, Depth, NbNet, Rec, Done) 

GNL_M0DE Node ; 

int *Depth; 

int *NbNet; 

int Rec; 

int *Done; 

{ 

GNL^SNODE SupportNode ; 



} 



if { (GnlNodeOp (Node) == GNL_VARI ABLE ) | | 
(GnlNodeOp (Node) == GNL CONSTANTE) ) 

{ 

*Done = l; 
*Depth = 0; 
*NbNet = 0; 
return (GNL_OK) ; 

} 

if ( (GnlMapNodelnfoBestNet (Node) != 0) 

(GnlMapNodelnfoBestNet (Node) != MAX NET VALUE) ) 

{ " " 

*Done = l; 

*Depth = GnlMapNodelnfoBestDepth (Node) ; 
*NbNet = GnlMapNodelnfoBestNet (Node) ; 
return (GNL_0K) ; 

} 

SetGnlMapNodelnfoBestNet (Node, MAX_NET_ VALUE) ; 
SetGnlMapNodelnfoBestDepth (Node, MAX_DEPTH_VALUE) ; 

SupportNode = GnlMapNodelnf oSNodes (Node) ; 

if (GnlGetBestNetCellOnNode (Node, SupportNode, 0, 

BListSize (GnlNodeSons (Node)), Rec, 
Done) ) 

return (GNL_MEMORY_FULL) ; 

/* we were not able to map everything. */ 
if ( (*Done) == 0) 
{ 

return (GNL_0K) ; 

} 

*NbNet = GnlMapNodelnfoBestNet (Node) ; 
*Depth = GnlMapNodelnfoBestDepth (Node) ; 

return (GNL OK) ; 



/* 

/* GnlGetMinCapacitance */ 

/* v 

/* Returns the minimum capacitance between all the input/inout pins of */ 
/* the cell 'MotherCell ' . */ 
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/* + / 

float GnlGetMinCapacitance (MotherCell) 
LIB_CELL MotherCell; 

{ 

float MinCapa ; 
int i; 
LIBC_PIN Pins; 
LIBC_CELL InvCell; 



MinCapa = 1000000.0; 

InvCell - LibHCellLibcCell (MotherCell) ; 
Pins = LibCellPins (InvCell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ 

if ( (LibPinDirection (Pins) == INPUT_E) 
(LibPinDirection (Pins) == IN0UT_E) ) 

{ 

if (LibPinCapa (Pins) < MinCapa) 
MinCapa = LibPinCapa (Pins) ; 

} 

} 

if (MinCapa == 1000000.0) 
return (0.0) ; 

return (MinCapa) ; 



/*• 

/* 

/*. 

/* 
/* 
/* 

/* 
/* 
/*■ 

GNL_STATUS GnlMapGnl (Nw, Gnl , GnlLibc, Effort, Done) 
GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLibc; 

int Effort; /* 1 -> HIGH, 0 -> LOW/ MEDIUM 

int *Done; 



A/ 

GnlMapGnl * / 
... . ^ 

Main mapping procedure which maps a Gnl according to a library of */ 
cells 'GnlLib'. Done is 1 if everything was mapped and 0 otherwise. */ 
'GnlLib' is the library of cells that we map on. The criterion under 
*/ 

which the mapping is performed is given by the global variable: */ 
' GnlEnvCriterion () ' . */ 

*/ 



*/ 



{ 



int 

GNL_VAR 

GNL_FUNCT I ON 

GNL_NODE 

float 

float 

float 

float 

float 



i; 

Varl ; 

FunctionI ; 

Node ; 

FArea; 

FArrivalR; 

FArrivalF; 

FTransitionR; 

FTransitionF; 
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int FDepth; 

int MaxLib Inputs ; 

float Capacitance; 

GNL__LIB GnlLib; 

LIBC_WIRE_LOAD_SELECT WireLoadSelect ; 

int Fanout ; 

float Length; 



G_Gnl = Gnl; 
G__GnlLibc = GnlLibc; 

GnlLib = (GNL_LIB) LibHook (GnlLibc); 
G_GnlLib = GnlLib; 
G_LibGnl = GnlHLibGnl (GnlLib) ; 
G_LibInputs = Gnllnputs (G_LibGnl) ; 

/* By default the maximum fanin size of considered cells is */ 
/* GNL_DEFAULT_FANIN_CELL . */ 
MaxLiblnputs = GNL_DEFAULT_FANIN_CELL ; 

G_MaxCellSizeSupport = (BListSize (G__LibInputs) > MaxLiblnputs ? 

MaxLiblnputs : 

BListSize (G_LibInputs) ) ; 
if (GnlEnvMaxCellSizeSupport ()) 

GJVIaxCellSizeSupport = GnlEnvMaxCellSizeSupport (); 

/* we intialize the library util variables with the default operating*/ 
/* conditions. */ 
LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, NULL) ; 

switch (GnlEnvCriterion ()) { 
case GNL_AREA : 

G__Best Inverter = GetBestAreaLiblnverter (GnlLib) ; 
fprintf (stderr, " o Criterion = AREA\n" ) ; 

break; 

case GNL_TIMING: 

/* Call later the best inverter selection on timing. */ 
G_BestInverter = GetBestAreaLiblnverter (GnlLib) ; 
fprintf (stderr, » o Criterion = TIMING\n M ); 

break; 

case GNL_NB_NETS : 

/* Call later the best inverter selection on timing. */ 
G_BestInverter = GetBestAreaLiblnverter (GnlLib) ; 
fprintf (stderr, " o Criterion = NB. NETS\n" ) ; 

break; 

case GNL_NL_DELAY : 

GnlSortFunctionsOnlnvertLevel (Gnl) ; 

WireLoadSelect = LibGetWireLoadSelectFromName (GnlLibc, 

(char *)NULL) ; 

G_WireLoad = LibGetWireLoadFromAreaAndWireLS (WireLoadSelect, 

GnlNetworkNLDelayArea (Nw) , GnlLibc) ; 
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Fanout - 1; 

Length = LibGetWireLengthFromFanout (G_WireLoad / Fanout) ; 
G_WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, 

Length; GnlLibc) 

/* we force the output capacitance to be 0.0 */ 
Capacitance = 0.0 + G_WireCapa; 

/* Call later the best inverter selection on timing. */ 
G_BestInverter = GetBestAreaLiblnverter (GnlLib) ; 
fprintf (stderr, " o Criterion = NL DELAY\n" ) ; 

break; 

case GNL_POWER: 

G_BestInverter = GetBestPowerLiblnverter (GnlLib) ; 

/* Extracting an initial capacitance for the current node 
/* we take the capacitance of a single inverter. 
Capacitance = GnlGetMinCapacitance (G_BestInverter) ; 
fprintf (stderr, " o Criterion = POWER\n n ); 

break; 

} 



for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Node = GnlFunctionOnSet (FunctionI) ; 

GnlResetGnlNodeHook (Node) ; 

if ( IGnlEnvLog () ) 
{ 

fprintf (stderr, »%c o Mapping Equation [%d/%d]" # 13, i, 

BListSize (GnlFunctions (Gnl) ) ) ; 
fflush (stderr) ; 

} 

/* we add the mandatory structure in order to store all infos 
/* allowing to do the mapping. */ 
if ( Gnl AddMapNode Info (Node)) 
return (GNL_MEMORY_FULL) ; 

/* Either Area mapping, Timing mapping or Power Mapping. */ 
switch (GnlEnvCriterion ()) { 
case GNL_AREA: 

if (GnlBestAreaMapNode (Node, &FArea, ScFDepth, Done)) 
return ( GNL_MEMORY_FULL ) ; 
break; 

case GNL_TIMING: 

if (GnlBestDepthMapNode (Node, &FArea, ScFDepth, 0, 

Done) ) 

return (GNL_MEMORY_FULL) ; 
break; 
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} 



case GNL_NB_NETS : 

if (GnlBestNetMapNode (Node, &FDepth, &FDepth, 0, 

Done) ) 

return (GNL_MEMORY_FULL) ; 
break; 

case GNL_P0WER: 

if (GnlBestPowerMapNode (Node, Capacitance, 

&FArea, 

&FDepth, 0, Done)) 
return (GNL_MEMORY_FULL) ; 
break; 

case GNL_NL_DELAY : 

/* Actually the capacitance has been already 
/* pre -computed. */ 
if (GnlVarOutCapa (Varl) != 0.0) 

Capacitance = GnlVarOutCapa (Varl) ; 

if (GnlBestNLDelayMapNode (Node, Capacitance, 

&FArrivalR , &FArr ivalF , 
&FTr an s i t i onR , &FTr ans i t i onF , 
Done) ) 

return ( GNL_MEMORY_FULL ) ; 
break; 



} 



/* Free SNode field of each Gnl node in the tree starting from 
/* 'Node 1 . */ 
/* This helps to gain some relative memory */ 

GnlFreeSNodeOfMapNodelnfo (Node) ; 

if ( ! (*Done) ) 
{ 

return (GNL_OK) ; 

} 

} 

if (!GnlEnvLog () &&BListSize (GnlFunctions (Gnl))) 
{ 

fprintf (stderr, "%c o Mapping Equation [%d/%d]\n M , 

13, i, BListSize (GnlFunctions (Gnl) ) ) ; 
f flush (stderr) ; 

} 



return (GNL_OK) ; 



/* ie/ 

/* GnlGetOriginalVar */ 
/* */ 

/* This function returns the ORIGINAL GNL_VAR of the cell 'Mother-Cell 1 */ 
/* which corresponds to one of the original port. */ 
/* Example: */ 
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/* LIB_DERIVE_CELL : cell -> $i_2 $i_3 $i $i_l */ 

/* LIB_CELL : MotherCell -> $i $i_l $i_2 $i_3 */ 

/* cell (library) A B C D */ 

/* */ 

/* If 'Var' = '$i_3' then the return variable is 'D f . */ 

/* 

GNL_VAR GnlGetOriginalVar (Cell, MotherCell, Var) 
LIB_DERIVE_CELL Cell; 
LIB_CELL MotherCell; 
GNLJVAR Var; 

{ 

int i ; 

int Index; 
GNL_VAR ResVar; 



Index = -1; 

for (i=0; i<BListSize (LibDeriveCelllnputs (Cell)); i++) 
{ 

if (Var (GNL_VAR) BListElt (LibDeriveCelllnputs (Cell), i) ) 
{ 

Index = i; 
break; 

} 

} 

if (Index == -1) 
return (NULL) ; 

ResVar = (GNLJVAR) BListElt (LibHCelllnputsOrigin (MotherCell), Index) 
return (ResVar) ; 



/* 

/* GnlCreatelnverterGateFromNode */ 

/* 

GNL_STATUS GnlCreatelnverterGateFromNode (Gnl, Bestlnv, OutVar, Node) 
GNL Gnl ; 

LIB_CELL Bestlnv; 
GNL_VAR OutVar; 
GNL_NODE Node; 



{ 



GNL_VAR Var; 

GNL_VAR NewVar; 

GNL_FUNCTION NewFunction; 

BDD Bdd; 

BDD_PTR BddPtr; 

BLIST ListDeriveCells ; 

GNL_NODE NewNode ; 

GNL_NODE NodeNot ; 

GNL_MAP_NODE_INFO NewMapNodelnf o ; 

LIB_DERIVE_CELL First Cell ; 

LIB_DERIVE__CELL BestCell ; 

BLIST NewList; 

float Area; 

int Depth; 
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int i ; 



if { (GnlNodeOp (Node) « GNL__VAR I ABLE ) | | 
(GnlNodeOp (Node) == GNL_CONSTANTE) ) 
return (GNL_OK) ; 

Var = GnlMapNodelnfoCutVar (Node) ; 
if (Var != OutVar) 
return (GNLjDK) ; 

Bdd = GnlMapNodelnfoBestBdd (Node) ; 

if (I Bdd) 

return (GNL_OK) ; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
if ( (Bdd == bdd_one () ) | | 
(Bdd == bdd_zero () ) ) 
return (GNLJDK) ,- 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) • 

GnlGetBestAreaCell (LibBddlnf oDeriveCells (BddPtr), Bdd, &BestCell, 
&Area, &Depth) ; 

/* There is a complemented gate so we create a new var to store this */ 
/ * complement . * / 

if (LibDeriveCellBdd (BestCell) != Bdd) 
{ 

if (GnlCreateNode (Gnl, NULL, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

/* NewNode is a copy of original node 'Node 1 . */ 
SetGnlNodeOp (NewNode, GnlNodeOp (Node) ) ; 

if (BListCreateWithSize (BListSize (GnlNodeSons (Node)), ScNewList) ) 

return ( GNL_MEMORY_FULL ) / 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

if (BListAddElt (NewList, BListElt (GnlNodeSons (Node), i) ) ) 
return ( GNLJYEEMOR Y_FULL ) ; 

} 

SetGnlNodeSons (NewNode, NewList) ; 

SetGnlNodeLineNumber (NewNode, GnlNodeLineNumber (Node)) ; 

if (GnlCreateNodeNot (Gnl, NewNode, &NodeNot) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeHook (NodeNot, GnlNodeHook (Node) ) ; 

/* The complement node has then the same Bdd as the Best cell */ 
SetGnlMapNodelnfoBestBdd (NodeNot, LibDeriveCellBdd (BestCell)); 
SetGnlMapNodelnfoBestArea (NodeNot, GnlMapNodelnf oBestArea (Node) - 

LibHCellArea (Bestlnv) ) ; 

if (GnlCreateUniqueVar (Gnl, »IM", &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarType (NewVar, GNL_VAR_OR I G INAL ) ; 
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SetGnlMapNodelnf oCutVar (NodeNot, NewVar) ; 

if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl , GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, ^NewFunction) ) 
return { GNL_MEMORY_FULL ) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, NodeNot) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeOp (Node, GNL_NOT) ; 
BSize (GnlNodeSons (Node)) = 0; 

if (BListAddElt (GnlNodeSons (Node), (int ) NodeNot ) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlMapNodelnfoCreate <&NewMapNodeInf o) ) 

return (GNL_MEM0RY_FULL) ; 
SetGnlNodeHook (Node, NewMapNodelnf o) ; 
ListDeriveCells = LibHCellDeriveCells (Bestlnv) ; 
FirstCell = (LIB_DERIVE_CELL) BListElt (ListDeriveCells, 0) ; 
SetGnlMapNodelnf oBdd (Node, LibDeriveCellBdd (FirstCell)) ; 
SetGnlMapNodelnfoBestBdd (Node, LibDeriveCellBdd (FirstCell)); 
SetGnlMapNodelnf oCutVar (Node, OutVar) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlMapNodelnf oLibVarSupport (Node, NewList) / 

/* an inverter so we pick up the first lib var. 
if (BListAddElt (NewList, BListElt (G_LibInputs , 0))) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &NewList) ) 

return { GNL_MEMORY_FULL ) ; 
SetGnlMapNodelnf oNodeSupport (Node, NewList) ; 
if (BListAddElt (NewList, BListElt (GnlNodeSons (Node), 0))) 

return (GNL_MEMORY_FULL) ; 
SetGnlMapNodelnf oBestArea (Node, LibHCellArea (Bestlnv) ) ; 

} 

return (GNL_0K) ; 

} 



/* 

/* GnlCreatelnverterGate */ 
/* 

GNL_S TATUS GnlCreatelnverterGate (Gnl, GnlLib) 
GNL Gnl ; 

GNL_LIB GnlLib; 
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{ 

int i ; 

GNL_VAR Varl ; 

GNL_FUNCTI ON FunctionI ; 

LIB_CELL Bestlnv; 

int NbFunctions; 



switch (GnlEnvCriterion ()) { 
case GNL_AREA: 

Bestlnv = GetBestAreaLiblnverter (GnlLib) ; 
break; 

case GNL_TIMING: 

/* Call later the best inverter selection on timing. */ 

Bestlnv = GetBestAreaLiblnverter (GnlLib) ; 

break; 

case GNL_NB_NETS: 

Bestlnv = GetBestAreaLiblnverter (GnlLib) ; 
break; 

case GNL_POWER: 

Bestlnv = GetBestPowerLiblnverter (GnlLib) ; 
break; 

} 

NbFunctions = BListSize (GnlFunctions (Gnl) ) ; 

for {i=0; i<NbFunctions ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlCreatelnverterGateFromNode (Gnl, Bestlnv, Varl, 

GnlFunctionOnSet (FunctionI) ) ) 

return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL OK) ; 



/* 

/* GnlEqualMapNode */ 
/* 

/* This function returns 1 if the Node expressions are the same 
/* 

int GnlEqualMapNode (Nodel, Node2, Depth) 
GNL_NODE Nodel; 
GNL_NODE Node2; 

{ 

int i ; 

GNL_NODE Sonl; 
GNL_NODE Son2; 
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if (GnlNodeOp (Nodel) != GnlNodeOp (Node2)) 
return (0) ; 

if (GnlMapModelnfoCutVar (Nodel) ) 

{ 

if {GnlMapNodelnfoCutVar (Nodel) == GnlMapNodelnf oCutVar (Node2)) 

return (1) ; 
if (Depth) 

return (0) ; 

} 

if ((GnlNodeOp (Nodel) == GNL_VARIABLE) || 
(GnlNodeOp (Nodel) == GNL_CONSTANTE) ) 

{ 

if (GnlNodeSons (Nodel) == GnlNodeSons (Node2) ) 

return (1) ; 
else 

return (0) ; 

} 

if (Depth) 

return (0) ; 

for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 
{ 

Sonl = (GNL_N0DE) BListElt (GnlNodeSons (Nodel), i) ; 
Son2 = (GNL_N0DE) BListElt (GnlNodeSons (Node2) , i) ; 
if ( ! GnlEqualMapNode (Sonl, Son2 , Depth+1) ) 
return (0) ; 

} 

return (1) ; 

} 

z* 

/* GnlSubstituteVarByVarlnNode */ 

/* 

void GnlSubstituteVarByVarlnNode (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL__N0DE Son; 
GNL_VAR Var; 



if (GnlNodeOp (Node) == GNL_VAR I ABLE ) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node); 
if (GnlVarHook (Var) ) 

SetGnlNodeSons (Node, (BLI ST) GnlVarHook (Var) ) ; 
return ; 

} 

if (GnlNodeOp (Node) == GNL_CONSTANTE ) 
return ; 

/* If the node corresponds to a mapping cut var. */ 
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if (GnlMapNodelnf oCutVar (Node) ) 
{ 

/* We replace one function by another one. We stop at this level */ 
/* the recursion. */ 
if (GnlVarHook (GnlMapNodelnf oCutVar (Node) ) ) 
{ 

SetGnlMapNodelnf oCutVar (Node , 

GnlVarHook (GnlMapNodelnf oCutVar (Node) ) ) ; 

return; 

} 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Son = ( GNL_NODE ) BLi s tEl t (GnlNodeSons (Node), i) ; 
GnlSubstituteVarByVarlriNode (Son) ; 

} 

} 

/* */ 

/* GnlSubstituteVarByVar */ 

/* */ 

/* This function substitutes the Variable 'Varl' by the Variable 'Var2' */ 

/* everywhere it occurs. */ 

/* */ 

void GnlSubstituteVarByVar (Gnl, Varl, Var2) 
GNL Gnl ; 

GNL_VAR Varl; 
GNL VAR Var2; 



{ 



int l; 

GNL_VAR Varl ; 

GNL FUNCTION FunctionI; 



for (i=0; i<BListSi ze (GnlFunc t ions (Gnl) ) ; i++) 
{ 

Varl = (GNL__VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunct ion (Varl) ; 

GnlSubstituteVarByVarlnNode (GnlFunctionOnSet (FunctionI) ) ; 
} 



/* */ 

/* GnlFactorizeGates */ 

/* */ 

/* This procedure is a post-mapping optimization which take a look at */ 
/* the Map variables which have the same right hand side expression and */ 
/* factorize them. */ 
/* */ 

GNL_STATUS GnlFactorizeGates (Gnl, NbOriginalFunctions) 
GNL Gnl ; 

int NbOriginalFunctions; 

{ 

int i ; 
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int j ; 

GNL_VAR Varl; 
GNL_VAR VarJ; 
GNL_FUNCT I ON FunctionI; 
GNL_FUNCTION FunctionJ; 
BLIST HashTableNames ; 
BLIST Bucket I; 
int MaxBound; 



if (BListSize (Gnl Functions (Gnl) ) > MAX_FACTORIZE_FUNC) 
return (GNLjDK) ; 

GnlResetVarHook (Gnl) ; 

for (i=NbOriginalFunctions; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

if (IGnlEnvLog () ) 
{ 

fprintf (stderr, n %c Post mapping optimization [%d/%d]" / 13, i, 

BListSize (GnlFunctions (Gnl) ) ) / 
f flush (stderr) ; 
} 

Varl = (GNL__VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI - GnlVarFunction (Varl) ; 

if (Varl != GnlMapNodelnf oCutVar (GnlFunctionOnSet (FunctionI))) 
continue; 

MaxBound = (BListSize (GnlFunctions (Gnl) ) > i+2000 ? i+2000 : 

BListSize (GnlFunctions (Gnl) ) ) ; 
for (j=i+l; j<MaxBound; j++) 

{ 

VarJ = (GNL_VAR) BListElt (GnlFunctions (Gnl), j); 

/* *VarJ' has been already replaced. */ 
if (GnlVarHook (VarJ)) 
continue; 

FunctionJ = GnlVarFunction (VarJ) ; 

if (GnlEqualMapNode (GnlFunctionOnSet (FunctionI) , 
GnlFunctionOnSet (FunctionJ), 0)) 

{ 

SetGnlVarHook (VarJ, Varl) ; 

GnlFunctionFree (GnlVarFunction (VarJ) ) ; 

SetGnlVarFunction (VarJ, NULL) ; 
BListDellnsert (GnlFunctions (Gnl), j+1); 

j --; 

MaxBound = (BListSi ze (GnlFunctions (Gnl) ) > 
i+2000 ? i+2000 : 

BListSize (GnlFunctions (Gnl) ) ) ; 

} 
} 

} 

if (IGnlEnvLog () && 

(NbOriginalFunctions < BListSize (GnlFunctions (Gnl)))) 
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{ 

fprintf (stderr, M %c Post mapping optimization [%d/%d] n , 13, i, 

BListSize (GnlFunctions (Gnl) ) ) ; 
ff lush (stderr) ,* 
fprintf (stderr, "\n") ; 

} 

GnlSubstituteVarByVar (Gnl) ; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlCreateCutVarsOnNode */ 

/* */ 

/* Creates physically a new GNL_VAR which is attached to a corresponding*/ 

/* GNL_NODE. This var is stored in the field of GNL_NODE node */ 

/* 'GnlMapNodelnfoCutVar * . If 'RootVar' is not NULL then we do not */ 

/* create a new GNL_VAR and use the one given (i.e 'RootVar') . */ 
/* */ 



GNL_STATUS GnlCreateCutVarsOnNode (Gnl, Node, RootVar) 
GNL Gnl ; 

GNL_NODE Node; 
GNL_VAR RootVar ; 

{ 

int i ; 

GNL_NODE Node I; 
GNL__VAR NewVar; 
GNL_FUNCT I ON NewFunc t i on ; 
BLIST Sons; 



if (GnlNodeOp (Node) ™ GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
return (GNL_OK) ; 

if (RootVar) 

{ 

SetGnlMapNodelnf oCutVar (Node, RootVar) ; 

} 

else 
{ 

if (GnlCreateUniqueVar (Gnl, "M" , ScNewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarType (NewVar, GNL_VAR_ORIGINAL) ; 
SetGnlMapNodelnf oCutVar (Node, NewVar) ; 

if (BListAddElt (GnlLocals (Gnl) , (int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl , GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, Node, &NewFunction) ) 
return (GNL_MEMORY__FULL) ; 
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SetGnlVarFunction (NewVar, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

} 

if (GnlMapNodelnf oNodeSupport (Node) == NULL) 
return (GNLJOK) ; 

Sons - GnlMapNodelnf oNodeSupport (Node) ; 

for (i=0; i<BListSize (Sons); i++) 
{ 

Nodel = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlCreateCutVarsOnNode (Gnl, Nodel, NULL)) 
return ( GNL _MEMORY_FULL ) ; 

} 

return (GNL_OK) ; 



/* */ 

/* GnlCreateCutVars */ 

/* */ 

/* This procedure creates cut variables which correspond to the Nodes */ 
/* which are linked to a technology cell. These cut variables are then */ 
/* bind to their respective Node thru the field ' nlMapNodelnf oCutVar ' */ 
/* */ 

GNL_STATUS GnlCreateCutVars (Gnl) 
GNL Gnl ; 

{ 

int i; 

int NbFunctions; 

GNL_VAR Varl; 

GNL_FUNCT ION FunctionI ; 



NbFunctions = BListSize (GnlFunctions (Gnl) ) ; 

for (i=0; i<NbFunctions ; i++) 
{ 

if (IGnlEnvLog ()) 
{ 

fprintf (stderr, n %c Building cell [%d/%d] M , 13, i, NbFunctions); 
ff lush (stderr) ; 

} 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = Gnl Var Function (Varl) ; 

if (GnlCreateCutVarsOnNode (Gnl, GnlFunctionOnSet (FunctionI), Varl)) 
return (GNL_MEMORY_FULL) ; 

} 

if (IGnlEnvLog () NbFunctions) 

{ 
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fprintf (stderr, "%c Building cell [%d/%d]", 13, i, NbFunctions) ; 
f flush (stderr) ; 
fprintf (stderr, "\n M ); 

} 

return (GNLJDK) ; 

} 



/* 

/* GnlReconstructMappedCell */ 

/* 

/* This procedure creates a GNL_US ER_COM PONENT from a mapped sub-tree. 
/* 

GNL_STATUS GnlReconstructMappedCell (Gnl, OutVar, Cell, ListDeriveCells , 

Node) 

GNL Gnl ; 

GNL_VAR OutVar; 
L I B_DER I VE_CELL Cell ; 

BLIST ListDeriveCells ; 

GNL__NODE Node; 

{ 

int i ; 

int j ; 

LIB_CELL MotherCell; 
BLIST Interface; 
GNL_ASSOC NewAs soc ; 

char *InstanceName; 
BLIST NodeSupport ; 

BLIST LibVarSupport ; 

GNL_VAR Varl; 
GNL_VAR VarCe 1 1 I ; 

GNL_VAR CellPort; 
GNL_USER_COMPONENT NewUserCompo ; 
GNL_NODE Node J ; 

BLIST MapNodelnf oSupport ; 



MotherCell = LibDeriveCellMotherCell (Cell) ; 

if (BListCreateWithSize (1, ^Interface) ) 
return (GNL_MEMORY_FULL) ; 

SetGnllnstanceld (Gnl, Gnllnstanceld (Gnl)+1); 

if (GnlStrAppendlntCopy (V, Gnllnstanceld (Gnl), &InstanceName) ) 
return ( GNL_MEMORY__FULL ) ; 

if (GnlCreateUserComponent (LibHCellName (MotherCell) , 

InstanceName, NULL, Interface, 
&NewUserCompo) ) 

return ( GNL_MEMOR Y_FULL ) ; 

/* we link the component with its corresponding LIBC cell 
SetGnlUserComponentCellDef (NewUserCompo, 

LibHCellLibcCell (MotherCell) ) ; 
SetGnlUserComponentEquivCells (NewUserCompo, ListDeriveCells) ; 
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if (GnlCreateAssoc (&NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, LibHCellOutput (MotherCell) ) ; 
SetGnlAssocActualPort (NewAssoc, OutVar) ; 
if (BListAddElt (Interface, (int) NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 

NodeSupport = GnlMapNodelnf oNodeSupport (Node) ,- 
LibVarSupport = GnlMapNodelnf oLibVarSupport (Node) ; 

#ifdef TRACE_BIND_CELL 

fprintf (stderr, "MOTHER CELL = %s\n" , LibHCellName {MotherCell)); 
GnlPrintNode (stderr, LibHCellFunction (MotherCell) ) ; 
fprintf (stderr, "\n") ; 

PrintListVar (LibHCelllnputsOrigin (MotherCell) ) ; 

fprintf (stderr, "\n") ; 

fprintf (stderr, "DERIVE CELL\n" ) ; 

PrintListVar (LibDeriveCelllnputs (Cell) ) ; 

bdd_print (LibDeriveCellBdd (Cell) ) ; 

fprintf (stderr, "\n"); 

PrintListVar (GnlMapNodelnf oLibVarSupport (Node) ) ; 
#endif 

/* For each input of the Cell ... */ 
for (i=0; i<BListSize (LibDeriveCelllnputs (Cell)); i++) 

{ 

/* We extract ! VarI r which a library variable $i<index> from the*/ 
/* derive cell which matches exactly the bdd of the Node. */ 
Varl = (GNL_VAR) BListElt (LibDeriveCelllnputs (Cell), i) ; 

/* we look for the index of Varl = $i<index> e.g the value which*/ 
/* is 'index 1 in '$i<index>'. */ 
for (j=0; j<BListSize (GnlMapNodelnf oLibVarSupport (Node)); j++) 
{ 

VarCelll = (GNL_VAR) 

BListElt (GnlMapNodelnf oLibVarSupport (Node), j); 
if (Varl VarCelll) 
break; 

} 

/* We extract the node of the Gnl which is linked to the lib */ 
/* '$i<index> ? . It is the element in ' GnlMapNodelnf oNodeSupport */ 
/* at location 'index'. */ 
MapNodelnfoSupport = GnlMapNodelnf oNodeSupport (Node) ; 
NodeJ = (GNL_NODE) BListElt (MapNodelnfoSupport, j); 
if (GnlNodeOp (NodeJ) == GNL__VAR I ABLE ) 

Varl = (GNL_VAR) GnlNodeSons (NodeJ); 
else 

Varl = GnlMapNodelnfoCutVar (NodeJ) ; 

/* 'VarCelll' represents T $i<index>'. */ 
CellPort = GnlGetOriginalVar (Cell, MotherCell, VarCelll); 

if (GnlCreateAssoc (&NewAssoc) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlAssocFormalPort (NewAssoc, GnlVarName (CellPort)) ; 
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} 



SetGnlAssocActualPort (NewAssoc, Varl) ; 

if (BListAddElt (Interface, (int) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

/* Adding the new created component in the list of components of 
/* original *Gnl ' . */ 
if (BListAddElt (GnlComponents (Gnl) , { int ) NewUserCompo) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* GnlReconstructMappedFunction */ 

/* */ 

/* This procedure analyzes a mapped function and returns a new GNL_NODE */ 
/* iff this is a simple assignment or creates a new user component from */ 
/* the mapped function and adds it in the list of components of 'Gnl'. */ 
/* For a simple assignment the new GNL_N0DE is created for a new GNL */ 
/* object called 'GnlTemp' . Then 'NewNode' has the value of this new */ 
/* if it is a simple assignment and NULL if the mapped noded infered a */ 
/* user component. */ 
/* */ 

GNL__STATUS GnlReconstructMappedFunction (Gnl, TempGnl, Bestlnv, 

OutVar , Node , NewNode ) 

GNL Gnl ; 

GNL TempGnl ; 

LIB_CELL Bestlnv; 
GNL_VAR OutVar; 
GNL_NODE Node ; 

GNLJSTODE *NewNode; 

{ 

GNL_VAR Var; 

BDD Bdd; 

BDD_PTR BddPtr; 

BLIST ListDeriveCells ; 

LIB_DERIVE_CELL BestCell ; 

float Area; 

int Depth; 

GNL_USER_COMPONENT UserCompo ; 



switch (GnlNodeOp (Node) ) { 
case GNL__VARIABLE : 

/* If a buffer is associated then we pick it up. */ 
if (GnlNodeHook (Node) && (GnlMapNodelnf oOriginalCompo (Node))) 
{ 

UserCompo = GnlMapNodelnf oOriginalCompo (Node) ; 

if (BListAddElt (GnlComponents (Gnl), ( int ) UserCompo) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

Var = (GNL_VAR) GnlNodeSons (Node) ; 

if (GnlCreateNodeForVar (TempGnl, Var, NewNode) ) 
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return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

case GNL__CONSTANTE : 

if (GnlCreateNode (TempGnl, GNL_CONSTANTE , NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, GnlNodeSons (Node)); 
return (GNL_OK) ; 

case GNL_NOT: 
case GNL_AND: 
case GNLJtfAND: 
case GNL_OR: 

Var = GnlMapNodelnf oCutVar (Node) ; 

if (Var != OutVar) 
{ 

if (GnlCreateNodeForVar (TempGnl, Var, NewNode)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

Bdd = GnlMapNodelnf oBestBdd (Node) ; 
if <!Bdd) 

return (GNL_0K) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 
if ( (Bdd == bdd_one () ) | | 
(Bdd == bdd_zero () ) ) 

{ 

if (GnlCreateNode (TempGnl, GNL_CONSTANTE , NewNode)) 

return ( GNL_MEMORY_FULL) ; 
if (Bdd == bdd_one ()) 

SetGnlNodeSons (*NewNode, (BLIST) 1) ; 
else 

SetGnlNodeSons (*NewNode, (BLIST) 0) ; 
return (GNL_0K) ; 

} 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 

if (GnlMapNodelnfoBestCell (Node)) 
{ 

/* Best cell already stored 

BestCell = GnlMapNodelnfoBestCell (Node) ; 

} 

else 

{ 

/* We extract the derive cell with the best Area */ 
GnlGetBestAreaCell (ListDeriveCells, Bdd, ^BestCell, 

&Area, &Depth) ; 

} 

if (LibDeriveCellBdd (BestCell) != Bdd) 
{ 

printf ("ERROR: bdd dif f erents\n" ) ; 
exit (1) ; 

} 
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if (GnlReconstructMappedCell (Gnl, OutVar, BestCell, 

ListDeriveCells, Node) ) 

return { GNL_MEMORY_FULL ) ; 

*NewNode = NULL; 
return (GNL_OK) ; 

default: 

GnlError (9 /* Unknown node */) ; 
return (GNL_OK) / 

} 

} 

/* */ 

/* GnlUpdateFormalTristateCompo */ 

/* */ 

/* This procedure updates the fields 'Formal' of each association of the*/ 
/* tri- state interface by taking the corresponding pin name in the */ 

/* LIBC cell. */ 
/* */ 

GNL_STATUS GnlUpdateFormalTristateCompo (TristateCompo) 
GNL_TRISTATE_COMPONENT TristateCompo ; 

{ 

LIBC_CELL Cell; 

LIBC_PIN Pins; 

LIB C_NAME_L 1ST ListPinName ; 

char * Output; 

LIBC_BOOL_OPR Input ; 

LIBC_BOOL_OPR Select ; 

GNL_ASSOC Assoc ; 

GNL_ASSOC Input Assoc ; 

GNL_ASSOC Output Assoc 

GNL_ASSOC SelectAssoc 

LIBC BOOL OPR PinFunction 



Cell = GnlTriStateCompoInf oCell (TristateCompo) ; 

Input = GnlTriStateCompoInf olnput (TristateCompo) ; 
InputAssoc = GnlTriStatelnputAssoc (TristateCompo) ; 

Output = GnlTriStateCompoInf oOutput (TristateCompo) ; 
OutputAssoc = GnlTriStateOutputAssoc (TristateCompo) ; 

Select = GnlTriStateCompoInfoEnable (TristateCompo) ; 
SelectAssoc = GnlTriStateSelectAssoc (TristateCompo) ; 

Pins = LibCellPins (Cell) ; 

for (;Pins 1- NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins) ; /* we know it is a simpel name */ 
Assoc ~ NULL; 

if (GnlNamelsPresent (LibNameListName (ListPinName) f 

Input) ) 

Assoc = InputAssoc; 



B-CORE-265 



gnlmap.c 



else if (GnlNamelsPresent (LibName List Name (ListPinName) , 

Select) ) 
Assoc = SelectAssoc ; 

else 

{ 

/* It is may be an output. */ 
PinFunction - LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

Assoc = OutputAssoc; 

} 

} 

if (Assoc) 

SetGnlAssocFormalPort (Assoc, LibNameListName (ListPinName)) ; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlUpdateFormalBuf Compo */ 
/* */ 

/* This procedure updates the fields 'Formal' of each association of the*/ 
/* buffer interface by taking the corresponding pin name in the LIBC */ 
/* cell. */ 
/* */ 

GNL_STATUS GnlUpdateFormalBuf Compo (BufCompo) 
GNL_BUF_COMPONENT Buf Compo ; 

{ 

LIBC_CELL Cell; 

LIBC_PIN Pins; 

LIB C_NAME_L 1ST ListPinName ; 

char *Output ; 

LIBC_BOOL_OPR Input ; 

LIBC_BOOL_OPR Select ; 

GNL_ASSOC ASSOC; 

GNL_ASSOC Input Assoc ; 

GNL_ASSOC OutputAssoc 

GNL_ASSOC SelectAssoc 

LIBC BOOL OPR PinFunction 



Cell = GnlBuf Compolnf oCell (BufCompo) ; 

Input = GnlBuf Compolnf olnput (BufCompo) ; 
InputAssoc = GnlBuf InputAssoc (BufCompo) ; 

Output = GnlBuf CompoInfoOutput (BufCompo) ; 
OutputAssoc = GnlBuf Output Assoc (BufCompo) ; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins) ; /* we know it is a simpel name */ 
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ASSOC = NULL; 

if {GnlNamelsPresent (LibNameListName (ListPinName) , 

Input) ) 

Assoc = InputAssoc; 
else if (GnlNamelsPresent {LibNameListName (ListPinName) , 

Select) ) 
Assoc = SelectAssoc; 

else 

{ 

/* It is may be an output. */ 
PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

Assoc = OutputAssoc; 

} 

} 

if (Assoc) 

SetGnlAssocFormalPort (Assoc, LibNameListName (ListPinName) ) ; 

} 

return (GNL_OK) ; 

} 



/*■ 

/* 

/*■ 



GnlUpdateFormalSeqCompo 



-*/ 
*/ 
-*/ 



/* This procedure updates the fields 'Formal 1 of each association of the*/ 

/* sequential compo. interface by taking the corresponding pin name in */ 

/* the LIBC cell. */ 
/* */ 

GNL_STATUS GnlUpdateFormalSeqCompo (SeqCompo) 
GNL_SEQUENTIAL_CQMPONENT SeqCompo ; 

{ 



LIBC_CELL 

LIBC_PIN 

LIB C_NAME_L 1ST 

char 

char 

LIBC_BOOL_OPR 

LIBC_B00L_0PR 

LIBC_B00L_0PR 

LIBC_BOOL_OPR 

GNL_ASSOC 

GNL_ASSOC 

GNL_ASSOC 

GNL_ASSOC 

GNL_ASSOC 

GNL_ASSOC 

GNL_ASSOC 

LIBC_BOOL_OPR 

GNL_F0RM_0UT PUT 

char 

char 



Cell; 
Pins ; 

ListPinName ; 

* Out put; 

*OutputBar; 

Input ; 

Clock; 

Clear; 

Preset; 

Assoc; 

InputAssoc; 

OutputAssoc ; 

Out put Bar As soc ; 

ClockAssoc; 

CI ear As soc ; 

PresetAssoc; 

PinFunction; 

FormOutput ; 

*IQ; 

*IQN; 
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Cell = GnlSeqCompoInf oCell (SeqCompo) ; 

IQ = LibFFLatchQName (LibCellFFLatch (Cell)); 
IQN = LibFFLatchQNName (LibCellFFLatch (Cell)); 

FormOutput = Gnl Sequent ialCompoFormOutput (SeqCompo) ; 

Input = GnlSeqCompoInfoInput (SeqCompo) ; 

InputAssoc = GnlSequentialCompoInputAssoc (SeqCompo) / 

Output = GnlSeqCompoInf oOutput (SeqCompo) ; 

OutputAssoc = GnlSequentialCompoOutputAssoc (SeqCompo) ; 

OutputBar = GnlSeqCompoInf oOutputBar (SeqCompo) ; 
OutputBarAssoc = GnlSequentialCompoOutputBarAssoc (SeqCompo) ; 

Clock = GnlSeqCompoInfoClock (SeqCompo); 

ClockAssoc = GnlSequentialCompoClockAssoc (SeqCompo) ; 

Clear = GnlSeqCompoInf oReset (SeqCompo) ; 

ClearAssoc = GnlSequentialCompoResetAssoc (SeqCompo) ; 

Preset = GnlSeqCompoInfoSet (SeqCompo) ; 

PresetAssoc = GnlSequentialCompoSetAssoc (SeqCompo) ; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

ListPinName = LibPinName (Pins); /* we know it is a simpel name */ 
Assoc = NULL; 

if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Input)) 

Assoc = InputAssoc; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Clock) ) 

Assoc = ClockAssoc; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Clear) ) 

Assoc = ClearAssoc; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Preset) ) 
Assoc = PresetAssoc ; 

else 

{ 

/* It is may be an output. */ 
PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

if (GnlNamelsPresent (IQ, PinFunction)) 

Assoc = OutputAssoc ; 
else if (GnlNamelsPresent (IQN, PinFunction)) 
Assoc = OutputBarAssoc; 

} 
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if (Assoc) 

^ SetGnlAssocFormalPort (Assoc, LibNameListName (ListPinName) ) ; 
return (GNL_OK) ; 

} 

/* #/ 

/* GnlUpdateFormalPorts */ 

v 

/* This procedure updates the fields 'Formal' of each association of the*/ 
/* current component interface by taking the corresponding pin name in */ 
/* the LIBC cell. */ 
/* We do that only for predefined components. */ 

GNL_STATUS GnlUpdateFormalPorts (Compo) 
GNL_COMPONENT Compo ; 

{ 



switch (GnlComponentType (Compo) ) { 
case GNL_SEQUENTIAL_COMPO: 

return (GnlUpdateFormalSeqCompo ( 

(GNL_SEQUENTIAL_COMPONENT) Compo) ) ; 

case GNL_TRISTATE_COMPO: 

return (GnlUpdateFormalTristateCompo ( 

(GNL_TRISTATE_COMPONENT) Compo) ) ; 

case GNL_BUF_COMPO : 

return (GnlUpdateFormalBuf Compo ( 

(GNL_BUF_COMPONENT) Compo) ) ; 

default : 

break; 

} 



return (GNL_OK) ; 

} 

/* 

/* GnlFreeMapNodelnfo */ 

/* 

/* Frees the structure pointed by ' GNL TRI STATE COMPO INFO 1 */ 

/* 7 1 7 

void GnlFreeMapNodelnfo (Node) 
GNL_NODE Node; 

{ 

if (GnlMapNodelnf oNodeSupport (Node) ) 

BListQuickDelete (&GnlMapNodeInf oNodeSupport (Node) ) ; 
if (GnlMapNodelnfoLibVarSupport (Node) ) 

BListQuickDelete UGnlMapNodelnf oLibVarSupport (Node) ) ; 
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if {GnlMapNodelnf oSNodes (Node) ) 

GnlFreeMapSNodes (GnlMapNodelnf oSNodes (Node) ) ; 
free ( ( GNL_MAP_NODE__INFO ) GnlNodeHook (Node) ) ; 

} 



/* */ 

/* GnlCleanNodelnf o */ 

/* */ 

/* This procedure cleans the Hook field of the node 'Node' which */ 
/* corresponds to a ' GNL_MAP_NODE_INFO ' structure */ 
/* */ 

void GnlCleanNodelnf o (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL NODE SonI; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) GNL_VARIABLE ) 

{ 

if (GnlNodeHook (Node) ) 

{ 

GnlFreeMapNodelnf o (Node) ; 
SetGnlNodeHook (Node, NULL); 

} 

return; 

} 

if (GnlNodeHook (Node) ) 

{ 

GnlFreeMapNodelnf o (Node) ; 
SetGnlNodeHook (Node, NULL) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i-f-+) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlCleanNodelnf o (SonI) ; 

} 

} 



/* */ 

/* GnlUpdateFormalFieldOf Predef inedComponents */ 
/* */ 

/* We scan the components and eventually update the formal field of each*/ 

/* association of SEQUENTIAL, TR I STATE or BUF components. */ 

/* */ 



GNL_STATUS GnlUpdateFormalFieldOf Predef inedComponents (Gnl) 
GNL Gnl ; 

{ 

BLIST Components; 
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int i ; 

GNL_COMPONENT Component I ; 



Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ,- 
if (GnlUpdateFormalPorts (ComponentI) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlReconstructMappedGnl */ 

/* 

/* This procedure analyzes a fresh mapped Gnl and replaces mapped */ 
/* GNL_NODE by new components corresponding to the libc cells. */ 
/* *i 

GNL_STATUS GnlReconstructMappedGnl (Gnl, GnlLib) 

GNL Gnl; 
GNL_LIB GnlLib; 

{ 

int IndexList; 
int i; 

GNL_VAR Varl; 
GNL_FUNCTION FunctionI ; 

L I B_CELL Best Inv ; 
GNL TempGnl ; 

BLIST NodesSegments ; 

GNL_NODE NewNode ; 

GNL_COMPONENT Component I ; 

BLIST Components ; 



IndexList = 0; 

Bestlnv = GetBestAreaLiblnverter (GnlLib) ; 

/* We create a temporary Gnl in which we will create new functions */ 
/* corresponding to simple variable assignment of the form : */ 
/* 1 assign x = y; ' */ 
/* We will then replace the GNL_N0DE segments of 'Gnl' by the ones of*/ 
/* r GnlTemp' and remove the segments of 'Gnl 1 . */ 
if ((TempGnl = (GNL)calloc (1, sizeof (GNL_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNbln (TempGnl, GnlNbln (Gnl)); 
SetGnlNbOut (TempGnl, GnlNbOut (Gnl) ) ; 
SetGnlNbLocal (TempGnl, GnlNbLocal (Gnl) ) ; 

SetGnllnputs (TempGnl, Gnllnputs (Gnl) ) ; 
SetGnlOutputs (TempGnl, GnlOutputs (Gnl) ) ; 
SetGnlLocals (TempGnl, GnlLocals (Gnl)); 
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SetGnlHashNames (TempGnl, GnlHashNames (Gnl)); 

if (BListCreate (&Nodes Segments) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodesSegments (TempGnl, Nodes Segments) ; 
SetGnlFirstNode (TempGnl, NULL); 
SetGnlLastNode (TempGnl, NULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlReconstructMappedFunction (Gnl, TempGnl, Bestlnv, Varl, 

GnlFunctionOnSet (FunctionI) , 
SJSFewNode) ) 

return (GNL_MEMORY_FULL) ; 
if (NewNode) 

{ 

SetGnlFunctionOnSet (FunctionI, NewNode) ; 
cont inue ; 

} 

GnlFunctionFree (FunctionI) ; 

/* Varl has no function anymore but is the output of a user 
/* component. */ 
GnlResetVar Function (Varl) ; 
BListDellnsert (GnlFunctions (Gnl) , i+1) ; 
i - - ; 

} 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 
GnlCleanNodelnfo (GnlFunctionOnSet (FunctionI) ) ; 

} 

GnlFreeNodesSegments (Gnl) ; 

/ * We move the segments of nodes from TempGnl 1 to 'Gnl'. 
SetGnlNodesSegments (Gnl, GnlNodes Segments (TempGnl)) ; 
SetGnlFirstNode (Gnl, GnlFirstNode (TempGnl)); 
SetGnlLastNode (Gnl, GnlLastNode (TempGnl) ) ; 

free ( (char* ) TempGnl) ; 



/ * We scan the components and eventually update the formal field 
/* of each association of SEQUENTIAL, TR I STATE or BUF components, 
if (GnlUpdateFormalFieldOf Predef inedComponents (Gnl) ) 
return (GNL MEMORY FULL) ; 
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return (GNL_OK) ; 

} 

/* 

/ * GnlUpdateFormalFieldOf Predef inedComponentsRec 

/* 

GNL_STATUS GnlUpdateFormalFieldOf Predef inedComponentsRec (Nw, Gnl) 

GNL_NETWORK Nw; 

GNL Gnl ; 



{ 



int i ; 

BLIST Components 

GNL_COMPONENT Component I 

GNL_USER_COMPONENT UserCompol 

GNL GnlCompol ; 



if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

/* We scan the components and eventually update the formal field */ 
/* of each association of SEQUENTIAL, TR I STATE or BUF components. */ 
if (GnlUpdateFormalFieldOf Predef inedComponents (Gnl) ) 
return ( GNL _MEMORY_FULL) ; 

Components = GnlComponents (Gnl) / 

for (i=0; i<BListSize (Components) ; i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (Gnl Component Type (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompol = ( GNL_USER_COMPONENT ) Component I ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlUpdateFormalFieldOf Predef inedComponentsRec (Nw, GnlCompol) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 



/* */ 

/* GnlUpdateFormalFieldOf Predef inedComponents InNw */ 

/* */ 

GNL_STATUS GnlUpdateFormalFieldOf Predef inedComponents InNw (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 
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SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlUpdateFormalFieldOf Predef inedComponentsRec (Nw, TopGnl) ) 
return { GNL _MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlGetReplaceVar */ 
/* 

GNL_VAR GnlGetReplaceVar (Var) 
GNL_VAR Var ; 

{ 

GNL_VAR ReplaceVar; 
GNL_FUNCT I ON Fun c t i on ; 
GNL NODE Node; 



if (! GnlVarFunction (Var)) 
return (Var) / 

Function = GnlVarFunction (Var) ; 
Node = GnlFunctionOnSet (Function) ; 

if (GnlNodeOp (Node) != GNL_VARIABLE) 
return (Var) ; 

ReplaceVar = (GNL_VAR) GnlNodeSons (Node) ; 
return (GnlGetReplaceVar (ReplaceVar) ) ; 

} 

/* 

/* GnlDeleteFunctionRec */ 
/* 

void GnlDeleteFunctionRec (Var) 
GNL_VAR Var; 

{ 

GNL__VAR ReplaceVar; 
GNL_FUNCTION Function ; 
GNL_NODE Node; 



if ( !GnlVarFunction (Var) ) 
return; 

Function = GnlVarFunction (Var) ; 
Node = GnlFunctionOnSet (Function) ; 

if (GnlNodeOp (Node) GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) != GNL_VAR I ABLE ) 
{ 
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fprintf (stderr, 

" ERROR: non simple Boolean equation detected\n") ; 

exit (1); 

} 

ReplaceVar = (GNL_VAR) GnlNodeSons (Node); 
GnlDeleteFunctionRec (ReplaceVar) ; 



} 



GnlFunctionFree (Function) ; 
SetGnlVarFunction (Var, NULL) ; 



/* 

/* GnlReplaceVarlnNode 

/* 

GNL_STATUS GnlReplaceVarlnNode (Node, ListReplaceVar) 

GNLJSFODE Node; 

BLIST ListReplaceVar; 



{ 



int i ; 

GNL_NODE SonI; 
GNL_VAR Var; 
GNL_VAR ReplaceVar; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
ReplaceVar = GnlGetReplaceVar (Var) ; 
if (Var != ReplaceVar) 

{ 

if (BListAddElt (ListReplaceVar, (int) Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (Node, (BLIST) ReplaceVar) ; 

} 

return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlReplaceVarlnNode (SonI, ListReplaceVar)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNLOK) ; 



/* 

/* GnlReplaceMappedSimpleSignals */ 
/* 
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This procedure analyzes each actual var of the interfaces of all the 

components and replace them if they are simple signals assigned. A 
simple signal assigned is the following case: */ 
assign x = y; */ 
assign y = z; */ 
toto ul { .z (x) , .a(b) ) ; */ 

,* 7 

The goal above is the replace *x' used as actual signal in the 
component 'toto' and replace it by x -> y z */ 



*/ 
*/ 



{ 



BLIST 
int 
int 
int 

GNL COMPONENT 



Components; 
i; 
j ; 

k; 

Component I; 



GNL_SEQUENTIAL_COMPONENT 
GNL_TRISTATE_COMPONENT 
GNL__USER_ COMPONENT 
GNL_BUF_COMPONENT 
BLIST 



GNL_VAR 

GNL_ASSOC 

BLIST 

GNL_VAR 

GNL_VAR 

GNL_VAR 

GNL_VAR 

BLIST 

GNL_VAR 

BLIST 

BLIST 

GNL_FUNCTION 
GNL NODE 



SeqCompol; 
TriCompol; 
UserCompol ; 
Buf Compol ; 
Interface; 
Actual ; 

ASSOCK; 

ListSignals ; 
VarJ; 

Rep lace Var ; 
Input ; 
Formal ; 

ListReplacedVar; 
Varl ; 

HashTableNames ; 
Bucket I ; 

Function; 

Node ; 



/ * No simplification if we are running in NL delay mode. */ 
if (GnlEnvCriterion {) GNL_NL_DELAY ) 
return (GNLJDK) ; 

if (BListCreate (^ListReplacedVar ) ) 
return (GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
switch (GnlComponentType (ComponentI) ) { 
case GNL__SEQUENTIAL__COMPO : 

SeqCompol = (GNL_SEQUENTIAL_COMPONENT) ComponentI ; 

Input = GnlSequentialCompoInput (SeqCompol) ; 

ReplaceVar = GnlGetReplaceVar (Input) ; 

if (ReplaceVar 1= Input) 

{ 

SetGnlSequentialCompoInput (SeqCompol , 
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ReplaceVar) ; 
if (BListAddElt (ListReplacedVar, (int) Input)) 
return (GNL_MEMORY_FULL) ; 

} 

continue; 
break; 

case GNLJTRISTATE_COMPO: 

TriCompol = { GNL_TR I STATE_COMPONENT) Component I ; 
Input = GnlTriStatelnput (TriCompol) ; 
ReplaceVar = GnlGetReplaceVar (Input) ; 
if (ReplaceVar != Input) 
{ 

SetGnlTriStatelnput (TriCompol, ReplaceVar) ; 
if (BListAddElt (ListReplacedVar , (int) Input)) 
return ( GNL_MEMORY_FULL ) ; 

} 

continue; 
break; 

case GNL_BUF_COMPO : 

BufCompol = (GNL_BUF_COMPONENT) Component I ; 
Input = GnlBuf Input (BufCompol); 
ReplaceVar = GnlGetReplaceVar (Input); 
if (ReplaceVar != Input) 
{ 

SetGnlBuf Input (BufCompol, ReplaceVar) ; 
if (BListAddElt (ListReplacedVar, (int) Input) ) 
return (GNL_MEMORY FULL) ; 

} 

continue; 
break; 

case GNL_USER_COMPO : 

UserCompol = (GNL_USER_COMPONENT) Component I ; 
/* It is apparently a black box so we do not do 
/* anything. */ 
if (GnlUserComponentFormalType (UserCompol) != 
GNL_FORMAL_CHAR ) 
continue; 

Interface = GnlUserComponent Interface (UserCompol) ; 
break; 



default : 



} 



fprintf (stderr, " ERROR: unknown component\n") ; 
exit (1) ; 



/* In the case of 1 GNL_USER_COMPO ' ... 
for (k=0; k<BListSize (Interface); k++) 

{ 

AssocK = (GNL_ASSOC) BListElt (Interface, k) ; 
Formal = GnlAssocFormalPort (AssocK) ; 
Actual = GnlAssocActualPort (AssocK) ; 

/* If it is an open port we do nothing 
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if (! Actual) 
continue; 

if (GnlVarlsVar (Actual)} 
{ 

ReplaceVar = GnlGetReplaceVar (Actual) ; 
if (ReplaceVar 1= Actual) 
{ 

SetGnlAssocActualPort (AssocK, ReplaceVar) ; 
if (BListAddElt (ListReplacedVar , (int) Actual) ) 
return (GNL_MEMORY FULL) ; 

} 

continue; 

} 

/* Otherwise it is a GNL_NODE with GNL_CONCAT operator */ 
ListSignals = GnlNodeSons ( (GNL_NODE) Actual ) ; 
for (j=0; j<BListSize (ListSignals); j++) 

VarJ = (GNL_VAR) BListElt (ListSignals, j ) ; 
ReplaceVar = GnlGetReplaceVar (VarJ) ; 
if (ReplaceVar != VarJ) 
{ 

BListElt (ListSignals, j) = (int) ReplaceVar ; 
if (BListAddElt (ListReplacedVar, (int) VarJ)) 
return (GNL MEMORY FULL) ; 

} 

} 

} 

} 

for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 

Varl - (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Function = GnlVarFunction (Varl) ; 
Node = GnlFunctionOnSet (Function) ; 
if (GnlReplaceVarlnNode (Node, ListReplacedVar)) 
return (GNL MEMORY FULL) ; 

} 

/* We analyze now the list ' ListReplacedVar « in order to destroy the */ 
/* equations associated to them. */ 
for (i=o ; i<BListSize (ListReplacedVar); i++) 

Varl = (GNL_VAR) BListElt (ListReplacedVar, i) ; 
GnlDeleteFunctionRec (Varl) ; 

} 

BListQuickDelete (&ListReplacedVar) ; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Van = (GNL^VAR) BListElt (GnlFunctions (Gnl), i) ; 
if (! GnlVarFunction (Varl)) 

{ 

BListDellnsert (GnlFunctions (Gnl), i+1) ; 
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} 



} 



} 

return (GNL OK) ; 



/* */ 

/* GnlMap */ 

/* */ 

/* General technology mapping function which takes as input a Gnl and a */ 

/* specific library. Purpose is to map the Generic Gnl in term of compo-*/ 

/* nents of the specific library 'GnlLib 1 . */ 

/* 'Done' is 1 if the mapping was done and 0 is the library was not */ 

/* powerfull enough to map the global Gnl. */ 

/* A Verilog dumping of the result of the mapping is done in the file */ 

/* 'OutFile'. */ 

/* */ 

GNL_STATUS GnlMap (Nw, Gill, GnlLibc, OutFile, Effort, Criter, Done) 
GNL__NETWORK NW; 
GNL Gnl ; 

LIBC_LIB GnlLibc; 
FILE *OutFile; 

int Effort; /* 0 --> Low, 1 --> High */ 

int Criter; 
int *Done ; 



{ 



double TechArea; 

int TechDepth; 

float TechMax; 

float TechMin; 

int Tag; 

int NbOriginalFunctions; 

GNL LIB GnlLib; 



/* Accessing our private library description. * 
GnlLib = (GNL_LIB) LibHook (GnlLibc); 

*Done = 1; 
G_Effort = Effort; 
Tag = GnlTag (Gnl) ; 

if { ! GnlEnvDont Touch ( ) ) 
{ 

if (GnllnjectSingleVarWithMaxLitt (Gnl, 1)) 
return ( GNL_MEMORY_FULL ) ; 

/* In case of NL delay and touch netlist we do an important 
/* collapsing. */ 
if (GnlEnvCriterion {) == GNL_NL_DELAY) 
{ 

if (GnllnjectQuick (Gnl, 100)) 
return (GNL__MEMORY_FULL) ; 

} 

else 

{ 
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if (GnllnjectQuick (Gnl, 2)) 
return (GNL MEMORY FULL) ; 

} 

} 

/* We sort the functions according to their level. First one is the */ 
/* highest, last function is the deepest. */ 
if (BListSize (GnlFunctions (Gnl) ) ) 
{ 

fprintf (stderr, " Sorting functions ... \n") ; 
GnlSortFunctionsOnLevel (Gnl) ; 

} 

if ( i GnlEnvDont Touch { ) ) 
{ 

/* We transform the Gnl as a tree of AND nodes */ 
if (GnlEnvCriterion () GNL NL DELAY) 
{ " " 

if (GnlAndifyPropagate (Gnl)) 

return (GNL_MEMORY_FULL) ; 
GnlSortFunctionsOnlnvertLevel (Gnl) ; 
if (GnlMakeBalanceBinary (Gnl, Criter) ) 
return (GNL MEMORY FULL) ; 

} 

else if <G_Effort == 1) 
{ 

if (GnlAndify (Gnl)) 

return (GNL_MEMORY_FULL) ; 
GnlSortFunctionsOnlnvertLevel (Gnl) ; 
if (GnlMakeBalanceBinary (Gnl, Criter)) 

return (GNL MEMORY FULL) / 

} 

else 

{ 

if (GnlAndifyPropagate (Gnl)) 

return ( GNL _MEMORY_FULL ) ; 
GnlSortFunctionsOnlnvertLevel (Gnl) ; 
if (GnlMakeBalanceBinary (Gnl, Criter)) 

return (GNL MEMORY FULL) ; 

} 

} 

else 

{ 

/* we add a couple of inverters at each outputs. */ 

if (GnlAddOutputsCouplelnverter (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlAndify (Gnl)) 

return (GNL_MEMORY_FULL) ; 
GnlSortFunctionsOnlnvertLevel (Gnl) ; 
if (GnlMakeBalanceBinary (Gnl, Criter)) 

return (GNL MEMORY FULL) ; 

} 

/* we reset the Hook field of each var */ 
GnlResetVarHook (Gnl) ; 
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fprintf (stderr, u \n ** JUST BEFORE MAPPING **\n"); 
GnlPrintGnl {stderr, Gnl) ; 

fprintf (stderr, «\n Technology Mapping: \n") ; 
NbOriginalFunctions = BListSize (GnlFunctions (Gnl)); 
if (GnlMapGnl (Nw, Gnl, GnlLibc, GJEffort, Done)) 
return { GNL_MEMORY_FULL ) ; 

if ( i (*Done) ) 
{ 

fprintf (stderr, 

" ERROR: cannot map the whole Boolean network\n n ); 
return (GNL_OK) ; 

} 

fprintf (stderr, " Sorting Gates ... \n n ) ; 
GnlSortFunctionsOnLevel (Gnl) ; 

if (GnlCreateCutVars (Gnl)) 
return (GNL_MEMORY_FULL) ; 

if (GnlEnvCriterion () == GNL AREA) 
{ 

fprintf (stderr, " Gates compaction ... \n" ) ; 
if (GnlFactorizeGates (Gnl, NbOriginalFunctions)) 
return (GNL_MEMORY FULL) ; 

} 

/* Creates inverters for BDDs pointed as complement */ 
if (GnlCreatelnverterGate (Gnl, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

TechArea = GnlGetGnlMapArea (Gnl) ; 
TechDepth = GnlGetMaxTechnologyDepth (Gnl) ; 

SetGnlArea (Gnl, TechArea); 
SetGnlDepth (Gnl, TechDepth); 
SetGnlTechMax (Gnl, TechMax) ; 
SetGnlTechMin (Gnl, TechMin) ; 

/* We replace mapped GNL_NODE by new components corresponding to the */ 
/* libc cells. */ 
if (GnlReconstructMappedGnl (Gnl, GnlLib)) 
return ( GNL__MEMOR Y_FULL ) ; 

/* We replace simple signals by their corresponding one */ 
if (GnlReplaceMappedSimpleSignals (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

/* This function computes the Max Fanout in the gnl 'Gnl' and stores */ 
/* it in the field * GnlMaxFanout (Gnl)'. */ 
GnlComputeMaxFanoutlnGnl (Gnl) ; 

fprintf (stderr, "\n Extracted Data After Technology Mapping : \n" ) ; 
fprintf (stderr, " o Total Gates Area = «) ; 

fprintf (stderr, "%4.f units\n", TechArea); 
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fprintf (stderr, 
TechDepth) / 

fprintf (stderr, 



o Max. Comb. Wire Path 



o Max. Fanout 



= %d nets\n" , 



= %d wires\n" , 



GnlMaxFanout (Gnl) ) ; 



fprintf (stderr, "\n") ; 
#ifdef STAT 

fprintf (stderr, »# G_NB_TARGE T_ FUN C = %d\n", G_NB_TARGET_FUNC ) ; 

fprintf (stderr, »# G_ROBDD_BUILT = %d\n", G_ROBDD_BUILT) ; 

fprintf (stderr, «# G_NB_CELL_FOUND = %d\n'\ G_NB__CELL__FOUND ) ; 



#endif 



SetGnlTag {Gnl, Tag) ; 
return <GNL_OK) ; 



/* 



EOF 
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/* 

/* v 

/* File: gnlmap.h 

/* Version: l.l */ 

*/ 
*/ 

*/ 



/* Modifications: 
/* Documentation: 
/* 

/* 

#ifndef GNLMAP_H 
#define GNLMAP H 



/* 

/* GNL_SNODE 

/* 

typedef struct GNL_SNODE_STRUCT { 
GNL_NODE Node ; 

struct GNL_SNODE_S TRUCT *Next; 

} 

GNL_SNODE_REC , *GNL_SNODE ; 

#define GnlSNodeNode (n) ( (n) ->Node) 

#def ine GnlSNodeNext (n) ( (n) ->Next) 

#define SetGnlSNodeNode (n, s) (<n)->Node = s) 
#define SetGnlSNodeNext (n, s) ( (n) ->Next = s) 



/* 

/* Info stored on GNL_SEQUENTIAL COMPONENT thru Hook field 
/* 7 

typedef struct GNL_S EQUENT I AL_COMPO_INFO_STRUCT { 
LIBC_CELL Cell; 
LIBC_BOOL_OPR Input ; 
char *Output; 
char *OutputBar; 
LIBC_B00L_OPR Clock; 
LIBC_BOOL_OPR Reset ; 
LIBC__BOOL_OPR Set; 
LIBC_BOOL_OPR Enable ; 
void *Hook; 

GNL_SEQUENTIAL_COMPO_INFO_REC , *GNL_SEQUENTIAL_COMPO_INFO ; 

#def ine GnlSeqCompoInf oCell (n) \ 

( { (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Cell) 
#def ine GnlSeqCompoInf olnput (n) \ 

( ( ( GNL_S EQUENT I AL__COMPO__INFO ) ( (n) ->Hook) ) ->Input) 
#def ine GnlSeqCompoInf oOutput (n) \ 

( { ( GNL_S EQUENT I AL_COMPO_INFO ) ( (n) ->Hook) ) ->Output) 
#define GnlSeqCompoInf oOutputBar (n) \ 

( { (GNL_S EQUENT I AL_COMPO_INFO) ( (n) ->Hook) ) ->OutputBar) 
#define GnlSeqCompoInf oClock (n) \ 

( ( (GNL_S EQUENT I AL_COMPO_INFO ) ( (n) ->Hook) ) ->Clock) 
#define GnlSeqCompoInf oReset (n) \ 

( { { GNL_S E QUENT I AL_COMPO_INFO ) ( (n) ->Hook) ) ->Reset) 
#define GnlSeqCompoInf oSet (n) \ 

( ( ( GNL_S EQUENT I AL_COMPO_INFO ) ( (n) ->Hook) ) ->Set) 
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idefine GnlSeqCompoInf oHook (n) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Hook) 

#define SetGnlSeqCompoInfoCell (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Cell = c) 
#define SetGnlSeqCompoInf olnput (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Input = c) 
#define SetGnlSeqCompoInf oOutput (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Output = c) 
#define SetGnlSeqCompoInf oOutputBar (n, c) \ 

( { (GNL_SEQUENTIAL_COMPO_INFO) { (n) ->Hook) ) ->OutputBar = c) 
#define SetGnlSeqCompoInf oClock (n, c) \ 

( ( (GNLJ3EQUENTIAL_COMPO_INFO) { (n) ->Hook) } ->Clock = c) 
#define SetGnlSeqCompoInf oReset (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Reset = c) 
#define SetGnlSeqCompoInf oSet (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Set = c) 
#define SetGnlSeqCompoInf oHook (n, c) \ 

( ( (GNL_SEQUENTIAL_COMPO_INFO) ( (n) ->Hook) ) ->Hook - c) 

/* 

/* Info stored on GNL_TR I S TATE COMPONENT thru Hook field 

/* 7 

typedef struct GNL_TRISTATE_COMPO_INFO_STRUCT { 
LIBC_CELL Cell; 
LIBC_BOOL_OPR Input ; 

char *Output; 
LIBC_BOOL_OPR Enable ; 

void *Hook; 

} 

GNL_TRISTATE_COMPO_INFO__REC , *GNL_TRISTATE_COMPO_INFO ; 

#define GnlTriStateCompoInf oCell (n) \ 

( ( ( GNL_TR I STATE_COMPO__INFO ) ( (n) ->Hook) ) ->Cell) 
#def ine GnlTriStateCompoInf olnput (n) \ 

( ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Input) 
#def ine GnlTriStateCompoInf oOutput (n) \ 

( ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Output) 
#def ine GnlTriStateCompoInf oEnable (n) \ 

{ ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Enable) 
#define GnlTriStateCompoInf oHook (n) \ 

( { (GNL__TRISTATE__COMPO_INFO) ( (n) ->Hook) ) ->Hook) 

#define SetGnlTriStateCompoInf oCell {n, c) \ 

( ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Cell = c) 
#define SetGnlTriStateCompoInf olnput (n, c) \ 

( ( (GNL__TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Input = c) 
#define SetGnlTriStateCompoInf oOutput (n, c) \ 

( ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Output = c) 
#define SetGnlTriStateCompoInf oEnable (n, c) \ 

{ ( (GNL_TRISTATE__COMPO_INFO) ( (n) ->Hook) ) ->Enable = c) 
#define SetGnlTriStateCompoInf oHook (n, c) \ 

( ( (GNL_TRISTATE_COMPO_INFO) ( (n) ->Hook) ) ->Hook = c) 



/* 

/* Info stored on GNL_BUF COMPONENT thru Hook field 
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typedef struct GNL_BUF_COMPO_INFO_STRUCT { 
LIBC_CELL Cell; 
LIBC_BOOL_OPR Input ; 

char *Output; 
void *Hook; 

} 

GNLJBUF__COMPO_INFO_REC , * GNL_BUF_COMPO_INFO ; 

#def ine GnlBuf Compolnf oCell (n) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Cell) 
#def ine GnlBuf Compolnfolnput (n) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Input) 
#def ine GnlBuf Compolnf oOutput (n) \ 

{ ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Output) 
#define GnlBuf Compolnf oHook (n) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Hook) 

#define SetGnlBuf Compolnf oCell (n, c) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Cell = c) 
#define SetGnlBuf Compolnf olnput (n, c) \ 

( { (GNL__BUF_COMPO_INFO) ( (n) ->Hook) ) -> Input = c) 
#define SetGnlBuf Compolnf oOutput {n, c) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Output = c) 
#define SetGnlBuf Compolnf oHook (n, c) \ 

( ( (GNL_BUF_COMPO_INFO) ( (n) ->Hook) ) ->Hook = c) 



/* Info stored on GNLJNODE thru Hook field */ 

z* ' 

typedef struct GNL_MAP_NODE_INFO_STRUCT { 
BDD Bdd; 

GNL_VAR CutVar; 
BDD Be st Bdd; 

BLIST NodeSupport; 

BLIST LibVarSupport; 

GNL_VAR LibraryVar; 
GNL_SNODE SNode s ; 



GNL_USER__COMPONENT 
LIB DERIVE CELL 



} 



float 

float 

float 

float 

float 

float 

int 

float 

int 

int 



OriginalCompo ; 
BestCell; 



Be st Area ; 
Be st Power; 
BestArrivalR; 
BestArrivalF; 
TransitionR; 
TransitionF; 
Depth; 

ATime; 

BestDepth; 
BestNet; 



GNL_MAP_NODE_INFO_REC , * GNL_MAP_NODE_ INFO ; 



/* 

#def ine GnlMapNodelnf oOriginalCompo (n) 
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( ( (GNL_MAP_NODE_INFO) { (n) ->Hook) ) - >OriginalCompo) 

*/ 

#def ine GnlMapNodelnf oBestCell (n) \ 

( { (GNL_MAP_N0DE_INFO) ( (n) ->Hook) ) ->BestCell) 
#define GnlMapNodelnf oBdd (n) \ 

( ( ( GNL_MAP_NODE_ INFO ) ( (n) ->Hook) ) ->Bdd) 
#define GnlMapNodelnf oCutVar (n) \ 

( ( ( GNL_MAP_NODE__ INFO ) { (n) ->Hook) ) ->CutVar) 
#define GnlMapNodelnf oBestArea (n) \ 

( { (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestArea) 
#define GnlMapNodelnf oBestPower (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestPower) 
#define GnlMapNodelnf oBestArrivalR (n) \ 

( ( ( GNL_MAP_NODE_ INFO ) ( (n) ->Hook) ) ->BestArrivalR) 
#define GnlMapNodelnf oBestArrivalF (n) \ 

( ( ( GNL_MAP_NODE_INFO ) ( (n) ->Hook) ) - >BestArrivalF) 
#define GnlMapNodelnf oTransitionR (n) \ 

( ( (GNL_MAP_NODE_INFO) { (n) ->Hook) ) - >TransitionR) 
#define GnlMapNodelnf oTransitionF (n) \ 

( ( <GNL_MAP_NODE_INFO) ( (n) ->Hook) ) - >TransitionF) 
#def ine GnlMapNodelnf oBestBdd (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestBdd) 
#define GnlMapNodelnf oNodeSupport (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->NodeSupport ) 
#def ine GnlMapNodelnf oLibVarSupport (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) - >LibVarSupport ) 
#define GnlMapNodelnf oLibVar (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ~>Hook) ) - >LibraryVar ) 
#def ine GnlMapNodelnf oSNodes (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->SNodes) 
#define GnlMapNodelnf oDepth (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->Depth) 
#define GnlMapNodelnf oBestDepth (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestDepth) 
#def ine GnlMapNodelnf oBestNet (n) \ 

( { (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestNet) 
#define GnlMapNodelnf o At i me (n) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->Atime) 

/* 

#define SetGnlMapNodelnf oOriginalCompo (n, b) \ 

^ ( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) - >OriginalCompo = b) 

#define SetGnlMapNodelnf oBestCell (n,b) \ 

( ( (GNL_MAP__NODE_INFO) ( (n) ->Hook) ) ->BestCell = b) 
#define SetGnlMapNodelnf oBdd (n, b) \ 

( ( ( GNL_MAP_NODE__INFO ) ( (n) ->Hook) ) ->Bdd = b) 
#define SetGnlMapNodelnf oCutVar (n, c) \ 

( ( (GNLJ4AP_N0DE_INF0) ( (n) ->Hook) ) ->CutVar = c) 
#define SetGnlMapNodelnf oBestArea (n, c) \ 

{ { (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestArea = c) 
#define SetGnlMapNodelnf oBest Power (n, c) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestPower = c) 
#define SetGnlMapNodelnf oBestArrivalR (n, c) \ 

{ ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestArrivalR = c) 
#define SetGnlMapNodelnf oBestArrivalF (n, c) \ 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) ) ->BestArrivalF = c) 
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#def ine SetGnlMapNodelnf oTrans it ionR (n 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oTransitionF (n 

( { (GNL_MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oBestBdd (n, c) 

( ( (GNL__MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oNodeSupport (n 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oLibVar Support 

( ( (GNL_MAP_NODE_INFO) { (n) ->Hook) 
#def ine SetGnlMapNodelnf oLibVar (n, c) 

{ ( (GNL_MAP_NODE_INFO) { (n) ->Hook) 
#def ine SetGnlMapNodelnf oSNodes (n, c) 

( ( ( GNL__MAP_NODE_INFO ) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oDepth (n, c) 

{ ( (GNL_MAP_NODE_INFO) { (n) ->Hook) 
#def ine SetGnlMapNodelnf oBestDepth (n, c 

( ( (GNL__MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oBestNet {n , c ) 

( ( (GNL_MAP_NODE_INFO) ( (n) ->Hook) 
#def ine SetGnlMapNodelnf oATime (n, c) 

( ( (GNL MAP NODE INFO) ( (n) ->Hook) 



O \ 

->TransitionR = c) 
O \ 

->TransitionF = c) 
\ 

->BestBdd = c) 
O \ 

- >NodeSupport = c) 
n, c) \ 
->LibVarSupport = c) 
\ 

->LibraryVar = c) 
\ 

->SNodes = c) 
\ 

->Depth = c) 
\ 

->BestDepth = c) 

\ 

->BestNet = 
\ 

->ATime = c 



c) 



EOF 



#endif 
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/* 






/* 


File: gnlmap3 state . c 




/* 


Modifications: 




/* 


Documentation: 




/* 






/* 


Description: 


*/ 


/* 











#include <stdio.h> 

#ifdef MEMORY 
#include <malloc.h> 
#endif 

#include "blist.h" 
#include "gnl.h" 
#include "gnlmint .h" 
#include "bbdd.h" 
#include "libc_mem. h" 
#include "libc_api .h" 
#include "gnllibc .h" 
#include "gnlmap.h" 

#include "blist . e" 



/* If one wants memory statistics for SUN */ 



/* GnlCreateTriStateCompoInfo 



GNL_STATUS GnlCreateTriStateCompoInfo (NewTriStateCompoInf o) 
^ GNL_TRISTATE_COMPO_INFO *NewTriStateCompoInf o; 

if ( (*NewTriStateCompoInfo = (GNL__TRISTATE_COMPO_INFO) 

calloc (1, sizeof (GNL_TRISTATE_COMPO_INFO_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

return (GNLJDK) ; 



/* GnlExtractLibc3States 

/* 

int LibCellWith3StatePin (Cell, OutPin) 
LIBC_CELL Cell; 
LIBC_PIN *OutPin; 

{ 

LIBC_PIN Pins; 



Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins - LibPinNext (Pins) ) 
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if (LibPin3State (Pins) 
{ 

*OutPin = Pins; 
return (1) ; 

} 

} 



return (0) ; 

} 



/* 

/* Gnl3StateCellCanBeSupported */ 

/* ic/ 

int Gnl3StateCellCanBeSupported (Cell) 
LIBC__CELL Cell; 

{ 

LIBC_PIN OutPin; 
LIB C_NAME__L 1ST ListPinName; 
LIBC_BOOL_OPR ThreeState ; 

LIBCJBOOL_OPR Function ; 



if ( !LibCellWith3StatePin (Cell, ScOutPin) ) 
return (0) ; 

ListPinName = LibPinName (OutPin) ; 
if ( IGnlSinglePinName (ListPinName)) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex pin name: [%s]\n'\ 
LibCellName(Cell) ) ; 

return (0) ; 

} 

Function = LibPinFunction (OutPin) ; 

if ( IGnlBoolOprlsSimpleFunction (Function) ) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex Input pin function: [%s]\n", 
LibCellName(Cell) ) ; 
return (0) ; 

} 

ThreeState = LibPin3State (OutPin) ; 

if ( IGnlBoolOprlsSimpleFunction (ThreeState) ) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex Enable pin function: [%s]\n M , 
LibCellName (Cell) ) ; 
return (0) ; 

} 



return (1) ; 
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/* +1 

/* GnlExtractLibc3States */ 

/* ^ 

GNL_STATUS GnlExtractLibc3States (GnlLibc, Libc3States) 
LIBC_LIB GnlLibc; 
BLIST *Libc3States ; 

{ 

LIBC_CELL Celll; 
LIBC_FF_LATCH FFLatch; 
LIBC_PIN Out Pin ; 



if (BListCreate (Libc3States) ) 
return { GNL_MEMOR Y_FULL ) ; 

Celll = LibCells (GnlLibc) ; 

for (; Celll 1= NULL; Celll = LibCellNext (Celll)) 
{ 

/* If sequential cell or cell not to use */ 
if (LibCellFFLatch (Celll) | | LibCellDontUse (Celll) ) 
continue; 

/* if cell with no 3 state pins then we continue. */ 
if ( ILibCellWith3StatePin (Celll, &OutPin) ) 
continue; 

if { )Gnl3StateCellCanBeSupported (Celll)) 
continue; 

if (BListAddElt ( *Libc3States , (int) Celll)) 
return { GNL_MEMORY_FULL ) ; 

} 

return (GNL_OK) ; 



/* GnlExtractGnl3States */ 

GNL_S TATUS GnlExtractGnl3States (Gnl, Gnl3States) 
GNL Gnl ; 

BLIST *Gnl3States; 

{ 

BLIST Components; 
int j ; 

GNL_COMPONENT Component J; 

GNL_SEQUENTIAL_COMPONENT SeqCompoJ; 



if (BListCreate (Gnl3States) ) 
return (GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) 
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if ( i Components) 
return (GNL_OK) ; 

for (j=0; j<BListSize (Components); j++) 
{ 

Component J = (GNL_COMPONENT) BListElt (Components, j); 
if (Gnl Component Type (Component J) != GNL_TR1STATE_C0MP0) 
continue; 

if (BListAddElt ( *Gnl3States , (int) Component J) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 



/* *i 

/* CmpLibcCellTriStateAreaPinMatch */ 
/* *i 

/* Compare ' celll* vs. '06112' by taking into account feature of the */ 
/* current tristate component ' G_Current3StateComponent ' . The ordering */ 
/* is done in priority to take care about the polarity of the pin of */ 
/* 'G_Current3StateComponent 1 which is 'select'. */ 
/* The LIBC_CELL matching is the one with the correct the polarity in */ 
/* priority. */ 

/* it/ 

static GNL_TRISTATE_C0MP0NENT G_Current3StateComponent ; 

static int CmpLibcCellTriStateAreaPinMatch (Celll, Cell2) 
LIBC_CELL *Celll; 
LIBC_CELL *Cell2; 

{ 

LIBC_PIN OutPinl; 
LIBC_PIN 0utPin2 ; 

LIBC_B00L_0PR Functionl ; 

LIBC_B00L_0PR Function2 ; 



if ( !LibCellWith3StatePin (*Celll / &0utPinl) ) 

return (-1) ; /* should never happened ! */ 

if ( !LibCellWith3StatePin {*Cell2 7 &OutPin2) ) 

return (-1) ; /* should never happened ! */ 

Functionl = LibPinFunction (OutPinl) ; 
Function2 = LibPinFunction (0utPin2) ; 

if (GnlTriStateSelectPol (G_Current3StateComponent ) == 1) 

if (GnlBoolOprlsSimpleSignal (LibPin3State (OutPinl) ) && 
!GnlBoolOprIsSimpleSignal (LibPin3State (0utPin2) ) ) 
return (1) ; 

if ( ! GnlBoolOprlsSimpleSignal (LibPin3State (OutPinl)) && 
GnlBoolOprlsSimpleSignal (LibPin3State (0utPin2) ) ) 
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return ( -1) ; 

} 

else 

{ 

if (GnlBoolOprlsSimpleSignal (LibPin3State (OutPinl) } 
JGnlBoolOprlsSimpleSignal (LibPin3State (OutPin2) ) ) 
return (-1) ,- 

if (JGnlBoolOprlsSimpleSignal (LibPin3State (OutPinl)) && 
GnlBoolOprlsSimpleSignal (LibPin3State (OutPin2) ) ) 
return (1) ; 

} 

if (GnlTriStatelnputPol (G_Current3StateComponent) == 1) 

{ 

if (GnlBoolOprlsSimpleSignal (Functionl) && 
JGnlBoolOprlsSimpleSignal (Function2) ) 
return (-1) ; 
if (IGnlBoolOprlsSimpleSignal (Functionl) && 
GnlBoolOprlsSimpleSignal (Function2) ) 
return (1) ; 

} 

else 

{ 

if (GnlBoolOprlsSimpleSignal (Functionl) && 
JGnlBoolOprlsSimpleSignal (Function2) ) 
return (1) ; 

if (JGnlBoolOprlsSimpleSignal (Functionl) && 
GnlBoolOprlsSimpleSignal (Function2) ) 
return ( -1) ; 

} 

/* Everything is ok regarding the polarity of the pins so we decide */ 
/* with the area. */ 
/* We privilegiate the minimum area */ 
if (LibCellArea (*Celll) < LibCellArea (*Cell2) ) 
return (-1) ; 

if (LibCellArea (*Celll) == LibCellArea (*Cell2 ) ) 
return (0) ; 

return (1) ,* 

} 



z* *z 

/* GnlConstruct3StateLogicBoundaries */ 

/* */ 

GNL_S TATUS GnlConstruct3StateLogicBoundaries (Gnl, TriState) 
GNL Gnl ; 

GNL_TRISTATE_COMPONENT TriState; 



{ 



char *0utPut; 
LIBC_B00L_0PR Input ; 

LIBC_BOOL_OPR Enable ; 

GNL_VAR InputVar; 

GNL_VAR Enab 1 e Var ; 

GNL_VAR NewVar ; 
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GNL_NODE NewInputNode ; 

GNLJJJODE NewEnableNode ; 
GNL_FUNCT ION NewFunct ion ; 

GNL_NODE VarNode; 



OutPut = GnlTriStateCompoInfoOutput (TriState) ; 
Input = GnlTriStateCompoInfoInput (TriState) ; 
Enable = GnlTriStateCompoInf oEnable (TriState) ; 



GnlPrintBoolOpr (Input) ; 
printf ( T, \n n ); 
printf ("%s n , OutPut); 
printf ("\n"); 
GnlPrintBoolOpr (Enable) ; 
printf ("\n n ) ; 



if ( ( iGnlBoolOprlsSimpleSignal (Input) 
GnlTriStatelnputPol (TriState) ) | | 
(GnlBoolOprlsSimpleSignal (Input) 
I GnlTriStatelnputPol (TriState) ) ) 

{ 

InputVar = GnlTriStatelnput (TriState) / 

/* Creating the logic which is an inverter 

if (GnlCreateNodeForVar (Gnl, InputVar, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewInputNode) ) 

return (GNL_MEMORY_FULL) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSaraeExpression (Gnl, NewInputNode, &NewVar) ) 
{ 

SetGnlTriStatelnput (TriState, NewVar) ; 
if ( IGnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL VAR LOCAL WIRING) ; 

} - _ _ 

else 
{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (InputVar), &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY__FULL) ; 

SetGnlVarFunction (NewVar, NewFunct ion) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewInputNode) ; 

if (BListAddElt (GnlFunct ions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 
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} 



SetGnlTriStatelnput (TriState, NewVar) ; 
SetGnlVarDir (NewVar, GNL_ VAR_L O C AL_ W I R I NG ) ; 

} 

} 

/* Gnl tri state are active for the transparent phase and LIBC */ 
/* tri-states are active for the Z phase. */ 
if ( (GnlBoolOprlsSimpleSignal (Enable) && 

GnlTriStateSelectPol (TriState)) | | 

( ! GnlBoolOprlsSimpleSignal (Enable) && 
! GnlTriStateSelectPol (TriState) ) ) 

{ 

EnableVar = GnlTriStateSelect (TriState) ; 

/* Creating the logic which is an inverter *, 
if (GnlCreateNodeForVar (Gnl, EnableVar, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewEnableNode) ) 

return (GNL_MEMORY_FULL) ; 

/* Look if this expression already exists ... *, 
if (GnlLookForSameExpression (Gnl, NewEnableNode, &NewVar) ) 

{ 

SetGnlTriStateSelect (TriState, NewVar) ; 
if ( IGnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL_VAR__LOCAL_WIRING) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (EnableVar), ScNewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int)NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) / 
SetGnlFunctionOnSet (NewFunction, NewEnableNode) ; 

if (BListAddElt ( Gnl Functions (Gnl) , (int) NewVar) ) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlTriStateSelect (TriState, NewVar) / 
SetGnlVarDir (NewVar, GNL_VAR_LO C AL_W I R I NG ) ; 

} 

} 

return (GNL_OK) ; 



/* 

/* Gn 1 Map 3 S TATE 
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/* 

GNL_STATUS Gnl Map 3 STATE (Gnl, 
GNL Gnl ; 

GNL TRI STATE COMPONENT 



{ 



TriState, LibcTriState) 



TriState; 



BLIST 
int 

LIBC_CELL 
int 

GNL_STATUS 
LIBC_PIN 
LIBC_BOOL_OPR 
LIBC__BOOL_OPR 
LIB C_NAME_L I ST 
GNL TRISTATE COMPO 



LibcTriState; 
i; 

Cell; 

Match; 

GnlStatus; 
OutPin; 
Function ; 
ThreeState; 

ListPinName; 
INFO NewTriS tateCompoInf o ; 



/* We sort the list of TriState 'LibcTriState' in order to */ 
/* priotirize the polarity matching between the pin 'Select* */ 
G_Current3StateComponent = TriState; 

qsort (BListAdress (LibcTriState), BListSize (LibcTriState), 
sizeof (LIBC_CELL) , CmpLibcCellTriStateAreaPinMatch) ; 

if (BListSize (LibcTriState) 0) 

{ 

fprintf (stderr, 

" ERROR: Mapping aborted because no tri-states are available in the 
library\n") ; 

exit (1) ; 

} 

Cell = (LIBC__CELL) BListElt (LibcTriState, 0) ; 

if ( !LibCellWith3StatePin (Cell, &OutPin) ) 

return (GNL_MAP_ERROR) ; /* should never happened ! */ 

if (GnlCreateTriStateCompoInfo (&NewTriS tateCompoInf o) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlTriStateHook (TriState, NewTriS tateCompoInf o) ; 

SetGnlTriStateCompoInfoCell (TriState, Cell) ; 

ListPinName = LibPinName (OutPin) ; 
if ( IGnlSinglePinName (ListPinName) ) 

return (GNL_MAP_ERROR) ; /* should never happened ! */ 

SetGnlTriStateCompoInf oOutput (TriState , 

LibNameListName (ListPinName) ) ; 

Function - LibPinFunction (OutPin) ; 
ThreeState = LibPin3State (OutPin) ; 

SetGnlTriStateCompoInf olnput (TriState, Function) ; 
SetGnlTriStateCompoInf oEnable (TriState, ThreeState) ; 

if ((GnlStatus = GnlConstruct3StateLogicBoundaries (Gnl, TriState))) 
return (GnlStatus) ; 
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return (GNL_OK) ; 

} 



/* */ 

/* GnlMapList3States */ 

/* */ 

GNL__STATUS GnlMapList3States (Gnl, Gnl3States, Libc3States) 
GNL Gnl ; 

BLIST Gnl3States; 
BLIST Libc3States ; 



{ 



int i ; 

GNL_TRI STATE__COMPONENT TriStatei ; 

GNL_STATUS GnlStatus ; 



for (i=0; i<BListSize (Gnl3States) ; i++) 
{ 

TriStatei = (GNL_TRISTATE_COMPONENT) BListElt (Gnl3States, i) ; 
if ({GnlStatus = GnlMap3 STATE (Gnl, TriStatei, Libc3States) ) ) 
return (GnlStatus) ; 

} 

return (GNLJDK) ; 

} 



/* */ 

/* GnlMap3State */ 

/* */ 

/* This procedure maps the tri-state elements of the current 'Gnl' */ 
/* on to the elemnts LIBC of the technology library. If the mapping of */ 
/* one cell cannot be done then GNL_MAP_ERROR is returned, and GNL_OK if*/ 
/* everything is ok. */ 
/* */ 

GNL_STATUS GnlMap3State (Gnl, GnlLibc) 
GNL Gnl ; 

LIBC_LIB GnlLibc; 

{ 

BLIST Libc3States ; 
BLIST Gnl3States; 
GNL_STATUS GnlStatus ; 

GNL_LIB HGnlLib; 



HGnlLib = (GNL_LIB) LibHook (GnlLibc); 
Libc3States = GnlHLibCells3States (HGnlLib) ; 

if (GnlExtractGnl3States (Gnl, &Gnl3States) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, "\n"); 

/* 

fprintf (stderr, "# LIBC: #3-STATES = %d\n", BListSize (Libc3States) ) ; 
fprintf (stderr, »# LIBC: #3-STATES - %d\n», BListSize (Gnl3States) ) ; 
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/* We map the Gnl 3-states with the LIBC 3-states. */ 
if ( (GnlStatus = GnlMapList3States (Gnl, Gnl3States, Libc3States) ) 
return (GnlStatus) ; 



return (GNL OK) ; 



} 

/* EOF 



o 
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/* 








File: gnlmapseq.c 




/* 


Modifications: 




/* 


Documentation: 




/* 






/* 


Description: 


*/ 


/* 











#include <stdio.h> 

#ifdef MEMORY /* if one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl . h" 
#include "gnlmint .h" 
#include "bbdd.h" 
#include n libc_mem.h" 
# include "libc_api .h" 
tinclude "gnllibc . h" 
#include "gnlmap.h" 
#include "gnloption . h" 



#include "blist.e" 



/*■ 



/* EXTERN */ 



extern GNL_ENV G_GnlEnv; 
/* 

/ 

/* GnlCreateSeguentialCompoInf o */ 

/* J f 

GNL_STATUS GnlCreateSequentialCompoInf o (NewSequentialCompoInf o) 
^ GNL_SEQUENTIAL_C0MPO_INFO *NewSequent ialCompoInf o ; 

if ( (*NewSequentialCompoInfo = (GNLJSEQUENTIAL_COMPO_INFO) 

calloc (1, sizeof (GNL_SEQUENTIAL_COMPO_INFO_REC) ) ) ==NULL) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* 



/* GnlBoolOprlsSimpleSignal */ 
/* 

/* Returns 1 if the signal is simple and 0 if it is the NOT of a signal */ 
/* 'BoolOpr' is NULL. */ 

*/ 



/*■ 



int GnlBoolOprlsSimpleSignal (BoolOpr) 
LIBC_BOOL_OPR BoolOpr ; 

{ 
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if (IBoolOpr) 
return (0) ; 



if (LibBoolOprType (BoolOpr) == ID_B) 
return (1) ,- 

return (0) ; 

} 

z* *z 

/* GnlBoolOprlsSimpleFunction */ 

/* */ 

/* Either a simple signal or the NOT of a simple signal. */ 

/* */ 

int GnlBoolOprlsSimpleFunction (BoolOpr) 
LIBC_B0OL_OPR BoolOpr; 

{ 



if (GnlBoolOprlsSimpleSignal (BoolOpr) ) 
return (1) ; 

if (LibBoolOprType (BoolOpr) 1= N0T_B) 
return (0) ; 

if (GnlBoolOprlsSimpleSignal (LibBoolOprRightSon (BoolOpr) ) ) 
return (1) ; 

return (0) ; 

} 



/* *z 

/* GnlPrintBoolOpr */ 

/* */ 

void GnlPrintBoolOpr (BoolOpr) 
LIBC_BOOL_OPR BoolOpr; 

{ 

t ex t_bu f f e r * Va rName ; 



if (IBoolOpr) 
{ 

print f ("NULL"); 
return; 

} 

/* terminal bool opr. */ 
switch (LibBoolOprType (BoolOpr) ) { 

/* terminal case of a signal. */ 
case ID_B: 

VarName = LibBoolOprldName (BoolOpr) ; 

printf ("%s", VarName); 

break; 

case ZERO_B: 

printf ("l , b0 ,, ) ; 
break; 
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case ONE_B : 

print f ("1 f bl n ) ; 
break; 

/* case of binary Boolean operators */ 
case XOR_B : 

print f (» ( ") ; 

GnlPrintBoolOpr (LibBoolOprLef tSon (BoolOpr) ) ; 
printf (")"("); 

GnlPrintBoolOpr (LibBoolOprRightSon (BoolOpr) ) ; 

printf (")"); 

break; 

case OR_B: 

printf ("("); 

GnlPrintBoolOpr (LibBoolOprLef tSon (BoolOpr) ) ; 
printf (") + ("); 

GnlPrintBoolOpr (LibBoolOprRightSon (BoolOpr) ) ; 
printf (")"); 
break ; 

case AND_B: 

printf ("<"); 

GnlPrintBoolOpr (LibBoolOprLef tSon (BoolOpr) ) ; 
printf («) . (») ; 

GnlPrintBoolOpr (LibBoolOprRightSon (BoolOpr) ) ; 

printf (")"); 

break; 

case NOT_B: 

printf ("-("); 

GnlPrintBoolOpr (LibBoolOprRightSon (BoolOpr) ) ; 

printf (")"); 

break; 

default: 

f printf (stderr, 

"Operator unsupported in 'GnlPrintBoolOpr'"); 

} 

} 



z* __*/ 

/* GrtlSeqCellCanBeSupported */ 

/* */ 

/* This procedures verifies that the cell definition can be supported */ 
/* by the mapper and prints out a warning if it cannot. */ 
/* */ 



int GnlSeqCellCanBeSupported (Cell) 
LIBC_CELL Cell; 

{ 

LIBC_FF_LATCH FFLatch; 
int i ; 

LIBC_PIN Pins; 
LIBC_BOOL_OPR PinFunction; 
LIB C_NAME_L 1ST ListPinName; 
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Pins = LibCellPins (Cell) ; 

for (,-Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins) ; 

if ( IGnlSinglePinName (ListPinName) ) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex pin name: [%s]\n n , 
LibCellName (Cell) ) ; 
return (0) ; 

} 

PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

if ( IGnlBoolOprlsSimpleSignal (PinFunction)) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex output pin function: [%s] \n 

LibCellName (Cell) ) ; 
return (0) ; 

} 

} 

} 



FFLatch = LibCellFFLatch (Cell) ,- 

if (LibFFLatchPreset (FFLatch) && 

IGnlBoolOprlsSimpleFunction (LibFFLatchPreset (FFLatch))) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex Preset pin function: [%s] \n 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchClear (FFLatch) && 

IGnlBoolOprlsSimpleFunction (LibFFLatchClear (FFLatch) ) ) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex Clear pin function: [%s] \n" 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchClockOn (FFLatch) && 

IGnlBoolOprlsSimpleFunction (LibFFLatchClockOn (FFLatch) ) ) 

{ 

fprintf (stderr, 

" WARNING: cell is ignored because of complex Clock pin function: [%s] \n" 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchEnable (FFLatch) && 

IGnlBoolOprlsSimpleFunction (LibFFLatchEnable (FFLatch))) 
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{ 

fprintf (stderr, 

WARNING: cell is ignored because of complex Enable pin function: [%s]\n M 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchNextState (FFLatch) && 

IGnlBoolOprlsSimpleSignal (LibFFLatchNextState (FFLatch))) 

{ 

fprintf (stderr, 

WARNING: cell is ignored because of complex next state function: [%s]\n n 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchDataln (FFLatch) && 

IGnlBoolOprlsSimpleSignal (LibFFLatchDataln (FFLatch))) 

{ 

fprintf (stderr, 

WARNING: cell is ignored because of complex data in function: [%s]\n" , 
LibCellName (Cell) ) ; 
return (0) ; 

} 

if (LibFFLatchWidth (FFLatch) > 1) 
{ 

if (LibFFLatchlsFF (FFLatch) ) 
fprintf (stderr, 

" WARNING: bank of FFs of cell is ignored: [%s] \n M , 
LibCellName (Cell) ) ; 

else 

fprintf (stderr, 

" WARNING: bank of Latches of cell is ignored: [%s]\n ,r , 
LibCellName (Cell) ) ; 

return (0) ; 

} 



} 



/* */ 

/* GnlExtractLibcSequential */ 

/* *i 

/* This procedure extracts from the technology library •GnlLibc' the */ 
/* lists of Flip-Flops and Latches and stores them in 'LibcDffs 1 and in */ 
/* 'LibcLatches 1 . */ 

/* */ 

GNL_S T AT US GnlExtractLibcSequential (GnlLibc, LibcDffs, LibcLatches) 

LIBC_LIB GnlLibc; 

BLIST *LibcDffs; 

BLIST *LibcLatches ; 

{ 

LIBC_CELL Cell I; 

LIBC FF LATCH FFLatch; 



if (BListCreate (LibcDffs)) 
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return { GNL_MEMORY_FULL ) ; 

if (BListCreate (LibcLatches) ) 
return ( GNL_MEMORY_FULL ) ; 

Celll = LibCells (GnlLibc) ; 

for (; Celll 1= NULL; Celll = LibCellNext (Celll)) 
{ 

/* If not a sequential cell or cell not to use */ 
if ( ILibCellFFLatch (Celll) || LibCellDontUse (Celll)) 
continue; 

/* If the cell can be supported by the mapping phase we add it */ 
/* in the list. */ 
if (GnlSeqCellCanBeSupported (Celll) ) 

{ 

FFLatch = LibCellFFLatch (Celll) ; 
if (LibFFLatchlsFF (FFLatch) ) 
{ 

if (BListAddElt (*LibcDffs, (int) Celll)) 
return ( GNL_MEMOR Y__FULL ) ; 

} 

else 
{ 

if (BListAddElt (*LibcLatches, (int)Celll)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

return ( GNL_OK) ; 



/* 

/* GnlExtractGnlSequential * 

/* : 

GNL_STATUS GnlExtractGnlSequential (Gnl, GnlDffs, GnlLatches) 
GNL Gnl ; 

BLIST *GnlDffs; 
BLIST *GnlLatches ; 

{ 

BLIST Components ; 

int j ; 

GNL_COMPONENT Component J ; 

GNL__S E QUENT I AL_COMPONENT SeqCompo J ; 



if (BListCreate (GnlDf f s) ) 
return (GNL_MEMORY__FULL) ; 

if (BListCreate (GnlLatches)) 
return (GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) ; 
if ( ! Component s ) 
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return (GNL_OK) ; 

for (j=0; j<BListSize (Components); j++) 
{ 

Component J - (GNL_COMPONENT) BListElt (Components, j); 
if (GnlComponentType (Component J) != GNL_S E QUENT I AL_COM PO ) 
continue ; 

SeqCompoJ = ( GNLJSEQUENT I AL_C0MP0NENT) Component J ; 

/* If the component is a DFF flip-flop */ 
if (GnlSeqComponentlsDFF (SeqCompoJ) ) 

{ 

if (BListAddElt {*GnlDffs, (int) SeqCompoJ) ) 

return { GNL_MEMORY_FULL ) ; 
continue; 

} 

/* If the component is a LATCh latch */ 
if (GnlSeqComponentlsLATCH (SeqCompoJ) ) 

{ 

if (BListAddElt ( *GnlLatches , (int) SeqCompoJ) ) 

return (GNL_MEMORY_FULL) ; 
continue ; 

} 

fprintf (stderr, " WARNING: unknown sequential element\n"); 

} 

return (GNL_0K) ; 

} 

/* */ 

/* GnlGetGnlNodeFromBoolOprWithSubstitute */ 
/* */ 

/* This procedure returns the GNL_N0DE expression thru ' GnlNode ' of the */ 
/* original tree expression of type LIBC_BO0L_0PR generated in the LIBC */ 
/* parsing. Indexsignal, buses are not considered and we exit(l). */ 
/* The GNL_NODE objects are created in the memory segment of 'LibGnl'. */ 
/* Each leaf of BOOL_OPR is replaced by 1 LeafGnlVar ' . */ 
/* */ 

GNL_STATUS GnlGetGnlNodeFromBoolOprWithSubstitute (LibGnl, LeafGnlVar, 

BoolOpr, GnlNode) 

GNL LibGnl; 
GNL_VAR LeafGnlVar; 
LIB C_B00L_0 PR Boo 1 Opr ; 

GNL_N0DE *GnlNode; 

{ 

text_buf f er *VarName ; 

GNL_STATUS GnlStatus ; 

GNL_VAR GnlVar; 
GNL_N0DE GnlNodeLef t ; 

GNL_NODE GnlNodeRight ; 

BLIST NewList; 

/* terminal bool opr. */ 
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switch (LibBoolOprType (BoolOpr) ) { 

/* terminal case of a signal. */ 
case ID_B: 

/* we do the substitution. */ 
if (GnlCreateNodeForVar (LibGnl, LeafGnlVar, GnlNode) ) 

return ( GNL _MEMORY_FULL ) ; 
break; 



case ZEROJB: 

if (GnlCreateNodeVss (LibGnl, GnlNode)) 

return { GNL__MEMORY_FULL ) ; 
break; 



case ONE_B: 

if (GnlCreateNodeVdd (LibGnl, GnlNode)) 

return (GNL_MEMORY_FULL) ; 
break; 



/* case of binary Boolean operators */ 
case XOR_B: 
case OR_B: 
case AND_B: 

if ( (GnlStatus = GnlGetGnlNodeFromBoolOprWi thSubstitute ( 

LibGnl, 
LeafGnlVar, 

LibBoolOprLef tSon (BoolOpr) , 
&GnlNodeLeft) ) ) 

return (GnlStatus) ; 
if ( (GnlStatus = GnlGetGnlNodeFromBoolOprWithSubstitute ( 

LibGnl , 
LeafGnlVar, 

LibBoolOprRightSon (BoolOpr) , 
&GnlNodeRight) ) ) 

return (GnlStatus) ; 

if (LibBoolOprType (BoolOpr) XOR B) 
{ 

if (GnlCreateNodeXor (LibGnl, GnlNodeLeft, GnlNodeRight , 

GnlNode, 0)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (BListCreateWithSize (2, &NewList)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) GnlNodeLeft) ) 

return { GNL_MEMORY_FULL ) ; 
if (BListAddElt (NewList, (int ) GnlNodeRight ) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (LibGnl, 

GnlOpFromBoolOprOp (LibBoolOprType (BoolOpr) ) , 

GnlNode) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*GnlNode, NewList); 
break; 
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/* Unary Boolean operators. It son is the right one */ 
case NOT_B: 

if ( (GnlStatus = GnlGetGnlNodeFromBoolOprWithSubstitute ( 

LibGnl, 
LeafGnlVar, 

LibBoolOprRightSon (BoolOpr) , 
&GnlNodeRight) ) ) 

return (GnlStatus) ; 
if (GnlCreateNodeNot (LibGnl, GnlNodeRight , GnlNode) ) 

return ( GNL_MEMORY_FULL) ; 
break; 

default : 

fprintf (stderr, 

"Operator unsupported in ' GnlGetGnlNodeFromBoolOprWithSubstitute 1 " ) ; 
return (GNL_MAP_ERROR) ; 

} 

return (GNL_OK) ; 



/* 

/* GnlLookForSameExpression 

/* 

int GnlLookForSameExpression (Gnl, Node, NewVar) 
GNL Gnl ; 

GNL_NODE Node ; 

GNL VAR *NewVar; 



{ 



} 



int i ; 

GNL__VAR Varl; 
GNL_FUNCTION FunctionI ; 



for (i=BListSize (GnlFunctions (Gnl))-1; i>=0; i--) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (GnlEqualNode (Node, GnlFunctionOnSet (FunctionI))) 

{ 

*NewVar = Varl ; 
return (1) ; 

} 

} 

return (0) ; 



/* */ 

/* GnlConstructDf f LogicBoundaries */ 

/* */ 

/* This procedure creates extra logic in the current Gnl by adding new */ 

/* variables and functions in it. Functions are added if the polarities */ 

/* are mis -matching between the LIB_CELL and its corresponding library */ 

/* cell LIBC_CELL. Pins on which this can ocuur are the Set, Reset and */ 
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/* clock signals. */ 
/* 

GNL_STATUS GnlConstructDf f LogicBoundaries (Gnl, Dff) 
GNL Gnl ; 

GNL_SEQUENTI AL_COMPONENT Df f ; 

{ 

LIBC_BOOL_OPR Input / 
char *Output ; 

LIBCJBOOLJDPR Clock; 
LIBC_BOOL_OPR Clear; 



LIBC BOOL OPR 


Preset; 


GNL_ 


_STATUS 


GnlStatus; 


gnl] 


_VAR 


ClearVar ; 


GNL_ 


_NODE 


NewClearNode ; 


GNL_ 


~VAR 


PresetVar; 


GNL_ 


"node 


NewPresetNode ; 


GNL_ 


_VAR 


ClockVar; 


gnl] 


_NODE 


NewClockNode ; 


gnl] 


_VAR 


NewVar ; 


gnl] 


_FUNCTION 


NewFunctio 


gnl" 


"node 


NotNewClockNode ; 


gnl" 


~VAR 


VddVar; 


gnl_ 


_NODE 


VarNode ; 


GNL_ 


_VAR 


OutputVar ; 


gnl] 


"node 


NewOutNode ; 



Input = GnlSeqCompoInfoInput (Dff) ; 
Output = GnlSeqCompoInfoOutput (Dff) ; 
Clock = GnlSeqCompoInfoClock (Dff) ; 
Clear = GnlSeqCompoInf oReset (Dff) ; 
Preset - GnlSeqCompoInf oSet (Dff) ; 



GnlPrintBoolOpr (Input) ; 
printf ("\n"); 
printf {"%s" , Output); 
printf ("\n"); 
GnlPrintBoolOpr (Clock) ; 
printf ("\n"); 
GnlPrintBoolOpr (Clear) ; 
printf ("\n"); 
GnlPrintBoolOpr (Preset) 
printf ( M \n"); 



/* The sequential element selected in the library has only a QBAR 
/* pin so we need to create an inverter in front. */ 
if (GnlSequentialCompoFormOutput (Dff) == GNL_QBAR) 

{ 

OutputVar = GnlSequentialCompoOutput (Dff) ; 

if (GnlCreateUniqueVar (Gnl, GnlVarName (OutputVar), &NewVar) ) 
return (GNL_MEMORY_FULL) ; 
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/* The ouput var becomes to be a local. */ 
if ( IBListMemberOf List (GnlLocals (Gnl) , OutputVar, Int Identical) ) 
{ 

if (BListAddElt (GnlLocals (Gnl) , (int) NewVar ) ) 

return ( GNL__MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

} 

SetGnlSequentialCompoOutput (Dff, NULL) ; 

SetGnlSequentialCompoOutputBar (Dff , NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WI RING ) ; 

/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, NewVar, &VarNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewOutNode) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlVarFunction (OutputVar) ) 

{ 

f print f (stderr , 

" ERROR: multi-source on signal <%s> during Flip-Flop logic f racturing . \n" , 

GnlVarName (OutputVar) ) ; 

exit (1); 



if (GnlFunctionCreate (Gnl, OutputVar, NULL, &NewFunction) ) 
return (GNL__MEMORY_FULL) ; 

SetGnlVarFunction (OutputVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, OutputVar) ; 
SetGnlFunctionOnSet (NewFunction, NewOutNode) ; 

if (BListAddElt ( Gnl Functions (Gnl ) , (int ) OutputVar) ) 
return (GNL_MEMORY_FULL) ; 

} 

/* We need to create extra logic for the 'Clear' */ 

/* because clear of LIBC_CELL and LIB_CELL have opposite polarities */ 

if (Clear && 

( ( IGnlBoolOprlsSimpleSignal (Clear) && 

(GnlSequentialCompoResetPol (Dff) ==1)) || 
(GnlBoolOprlsSimpleSignal (Clear) 
(GnlSequentialCompoResetPol (Dff) == 0)))) 

{ 

ClearVar = GnlSequentialCompoReset (Dff) ; 

/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, ClearVar, &VarNode) ) 

return (GNL_MEMORY__FULL) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewClearNode) ) 

return ( GNL_MEMORY_FULL ) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSameExpression (Gnl, NewClearNode, &NewVar) ) 
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{ 

SetGnlSequentialCompoReset (Dff, NewVar) ; 
if ( ! GnlVarlsPrimary (NewVar) ) 

SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (ClearVar) , &NewVar) ) 

return ( GNL JMEMORY_FULL ) ; 
if (BListAddElt (GnlLocals (Gnl) , (int)NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewClearNode) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoReset (Dff, NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

} 



/* We need to create extra logic for the 'Preset' */ 

/* because Set of LIBC_CELL and LIB_CELL have opposite polarities */ 

if (Preset && 

( ( IGnlBoolOprlsSimpleSignal (Preset) 

(GnlSequentialCompoSetPol (Dff) ==1)) || 
(GnlBoolOprlsSimpleSignal (Preset) && 
(GnlSequentialCompoSetPol (Dff) 0)))) 

{ 

PresetVar = GnlSequentialCompoSet (Dff) ; 

/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, PresetVar, &VarNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewPresetNode) ) 

return (GNL_MEMORY_FULL) ; 

/* Look if this expression already exists ... */ 

if (GnlLookForSameExpression (Gnl, NewPresetNode, &NewVar) ) 

{ 

SetGnlSequentialCompoSet (Dff, NewVar) ; 
if (! GnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING ) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (PresetVar), &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl ) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 
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SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, ScNewFunction) ) 
return ( GNL_MEMOR Y__FULL ) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewPresetNode) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlSequentialCompoSet (Dff , NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR LOCAL WIRING) ; 

} 

} 

/* We need to create extra logic for the 'Clock'. */ 
/* This is the case if the LIB_CELL and LIBC_CELL have different 
/* clock polarities. */ 
if ( ( IGnlBoolOprlsSimpleSignal (Clock) && 

(GnlSequentialCompoClockPol (Dff) == 1) ) | | 
(GnlBoolOprlsSimpleSignal (Clock) && 

(GnlSequentialCompoClockPol (Dff) == 0))) 

{ 

ClockVar = GnlSequentialCorapoClock (Dff) ; 

fprintf (stderr, 

" WARNING: creating gated clock for Flip-Flop <%s>\n" / 
GnlSequentialCompoInstName (Dff) ) ; 
/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, ClockVar, &VarNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewClockNode) ) 
return ( GNL__MEMORY_FULL ) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSameExpression (Gnl, NewClockNode , &NewVar) ) 

{ 

SetGnlSequentialCompoClock (Dff, NewVar) ; 
if ( IGnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL VAR LOCAL WIRING) ; 

} 

else 
{ 

if (GnlCreateUniqueVar (Gnl, GnlVarNaxne (ClockVar), &NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, ScNewFunction)) 
return (GNL_MEMORY_FULL) / 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewClockNode) ; 
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if (BListAddElt (Gnl Functions (Gnl ) , ( int ) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoClock (Dff , NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR__LOCAL_WIRING) ; 

} 



return (GNL__OK) ; 

} 

/* 

/* GnlUpdateSequentialFormOutput */ 

/* 

/* We analyze the accociated tech. cell ' FFLatch' to see if it has 
/* a Q and QBAR, or only Q, or only QBAR outputs. */ 
/* 

void GnlUpdateSequentialFormOutput (SeqCompo, Cell) 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

LIBC__CELL Cell; 



{ 



int Out Form ; 

LIBC_PIN Pins; 

LIBC_BOOL_OPR PinFunction; 

char *IQ; 

char *IQN; 



Out Form = 0; 

IQ = LibFFLatchQName (LibCellFFLatch (Cell) ) ; 
IQN = LibFFLatchQNName (LibCellFFLatch (Cell) ) ; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

if (GnlNamelsPresent { IQN, PinFunction)) 

Out Form += 2; 
else if (GnlNamelsPresent (IQ, PinFunction) ) 

Out Form += 1; 

} 

} 

switch (OutForm) { 
case 1: 

SetGnlSequentialCompoFormOutput (SeqCompo, GNL_Q) ; 
break; 

case 2 : 

SetGnl Sequent ialCompoFormOutput (SeqCompo, GNL_QBAR) ; 
break; 
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case 3 : 

SetGnlSequentialCompoFormOutput (SeqCompo, GNL_Q_QBAR) ; 
break; 

default : 

fprintf (stderr, 

" ERROR: Mapit cannot map on sequential element <%s> because it has no IQ and 
IQN pins declared\n", 

LibCellName (Cell)); 

exit (1); 

} 

} 



/* A/ 

/* GnlMatchDFF */ 

/*_ 1e/ 

/* This procedure verifies if LIBC cell •Cell' can realize the Gnl flip */ 
/* flop 'Dff 1 . We consider only the Q outputs (and not QN output) of the*/ 
/* cell 'Cell ' . */ 
/* ie/ 

GNL_STATUS GnlMatchDFF (Gnl, Dff, Cell, Match) 
GNL Gnl ; 

GNL__S E QUENT I AL_COMPONENT Df f ; 

LIBC_CELL Cell; 
int *Match; 

{ 

LIBC_FF_LATCH FFLatch; 

GNL_SEQUENTIAL_COMPO_INFO NewSequentialCompoInf o ; 
GNL_STATUS GnlStatus ; 



*Match = 0; 

FFLatch = LibCellFFLatch (Cell) ; 

/* If FF with reset ... */ 
if (GnlSequentialCompoReset (Dff) && 

IGnlVarlsVss (GnlSequentialCompoReset (Dff) ) ) 
/* If the Cell has no Clear then it is not powerfull enough. */ 
if ( !LibFFLatchClear (FFLatch)) 
return (GNL_OK) ; 

/* If FF with Set ... */ 
if (GnlSequentialCompoSet (Dff) && 

IGnlVarlsVss (GnlSequentialCompoSet (Dff) ) ) 
/* If the Cell has no Preset then it is not powerfull enough. */ 
if ( ILibFFLatchPreset (FFLatch) ) 
return (GNL_0K) ; 

/* No clock definition ... cannot be used for a Dff. */ 
if ( ILibFFLatchClockOn (FFLatch)) 
return (GNL_OK) ; 

/* If we have both reset and set we verify that the FF value when */ 
/* both are active corresponds to the one in r LibFFLatchClPrVarl ' */ 
if (GnlSequentialCompoReset (Dff) && 

IGnlVarlsVss (GnlSequentialCompoReset (Dff)) && 

GnlSequentialCompoSet (Dff) && 
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IGnlVarlsVss (GnlSequentialCompoSet (Df f ) ) ) 

{ 

switch (GnlSequentialCompoOp (Dff ) ) { 
case GNL_DFF: 

fprintf (stderr, 

" WARNING: use of a *dff ! component using set and reset pins\n"; 

fprintf (stderr, 
" consider it as a ! dffx' component \n " ) ; 

case GNL_DFFX: 

/* we expect everything except 'L' and *H' as value */ 
if ( (LibFFLatchClPrVarl (FFLatch) == ' L 1 ) || 
(LibFFLatchClPrVarl (FFLatch) == »H')) 
return (GNL_OK) ; 
break; 

case GNL_DFFO: 

/* we expect 1 L' . */ 
if (LibFFLatchClPrVarl (FFLatch) 1= T L ' ) 

return (GNL_OK) ; 
break ; 

case GNL_DFF1: 

/* we expect 'H' . */ 
if (LibFFLatchClPrVarl (FFLatch) != ( H') 

return (GNL_0K) ; 
break; 

} 

} 

/* so we found a sequential element on which we can realize the Dff 
if (GnlCreateSequentialCompoInfo (&NewSequentialCompoInf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlSequentialCompoHook (Dff , NewSequentialCompoInf o) ; 

SetGnlSeqCompoInfoCell (Dff, Cell) ; 

SetGnlSeqCompoInfoInput (Dff, LibFFLatchNextState (FFLatch)) ; 
SetGnlSeqCompoInfoOutput (Dff, LibFFLatchQName (FFLatch)) ; 
SetGnlSeqCompoInfoClock (Dff, LibFFLatchClockOn (FFLatch)) ; 

/* If FF with reset ... */ 
if (GnlSequentialCompoReset (Dff) && 

IGnlVarlsVss (GnlSequentialCompoReset (Dff) ) ) 

{ 

SetGnlSeqCompoInfoReset (Dff, LibFFLatchClear (FFLatch)); 

} 

/* If FF with Set ... */ 
if (GnlSequentialCompoSet (Dff) && 

IGnlVarlsVss (GnlSequentialCompoSet (Dff) ) ) 

{ 

SetGnlSeqCompoInfoSet (Dff, LibFFLatchPreset (FFLatch)) ; 

} 

/* We analyze the accociated tech. cell 'FFLatch' to see if it has 
/* a Q and QBAR, or only Q, or only QBAR outputs. */ 
GnlUpdateSequentialFormOutput (Dff, Cell) ; 
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if ( (GnlStatus = Gnl Cons true tDf f LogicBoundaries (Gnl, Df f ) ) ) 
return (GnlStatus) ; 

*Match = 1; 

return (GNL OK) ; 



/ 

/* GnlConstructLatchLogicBoundaries */ 

/* icj 

/* This procedure creates extra logic in the current Gnl by adding new */ 
/* variables and functions in it. Functions are added if the polarities */ 
/* are mis -matching between the LIB_CELL and its corresponding library */ 
/* cell LIBC_CELL. Pins on which this can ocuur are the Set, Reset and */ 
/* clock signals. */ 
/* +i 

GNL_STATUS GnlConstructLatchLogicBoundaries (Gnl, Latch) 



GNL 


Gnl; 


GNL_S E QUENT I AL_ 


_COMPONENT La t ch ; 


LIBC_BOOL__OPR 


Input; 


char 


*Output ; 


LIBC_B00L_0PR 


Clock; 


LIBC_BOOL_OPR 


Clear; 


LIBC_B00L_0PR 


Preset; 


GNL_STATUS 


GnlStatus; 


GNL_VAR 


ClearVar; 


GNL_N0DE 


NewClearNode ; 


GNL_VAR 


PresetVar; 


GNL_NODE 


NewPresetNode ; 


GNL_VAR 


ClockVar; 


GNL_NODE 


NewClockNode ; 


GNL_VAR 


NewVar ; 


GNL__FUNCT I ON 


NewFunction; 


GNL_NODE 


NotNewClockNode ; 


GNL_VAR 


VddVar ; 


GNL_NODE 


VarNode; 


GNL__VAR 


OutputVar; 


GNL_NODE 


NewOutNode ; 



Input = GnlSeqCompoInf olnput (Latch) ; 
Output = GnlSeqCompoInfoOutput (Latch) ; 
Clock = GnlSeqCompoInf oClock (Latch) ; 
Clear = GnlSeqCompoInf oReset (Latch) ; 
Preset = GnlSeqCompoInf oSet (Latch) ; 



GnlPrintBoolOpr (Input) ; 
print f ( n \n n ); 
printf ("%s n 7 Output); 
printf ("\n") ; 
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GnlPrintBoolOpr (Clock) ; 
printf ("\n"); 
GnlPrintBoolOpr (Clear) ; 
printf ( ?, \n") ; 
GnlPrintBoolOpr (Preset) ; 
printf ("\n H ) ; 



/* The sequential element selected in the library has only a QBAR */ 
/* pin so we need to create an inverter in front. */ 
if (GnlSequentialCompoFormOutput (Latch) == GNL QBAR) 

{ 

OutputVar = GnlSequentialCompoOutput (Latch) ; 

if (GnlCreateUniqueVar (Gnl, GnlVarName (OutputVar), &NewVar) ) 
return (GNL_MEMORY_FULL) ; 

/* The ouput var becomes to be a local. */ 
if { IBListMemberOfList (GnlLocals (Gnl) , OutputVar, Intldentical) ) 
{ 

if (BListAddElt (GnlLocals (Gnl ) , ( int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

} 

SetGnlSequentialCompoOutput (Latch, MULL) ; 

SetGnlSequentialCompoOutputBar (Latch, NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_W I R ING ) ; 

/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, NewVar, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewOutNode) ) 

return (GNL_MEMORY__FULL) ; 

if (GnlVarFunction (OutputVar) ) 

{ 

f printf (stderr, 

" ERROR: multi-source on signal <%s> during Latch logic f racturing . \n" , 

GnlVarName (OutputVar) ) / 

exit (l) ; 

} 

if (GnlFunctionCreate (Gnl, OutputVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (OutputVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, OutputVar) ; 
SetGnlFunctionOnSet (NewFunction, NewOutNode) ; 

if (BListAddElt (GnlFunctions (Gnl ) , (int ) OutputVar) ) 
return (GNL__MEMORY_FULL) ; 

} 

/* We need to create extra logic for the 'Clear' */ 
/* because clear of LIBC_CELL and LIB__CELL have opposite polarities */ 
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if (Clear && 

( ( I GnlBoolOprlsSimpleSignal (Clear) && 

(GnlSequentialCompoResetPol (Latch) ==1)) || 
(GnlBoolOprlsSimpleSignal (Clear) && 
(GnlSequentialCompoResetPol (Latch) == 0)))) 

{ 

ClearVar - GnlSequentialCompoReset (Latch) ; 

/* Creating the logic which is an inverter 

if (GnlCreateNodeForVar (Gnl, ClearVar, &VarNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, VarNode, ^NewClearNode) ) 

return ( GNL_MEMORY_FULL ) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSameExpression (Gnl, NewClearNode, &NewVar) ) 

{ 

SetGnlSequentialCompoReset (Latch, NewVar) ; 
if ( IGnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (ClearVar), &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewClearNode) ; 

if (BListAddElt ( Gnl Functions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoReset (Latch, NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

} 



/* We need to create extra logic for the 'Preset' 

/* because Set of LIBC_CELL and LIB_CELL have opposite polarities 
if (Preset && 

( ( IGnlBoolOprlsSimpleSignal (Preset) && 

(GnlSequentialCompoSetPol (Latch) « 1) ) || 
(GnlBoolOprlsSimpleSignal (Preset) && 
(GnlSequentialCompoSetPol (Latch) == 0)))) 

{ 

PresetVar = GnlSequentialCompoSet (Latch) ; 

/* Creating the logic which is an inverter 
if (GnlCreateNodeForVar (Gnl, PresetVar, &VarNode) ) 
return (GNL_MEMORY_FULL) ; 
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if (GnlCreateNodeNot (Gnl, VarNode, ^NewPresetNode) ) 
return ( GNL_MEMOR Y_FULL) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSameExpression (Gnl, NewPresetNode , &NewVar) ) 

{ 

SetGnlSequentialCompoSet (Latch, NewVar) ,- 
if ( IGnlVarlsPrimary (NewVar)) 

SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (PresetVar) , ScNewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) / 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewPresetNode) ; 

if (BListAddElt (GnlFunct ions (Gnl) , ( int ) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoSet (Latch, NewVar) ,* 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_W I R ING ) ; 

} 

} 

/* We need to create extra logic for the 'Clock 1 . */ 
/* This is the case if the LIB_CELL and LIBC_CELL have different */ 
/* clock polarities. */ 
if ( ( IGnlBoolOprlsSimpleSignal (Clock) 

(GnlSequentialCompoClockPol (Latch) =- 1) ) | | 
(GnlBoolOprlsSimpleSignal (Clock) 

(GnlSequentialCompoClockPol (Latch) == 0))) 

{ 

ClockVar = GnlSequentialCompoClock (Latch) ; 

f print f (stderr, 

n WARNING: creating gated clock for Latch <%s>\n", 
GnlSequentialCompoInstName (Latch) ) ; 
/* Creating the logic which is an inverter */ 
if (GnlCreateNodeForVar (Gnl, ClockVar, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &NewClockNode) ) 
return (GNL_MEMORY_FULL) ; 

/* Look if this expression already exists ... */ 
if (GnlLookForSameExpression (Gnl, NewClockNode , &NewVar) ) 

{ 

SetGnlSequentialCompoClock (Latch, NewVar) ; 
if ( IGnlVar Is Primary (NewVar) ) 
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SetGnlVarDir (NewVar, GNL_VAR_LO CAL_W I R I NG ) ; 

} 

else 

{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (ClockVar) , &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if {BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, ^NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
SetGnlFunctionOnSet (NewFunction, NewClockNode) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoClock (Latch, NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL WIRING) ; 

} 



return (GNL_OK) ; 

} 

/* + i 

/* GnlMatchLATCH */ 

/* */ 

/* This procedure verifies if LIBC cell 'Cell' can realize the Gnl Latch*/ 
/* 'Latch'. We consider only the Q outputs (and not QN output) of the */ 
/* cell 'Cell' . */ 
/* 

GNL_STATUS GnlMatchLATCH (Gnl, Latch, Cell, Match) 
GNL Gnl ; 

GNL_SEQUENTIAL_COMPONENT Latch / 

LIBC_CELL Cell; 
int *Match; 



{ 



LIB C_F F_L ATCH FFLatch; 

GNL_S EQUENT I AL_COMPO_I NFO NewSequential Compo I n f o ; 
GNL_STATUS GnlStatus ; 



*Match = 0; 

FFLatch = LibCellFFLatch (Cell) ; 

/* If Latch with reset ... */ 
if (GnlSequentialCompoReset (Latch) && 

IGnlVarlsVss (GnlSequentialCompoReset (Latch) ) ) 
/* If the Cell has no Clear then it is not powerfull enough, 
if ( ILibFFLatchClear (FFLatch)) 
return (GNL OK) ; 
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/* If Latch with Set ... */ 
if (GnlSequentialCompoSet (Latch) && 

'GnlVarlsVss (Gnl Sequent ialCompoSet (Latch) ) ) 
/* If the Cell has no Preset then it is not powerfull enough. */ 
if ( ILibFFLatchPreset (FFLatch) ) 
return (GNL_OK) ; 

/* If we have both reset and set we verify that the LATCH value when */ 
/* both are active corresponds to the one in ' LibFFLatchClPrVarl ' */ 
if (GnlSequentialCompoReset (Latch) && 

IGnlVarlsVss (GnlSequentialCompoReset (Latch)) 

GnlSequentialCompoSet (Latch) && 

IGnlVarlsVss (GnlSequentialCompoSet (Latch) ) ) 

{ 

switch (GnlSequentialCompoOp (Latch) ) { 
case GNL_LATCH: 

f print f (stderr, 

" WARNING: use of a 'latch' component using set and reset pins\n") 

fprintf (stderr, 
" consider it as a 'latchx' component\n") ; 

case GNL_LATCHX: 

/* we expect everything except '0' and '1' as value */ 
if ((LibFFLatchClPrVarl (FFLatch) == «L') || 
(LibFFLatchClPrVarl (FFLatch) ■H')) 
return (GNL_OK) ; 
break; 

case GNL_LATCH0: 

/* we expect 1 L * . 

if (LibFFLatchClPrVarl (FFLatch) 1 

return (GNL_0K) ; 
break; 

case GNL_LATCH1: 

/* we expect ' H' . */ 
if (LibFFLatchClPrVarl (FFLatch) != • H 1 ) 

return (GNL_OK) ; 
break; 

} 

} 

/* so we found a sequential element on which we can realize the Latch*/ 
if (GnlCreateSequentialCompoInf o ( &NewSequentialCompoInf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlSequentialCompoHook (Latch, NewSequentialCompoInf o) ; 

SetGnlSeqCompoInfoCell (Latch, Cell) ; 

SetGnlSeqCompoInf olnput (Latch, LibFFLatchDataln (FFLatch) ) ; 
SetGnlSeqCompoInf oOutput (Latch, LibFFLatchQName (FFLatch) ) ; 

/* The clock of the latch is actually the enable pin of the LIBC cell */ 
SetGnlSeqCompoInf oClock (Latch, LibFFLatchEnable (FFLatch)) ; 

/* If Latch with reset ... */ 
if (GnlSequentialCompoReset (Latch) && 



= 'L») 
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} 



IGnlVarlsVss (GnlSequentialCompoReset (Latch) ) ) 

{ 

SetGnlSeqCompoInfoReset (Latch, LibFFLatchClear (FFLatch) ) ; 

} 

/* If Latch with Set ... */ 
if (GnlSequentialCompoSet (Latch) && 

•GnlVarlsVss (GnlSequentialCompoSet (Latch) ) ) 

{ 

SetGnlSeqCompoInfoSet (Latch, LibFFLatchPreset (FFLatch) ) ; 

} 

/* We analyze the accociated tech. cell 'FFLatch 1 to see if it has */ 
/* a Q and QBAR, or only Q, or only QBAR outputs. */ 
GnlUpdateSequentialFormOutput (Latch, Cell) ; 

if ( (GnlStatus = GnlConstructLatchLogicBoundaries (Gnl, Latch))) 
return (GnlStatus) ; 

*Match = 1; 

return (GNL_OK) ; 



/* i(/ 

/* CmpLibcCellDf f AreaPinMatch */ 
/* ie/ 

/* Compare 'celll' vs. 'cell2' by taking into account feature of the */ 
/* current Sequential component ' G_CurrentSeqComponent ' . The ordering */ 
/* is done in priority to take care about the polarity of the pins of */ 
/* 'G_CurrentSeqComponent ' which are in the order: Clock, Set and Reset.*/ 
/* The LIBC_CELL matching the most the polarities is prioritarized. */ 
/* ic/ 

static GNL_SEQUENTIAL_COMPONENT G_CurrentSeqComponent ; 

static int CmpLibcCellDf f AreaPinMatch (Celll, Cell2) 
LIBC_CELL *Celll; 
LIBC_CELL *Cell2; 

{ 

LIB C_F F_LATCH FFLatchl ; 

LIBC_FF_LATCH FFLatch2 ; 



FFLatchl = LibCellFFLatch (*Celll) ; 
FFLatch2 = LibCellFFLatch (*Cell2) ; 

/* Rising clock. */ 
if (GnlSequentialCompoClockPol (G__CurrentSeqComponent ) == 1) 

if (GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatchl)) && 
IGnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatch2) ) 
GnlEnvPinSeqPolMatching { ) ) 
return (-1) ; 

if (IGnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatchl)) && 
GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatch2) ) 
GnlEnvPinSeqPolMatching () ) 
return (1) / 
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} 

else 

/* Falling clock */ 
{ 

if (GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatchl) ) 
I GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatch2) ) 
GnlEnvPinSegPolMatching () ) 
return (1) ; 

if (! GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatchl)) 
GnlBoolOprlsSimpleSignal (LibFFLatchClockOn (FFLatch2) ) 
GnlEnvPinSeqPolMatching () ) 
return (-1) ; 



/* Everything is ok regarding the polarity of the pins so we decide */ 
/* with the area. */ 
/* We privilegiate the minimum area */ 
if (LibCellArea (*Celll) < LibCellArea (*Cell2) ) 
return (-1) ; 

if (LibCellArea (*Celll) == LibCellArea (*Cell2) ) 
return (0) ; 

return (1) ; 



/* ± j 

/* CmpLibcCellLatchAreaPinMatch */ 
/* */ 

/* Comapre 'celll 1 vs. ' cell2 • by taking into account feature of the */ 
/* current Sequential component ' G_CurrentSeqComponent ' . The ordering */ 
/* is done in priority to take care about the polarity of the pins of */ 
/* ? G_CurrentSeqComponent ' which are in the order: Clock, Set and Reset.*/ 
/* The LIBC_CELL matching the most the polarities is prioritarized . */ 
/* *i 

static int CmpLibcCellLatchAreaPinMatch (Celll, Cell2) 
LIBC_CELL *Celll; 
LIBC_CELL *Cell2; 

{ 

LIBC_FF_LATCH FFLatchl ; 

LIBC_FF_LATCH FFLatch2 ; 



FFLatchl = LibCellFFLatch (*Celll) ; 
FFLatch2 = LibCellFFLatch (*Cell2) ; 

/* High level clock. */ 
if (GnlSequentialCompoClockPol (G_CurrentSeqComponent) == 1) 

if (GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatchl) ) && 
! GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatch2) ) 
GnlEnvPinSeqPolMatching () ) 
return ( -1) ; 

if (! GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatchl)) && 
GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatch2) ) 
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GnlEnvPinSeqPolMatching ( ) ) 
return (1) ; 

} 

else 

/* Low level clock */ 
{ 

if (GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatchl) ) 

! GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatch2) ) && 
GnlEnvPinSeqPolMatching () ) 
return (1) ; 

if {! GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatchl)) 
GnlBoolOprlsSimpleSignal (LibFFLatchEnable (FFLatch2) ) 
GnlEnvPinSeqPolMatching ( ) ) 
return (-1) ; 

} 



/* Everything is ok regarding the polarity of the pins so we decide */ 
/* with the area. */ 
/* We privilegiate the minimum area */ 
if (LibCellArea (*Celll) < LibCellArea (*Cell2 ) ) 
return (-1) ; 

if (LibCellArea (*Celll) == LibCellArea (*Cell2) ) 
return (0) ; 

return (1) ; 



rj / * 

1]! /* GnlMapDFF 

: /* 

GNL_STATUS GnlMapDFF (Gill, Df f , LibcDffs) 

U I GNL Gnl ; 

Lr? GNL_SEQUENTIAL_COMPONENT Dff; 

Jjf BLIST LibcDffs; 

D int i ; 

O LIBC_CELL Celll; 

int Match; 

GNL_STATUS GnlStatus ; 



/* We sort the list of Dff 'LibcDffs' in order to priotirize the */ 
/* polarity matching between the pins Clock, Reset, Set */ 
G_CurrentSeqComponent = Dff; 

qsort (BListAdress (LibcDffs) , BListSize (LibcDffs) , 

sizeof (LIBC_CELL) , CmpLibcCellDf f AreaPinMatch) ; 

for {i=0; i<BListSize (LibcDffs); i++) 
{ 

Celll = (LIBC_CELL) BListElt (LibcDffs, i) ; 
if ((GnlStatus = GnlMatchDFF (Gnl, Dff, Celll, &Match) ) ) 
return (GNL_MEMORY_FULL) ; 

/* If the Match was successful we return. */ 
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if (Match) 

return (GNL_OK) ; 

} 

fprintf (stderr, » MAP-ERROR: cannot map instance dff <%s>\n n , 
GnlSequentialCompoInstName (Dff) ) ; 

return (GNL_MAP_ERROR) ; 

} 



/* 

/* Gnl Map LATCH 

/* 

GNL_STATUS GnlMapLATCH (Gnl, Latch, LibcLatches) 

GNL Gnl ; 
GNL_SEQUENTIAL_COMPONENT Latch ; 

BLIST LibcLatches ; 

{ 

int i ; 

LIBC__CELL Celll; 

int Match; 

GNL_STATUS GnlStatus ; 



/* We sort the list of Dff 'LibcLatches 1 in order to priotirize the 
/* polarity matching between the pins Clock, Reset, Set */ 
G__CurrentSeqComponent = Latch; 

qsort (BListAdress (LibcLatches) , BListSize (LibcLatches) , 
sizeof (LIBC_CELL) , CmpLibcCellLatchAreaPinMatch) ; 

for (i=0; i<BListSize (LibcLatches); i++) 
{ 

Celll = (LIBC_CELL) BListElt (LibcLatches, i) ; 
if ((GnlStatus = GnlMatchLATCH (Gnl, Latch, Celll, &Match) ) ) 
return (GNL_MEMORY__FULL) ; 

/* If the Match was successful we return. */ 
if (Match) 

return (GNLjDK) ; 

} 

fprintf (stderr, » MAP-ERROR: cannot map instance latch <%s>\n", 
GnlSequentialCompoInstName (Latch) ) ; 

return (GNL_MAP_ERROR) ; 



/* 

/* GnlMapListDFF 

/* 

GNL_STATUS GnlMapListDFF (Gnl, GnlDffs, LibcDffs) 
GNL Gnl ; 

BLIST GnlDffs; 
BLIST LibcDffs; 

{ 

int i ; 

GNL_SEQUENTIAL_COMPONENT DFFi ; 
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GNL_STATUS GnlStatus ; 



for (i=0; i<BListSize (GnlDffs) ; i++) 

{ 

DFFi = ( GNL_S EQUENTI AL_COMPONENT )BListElt (GnlDffs, i) ; 
if ((GnlStatus = GnlMapDFF (Gnl, DFFi, LibcDffs) ) ) 
return (GnlStatus) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlMapListLATCH */ 
/* 

GNL_STATUS GnlMapListLATCH (Gnl, GnlLatches, LibcLatches) 
GNL Gnl ; 

BLIST GnlLatches; 
BLIST LibcLatches ; 

{ 

int i ; 

GNL_SEQUENTIAL_COMPONENT LATCHi ; 
GNL_STATUS GnlStatus ; 



for (i=0; i<BListSize (GnlLatches); i++) 
{ 

LATCHi = (GNL_SEQUENTIAL_COMPONENT)BListElt (GnlLatches, i) ; 
if ((GnlStatus = Gnl Map LATCH (Gnl, LATCHi, LibcLatches))) 
return (GnlStatus) ; 

} 



return (GNL_OK) ; 

} 

/* 

/* CmpLibcCellArea 

/* 

/* Returns the comparison between the area of two cells 
/* 

static int CmpLibcCellArea (Celll, Cell2) 
L1BC_CELL *Celll; 
LIBC_CELL *Cell2; 

{ 

if (LibCellArea (*Celll) < LibCellArea (*Cell2) ) 
return (-1) ; 

if (LibCellArea (*Celll) == LibCellArea (*Cell2) ) 
return (0) ; 

return (1) ; 

} 

/* 
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/* GnlCreateOutputVarReplacelnNode */ 

/* 

/* This procedure replace Node which are Not function of an output 
/* sequential element and connect to the Qbar of the seq. element */ 
/* 

char G_VarBarName [52 8] ; 

GNL_STATUS GnlCreateOutputVarReplacelriNode (Gnl, Node, NewNode) 
GNL Gnl; 
GNL_NODE Node; 
GNL_NODE * NewNode; 

{ 

GNL_NODE Son; 
GNL_VAR Var; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_VAR Output VarBar ; 

int i ; 
GNL_NODE NewSon ; 



if (GnlNodeOp (Node) == GNL CONSTANTE) 
{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL VARIABLE) 

{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL NOT) 
{ 

Son- (GNL_NODE) BListElt (GnlNodeSons (Node), 0) ; 
if (GnlNodeOp (Son) GNL VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Son) ; 

/* 'Var' is the output of a sequential component */ 
if (GnlVarHook (Var) ) 
{ 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlVarHook (Var) ; 
OutputVarBar = Gnl Sequent ialCompoOutputBar (SeqCompo) ; 
if ( ! OutputVarBar) 

{ 

sprintf (G_VarBarName, "%s_n'\ GnlVarName (Var) ) ; 
if (GnlCreateUniqueVar (Gnl, G_VarBarName , 

^OutputVarBar) ) 
return { GNL_MEMORY_FULL ) ; 
SetGnlSequent ialCompoOutputBar (SeqCompo, 

OutputVarBar) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 
^SetGnlVarDir (OutputVarBar, GNL_VAR_LOCAL_WIRING) ; 

if (GnlCreateNodeForVar (Gnl, OutputVarBar, NewNode)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 
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} 

} 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Son = (GNL__NODE) BListElt (GnlNodeSons (Node), i) ; 

if (GnlCreateOutputVarReplacelnNode (Gnl, Son, &NewSon) ) 

return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node), i) = (int)NewSon; 

} 

*NewNode = Node; 
return (GNL_OK) ; 



/* *i 

/* GnlMapSequentialQBar */ 

/* *i 

GNL_STATUS GnlMapSequentialQBar (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_COMPONENT Component I ; 

GNL_S E QUENT I AL_COMPONENT SeqCompo ; 
GNL_VAR OutputVar ; 

GNL_FUNCTION Function; 
GNL_NODE Node ; 

GNL_NODE NewNode ; 

GNL_VAR Varl; 



GnlResetVarHook (Gnl) ; 

/* First we scan all the sequential elements with two outputs and */ 
/* stores for each output var its corresponding sequential component */ 
/* thru the filed 'GnlVarHook' . */ 
for (i=0; i<BListSize (Gnl Components (Gnl)); i++) 
{ 

Component I = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if (GnlComponentType (Component I) != GNL__SEQUENTIAL_COMPO) 
continue; 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) Component I ; 

if (GnlSequentialCompoFormOutput (SeqCompo) != GNL_Q_QBAR) 
continue; 

/* we now that the sequential element we are currently treating */ 
/* has two outputs. */ 
OutputVar = GnlSequentialCompoOutput (SeqCompo) ; 
SetGnlVarHook (OutputVar, SeqCompo) ; 

} 

for (i=0; i<BListSize (Gnl Functions (Gnl)); i++) 
{ 
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Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Function = GnlVarFunction (Varl) ; 
Node = GnlFunctionOnSet (Function) ; 

if (GnlCreateOutputVarReplacelnNode (Gnl, Node, &NewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (Function, NewNode) ; 

} 

return (GNL_OK) ; 

} 



/* */ 

/* GnlMapSequential */ 

/* */ 

/* This procedure maps the sequential elements of the current 'Gnl ? */ 
/* which are Flip-Flops and Latches onto the FF and Latches of the LIBC */ 
/* library. If the mapping of one cell cannot be done then GNL_MAP_ERROR*/ 
/* is returned, and GNL_OK if everything is ok. */ 
/* */ 

GNL_STATUS GnlMapSequential (Gnl, GnlLibc) 
GNL Gnl ; 

LIBC_LIB GnlLibc; 

{ 

BLIST LibcDffs; 
BLIST LibcLatches ; 
BLIST GnlDffs; 
BLIST GnlLatches; 
GNL_STATUS Gnl Status ; 

GNL LIB HGnlLib; 



HGnlLib = (GNL_LIB) LibHook (GnlLibc); 
LibcDffs = GnlHLibCellsDf f s (HGnlLib) ; 
LibcLatches = GnlHLibCellsLatches (HGnlLib) ; 

if (GnlExtractGnlSequential {Gnl, &GnlDffs, &GnlLatches) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, "\n") ; 



/* 



* 



/ 



fprintf (stderr, » LIBC: #DFFS = %d\n", BListSize (LibcDffs)); 

fprintf (stderr, " LIBC: # LATCHES = %d\n", BListSize (LibcLatches)); 

fprintf (stderr, ,r GNL: #DFFS = %d\n ,! , BListSize (GnlDffs)); 

fprintf (stderr, " GNL: # LATCHES = %d\n", BListSize (GnlLatches)); 



/* We sort flip-flops in the increasing order of their area. */ 
qsort (BListAdress (LibcDffs) , BListSize (LibcDffs) , 
sizeof (LIBC_CELL) , CmpLibcCellArea) ; 

/* We sort Latches in the increasing order of their area. */ 
qsort (BListAdress (LibcLatches) , BListSize (LibcLatches) , 
sizeof (LIBC_CELL) , CmpLibcCellArea) ; 

/* We map the Gnl flip-flops with the LIBC flip-flops. */ 
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if { (GnlStatus = GnlMapListDFF (Gnl, GnlDffs, LibcDffs) ) ) 
return (GnlStatus) ; 

/* We map the Gnl latches with the LIBC latches. */ 
if ((GnlStatus = GnlMapList LATCH (Gnl, GnlLatches, LibcLatches) ) ) 
return (GnlStatus) ; 

/* We eventually map the Q bar pin of the sequential elements */ 
if ( (GnlEnvUseQBar ()) && 

(GnlStatus = GnlMapSequentialQBar (Gnl))) 
return (GnlStatus) ; 

return (GNL_OK) ; 



/* EOF 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 







*/ 




File : 


libufci 1 c 




* / 


Version: 


1.0 




*/ 


Modifications : 






*/ 


Documentation : 






*/ 






*/ 






*/ 





#include <stdio.h> 
ftinclude <malloc.h> 
#include "blist.h" 
#include "gnl .h" 
# inc lude M 1 ibc_mem . h " 
# inc 1 ude " 1 ibc_ap i . h " 



/*■ 
/*■ 



Global Variable of Timing Analyser * / 



/* we have difined this global variable because 
we cosult it always durring the timing analyser */ 

float G_DeltaProcess; 
float G_DeltaTemp; 
float G_DeltaVoltage; 
LIBC_OPER_COND G_0perCond; 

LIBC_WIRE_LOAD G_WireLoad; /* The wire load corresponding a given 

netlist. This wire_load is choosed in 
the library taking into account the 
global area of the netlist.*/ 



/*- 

/*- 



v 

LibGetOperatingConditionsFromName */ 

/* Doc Procedure LibGetOperatingConditionsFromName : 

- Returns the operating__conditions from name. 

- If the Name is NULL we return the default operating_conditions defined 
in the library. 

*/ 

LIBC_OPER_COND LibGetOperatingConditionsFromName (LIBC_LIB Lib, char *Name) 

LIBC_OPER_COND OperCond, OperCondByDef ault ; 

if (!Name) 

Name = LibDef aultOperatingCond (Lib) ; 

if (!Name) 

return ( (LIBC_OPER_COND) NULL) ; 

for <OperCond=LibOperatingCond (Lib) ; OperCond! =NULL ; 

OperCond=LibOperCondNext (OperCond) ) 



if (Istrcmp (LibOperCondOcName (OperCond), Name)) 
return (OperCond) ; 
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if (istrcmp {LibOperCondOcName (OperCond) , LibDef aultOperatingCond 
(Lib))) 

OperCondByDef ault = OperCond; 

} 

/* In the case we do not have any operating_conditions with this Name, we 

return the default operating_conditions defined in the library. */ 
return (OperCondByDef ault ) ; 

} 

/* ic/ 

/* LiblnitializeDeltaOperCondAndNomOperCond */ 

/* Doc Procedure LiblnitializeDeltaOperCondAndNomOperCond : 

- Initialize the globale variables (G_DeltaProcess , 
G_DeltaTemp, G_DeltaVoltage) : 

- G_DeltaProcess = difference of the operating_conditions process 
(choosed by the user or by default) and the nominal process) 

- G_ DeltaTemp = difference of the operating_conditions temperature 
(choosed by the user or by default) and the nominal temperature) 

- G_DeltaVoltage = difference of the operating_conditions voltage 
(choosed by the user or by default) and the nominal voltage) 

- Name : name of operating_conditions 

*/ 

void LiblnitializeDeltaOperCondAndNomOperCond (LIBC LIB Lib, char *Name) 
{ 

LIBC__OPER_COND OperCond, OperCondByDef ault ; 

G_DeltaProcess = 0.0; 
G_DeltaTemp = 0.0; 
G_DeltaVoltage = 0.0; 

OperCond = LibGetOperatingConditionsFromName (Lib, Name) ; 

if (! OperCond) 
return ; 

G_DeltaProcess = LibOperCondProcess (OperCond) - LibNomProcess (Lib) ; 
G_DeltaTemp = LibOperCondTemp (OperCond) - LibNomTemp (Lib) ; 
G_DeltaVoltage = LibOperCondVolt (OperCond) - LibNomVolt (Lib) ; 
G_OperCond ,= OperCond; 

} 

/* */ 

/* LibScalValue */ 

/* Doc Procedure LibScalValue : 

- Returns the value scaled from a value . 

*/ 

extern float LibScalValue (float Value, 

float KProcess, 
float KTemp, 
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float KVoltage) 

{ 

float ValueScaled=0 . 0 ; 

float Process; 
float Temp; 
float Voltage; 
float Delta; 

Process = 1 + G_DeltaProcess * KProcess; 
Temp = 1 + G_DeltaTemp * KTemp; 
Voltage = 1 + GJDeltaVoltage * KVoltage; 
ValueScaled = Value * Process * Temp * Voltage ; 
return (ValueScaled) ; 

} 

/* 

/* LibGetPinFromNameAndCell 



/* Doc Procedure LibGetPinFromNameAndCell : 

- Return the Pin (LIBC_PIN) from a Name and a Cell 

*/ 

LIBC_PIN LibGetPinFromNameAndCell (LIBC CELL Cell, char *PinName) 
{ 

LIBC_PIN Pin; 

for (Pin=LibCellPins (Cell); Pin I =NULL; Pin=LibPinNext (Pin) ) 
{ 

if ( IGnlSinglePinName (LibPinName (Pin) ) ) 
return ( (LIBC_PIN) NULL) ; 

if ( ! strcmp (LibPinName First (Pin), PinName) ) 
return (Pin) ; 

} 

return ( (LIBC_PIN) NULL) ; 

} 

/* ie/ 

/* LibGetArcTimingSetupRising */ 

/* Doc Procedure LibGetArcTimingSetupRising : 

- Return the Timing (LIBCJTIMING) of a given arc (input pin and clock 

pin) 

which the type of timing is SetupRising 

*/ 

LIBCJTIMING LibGetArcTimingSetupRising (LIBC_PIN Pinln, LIBC_PIN PinClock) 

LIBCJTIMING Timing; 
LIB C__NAME_L 1ST RelatedPin; 
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for (Timing=LibPinTiming (Pinln); Timing ! =NULL; 
Timing=LibTimingNext (Timing) ) 

{ 

for (RelatedPin=LibTimingRelatedPin (Timing) ; RelatedPin I =NULL; 
RelatedPin=LibNameListNext (RelatedPin) ) 

{ 

if ( ! strcmp (LibNameListName (RelatedPin) , LibPinNameFirst (PinClock) ) 

(LibTimingType (Timing) == SETUP_RISING_T) ) 
break; 

} 

if (RelatedPin) 
break; 

} 

return (Timing) ; 

} 

/* */ 

/* LibGetArcTimingSetupFalling */ 

/* Doc Procedure LibGetArcTimingSetupFalling : 

- Return the Timing (LIBC_TIMING) of a given arc (input pin and clock 

pin) 

which the type of timing is SetupFalling 

*/ 

LIBC_TIMING LibGetArcTimingSetupFalling (LIBC_PIN Pinln, LIBC_P1N PinClock) 
{ 

LIBCJTIMING Timing ; 

L I BC_NAME_L 1ST RelatedPin; 

for (Timing=LibPinTiming (Pinln); Timing ! =NULL; 
Timing=LibTimingNext (Timing) ) 

{ 

for (RelatedPin=LibTimingRelatedPin (Timing) ; RelatedPin ! =NULL ; 
RelatedPin=LibNameListNext (RelatedPin) ) 

{ 

if (! strcmp (LibNameListName (RelatedPin), LibPinNameFirst (PinClock) ) 

&& 

(LibTimingType (Timing) == SETUP_FALLING_T) ) 
break; 

} 

if (RelatedPin) 
break ; 

} 

return (Timing) ; 

} 

/* */ 

/* LibGetArcTiming */ 

/* Doc Procedure LibGetArcTiming : 

- Return the Timing (LIBC_TIMING) of a given arc (input pin and output 

pin) 
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*/ 

LIBCJTIMING LibGetArcTiming (LIBC_PIN Pinln, LIBC PIN PinOut) 
{ 

LIBC_TIMING Timing; 
L IB C_NAME_L 1ST RelatedPin; 

for (Timing==LibPinTiming (PinOut); Timing ! =NULL; 
Timing=LibTimingNext (Timing) ) 

{ 

for (RelatedPin=LibTimingRelatedPin (Timing); RelatedPin ! =NULL ; 
RelatedPin=LibNameListNext (RelatedPin) ) 



{ 



} 



if (Istrcmp (LibNameListName (RelatedPin), LibPinNameFirst (Pinln) ) 
break; 



if (RelatedPin) 
break; 



} 



return (Timing) ; 



/* LibInterpolFrom4 Point And2 Values */ 

/* Doc Procedure LibInterpolFrom4 Point And2Values : 

- Return the interpolated value from 4 points : 

- (XI, Yl, Zl) , (XI, Y2, Z2), (X2, Yl, Z3), (X2 , Y2 , Z4) . 

- Determinate z coordinate ( Z = A + Bx + Cy + Dxy ) and return it 

*/ 

static float Lib InterpolFrom4PointAnd2 Values (float XI, float X2 , float Yl, 

float Y2, float Zl, float Z2 , 
float Z3, float Z4, 
float X, float Y) 



{ 



float A, B, C, D; 

if ( (XI == X2) £c& (Yl == Y2) ) 
return (Zl) ; 

if ( (XI == X2) ScSc (Yl != Y2)) 
{ 

B = (Z2 - Zl) / (Y2-Y1) ; 
A = Zl - B*Y1; 
return ( A + B*Y) ; 

} 



if ( (XI != X2) && (Yl == Y2)) 
{ 

B = (Z2 - Zl) / (X2-X1) ; 
A = Zl - B*X1; 
return ( A + B*X) ; 

} 
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D - (24 + Zl - Z2 - 23) / ( (X2 - XI) * (Y2 - Yl) ) ; 

C - (Z2 - Zl) / (Y2 - Yl) - D*X1; 

B = (23 - Zl) / (X2 - XI) - D*Y1; 

A = 21 - B*X1 - C*Y1 - D*X1*Y1; 

return (A + B*X + C*Y + D*X*Y) ; 

} 

/* 

/* Liblnterpolat ionFrom2 ValuesAndMat rix 

/* Doc Procedure Liblnterpolat ionFrom2ValuesAndMat rix : 

- Return the interpolated value from 2 values and a Matrix of values 
The dimension of the Matrix is 2, 

For example : - Those 2 values can be capacitance and transtion 
- The Matrix is cell_rise. 

- Determinate z coordinate ( Z = A + Bx + Cy + Dxy ) 

*/ 

float Liblnterpolat ionFrom2ValuesAndMatrix (float X, float Y, 

LIB C_T AB L E_VAL Matrix) 

{ 

float_buffer * Indexl, *Index2, *Values; 

float XI, X2, Yl, Y2, Zl, 22, Z3 , 24, Z; 

int II, 12, Jl, J2, Sizel, Size2, i; 

Indexl = LibTableVallndexl (Matrix) ; 
Index2 = LibTableValIndex2 (Matrix) ; 
Values = LibTableValValues (Matrix) / 

if (lvalues) 

return (0.0) ; 
if ( ! Indexl && IIndex2) 
return (0.0) ; 

if (Indexl !Index2) 
{ 

XI = X2 = 0; 

Sizel = sizeof_f loat_buf fer (Indexl) ; 
if { Y <= Indexl [0] ) 

{ 

Yl = Indexl [0] ; 
Y2 = Indexl [1] ; 
Jl = 0; 
J2 = 1; 

} 

else 

if ( Y > Indexl [Sizel-1] ) 
{ 

Yl = Indexl [Sizel-2] ; 
Y2 = Indexl [Sizel-1] / 
Jl = Sizel-2; 
J2 = Sizel-1; 

} 

else 

for (i=0; i < Sizel; i++) 

{ 



B-CORE-334 



libutil.c 



} 



if (Y <= Indexl [i] ) 
{ 

if (Y < Indexl [i] ) 
{ 

Yl = Indexl [i-1] ; 
Y2 = Indexl [i] ; 
Jl = i-1; 
J2 = i; 

} 

else 

{ 

Yl = Y2 = Y; 
Jl = J2 = i; 

} 

break; 

} 

} 

Zl = Values [Jl] ; 
Z2 = Values [J2] ; 
Z3 = Z4 = 0.0; 

Z = LibInterpolFrom4PointAnd2Values (XI, X2, Yl, Y2 

Zl, Z2, Z3, Z4, X, Y) 

return (Z) ; 



Sizel = sizeof_float_buffer (Indexl) ; 
Size2 = sizeof_f loat_buf f er (Index2) ; 

if ( X Indexl [0] ) 
{ 

XI = Indexl [0] ; 
X2 = Indexl [1] ; 

11 = 0; 

12 = 1; 

} 

else 

if ( X > Indexl [Sizel-1] ) 
{ 

XI = Indexl [Sizel-2] ; 
X2 = Indexl [Sizel-1] ; 

11 = Sizel-2; 

12 = Sizel-1; 

} 

else 

for (i=0; i < Sizel; i++) 
{ 

if (X <= Indexl [i] ) 
{ 

if (X < Indexl [i] ) 

{ 

XI = Indexl [i-1] ; 
X2 = Indexl [i] ; 

11 = i-1; 

12 = i; 

} 

else 

{ 



B-CORE-335 



libutil.c 



XI = X2 = X; 
II = 12 = i; 

} 

break; 

} 

} 

if ( Y <= Index2 [0] ) 
{ 

Yl - Index2 [0] ; 
Y2 = Index2 [1] ; 
Jl = 0; 
J2 = 1; 

} 

else 

if ( Y > Index2 [Size2-1] ) 
{ 

Yl = Index2 [Size2-2] ; 
Y2 = Index2 [Size2-1] ; 
Jl = Size2-2; 
J2 = Size2-1; 

} 

else 

for (i=0; i < Size2; i++) 
{ 

if (Y <= Index2 [i] ) 

{ 

if (Y < Index2 [i] ) 
{ 

Yl = Index2 [i-1] ; 
Y2 = Index2 [i] ; 
Jl = i-1; 
J2 = i ; 

} 

else 

{ 

Yl = Y2 = Y; 
Jl = J2 = i; 

} 

break; 

} 

} 

Zl = Values [Il*Size2+Jl] ; 
Z2 = Values [Il*Size2+J2] ; 
Z3 = Values [I2*Size2+Jl] ; 
Z4 = Values [I2*Size2+J2] ; 

Z = LibInterpolFrom4PointAnd2Values (XI, X2, Yl, Y2 , Zl, Z2 , Z3, Z4, X 
return (Z) ; 

} 

/* 

/* LibGetWireLoadSelectFromName 

/* Doc Procedure LibGetWireLoadSelectFromName : 

- Returns the WireLoadSelection from Name and a given Library 
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- if the Name is NULL we return the def ault_wire__load_s elect ion 

*/ 

LIBC_WIRE_LOAD_SELECT LibGetWireLoadSelectFromName (LIBC_LIB Lib, char *Name) 
{ 

LIBC_WIRE_LOAD_SELECT WireLS, WireLSByDef ault ; 

if (IName) 

Name = LibDef aultWireLoadSelect (Lib) ; 

if (IName) 

return ( (LIB C_W I RE_LOAD_S E LE CT ) NULL) ; 

for (WireLS=LibWireLoadSelect (Lib); WireLS I =NULL; 

WireLS=LibWireLoadSelNext (WireLS) ) 

{ 

if (istrcmp (LibWireLoadSelName (WireLS), Name)) 
return (WireLS) ; 

if (Istrcmp (LibWireLoadSelName (WireLS), LibDef aultWireLoadSelect 
(Lib))) 

WireLSByDef ault = WireLS; 

} 

/* In case we do not have any wire_load__selection with this Name */ 
return (WireLSByDef ault) ; 

} 

/* */ 

/* LibGetWireLoadFromAreaAndWireLS */ 

/* Doc Procedure LibGetWireLoadFromAreaAndWireLS : 

- Returns the WireLoad from Area and a given wire__load_s elect ion 

V 

LIBC_WIRE_LOAD LibGetWireLoadFromAreaAndWireLS (LIB C_W I RE__LOAD_S ELECT WireLS, 

double Area, LIBC_LIB Lib) 

{ 

LIBC_WIRE_LOAD_FROM_AREA WireLFromArea , LastWireLFromArea ,- 
char *Name; 
LIBC_WIRE_LOAD WireL; 

if (IWireLS) 
{ 

Name = LibDef aultWireLoad (Lib) ; 
if (Name) 

{ 

for (WireL=LibWireLoad(Lib) ; WireL 1=NULL; 

WireL=LibWireLoadNext (WireL) ) 

{. 

if (Istrcmp (LibWireLoadName (WireL), Name)) 
return (WireL) ; 

} 

} 

return (LibWireLoad (Lib) ) ; 

} 

for (WireLFromArea=LibWireLoadSelTable (WireLS) ; WireLFromArea ! =NULL; 

WireLFromArea=LibWireLFromAreaNext (WireLFromArea) ) 
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{ 

if ( (LibWireLFromAreaMinArea (WireLFromArea) <= Area) 

&& (Area <= LibWireLFromAreaMaxArea (WireLFromArea) ) ) 
return (LibWireLFromAreaLModel (WireLFromArea) ) ; 
LastWireLFromArea = WireLFromArea; 

} 

return {LibWireLFromAreaLModel (LastWireLFromArea) ) ; 

} 

/* 

/* LibGetWireLengthFromFanout 

/* Doc Procedure LibGetWireLengthFromFanout : 

- Returns the length of the wire__load from fanout 

*/ 

float LibGetWireLengthFromFanout (LIBC__WIRE_LOAD WireL, int Fanout) 

{ 

LIB C_FAN_LEN FanLen; 

int Fanoutlnf, FanoutSup; 

float Lengthlnf, LengthSup, Length ; 

if (IWireL) 
return (0.0) ; 

Fanoutlnf = FanoutSup = 0; 
Lengthlnf = LengthSup = 0; 

for (FanLen=LibWireLoadFanLen (WireL) ; FanLen i -NULL ; 

FanLen=LibFanLenNext (FanLen) ) 

{ 

if ( ! LibFanLenFanout (FanLen)) 
return (0.0) ; 

if (Fanout LibFanLenFanout (FanLen) ) 
return (LibFanLenLength (FanLen) ) ; 

if (LibFanLenFanout (FanLen) < Fanout) 

{ 

Fanoutlnf = LibFanLenFanout (FanLen) ; 
Lengthlnf ~ LibFanLenLength (FanLen) ; 

} 

if (LibFanLenFanout (FanLen) > Fanout && LengthSup == 0) 

{ 

FanoutSup = LibFanLenFanout (FanLen) ; 
LengthSup = LibFanLenLength (FanLen) ; 
break; 

} 

} 

if (Fanoutlnf i =:0 && LengthSup == 0) 

{ 

/* use the slope of wire_load */ 

Length = LibWireLoadSlope (WireL) * ((float) (Fanout - Fanoutlnf)); 
return (Length + Lengthlnf) ; 

} 

else 
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{ 

/* interpolate between Fanoutlnf and FanoutSup */ 
Length = ((float) (Fanout - Fanoutlnf)) / ((float) (FanoutSup - 
Fanoutlnf) ) ; 

Length = Length * (LengthSup - Lengthlnf ) ; 
Length = Length + Lengthlnf ; 
return (Length) ; 

} 

} 

/* */ 

/* LibGetWireLengthFromCapa */ 

/* Doc Procedure LibGetWireLengthFromCapa : 

- Returns the length of the wire_load from Capacitance 

*/ 

float LibGetWireLengthFromCapa (LIBC_WIRE_LOAD WireL, float Capa) 
{ 

LIBC_FAN_LEN FanLen; 

float Capalnf, CapaSup; 

float Lengthlnf, LengthSup, Length; 

if (! WireL) 
return (0.0) ; 

Capalnf = CapaSup = 0.0; 
Lengthlnf = LengthSup = 0; 

for (FanLen=LibWireLoadFanLen (WireL) ; FanLen ! =NULL; 

FanLen=LibFanLenNext (FanLen) ) 

{ 

if ( ILibFanLenFanout (FanLen) ) 
return (0.0) ; 

if (Capa == LibFanLenCapa (FanLen) ) 
return (LibFanLenLength (FanLen) ) ; 

if (LibFanLenCapa (FanLen) < Capa) 

{ 

Capalnf = LibFanLenCapa (FanLen) ; 
Lengthlnf = LibFanLenLength (FanLen) ; 

} 

if (LibFanLenCapa (FanLen) > Capa && LengthSup == 0) 

{ 

CapaSup = LibFanLenCapa (FanLen) ; 
LengthSup = LibFanLenLength (FanLen) ; 
break; 

} 

} 

if (Capalnf !=0 && LengthSup == 0) 

{ 

/* use the slope of wire_JLoad */ 

Length = LibWireLoadSlope (WireL) * ((Capa - Capalnf)); 
return (Length + Lengthlnf) ; 



B-CORE-339 



libutil.c 



} 

else 

{ 

/* interpolate between Capalnf and CapaSup */ 

Length = ((float) (Capa - Capalnf)) / ((float) (CapaSup - Capalnf }) ; 
Length = Length * (LengthSup - Lengthlnf ) ; 
Length = Length + Lengthlnf; 
return (Length) ; 

} 



/* LibGetWireScaledCapaFromLength 



/* Doc Procedure LibGetWireScaledCapaFromLength : 

- Returns the scaled capacitance from the length of a given wire_load 

*/ 

float LibGetWireScaledCapaFromLength (LIBC_WIRE_LOAD WireL, float Length, 

LIBCJLIB Lib) 

{ 

float Cwire, Capa; 

L 1 BC_KF ATOR KF; 

if (!WireL) 
return (0.0) ; 

Capa = LibWireLoadCapa (WireL) ; 
if (Capa == 0.0) 

Capa = Def aultWireLoadCapa (Lib) ; 

Cwire = Capa * Length; 
KF = LibKFactor (Lib) ; 

if (KF) 

Cwire = LibScalValue (Cwire, LibKFactorWireCap (KF) [0] , 
LibKFactorWireCap (KF) [1], 
LibKFactorWireCap (KF) [2] ) ; 

return (Cwire) ; 

} 

/* */ 

/* LibGetWireScaledResiFromLength */ 

/* Doc Procedure LibGetWireScaledResiFromLength : 

- Returns the scaled resistance from the length of a given wire_load 

*/ 

float LibGetWireScaledResiFromLength (LIBC_WIRE_LOAD WireL, float Length, 

LIBC_LIB Lib) 

{ 

float ResiWire, Resi; 

LIBC_KFATOR KF; 

if (!WireL) 
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return (0.0) ; 



Resi = LibWireLoadResistance (WireL) ; 
if (Resi =- 0) 

Resi = LibDef aultWireLoadResistance (Lib) ; 



ResiWire = Resi * Length; 
KF = LibKFactor (Lib) ; 
if (KF) 

ResiWire = LibScalValue (ResiWire, LibKFactorWireRes (KF) [0] , 
LibKFactorWireRes (KF) [1] , 
LibKFactorWireRes (KF) [2] ) ; 



return (ResiWire) ; 

} 



/* */ 

/* LibGetWireAreaFromLength * / 

/* Doc Procedure LibGetWireAreaFromLength : 

- Returns the area from the length of a given wire_load 

*/ 



float LibGetWireAreaFromLength (LIBC_WIRE_LOAD WireL, float Length, 

LIBC_LIB Lib) 

{ 

float Area; 



if (!WireL) 

return (0.0) ; 



Area = LibWireLoadArea (WireL) ; 
if (Area == 0.0) 

Area = LibDef aultWireLoadArea (Lib) ; 



return (Area * Length) ; 



/* */ 

/* */ 

/* */ 

/* */ 



/* LibGetScaledValFromTransCapaAndMatrix */ 

/* Doc Procedure LibGetScaledValFromTransCapaAndMatrix : 

- Return the value corresponding to a transition "Trans" and capacitance 
"Capa" in a given matrix (cell_rise, cell_fall # rise^propagation, 
fallj>ropagation, rise_transition, f all_transition, rise_constraint , 
fall_constraint) . This matrix is fron the cell "Cell". 

- This Value is scaled taking into account the scaling_f actors in the 

cell 

"Cell" 

*/ 



float LibGetScaledValFromTransCapaAndMatrix (float Trans, float Capa, 

LIBC_TABLE_VAL Matrix, 
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LIBC_CELL Cell, 
LIBJ4ATRIXJTYPE Type) 

{ 

float Val; 

float Process, Temp, Volt; 

if {! Matrix) 
return (0.0) ; 

Val = LibInterpolationFrom2ValuesAndMatrix (Trans, Capa, Matrix); 

if (i LibCellScalingFactors (Cell)) 
return (Val) ; 

switch (Type) 
{ 

case MATRIX_CELL_RISE: 

Process = LibKFactorCellRise (LibCellScalingFactors (Cell) ) [0] ; 

Temp = LibKFactorCellRise (LibCellScalingFactors (Cell) ) [1] ; 

Volt = LibKFactorCellRise (LibCellScalingFactors (Cell) ) [2] ; 

break; 
case MATRIX_CELL_FALL : 

Process = LibKFactorCellFall (LibCellScalingFactors (Cell) ) [0] ; 

Temp = LibKFactorCellFall (LibCellScalingFactors (Cell) ) [1] ; 

Volt = LibKFactorCellFall (LibCellScalingFactors (Cell) ) [2] ; 

break; 

case MATRIX_RISE_PROPAGATION: 

Process = LibKFactorRisePropagation (LibCellScalingFactors (Cell) ) [0] 
Temp = LibKFactorRisePropagation (LibCellScalingFactors (Cell) ) [1] ; 
Volt = LibKFactorRisePropagation (LibCellScalingFactors (Cell) ) [2] ; 
break; 

case MATR IX_FALL_PRO PAGAT I ON : 

Process = LibKFactorFallPropagation (LibCellScalingFactors (Cell) ) [0] 
Temp = LibKFactorFallPropagation (LibCellScalingFactors (Cell) ) [1] ; 
Volt = LibKFactorFallPropagation (LibCellScalingFactors (Cell) ) [2] ; 
break; 

case MATR IX_R I S E_TRANS I T I ON : 

Process = LibKFactorRiseTransition (LibCellScalingFactors (Cell) ) [0] ; 
Temp = LibKFactorRiseTransition (LibCellScalingFactors (Cell) ) [1] ; 
Volt = LibKFactorRiseTransition (LibCellScalingFactors (Cell) ) [2] ; 
break; 

case MATR IX__FALL_TRANS I T ION : 

Process = LibKFactorFallTransition (LibCellScalingFactors (Cell))[0]; 

Temp = LibKFactorFallTransition (LibCellScalingFactors (Cell) ) [1] ; 

Volt = LibKFactorFallTransition (LibCellScalingFactors (Cell) ) [2] ; 
case MATRIX_SETUP_RISE: 

Process = LibKFactorSetupRise (LibCellScalingFactors (Cell) ) [0] ; 

Temp = LibKFactorSetupRise (LibCellScalingFactors (Cell) ) [1] ; 

Volt = LibKFactorSetupRise (LibCellScalingFactors (Cell) ) [2] ; 
case MATR IX_SETUP_F ALL : 

Process = LibKFactorSetupFall (LibCellScalingFactors (Cell) ) [0] ; 

Temp = LibKFactorSetupFall (LibCellScalingFactors (Cell) ) [1] ; 

Volt - LibKFactorSetupFall (LibCellScalingFactors (Cell) ) [2] ; 
break; 

} 

Val = LibScalValue (Val, Process, Temp, Volt) ; 
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return (Val) ; 

} 

/* */ 

/* LibDelayArcCellRise */ 

/* Doc Procedure LibDelayArcCellRise : 

- Compute the delay arc rising "DelayR" and the transition arc rising 
"OutTransR" . 

The arce is (Pinln, PinOut) from the cell "Cell" 

OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the output pin "PinOutName" + the capa of the wire 
connected 

to the output) ; it is scaled. 

- The values (InTransR, InTransF, OutCapa) are scaled. 

- This wire delay is not included. 

*/ 

void LibDelayArcCellRise (float InTransR, float InTransF, float OutCapa, 
LIBC__CELL Cell, LIBC_PIN Pinln, LIBC_PIN PinOut, 
float *DelayR, float *OutTransR) 

{ 

LIBC_TIM1NG Timing / 

LIB__MATRIX_TYPE Type ; 
LIB C_TAB L E_VAL Matrix; 
float Vail, Val2; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 

if (! Timing) 

{ 

*DelayR = *OutTransR = 0.0; 
return; 

} 

Matrix - LibTimingRisePropagation (Timing) ; 
Type = MATRIX_CELL_RISE; 
if (Matrix) 

Type = MATR IX_R I S E_PRO PAGAT I ON ; 

switch (LibTimingSense (Timing) ) 
{ 

case POSITIVE_UNATE_E: 

*OutTransR = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRiseTransition (Timing) , 
Cell, MATRIX_RISE_TRAKSITION) ; 
if (Type == MATRIX_RISE_PROPAGATION) 
{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRisePropagation (Timing) , 
Cell, MATR I X_RI SE_PRO PAGAT ION ) ; 

*DelayR = Vail + *OutTransR; 

} 

else 

*DelayR = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingCellRise (Timing) , 
Cell, MATRIX_CELL_RISE) ; 
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break; 
case NEGATIVE_UNATE_E : 

*OutTransR = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCap 

LibTimingRiseTransition (Timing) , 
Cell, MATRIX_RISE_TRANSITION) ; 

if (Type MATR I X_R I S E_PRO P AGAT I ON ) 

{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingRisePropagation (Timing) , 
Cell, MATRIX_RISE_PROPAGATION) ; 

*DelayR = Vail + *OutTransR; 

} 

else 

*DelayR - LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa 

LibTimingCellRise (Timing) , 
Cell, MATRIX__CELL_RISE) ; 

break; 

case NON_UNATE_E: 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRiseTransition (Timing) , 
Cell, MATRIX__RISE_TRANSITION) ; 

Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingRiseTransition (Timing) , 
Cell, MATRIXJRISE_TRANSITION) ; 

*OutTransR = Vail; 
if (*OutTransR < Val2) 
*OutTransR = Val2; 

if (Type « MATR I X_R I S E_PRO PAGAT ION ) 

{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRisePropagation (Timing) , 
Cell, MATR IX_R I S E_PRO PAGAT I ON ) ; 

Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingRisePropagation (Timing) , 
Cell, MATR IX_RI S E_PRO PAGAT I ON ) ; 

*DelayR = Vail + *OutTransR; 

if (Vail < Val2) 

*DelayR = Val2 + *OutTransR; 

} 

else 

{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingCellRise (Timing) , 

Cell, MATRIX_CELL_RISE) ; 
Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingCellRise (Timing) , 

Cell, MATRIX_CELL_RISE) ; 

*DelayR = Vail; 
if (Vail < Val2) 
*DelayR = Val2 ; 

} 

break; 



} 
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/* */ 

/* LibDelayArcCellRiseSetup */ 

/* Doc Procedure LibDelayArcCellRiseSetup : 

- Compute the delay arc rising "DelayR" . 

The arc is (Pinln, PinOut) from the sequentiel cell "Cell" 
OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the the pin "PinlnName" + the capa of the wire connected 
to the pin) ; it is scaled. 

- The values (inTransR, InTransF, OutCapa) are scaled. 

- This wire delay is not included. 



void LibDelayArcCellRiseSetup (float InTransR, float InTransF, float OutCapa, 
LIBC_CELL Cell, LIBCJ?IN Pinln, LIBC_PIN PinClock, 
float *DelayR) 

{ 

LIBCJTIMING Timing ; 

float Vail, Val2; 

Timing - LibGetArcTimingSetupRising (Pinln, PinClock) ; 
if (! Timing) 

{ 

Timing = LibGetArcTimingSetupFalling (Pinln, PinClock) ; 
if (I Timing) 

{ 

*DelayR = 0.0; 
return ; 

} 

} 

switch (LibTimingSense (Timing) ) 
{ 

case POSITIVE_UNATE_E: 

*DelayR = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRiseConstraint (Timing) , 
Cell, MATRIX_SETUP_RISE) ; 

break; 
case NEGATIVE_UNATE_E: 

*DelayR = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingRiseConstraint (Timing) , 

Cell, MATRIX_SETUP__RISE) ; 

break; 

case NON_UNATE__E : 
Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingRiseConstraint (Timing) , 

Cell, MATRIX_SETUP_RISE) ; 
Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingRiseConstraint (Timing) , 

Cell, MATRIX_SETUP_RISE) ; 

*DelayR = Vail; 
if (Vail < Val2) 

*DelayR = Val2; 



break; 
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} 

/* */ 

/* LibDelayArcCellFallSetup */ 

/* Doc Procedure LibDelayArcCellFallSetup : 

- Compute the delay arc falling "DelayF" . 

The arc is (Pinln, PinOut) from the sequentiel cell "Cell" 
OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the the pin "PinlnName" + the capa of the wire connected 
to the pin) ; it is scaled. 

- The values (inTransR, InTransF, OutCapa) are scaled. 

- This wire delay is not included* 



void LibDelayArcCellFallSetup {float InTransR; float InTransF, float OutCapa, 
LIBC_CELL Cell, LIBC_PIN Pinln, LIBC_PIN PinClock, 
float *DelayF) 

{ 

LIBC_TIMING Timing ; 

float Vail, Val2; 

Timing = LibGetArcTimingSetupFalling (Pinln, PinClock) ; 
if ( ! Timing) 

{ 

Timing = LibGetArcTimingSetupRising (Pinln, PinClock) ; 
if ( ITiming) 

{ 

*DelayF = 0.0; 
return ; 

} 

} 

switch (LibTimingSense (Timing) ) 
{ 

case POSITIVE_UNATE_E: 

*DelayF = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallConstraint (Timing) , 
Cell, MATRIX_SETUP_FALL) ; 

break; 
case NEGATIVE_UNATE_E : 

*DelayF = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallConstraint (Timing) , 

Cell, MATRIX_SETUP_FALL) ; 

break; 

case NON_UNATE_E: 
Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallConstraint (Timing) , 
Cell, MATRIX_SETUP_FALL) ; 
Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallConstraint (Timing) , 
Cell, MATRIX_SETUP_FALL) ; 

*DelayF = Vail; 
if (Vail < Val2) 
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*DelayF = Val2; 
break; 

} 

} 

/* */ 

/* LibDelayArcCellFall */ 

/* Doc Procedure LibDelayArcCellFall : 

- Compute the delay arc rising "DelayF" and the transition arc rising 
"OutTransF" . 

The arce is (PinlnName, PinOutName) from the cell "Cell" 
OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the output pin "PinOutName" + the capa of the wire 
connected 

to the output) ; it is scaled. 

- The values (inTransR, InTransF, OutCapa) are scaled. 

- The wire delay is not included. 

*/ 

void LibDelayArcCellFall (float InTransR, float InTransF, float OutCapa, 

LIBC_CELL Cell, LIBC_PIN Pinln, LIBC_PIN PinOut, 
float *DelayF, float *OutTransF) 

{ 

LIBCJTIMING Timing ; 

LIB_MATRIX_TYPE Type; 
LIB C_TABLE_VAL Matrix; 
float Vail, Val2; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 

if (1 Timing) 

{ 

*DelayF = *OutTransF = 0.0; 
return; 

} 

Matrix = LibTimingFallPropagation (Timing) ; 

Type = MATRIX_CELL_FALL ; 

if (Matrix) 

Type = MATRIX_FALL_PR0PAGATION; 

switch (LibTimingSense (Timing) ) 
{ 

case POSITIVE_UNATE_E: 

*OutTransF = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallTransition (Timing) , 
Cell, MATR IX__FALL_TRANS I T I ON ) ; 
if (Type MATRIX_FALL_PROPAGATION) 

{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallPropagation (Timing) , 
Cell, MATRIX_FALL_PROPAGATION) ; 

*DelayF = Vail + *OutTransF; 

} 

else 
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*DelayF = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingCellFall (Timing) , 
Cell, MATRIX_CELL_FALL) ; 

break; 
case NEGATIVE_UNATE_E: 

*OutTransF = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallTransition (Timing) , 
Cell, MATRIXJFALLJTRANSITION) ; 
if (Type == MATRIX_FALL_PROPAGATION) 
{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallPropagation (Timing) , 
Cell, MATRIX_FALL_PROPAGATION) ; 

*DelayF = Vail + *OutTransF; 

} 

else 

*DelayF = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingCellFall (Timing) , 
Cell, MATRIX_CELL_FALL) ; 

break; 

case NON_UNATE_E: 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallTransition (Timing) , 
Cell, MATRIX_FALL_TRANSITION) ; 

Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallTransition (Timing) , 
Cell, MATRIX_FALL_TRANSITION) ; 

*OutTransF = Vail; 
if (*OutTransF < Val2) 
*OutTransF = Val2; 

if (Type == MATR IX_FALL_PROPAGATI ON ) 

/ 

'all = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingFallPropagation (Timing) , 
Cell, MATRIX_FALL_PROPAGATI0N) ; 
Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingFallPropagation (Timing) , 
Cell, MATRIX_FALL_PROPAGATION) ; 
*DelayF = Vail + *OutTransF; 
if (Vail < Val2) 

*DelayF = Val2 + *OutTransF; 

} 

else 

{ 

Vail = LibGetScaledValFromTransCapaAndMatrix (InTransR, OutCapa, 

LibTimingCellFall (Timing) , 

Cell, MATRIX_CELL_FALL) ; 
Val2 = LibGetScaledValFromTransCapaAndMatrix (InTransF, OutCapa, 

LibTimingCellFall (Timing) , 

Cell, MATRIX_CELL_FALL) ; 

*DelayF = Vail; 
if (Vail < Val2) 
*DelayF = Val2; 

} 

break ; 
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} 

/* */ 

/* LibDelayWire */ 



/* Doc Procedure LibDelayWire : 

- Compute the delay of a wire with capacitance "OutCapa" and resistance 
" Resistance" 

OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the output pin "PinOutName" + the capa of the wire; 
it is scaled. 

*/ 

void LibDelayWire (float OutCapa, float Resistance, float *WireDelay, 
int Fanout) 

{ 

enum tree_type_E OperCondTreeType; 

OperCondTreeType = LibOperCondTreeType (GJDperCond) ; 
switch (OperCondTreeType) 

{ 

case BEST_CASE_TREE : 

*WireDelay - 0.0; 

break; 
case BALANCED_TREE : 

*WireDelay = Resistance/ Fanout * (Out Capa /Fanout) ; 

break; 
case WORST_CASE_TREE : 

*WireDelay = Resistance * OutCapa; 

break; 

} 

} 

/* LibDelayArcCell */ 

/* Doc Procedure LibDelayArcCell : 

- Compute : 

. DelayR : the delay arc rising 

. DelayF : the delay arc falling 

. OutTransR : the transition arc rising 

. OutTransF : the transition arc rising 
The arce is (PinlnName , PinOutName) from the cell "Cell" 
OutCapa : the globale capacitance (the total of capacitace of all pins 
connected to the output pin "PinOutName" + the capa of the wire 
connected 

to the output) ; it is scaled. 

- The values (inTransR, InTransF, OutCapa) are scaled. 

- The wire delay is included. 

*/ 

void LibDelayArcCell (float InTransR, float InTransF, float OutCapa, 
float WireResistance, int Fanout, 

LIBC_CELL Cell, LIBC_PIN Pinln, LIBC_PIN PinOut, 
float *DelayR, float *OutTransR, 
float *DelayF, float *OutTransF) 

{ 

float WireDelay; 
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LibDelayArcCellRise (InTransR, InTransF, OutCapa, Cell, Pinln, PinOut, 

DelayR, OutTransR) ; 
LibDelayArcCellFall (InTransR, InTransF, OutCapa, Cell, Pinln, PinOut, 

DelayF, OutTransF) / 

WireDelay = 0.0; 

if ((*DelayR) || (*DelayF) ) 

LibDelayWire (OutCapa, WireResistance, &WireDelay, Fanout) ,* 

*OutTransR = *OutTransR + WireDelay; 
*OutTransF = *OutTransF + WireDelay; 
*DelayR = *DelayR + WireDelay; 
*DelayF = *DelayF + WireDelay; 

} 

extern void GnlGetOutputPinFromPins (); 

/* EOF 
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/* */ 

/* */ 

/* File: libutil.e */ 

/* Version: 1.0 */ 

/* Modifications: - */ 
/* Documentation: - */ 

/* */ 

/* */ 



extern LIBC_OPER_COND LibGetOperatingConditionsFromName (LIBC_LIB Lib, char 
*Name) ; 

extern void LiblnitializeDeltaOperCondAndNomOperCond (LIBC_LIB Lib, char 
*Name) ; 



extern float LibScalValue (float Value, 

float KProcess, 

float KTemp, 

float KVoltage) ; 



extern LIBC__PIN LibGetPinFromNaraeAndCell (LIBC_CELL Cell, char *PinName) ; 

extern LIBC_TIMING LibGetArcTiming (LIBCJPIN Pinln, LIBC_PIN PinOut) ; 

extern float LibGetScaledValFromTransCapaAndMatrix (float Trans, float Capa, 

LIB C_TAB L E_VAL Matrix, 
LIBC__CELL Cell, 
LIB_MATRIX_TYPE Type) / 

extern LIBC_WIRE_LOAD__SELECT LibGetWireLoadSelectFromName (LIBC_LIB Lib, char 
*Name) ; 

extern LIBC_WIRE_LOAD LibGetWireLoadFromAreaAndWireLS ( L I BC_W I RE_L0AD_S ELECT 
WireLS, double Area, LIBC_LIB Lib) ; 

extern float LibGetWireLengthFromFanout (LIBC_WIRE_LOAD WireL, int Fanout) ; 

extern float LibGetWireLengthFromCapa (LIBC_WIRE_LOAD WireL, float Capa) ; 

extern float LibGetWireScaledCapaFromLength (LIBC_WIRE_LOAD WireL, 

float Length, LIBC_LIB Lib) ; 

extern float LibGetWireScaledResiFromLength (LIBC_WIRE_LOAD WireL, 

float Length, LIBC_LIB Lib) ; 

extern float LibGetWireAreaFromLength (LIBC_WIRE_LOAD WireL, float Length, 

LIBC_LIB Lib) ; 

extern void LibDelayArcCellRise (float InTransR, float InTransF, float 
OutCapa, 

LIBC_CELL Cell, char *PinInName, char *PinOutName, 
float *DelayR, float *OutTransR) ; 

extern void LibDelayArcCellFall (float InTransR, float InTransF, float 
OutCapa, 

LIBC_CELL Cell, char *PinInName, char *PinOutName, 
float *DelayF, float *OutTransF) ; 
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extern void LibDelayArcCell (float InTransR, float InTransF, float OutCapa, 
float WireResistance, int Fanout, 

LIBC_CELL Cell, LIBC_PIN PinlnName, LIBCJPIN PinOutName, 
float *DelayR, float *OutTransR, 
float *DelayF, float *OutTransF) ; 



extern void LibDelayArcCellRiseSetup (float InTransR, float InTransF, 
float OutCapa, LIBC_CELL Cell, LIBC__PIN Pinln, 
LIBC_PIN PinClock, float *DelayR) ; 

extern void LibDelayArcCellFallSetup (float InTransR, float InTransF, 
float OutCapa, LIBC_CELL Cell, LIBC_PIN Pinln, 
LIBC_PIN PinClock, float *DelayF) ; 

extern GNL_STATUS LibGetListOf Buf f erlnLib (LIBC_LIB Lib, BLIST *ListBuf f ers ) 

/* EOF */ 
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11/28/99 03:33p 308,278 sprite000.bmp 

11/28/99 03:33p 19,314 Test-uni.BMP 

11/28/99 03:33p 308,278 TEST0.BMP 

11/28/99 03:33p 308,278 TESTMAP.BMP 

7 File(s) 1,172,994 bytes 

Directory of d:\sourceuni\MonTool 



11/28/99 


03: 


32p 




306 


AWAY . BMP 


» 11/28/99 


03: 


32p 




290 


CHAT . BMP 


11/28/99 


03: 


32p 




302 


CHATPRIV.BMP 


?1 11/28/99 


03: 


32p 




254 


FOLDER. BMP 


m 11/28/99 


03: 


32p 




334 


HOST . BMP 


2= 11/28/99 


03: 


32p 




126 


MEMBER. BMP 


ui 11/28/99 


03: 


32p 




5,804 


MSN . BMP 


^ 11/28/99 


03: 


32p 




290 


PART . BMP 


" 11/28/99 


03: 


32p 




286 


SENDBAR.BMP 


J" 11/28/99 


03: 


32p 




292 


SPEC. BMP 


L 11/28/99 


03: 


32p 




1, 116 


TOOLBAR . BMP 


m 11/28/99 


03: 


32p 




312 


WORLD. BMP 






12 


File(s) 


9,712 bytes 


H Directory of 


d: v 


\sourceuni\UDSGen 




11/28/99 


03: 


32p 




12, 672 


MBtnLan . bmp 


11/28/99 


03: 


32p 




14,328 


MBtnMdm. bmp 


11/28/99 


03: 


32p 




8, 952 


MBtnNo . bmp 


11/28/99 


03: 


32p 




8,820 


MBtnOk.bmp 


11/28/99 


03: 


32p 




34, 944 


MLgnAni .bmp 


11/28/99 


03: 


32p 




133,380 


MLoginBk.bmp 






6 


File (s) 


213,096 bytes 



Total Files Listed: 

25 File(s) 1,395,802 bytes 



0 bytes free 



Page 1 



APPENDIX C 



IMPLICIT MAPPING OF 
TECHNOLOGY INDEPENDENT 
NETWORK TO LIBRARY CELLS 



THIERRY BESSON 



M-7928 US 
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/* */ 

/* */ 

/* File: gnlarea.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* Description: */ 

/* */ 
/* */ 



#include <stdio.h> 

#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl.h" 
#include "libcjmem.h" 
#include "libc_api .h" 
#include "gnlestim.h" 
#include "time.h" 
#include "bbdd.h" 
#include "gnllibc .h" 
#include "gnlmap.h" 

#include "blist.e" 
# include "libutil.e" 
#include "timeutil . e" 
#include "timecomp . e " 

/* 

/* GnlGetAreaWithoutNetFromGnl */ 
/* 

GNL__STATUS GnlGetAreaWithoutNetFromGnl (GNL Gnl, 

double *CombArea, double *NonCombArea , 
int *CombCellNumber / 
int *NonCotnbCellNumber, 
int *BlackBoxNumber) 

{ 

int i ; 

GNL_COMPONENT Component ; 

GNL Gnl Compo ; 

GNL ^SEQUENTIAL JTOMPONENT SeqCompo ; 

GNL_TRISTATE_COMPONENT TriStateCompo ; 

GNL_BUF_C0MPONENT Buf Compo ; 

GNL_USER__COMPONENT Us er Compo ; 

GNL_STATUS GnlStatus ; 

LIBC_CELL Cell; 

for (i=0; i < BListSize (GnlComponents (Gnl) ) ; i++) 

{ 

Component = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
switch (GnlComponentType (Component) ) { 



C-GNL1-1 



gnlareax 



case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) Component; 
Cell = GnlSeqCompoInfoCell (SeqCompo) ; 
*NonCombArea += LibCellArea (Cell) ; 
(*NonCombCellNumber) ++; 
break; 



case GNL_USER_COMPO : 

UserCompo « (GNL_USER_C0MP0NENT) Component; 
GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 
if (GnlCompo) 
{ 

if (GnlStatus = GnlGetAreaWithoutNetFromGnl (GnlCompo, 

CombArea, 

NonCombArea , CombCe 11 Number, 
NonCombCellNumber, BlackBoxNumber) ) 
return (GnlStatus) ; 
continue; 

} 

Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

if (Cell) 

{ 

<*CombCellNumber) ++; 

*CombArea += LibCellArea (Cell) ; 

} 

else 

(*BlackBoxNumber) ++; 
break; 



case GNL_TRISTATE_COMPO : 

TriStateCompo «= (GNL_JTRISTATE_C0MPONENT) Component; 
Cell = GnlTriStateCompoInf oCell (TriStateCompo) ; 
*NonCombArea += LibCellArea (Cell) ; 
(*NonCombCellNumber) ++; 
break ; 



case GNL_BUF_COMPO : 

BufCompo = (GNL_BUF_COMPONENT) Component; 
Cell - GnlBufCompoInf oCell (Buf Compo) ; 
*NonCombArea += LibCellArea (Cell) ; 
(*NonCombCellNumber) ++; 
break ; 



case GNL_MACRO_COMPO : 
break ; 



default : 

GnlError (12 /* Unknown component */) / 
break ; 

} 



} 

return (GNL_OK) ; 

} 



/* 

/* GnlGetNetlnterconnetAreaFromGnlComp 
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/*-- 

GNL 



STATUS GnlGetNetlnterconnetAreaFromGnlComp (GNL_COMPONENT Compo, 

LIBC_LIB Lib, 

LIBC__WIRE_LOAD WireLoad, 
double *NetArea) 



LIBC_CELL Cell; 

int i, Fanout, Rank; 

LIBC_PIN PinOut; 

GNL_VAR Varl ; 

GNL_ASSOC AssocI; 

double Length, SingleArea; 

BL1ST Interface; 
char * Formal; 

GNL_STATUS GnlStatus ; 

GNLJTIMINGJENFO TimingI ; 
unsigned int Key; 



GnlGetCellFromGnlCompo (Compo, &Cell) ; 
GnlGetlnterf aceFromGnlCompo (Compo, ^Interface) ; 

for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( lAssod) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (!VarI) 
continue; 

if (GnlVarlsVss (Varl) j | GnlVarlsVdd (Varl) ) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if ( I (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirect ion (PinOut) == INPUT_E) 
continue; 



if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI , &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 
Length = LibGetWireLengthFromFanout (WireLoad, Fanout) ; 
SingleArea = LibGetWireAreaFromLength (WireLoad, Length, Lib) ; 
(*NetArea) += SingleArea; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetNetlnterconnetAreaFromGnl */ 

/* */ 

GNL_STATUS GnlGetNetlnterconnetAreaFromGnl (Gnl, Lib, WireLoad, NetArea, 

NetNumber) 

GNL Gnl ; 

LIBC_LIB Lib; 
LIBC WIRE LOAD WireLoad; 
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double *NetArea; 

int *NetNumber; 

int i ; 

GNL_COMPONENT Component ; 
GNL GnlCompo; 
GNL_USER__COMPONENT UserCompo ; 
GNL_STATUS GnlStatus ; 

LIBCJTELL Cell; 



*NetNumber += BListSize (Gnllnputs (Gnl) ) ; 
*NetNumber += BListSize (GnlLocals (Gnl) ) ; 
*NetNumber +- BListSize (GnlOutputs (Gnl)); 

for (i=0; i < BListSize (Gnl Components (Gnl)); i++) 
{ 

Component = (GNL_COMPONENT) BListElt (Gnl Components (Gnl) , i) ; 
switch (Gnl Component Type (Component) ) { 
case GNL_S E QUENT I AL_CO MPO : 
case GNL__TRISTATE_COMPO: 
case GNL_BUF_COMPO : 

if (GnlStatus = GnlGetNetlnterconnetAreaFromGnlComp (Component, 

Lib, WireLoad, NetArea) ) 

return (GnlStatus) ; 
break; 

case GNL_USER_COMPO : 

UserCompo = (GNL_ USER_COMPONENT ) Component; 
GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 
if (GnlCompo) 

{ 

if (BListAddElt (G_PileOf Component , UserCompo)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = GnlGetNetlnterconnetAreaFromGnl (GnlCompo, 

Lib, 

WireLoad, NetArea, NetNumber) ) 
return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize 
(G_PileOf Component) ) ; 

continue; 

} 

Cell - (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 
if (Cell) 

if (GnlStatus = GnlGetNetlnterconnetAreaFromGnlComp 

(Component , 

Lib, WireLoad, NetArea) ) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 
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} 

SetGnlNetArea (Gnl, *NetArea) ; 
return (GNL OK) ; 



/* */ 

/* GnlPrintHeadOf AreaReport */ 

/* */ 

/* Doc procedure GnlPrintHeadOf AreaReport : 

- Printing global parameters used for timing analysis 

*/ 

/* */ 

GNL_STATUS GnlPrintHeadOf AreaReport (GNL Gnl , 

LIBC_LIB Lib, 

doub 1 e CombAre a , 

double NonCombArea, 

doub 1 e Ne t Ar ea , 

int CellNumber, 

int NetNumber) 

{ 

fprintf (stderr, " \n") ; 

fprintf (stderr, " Report\t : \tarea\n") ; 

fprintf (stderr, " Design\t : \t%s\n" , GnlName (Gnl)); 

fprintf (stderr, " Version\t : \tl999 . 01\n" ) ; 

fprintf (stderr, " Date\t\t : \t " ) ; 

GnlPrintDate (stderr) ; 

fprintf (stderr, n \n"); 

fprintf (stderr, ,r Library Used\t : \t%s\n\n" , LibName (Lib)); 

fprintf (stderr, " Number Of Ports\t : \t%d\n" , GnlNbln(Gnl) + GnlNbOut 
(Gnl)); 

fprintf (stderr, " Number Of Cells\t : \t%d\n" , CellNumber) ; 

fprintf (stderr, " Combinational Area\t : \t% . 2f \n" , CombArea) ; 
fprintf (stderr, " Non Combinational Area : \t% . 2f \n" , NonCombArea); 
fprintf (stderr, " Net Interconnect Area\t : \t% . 2f\n" , NetArea) ; 

fprintf (stderr, » Total Area\t\t : \t% . 2f \n" , CombAre a+NonCombAre a +Net Area) 
fprintf (stderr, " \n"); 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetAreaFromNetwork */ 

/* */ 

/* This procedure extracts the global area (area of generic cells */ 

/* (Combinational & nonCombinational) + area of Net Interconnect) . */ 

/* */ 

GNL STATUS GnlGetAreaFromNetwork (GNL NETWORK Nw, 
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LIBC_LIB Lib, 

int PrintData, 
double *AreaWithoutNet , 
double *AreaOf Nets , 
int *CellNumber) 



GNL 

GNL_S TATUS 
int 
int 
int 
int 
int 

double 
double 
double 

LIBC WIRE LOAD SELECT 



TopGnl ; 
GnlStatus; 
i; 

CombCellNumber ; 
NonCombCe 11 Number ; 
BlackBoxNumber; 
NetNumber; 
CombAr ea , NonCombAr e a ; 
AreaNetwork; 
Net Area ; 

WireLoadSelect ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component) ) 
return ( GNL_MEMORY_FULL ) ; 

CombAr e a = NonCombAr e a = 0.0; 

CombCellNumber = NonCombCellNumber = BlackBoxNumber = 0; 

if ((GnlStatus = GnlGetAreaWithoutNetFromGnl (TopGnl, &CombArea, 

&NonCombArea 7 &CombCellNumber, 
&NonCombCellNumber , ScBlackBoxNumber) ) ) 
return (GnlStatus) ; 

AreaNetwork = CombArea + NonCombArea; 
*AreaWithoutNet = AreaNetwork; 

WireLoadSelect = LibGetWireLoadSelectFromName (Lib, (char *)NULL) ; 
G_WireLoad = LibGetWireLoadFromAreaAndWireLS (WireLoadSelect, AreaNetwork, 

Lib) ; 

NetArea = 0.0; 
NetNumber = 0 ; 

if ({GnlStatus = GnlGetNetlnterconnetAreaFromGnl (TopGnl, Lib, 

G_WireLoad, &NetArea, &NetNumber) ) ) 

return (GnlStatus) ; 
*AreaOfNets = NetArea ; 

*CellNumber = NonCombCellNumber+CombCellNumber; 

if (PrintData) 
{ 

if (GnlStatus = GnlPrintHeadOf AreaReport (TopGnl, Lib, CombArea, 

NonCombAr e a , Ne t Ar ea , 
NonCombCe 1 lNumbe r +CombCe 1 INumbe r , 
NetNumber) ) 

return (GnlStatus) ; 

} 

BListQuickDelete ( &G_PileOf Component) ; 
return (GNL OK) ; 
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} 

/* 

/* EOF 



o 

in 
m 
u 
o 
=p 

m 
ru 
m 
o 
o 
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/* 

/* 

/* File: gnlarea.e 

/* Version: 1.1 

/* Modifications: 

/* Documentation: 

/* 

/* Description: 
/* 

/* 



extern GNL_STATUS GnlGetAreaFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib, 

int PrintData, 
double *AreaWi thoutNet , 

double *AreaOfNets) ; 

/* 

/* EOF 
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/* 

/* 

/* File: gnlbench. 

/* Version: l.i 

/* Modifications: 
/* Documentation: 



/ 



v 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

/* Description: this file defines functions in order to generate a */ 

/* a verilog test bench corresponding to a verilog */ 

/* netlist. First the netlist is analyzed and then */ 

/* specific signals like Clocks and Asynchronous Set */ 

/* and reset are extracted and instantiate in an */ 

/* intelligent way (e.g clocks are instantiated like */ 

/* classical clocks and set and reset are activated */ 

/* firts at their activated level in order to put the */ 

/* state machine in a Set/Reset mode. This is to start */ 

/* Hdl simulation in a realistic way. */ 

/* Enhancements can be performed when instantiating */ 

/* stimuli for primary inputs. For now there are gene- */ 

/* rated in an exhaustive manner in the function */ 

/* 'GnlComputeNextValue r . To improve the simulation */ 

/* cover one can re-write this function in order to */ 

/* find better stimuli. */ 

■/* *; 

/* 1 

i v 



#include <stdio.h> 



#ifdef MEMORY /* if 


one wants memory statistics for SUN */ 


#include <malloc.h> 


#endif 




#include "blist.h" 




#include "gnl . h" 




ftinclude "blist . e" 








/* DEFINE 


*/ 




#define GnlVarValue (v) 


( (int) ( (v) ->Hook) ) 


#define SetGnlVarValue (v, s) 


( ( (v) ->Hook = (int*) s) ) 







*/ 



/* GnlExtractClocks */ 

/* 

/* Scan all the sequential elements and and adds all the clock signals 
/* in the returned list 1 ListClocks * . A clock signal must be a simple 
/* signal originally defined by the user (e.g not expanded). 



GNL_STATUS GnlExtractClocks (Gnl, ListClocks) 
GNL Gnl ; 

BLIST *ListClockS; 

{ 

BL *ST Components; 
int i ; 
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GNL_SEQUENTIAL_COMPONENT Sequent ialCompo ; 
GNL_COMPONENT Component I ; 

GNL_VAR ClockVar; 



if (BListCreate (ListClocks) ) 
return ( GNL __MEMORY__FULL ) ; 

Components = GnlComponents (Gnl) ; 

if (! Components) 
return (GNL_OK) ; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = <GNL_COMPONENT) BListElt (Components, i) ; 

if (Gnl Component Type (ComponentI) GNL_SEQUENTIAL_COMPO) 

SequentialCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI / 
if ( (GnlSequentialCompoOp (SequentialCompo) == GNLJDFF) | | 
(GnlSequentialCompoOp (SequentialCompo) == GNLJ3FFX) | | 
(GnlSequentialCompoOp (SequentialCompo) == GNL_DFF0) | j 
(GnlSequentialCompoOp (SequentialCompo) == GNLJDFF1) ) 

ClockVar = Gnl Sequent ialCompoClock (SequentialCompo) ; 
if (GnlVarRangeSize (ClockVar) i- 1) 

{ 

GnlError (11 /* Clock signal must be a simple signal */) 
^return (GNL_BAD_CLOCK_DEFINITION) ; 

if (GnlVarType (ClockVar) » GNL_VAR_EXPANSED) 
continue; 

if UBListMemberOfList ( (*ListClocks) , ClockVar, 

Intldentical) ) 
if (BListAddElt ( (*ListClocks) , ClockVar)) 
return (GNL MEMORY FULL) ; 

} 

} 

} 

return (GNL_OK) ; 



/* v 

/* GnlExtractAsynchSignals */ 

z* j f 

/* Analyze DFF components and extracts list of asynchronous signals */ 
/* (Set/reset) which are active at Low/High level. A signal cannot be */ 
/* part of ListAsynchHigh and ListAsynchLow at the same time */ 
/* + / 

GNL^STATUS GnlExtractAsynchSignals (Gnl, ListAsynchHigh, ListAsynchLow) 
GNL Gnl ; 

BLIST ^ListAsynchHigh; 
BLIST ^ListAsynchLow; 

BL I ST Component s ; 



C-GNL1-10 



gnlbench.c 



int i; 
GNL_SEQUENTIAL__COMPONENT Sequent ialCompo ; 
GNL_COMPONENT Component I ; 



if (BListCreate (ListAsynchHigh) ) 
return ( GNL_MEMOR Y_FULL ) ; 

if (BListCreate (ListAsynchLow) ) 
return (GNL MEMORY FULL) ; 



Components = Gnl Components (Gnl) ; 

if (! Components) 

return (GNL_OK) ; 

for (i-0; i<BListSize (Components) ; i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) GNL__S EQUENT I AL_COMPO ) 
{ 

SequentialCompo = (GNLjSEQUENTIAL_COMPONENT) ComponentI; 

if ( (Gnl Sequent ialCompoOp (SequentialCompo) == GNLJDFF) | | 
(GnlSequentialCompoOp (SequentialCompo) == GNL_DFFX) | | 
(GnlSequentialCompoOp (SequentialCompo) == GNL_DFF0) | | 
(GnlSequentialCompoOp (SequentialCompo) == GNL_DFF1) ) 

{ 

if (GnlVarlsSignal { 

GnlSequentialCompoReset (SequentialCompo) ) && 
IBListMemberOfList ( ( *ListAsynchHigh) , 

GnlSequentialCompoReset (SequentialCompo) , 

Intldentical) && 
IBListMemberOfList ( (*ListAsynchLow) , 

GnlSequentialCompoReset (SequentialCompo) , 

Intldentical) 

) 

if (BListAddElt ( (*ListAsynchHigh) , 

GnlSequentialCompoReset (SequentialCompo) ) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlExtractlnputs */ 

/* */ 

/* Extracts the list of primary inputs and scan the internal Hash Table */ 
/* names to do so. Primary inputs must be of type GNL_VAR_OR I G I NAL e.g. */ 

/* Variables defined by the user and not internally expanded. */ 
/* */ 

GNL_STATUS GnlExtractlnputs (Gnl, ListClocks, ListAsynchLow, 

Lis t AsynchHigh , List Input s ) 

GNL Gnl ; 

BLIST ListClocks; 
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BLIST ListAsynchLow; 
BLIST ListAsynchHigh; 
BLIST *List Inputs; 



int 
int 
BLIST 



i; 
j; 



ListI; 
GNL_VAR VarJ; 
BLIST HashTableNames ; 



if (BListCreate (Listlnputs) ) 
return (GNL_MEMORY_FULL) ; 

/* We scan the HashTableNames in order to pick up primary input and */ 
/* inout signals. We take only GNL_VAR_ORIGINAL signals. */ 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

ListI = (BLIST) BListElt (HashTableNames, i) ; 
if (ListI) 

{ 

for (j=0; j<BListSize (ListI); j++) 
{ 

VarJ = (GNL_VAR) BListElt (ListI, j); 
if { ( (GnlVarDir (VarJ) » GNL_VAR_INPUT ) | | 
(GnlVarDir (VarJ) GNL_VAR_INOUT) ) && 

(GnlVarType (VarJ) » GNL_VAR_OR I G I NAL ) && 
!BListMemberOfList (ListAsynchHigh, VarJ, Int Identical) && 
IBListMemberOfList (ListAsynchLow, VarJ, Int Identical) 
IBListMemberOfList (ListClocks, VarJ, Int Identical ) ) 
if (BListAddElt ( (*ListInputs) , (int) VarJ)) 
return (GNL_MEMORY FULL) ; 

} 

} 

} 

return (GNL_OK) ; 



/* GnlExtractOutputs */ 

/* j f 

/* Extracts the list of primary outputs and scan the internal Hash Table*/ 
/* names to do so. Primary outputs must be of type GNL__VAR__OR I G INAL e.g.*/ 
/* Variables defined by the user and not internally expanded. */ 
/* #/ 

GNL_STATUS GnlExtractOutputs (Gnl, ListClocks, ListAsynchLow, 

ListAsynchHigh", ListOutputs) 



GNL 


Gnl; 


BLIST 


ListClocks ; 


BLIST 


Lis t AsynchLow ; 


BLIST 


ListAsynchHigh; 


BLIST 


*ListOutputs; 


int 


i; 


int 


j ; 
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BLIST ListI; 

GNL_VAR VarJ; 

BLIST HashTableNames ; 



if (BListCreate (ListOutputs) ) 
return ( GNL_MEMORY_FULL ) ; 



/* We scan the HashTableNames in order to pick up primary input and */ 
/* inout signals. We take only GNL_VAR_OR I G I NAL signals. */ 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 

ListI = (BLIST) BListElt (HashTableNames, i) ; 
if (ListI) 

{ 

for (j=0; j<BListSize (ListI); j++) 

VarJ = (GNL_VAR) BListElt (ListI, j) ; 
if (((GnlVarDir (VarJ) == GNL_VAR_OUTPUT ) || 
(GnlVarDir (VarJ) == GNL_VAR_INOUT) ) && 

(GnlVarType (VarJ) == GNL_VAR_ORIGINAL) && 
IBListMemberOfList (ListAsynchHigh, VarJ, Intldentical) && 
IBListMemberOfList (ListAsynchLow, VarJ, Intldentical) && 
IBListMemberOfList (ListClocks, VarJ, Intldentical)) 
if (BListAddElt ( (*ListOutputs) , (int)VarJ)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

return (GNL OK) ; 



*/ 

*/ 

*/ 



/* 

/* GnlPrintHeaderbench */ 
/* 

/* Prints official header in the verilog test bench. */ 
/* 

void GnlPrintHeaderbench (benchFile) 
FILE *benchFile; 

{ 

f pr intf (benchFile , 

"// 

f print f (benchFile, 

"// This file has been automatically generated by GNL\n") • 
fprintf (benchFile, 

"// \n») ; 
fprintf (benchFile, 

"// Copyright (c) 1998 by interHDL, Inc.\n"); 
f printf (benchFile , 

«// \n\n»); 



/* 
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/* GnlPrintModuleAndlnterf ace 
* 



7 



/ 

GNL_STATUS GnlPrintModuleAndlnterf ace (benchFile, GnlName, ListClocks, 

List Inputs , ListOutputs , 



FILE *benchFile ; 
char *GnlName; 

BLIST ListClocks ; 

BLIST Listlnputs; 

BLIST ListOutputs ; 

BLIST ListAsyncLow; 

BLIST ListAsyncHigh; 



Lis t AsyncLow , Lis t AsyncHi gh ) 



int 

GNL_VAR 
GNL_VAR 
GNL__VAR 

char 



ClOGkl; 
InputI; 
Output I / 

*RangeStr; 



fprintf (benchFile, "module %s_top 0;\n", GnlName) ; 

if (BListSize (ListClocks)) 

fprintf (benchFile, «// Clock signals\n") ; 
for (i=0; i<BListSize (ListClocks); i++) 
{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 
fprintf (benchFile, "wire %s ; \n", GnlVarName (Clockl)); 
^fprintf (benchFile, "reg %s_sh;\n", GnlVarName (Clockl)); 

fprintf (benchFile, "\n") ; 

if (BListSize (Listlnputs) ) 

fprintf (benchFile, "// Input signals\n") ; 
for (i=0; i<BListSize (Listlnputs) ; i++) 

{ 

InputI = (GNL_VAR) BListElt (Listlnputs, i) ; 
if (GnlVarGetStrFromRange (InputI, &RangeStr) ) 
return ( GNL_MEMORY_FULL ) ; 

if (RangeStr) 

fprintf (benchFile, "reg %s %s ; \n", RangeStr, 
GnlVarName ( InputI ) ) ; 

else 

^ fprintf (benchFile, "reg %s ; \n", GnlVarName (InputI)); 
fprintf (benchFile, "\n"); 

if (BListSize (ListOutputs)) 

fprintf (benchFile, »// Output signals\n") ; 
for (i=0; i<BListSize (ListOutputs); i++) 
{ 

OutputI = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarGetStrFromRange (OutputI, &RangeStr) ) 
return (GNL_MEMORY_FULL) ; 

if (RangeStr) 
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} 



fprintf (benchFile, "wire %s %s;\n", RangeStr, 

GnlVarName (Output I) ) ; 

else 

^ fprintf (benchFile, "wire %s;\n", GnlVarName (OutputI) ) ; 
fprintf (benchFile, ,r \n"); 

if (BListSize (ListAsyncLow) ) 

fprintf (benchFile, "// Asynchronous signals (Active Low Level) \n n ); 
for (i=0; i<BListSize (ListAsyncLow); i++) 

{ 

OutputI = (GNL_VAR) BListElt (ListAsyncLow, i) ; 

if (GnlVarType (OutputI) == GNL VAR ORIGINAL) 
{ " " 

if (GnlVarGetStrFromRange (OutputI, &RangeStr) ) 
return (GNL_MEMORY_FULL) ; 

if (RangeStr) 

fprintf (benchFile, "reg %s %s;\n n , RangeStr, 
GnlVarName (OutputI) ) ; 

else 

fprintf (benchFile, "reg %s ; \n", GnlVarName (OutputI)); 

} 

fprintf (benchFile, "\n"); 

if (BListSize (ListAsyncHigh) ) 

fprintf (benchFile, "// Asynchronous signals (Active High Level) \n") ; 
for (i=0; i<BListSize (ListAsyncHigh); i++) 
{ 

OutputI = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 

if (GnlVarType (OutputI) == GNL VAR ORIGINAL) 
{ " " 

if (GnlVarGetStrFromRange (OutputI, &RangeStr) ) 
return (GNL_MEMORY_FULL) ; 

if (RangeStr) 

fprintf (benchFile, "reg %s %s;\n", RangeStr, 
GnlVarName (OutputI) ) ; 

else 

fprintf (benchFile, "reg %s;\n", GnlVarName (OutputI)); 

} 

fprintf (benchFile, "\n" ); 



fprintf (benchFile, n \n"); 
return (GNLJDK) ; 



/* v 

/* GnlPrintlnitial */ 

/. v 
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void GnlPrintlnitial (benchFile, ListClocks, TimeLimit) 
FILE *benchFile; 
BLIST ListClocks; 
int TimeLimit; 



{ 



int i ; 
GNL_VAR Clockl; 



fprintf (benchFile, " initial\n" ) ; 
fprintf (benchFile, " begin\n") ; 
fprintf (benchFile, " $dumpvars ; \n" ) ; 

for {i=0; i<BListSize (ListClocks) ; i++) 

{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, » %s_sh = 0;\n", GnlVarName (Clockl)); 

fprintf (benchFile, " #%d\n", TimeLimit); 

fprintf (benchFile, » $f inish; \n") ; 

fprintf (benchFile, " end\n\n") ; 



/* 

/* GnlPrintAlwaysClocks 

/* 

void GnlPrintAlwaysClocks (benchFile, ListClocks, Period) 
FILE *benchFile; 
BLIST ListClocks; 
int Period; 



{ 



int i ; 

GNL_VAR Clockl ; 



for (i=0; i<BListSize (ListClocks); i++) 

{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, "assign %s = %s_sh;\n", GnlVarName (Clockl), 
GnlVarName (Clockl) ) ; 

} 

fprintf (benchFile, "\n") ; 

for (i=0; i<BListSize (ListClocks); i++) 
{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 
fprintf (benchFile, "alwaysXn") ; 
fprintf (benchFile, " begin\n") ; 

fprintf (benchFile, » #%d %s_sh = ~%s_sh;\n", Period, 

GnlVarName (Clockl) , GnlVarName (Clockl) ) ; 
fprintf (benchFile, » end\n\n ,! ) ; 

} 

} 

/* it/ 

/* GnlModifyWithAsyncSignals */ 

/* ; 
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GNL_STATUS GnlModif yWithAsyncSignals (Var, Range, StrBin, SetResetMode, 

ListAsyncLow, ListAsyncHigh) 

GNL_VAR Var; 

int Range ; 

char * StrBin ; 

int SetResetMode ; 

BLIST ListAsyncLow; 

BLIST ListAsyncHigh; 



{ 



mt i ; 

GNL_VAR AsyncI; 
char *VarName ; 

int Index; 



for {i=0; i<BListSize (ListAsyncLow); i++) 

{ 

AsyncI = (GNL_VAR) BListElt (ListAsyncLow, i) ; 

if (GnlVarStrNameStrlndex (GnlVarName (AsyncI), &VarName, &Index) ) 
return (GNL_MEMORY_FULL) ; 

if (Index ~ -1) /* simple signal */ 

Index = 0; 

if (istrcmp (GnlVarName (Var), VarName) ) 

{ 

if (SetResetMode) 

StrBin [Range- Index- 1] = '0'; /* active at low level */ 

else 

StrBin [Range -Index- 1] = 'I 1 ; /* SetResetMode disable */ 

} 

free (VarName) ; 

} 

for (i=0; i<BListSize (ListAsyncHigh); i++) 
{ 

AsyncI = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 

if (GnlVarStrNameStrlndex (GnlVarName (AsyncI), &VarName, & Index ) ) 
return (GNL_MEMORY_FULL) ; 

if (Index — -1) /* simple signal */ 

Index = 0; 

if (Istrcmp (GnlVarName (Var), VarName)) 

{ 

if ( SetResetMode ) 

StrBin [Range- Index- 1] = '1'; /* active at high level */ 

else 

StrBin [Range- Index- 1] = T 0'; /* SetResetMode disable */ 

} 

free (VarName) ; 

} 

return (GNL OK) ; 
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/* */ 

/* GnlComputeNextValue */ 

/* */ 

/* ENHANCEMENT: one can rewrite this part in order to assign more */ 

/* 'intelligent' patterns allowing a best cover of the netlist. One */ 

/* will need 'Gnl' in order to compute those stimuli. */ 

/* */ 

GNL_STATUS GnlComputeNextValue (Gnl, Var, Range) 
GNL Gnl ; 

GNL_VAR Var; 
int Range ; 

{ 



/* Computation of next value is trivial: simply increment it. */ 
SetGnlVarValue (Var, { ( int ) GnlVarValue (Var) + (int) 1) ) ; 



return (GNL_OK) ; 

} 

/* */ 

/* Gnl Print Always Inputs */ 

/* */ 

GNL_STATUS GnlPrint Always Inputs (benchFile, Gnl, Listlnputs, ListAsyncLow, 

ListAsyncHigh, TimeLimit, Step) 

FILE *benchFile; 
GNL Gnl ; 

BLIST Listlnputs; 
BLIST ListAsyncLow; 
BLIST ListAsyncHigh; 
int TimeLimit; 
int Step; 



{ 



int Time = 0; 

int i; 

GNL_VAR Input I ; 

int Ranges ize; 

char *StrBin; 

int SetResetMode ; 



for (i=0; i<BListSize (Listlnputs); i++) 
{ 

InputI = (GNL_VAR)BListElt (Listlnputs, i) ; 
SetGnlVarValue {InputI, 0); 

} 

for (i=0; i<BListSize (ListAsyncLow) ; i++) 

{ 

InputI = (GNL__VAR) BListElt (ListAsyncLow, i) ; 
SetGnlVarValue (InputI, 0) ; 
} 

for (i=0; i<BListSize (ListAsyncHigh); i++) 
{ 

InputI = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 
SetGnlVarValue (InputI, 0); 

} 

SetResetMode =1; /* We start in Set/Reset mode */ 
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fprintf (benchFile, M always\n" ) ; 
fprintf (benchFile, " begin\n"); 
while (Time <= TimeLimit) 
{ 

if (Time != 0) 

{ 

fprintf (benchFile, " #%d\n n , Step); 

/* We are not in set /reset mode any longer */ 
SetResetMode = 0; 

} 

/* At time 'Time 1 , we assign patterns to primary inputs */ 
for (i=0; i<BListSize (Listlnputs) ; i++) 

{ 

Input I = (GNL__VAR) BListElt (Listlnputs, i) ; 
Ranges ize = GnlVarRangeSize (Input I) ; 

/* Compute the next Value of Input I and modifies field */ 
/* GnlVarValue (Input I) . */ 
if (GnlComputeNextValue (Gnl, Input I, RangeSize) ) 

return (GNL_MEMORY_FULL) ; 

/* Translate the GnlVarValue (InputI) into string of length*/ 
/* RangeSize. */ 
if (GnlDecimalToStrBin (GnlVarValue (InputI) , RangeSize, 

&StrBin) ) 
return (GNL_MEMORY_FULL) ; 

/ * We need to modify the previous pattern in order to take */ 
/* into account asynchronous signals. */ 
if (GnlModifyWithAsyncSignals (InputI, RangeSize, 

StrBin, SetResetMode, 
ListAsyncLow, ListAsyncHigh) ) 

return (GNL_MEMORY_FULL) ; 

fprintf (benchFile, » %s = %d\ , b%s;\n", 

GnlVarName (InputI) , RangeSize, StrBin) ; 



free (StrBin) ; 

} 

/* At time 'Time 1 , we assign patterns to primary inputs */ 
for (i-0; i<BListSize (ListAsyncLow); i++) 

{ 

InputI = (GNL_VAR) BListElt (ListAsyncLow, i) ; 
if (GnlVarType (InputI) == GNL_VAR_0R I G INAL ) 

{ 

RangeSize = GnlVarRangeSize (InputI) ; 

/* Compute the next Value of InputI and modifies field*/ 
/* GnlVarValue (InputI) . */ 
if (GnlComputeNextValue (Gnl, InputI, RangeSize)) 
return ( GNL_MEMORY_FULL ) ; 

/* Translate the GnlVarValue (InputI) into string of */ 
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/* length RangeSize. */ 
if (GnlDecimalToStrBin (GnlVarValue (Input I) , RangeSize, 

&StrBin) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We need to modify the previous pattern in order to */ 
/* take into account asynchronous signals. */ 
if (GnlModifyWithAsyncSignals (Input I, RangeSize, 

StrBin, SetResetMode , 
ListAsyncLow, ListAsyncHigh) ) 

return ( GNL_MEMORY_FULL ) ; 

fprintf (benchFile, » %s = %d\ , b%s;\n", 

GnlVarName (Input I) , RangeSize, StrBin); 

free (StrBin) ; 

} 

} 

/* At time 'Time 1 , we assign patterns to primary inputs */ 
for (i-0; i<BListSize (ListAsyncHigh); i++) 

{ 

InputI = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 
if (GnlVarType (InputI) == GNL_VAR_OR I G I NAL ) 

{ 

RangeSize = GnlVarRangeSize (InputI) ,- 

/* Compute the next Value of InputI and modifies field*/ 
/* GnlVarValue (InputI) . */ 
if (GnlComputeNext Value (Gnl, InputI, RangeSize)) 
return ( GNL_MEMORY_FULL ) ; 

/* Translate the GnlVarValue (InputI) into string of */ 
/* length RangeSize. */ 
if (GnlDecimalToStrBin (GnlVarValue (InputI) , RangeSize, 

&StrBin) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We need to modify the previous pattern in order to */ 
/* take into account asynchronous signals. */ 
if (GnlModifyWithAsyncSignals (InputI, RangeSize, 

StrBin, SetResetMode, 
ListAsyncLow, ListAsyncHigh) ) 

return (GNL_MEMORY_FULL) ; 

fprintf (benchFile, " %s = %d\ , b%s;\n" , 

GnlVarName (InputI) , RangeSize, StrBin) ; 

free (StrBin) ; 

} 

} 
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} 



Time + = Step; 



fprintf (benchFile, 
return (GNL OK) ; 



end\n\n") ; 



/* 

/* GnlPrintAlwaysTrace 



/* 

GNL_STATUS GnlPrintAlwaysTrace (benchFile, ListClocks, ListOutPuts, 
Li st Inputs , 

ListAsyncLow, ListAsyncHigh) 

FILE *benchFile; 
BLIST ListClocks; 
BLIST ListOutPuts; 
BLIST Listlnputs; 
BLIST ListAsyncLow; 
BLIST ListAsyncHigh; 



int 



GNL_VAR Clockl ; 

GNL_VAR Output I ; 

GNL_VAR Input I ; 

GNL_VAR Varl ; 
BLIST 
int 



ListAsync; 

OnePrint = 0; 



/* Extracting the original async signals of the netlist */ 
if (BListCreate (&ListAsync) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListAsyncLow) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListAsyncLow, i) ; 
if (GnlVarType (Varl) == GNL__VAR_OR IG INAL ) 
if (BListAddElt (ListAsync, (int*) Varl)) 
return (GNL_MEMORY_FULL) ; 

} 

for (i=0; i<BListSize (ListAsyncHigh) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 
if (GnlVarType (Varl) == GNL_VAR_ORIGINAL) 
if (BListAddElt (ListAsync, (int*)VarI)) 
return (GNL_MEMORY_FULL) ; 

} 

fprintf (benchFile, "always @( ") ; 

for (i=0; i<BListSize (ListClocks) -1 ; i++) 
{ 

Clockl = (GNL__VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, "%s_sh or " , GnlVarName (Clockl) ) ; 

OnePrint++; 

} 
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if (BListSize (ListClocks) ) 
{ 

Clockl = (GNL__VAR) BListElt (ListClocks, i) ; 
fprintf (benchFile, "%s_sh " , GnlVarName (Clockl)); 
OnePrint++ ; 

} 

if (BListSize (Listlnputs) && OnePrint) 
fprintf (benchFile, "or " ) ; 

for (i=0; i<BListSize (ListOutPuts) -1; i++) 
{ 

OutputI = (GNL_VAR) BListElt (ListOutPuts, i) ; 
fprintf (benchFile, "%s or GnlVarName (OutputI)); 
OnePrint++; 

} 

if (BListSize (ListOutPuts)) 

{ 

OutputI = (GNL_VAR) BListElt (ListOutPuts, i) ; 
fprintf (benchFile, "%s GnlVarName (OutputI) ) ; 
OnePrint++; 

} 

if (BListSize (Listlnputs) OnePrint) 
fprintf (benchFile, "or ") ; 

for (i=0; i<BListSize (Listlnputs) -1; i++) 

{ 

InputI = (GNL_VAR) BListElt (Listlnputs, i) ; 
fprintf (benchFile, "%s or " , GnlVarName (InputI)); 
OnePrint++ ; 

} 

if (BListSize (Listlnputs)) 

{ 

InputI = (GNL_VAR) BListElt (Listlnputs, i) ; 
fprintf (benchFile, "%s , GnlVarName (InputI)); 
OnePrint++; 

} 

if (BListSize (ListAsync) && OnePrint) 
fprintf (benchFile, "or M ); 

for (i=0; i<BListSize (ListAsync) -1; i++) 

{ 

InputI = (GNL_VAR) BListElt (ListAsync, i) ; 

fprintf (benchFile, "%s or GnlVarName (InputI)); 

OnePrint++; 

} 

if (BListSize (ListAsync) ) 

{ 

InputI = (GNL_VAR) BListElt (ListAsync, i) ; 
fprintf (benchFile, "%s ", GnlVarName (InputI)); 
OnePrint ++,* 

} 



fprintf (benchFile, ")\n"); 
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fprintf (benchFile, " begin\n") ; 

fprintf (benchFile, " $display (\ » time = %cd, " , '%'); 

OnePrint = 0; 

for (i=0; i<BListSize (ListClocks) -1; i++) 
{ 

Clockl = (GNL__VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, "%s_sh = %cd, " , GnlVarName (Clockl), '% 
OnePrint++; 

} 

if (BListSize (ListClocks) ) 

{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, "%s_sh = %cd", GnlVarName (Clockl), ■%») 
OnePrint++ ; 

} 

if (BListSize (ListOutPuts) OnePrint) 
fprintf (benchFile, », ") ; 

for (i=0; i<BListSize (ListOutPuts) -1; i++) 
{ 

Output I = (GNL_VAR) BListElt (ListOutPuts, i) ; 

fprintf (benchFile, "%s = %cd, n , GnlVarName (OutputI) , '%') 

OnePrint++; 

} 

if (BListSize (ListOutPuts)) 
{ 

OutputI = <GNL_VAR) BListElt (ListOutPuts, i) ; 

fprintf (benchFile, "%s ~ %cd n , GnlVarName (OutputI), '%'); 

OnePrint++; 

} 

if (BListSize (Listlnputs) && OnePrint) 
fprintf (benchFile, n , "); 

for (i=0; i<BListSize (Listlnputs) -1; i++) 
{ 

InputI = <GNL_VAR) BListElt (Listlnputs, i) ; 

fprintf (benchFile, "%s = %cd," , GnlVarName (InputI), '%'); 
OnePrint++ ; 

} 

if (BListSize (Listlnputs) ) 
{ 

InputI = (GNL_VAR) BListElt (Listlnputs, i) ; 

fprintf (benchFile, "%s = %cd" , GnlVarName (InputI), '%'); 

OnePrint++; 

} 

if (BListSize (ListAsync) && OnePrint) 
fprintf (benchFile, », "); 

for (i=0; i<BListSize (ListAsync) -1; i++) 

{ 

InputI = (GNL_VAR) BListElt (ListAsync, i) ; 

fprintf (benchFile, "%s = %cd," , GnlVarName (InputI), ' %'); 
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One Print + + ; 

} 

if (BListSize (ListAsync) ) 
{ 

InputI = (GNL__VAR) BListElt (ListAsync, i) ; 

fprintf (benchFile, "%s = %cd" , GnlVarName (InputI), »%») 

OnePrint++; 

} 

OnePrint = 0; 

fprintf (benchFile, "\\n\", $time,"); 

for (i=0; i<BListSize (ListClocks) -1; i++) 
{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 

fprintf (benchFile, " %s_sh, » , GnlVarName (Clockl)); 

OnePrint++; 

} 

if (BListSize (ListClocks)) 

{ 

Clockl = (GNL_VAR) BListElt (ListClocks, i) ; 
fprintf (benchFile, " %s_sh n , GnlVarName (Clockl)); 
OnePrint++ ; 

} 

if (BListSize (ListOutPuts) && OnePrint) 
fprintf (benchFile, ","); 

for (i=0; i<BListSize (ListOutPuts) -1; i++) 
{ 

OutputI = (GNL_VAR) BListElt (ListOutPuts, i) ; 
fprintf (benchFile, " %s,", GnlVarName (OutputI)); 
OnePrint++; 

} 

if (BListSize (ListOutPuts)) 
{ 

OutputI = (GNL_VAR) BListElt (ListOutPuts, i) ; 
fprintf (benchFile, " %s", GnlVarName (OutputI)); 
OnePrint++; 

} 

if (BListSize (Listlnputs) && OnePrint) 
fprintf (benchFile, ","); 

for (i=0; i<BListSize (Listlnputs) -1 ; i++) 
{ 

InputI = (GNL__VAR) BListElt (Listlnputs, i) ; 
fprintf (benchFile, " %s," , GnlVarName (InputI)); 
OnePrint ++; 

} 

if (BListSize (Listlnputs) ) 
{ 

InputI = (GNL_VAR) BListElt (Listlnputs, i) ; 
fprintf (benchFile, " %s" , GnlVarName (InputI)); 
OnePrint++; 

} 
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if (BListSize (ListAsync) && OnePrint) 
fprintf (benchFile, " , ") ; 

for (i=0; i<BListSize (ListAsync) - 1 ; i++) 

{ 

Input I = (GNL_VAR) BListElt (ListAsync, i) ; 
fprintf (benchFile, " %s,", GnlVarName (Input I) 
OnePrint++ ; 

} 

if (BListSize (ListAsync) ) 

{ 

InputI = (GNL_VAR) BListElt (ListAsync, i) ; 
fprintf (benchFile, " %s", GnlVarName (InputI)); 
OnePrint++; 

} 

BListQuickDelete (&ListAsync) ; 

fprintf (benchFile, ");\n"); 
fprintf (benchFile, " end\n\n"); 

return (GNL OK) ; 



/* */ 

/* GnlPrintlnstanceAndEndModule */ 

/* 

GNL_STATUS GnlPrintlnstanceAndEndModule (benchFile, GnlName, Listlnputs, 

ListOutputs , ListClocks , 
Lis t Asy nc Lo w , Lis t Asy n cH i gh ) 

FILE *benchFile; 
char *GnlName; 
BLIST List Inputs; 
BLIST List Output s ; 
BLIST ListClocks; 
BLIST ListAsyncLow; 
BLIST Lis t AsyncHigh ; 

{ 

int Maxld = 0; 

int i ; 

int j ; 

GNL_VAR Varl; 

BLIST ListAsync; 



/* Extracting the original async signals of the netlist */ 
if (BListCreate (&ListAsync) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (ListAsyncLow); i++) 

{ 

Varl = (GNL_VAR) BListElt (ListAsyncLow, i) ; 
if (GnlVarType (Varl) == GNL_VAR_ORIGINAL) 
if (BListAddElt (ListAsync, (int*) Varl)) 
return (GNL__MEMORY_FULL) ; 

} 
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for (i=0; i<BListSize (ListAsyncHigh) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 
if (GnlVarType (Varl) == GNL_VAR_OR I G INAL ) 
if (BListAddElt (ListAsync, (int*)VarI)) 
return (GNL_MEMORY_FULL) ; 

} 



fprintf (benchFile, n %sUl (", GnlName) ; 
for (i=0; i<BListSize (Listlnputs) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (Listlnputs, i) / 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl); 

} 

for (i=0; i<BListSize (ListOutputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

for (i=0; i<BListSize (ListClocks) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListClocks, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

for (i=0; i<BListSize (ListAsync) ; i++) 

{ 

Varl = (GNL__VAR) BListElt (ListAsync, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

for (j=0; j< Maxld; j++) 

{ 

for (i=0; i<BListSize (Listlnputs); i++) 
{ 

Varl = (GNL_VAR) BListElt (Listlnputs, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s, » , GnlVarName (Varl) ) ; 

} 

for (i=0; i<BListSize (ListOutputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s, " , GnlVarName (Varl) ) ; 

} 

for (i=0; i<BListSize (ListClocks); i++) 
{ 

Varl = (GNL_VAR) BListElt (ListClocks, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, n %s, » , GnlVarName (Varl) ) ; 

} 

for (i=0; i<BListSize (ListAsync) ; i++) 
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{ 

Varl = (GNL_VAR) BListElt (ListAsync, i) ; 
if (GnlVarld (Varl) =- j) 

fprintf (benchFile, »%s, " , GnlVarName (Varl)); 

} 

} 

for (i-0; i<BListSize (Listlnputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Listlnputs, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s", GnlVarName (Varl)); 

} 

for (i=0; i<BListSize (ListOutputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s M , GnlVarName (Varl) ) ; 

} 

for (i=0; i<BListSize (ListClocks) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListClocks, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s" , GnlVarName (Varl)); 

} 

for (i=0; i<BListSize (ListAsync) ; i++) 
{ 

Varl - (GNL_VAR) BListElt (ListAsync, i) ; 
if (GnlVarld (Varl) == j) 

fprintf (benchFile, "%s", GnlVarName (Varl) ) ; 

} 

fprintf (benchFile, ") ;\n\n M ) ; 
fprintf (benchFile, u endmodule\n" ) ; 



return (GNL_OK) ; 



/* 

/* GnlGenerateBenchFile */ 
/* 

GNL_STATUS GnlGenerateBenchFile (Gnl, ListClocks, Listlnputs, 

ListOutputs, ListAsyncLow, ListAsyncHigh 
TimeLimit, Period, Step) 



GNL 


Gnl; 


BLIST 


ListClocks; 


BLIST 


Listlnputs; 


BLIST 


ListOutputs; 


BLIST 


Li s t AsyncLow ; 


BLIST 


ListAsyncHigh; 


int 


TimeLimit; 


int 


Period; 


int 


Step; 


FILE 


*benchFile; 


char 


*NewName ; 
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} 



char *GnlName ; 

GnlName = GnlName (Gnl) ; 

if (GnlStrAppendStrCopy (GnlName, M _bench.v" , &NewName) ) 
return (GNL_MEMORY_FULL) ; 

if ( (benchFile = fopen (NewName, V)) NULL) 
return (GNL_CANNOT_OPEN_OUTFILE) ; 

fprintf (stderr, "# Generating test bench file : [%s]\n n , NewName); 

GnlPrintHeaderbench (benchFile) ; 

if (GnlPrintModuleAndlnterf ace (benchFile, GnlName, ListClocks, 

List Inputs, ListOutputs, 
ListAsyncLow, ListAsyncHigh) ) 

return (GNL_MEMORY__FULL) ; 

GnlPrintlnitial (benchFile, ListClocks, TimeLimit) ; 

GnlPrintAlwaysClocks (benchFile, ListClocks, Period) ; 

if (GnlPrintAlways Inputs (benchFile, Gnl, Listlnputs, ListAsyncLow, 

ListAsyncHigh, TimeLimit, Step)) 
return (GNL_MEMORY FULL) ; 



if (GnlPrintAlwaysTrace (benchFile, ListClocks, ListOutputs, Listlnputs, 

ListAsyncLow, ListAsyncHigh) ) 

return ( GNL_MEMORY_FULL ) ; 

if (GnlPrintlnstanceAndEndModule (benchFile, GnlName, Listlnputs, 

ListOutputs, ListClocks, 

ListAsyncLow, ListAsyncHigh) ) 

return (GNL_MEMORY_FULL) ; 
fclose (benchFile) ; 
return (GNL OK) ; 



/* */ 

/* GnlGenerateBench */ 

/* */ 

GNL_STATUS GnlGenerateBench (Gnl, TimeLimit, Period, Step) 
GNL Gnl ; 

int TimeLimit; 
int Period; 
int Step; 

{ 

GNL__STATUS Gnl Status ; 

BLIST ListClocks; 
BLIST Listlnputs; 
BLI ST Li stOutput s ; 
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BLIST Lis t AsynchHigh ; 
BLIST ListAsynchLow; 



if ( (GnlStatus = GnlExtractClocks (Gnl, &ListClocks) ) ) 
return (GnlStatus) ; 

if ((GnlStatus = GnlExtractAsynchSignals (Gnl, 

&L i s t As y n chH i gh , 
&ListAsynchLow) ) ) 

return (GnlStatus) ; 

if ((GnlStatus = GnlExtract Inputs (Gnl, ListClocks, ListAsynchLow, 

ListAsynchHigh, &ListInputs ) ) ) 

return (GnlStatus) ; 

if ((GnlStatus = GnlExtractOutputs (Gnl, ListClocks, ListAsynchLow, 

ListAsynchHigh, ScListOutputs ) ) ) 

return (GnlStatus) ; 

GnlGenerateBenchFile (Gnl, ListClocks, Listlnputs, 

ListOutputs , ListAsynchLow, ListAsynchHigh, 
TimeLimit, Period, Step) ; 

return (GNL_OK) ; 

} 

/* 
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/* it/ 

/* */ 

/* File: gnlcheck.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 

/* it/ 



#include <stdio.h> 

ftifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl .h" 
#include "gnlmint.h" 

#include "blist.e" 

#define MAX DEPTH CYCLE 2 00 00 



/* 

/* Global Variables 

/* 

static BLIST GJNodeStack; 
static BLIST G_NodesOnCycle ; 



/* ie/ 

/* GnlMaybeCycle */ 

/* 

/* This procedures return the follwoing values for 'Res 1 : */ 
/* 0 --> Leaves from node 'Node' have a depth less than */ 

/* MAX_DEPTH_CYCLE so there is no potential cycle */ 

/* */ 
/* 1 --> A leaf with depth = MAX_DE PTH_C YCLE has been */ 

/* reached and the list 'ListCycle' is currently build */ 



/* corresponding to the recursive calls of 'GnlMaybeCycle 1 */ 

/* on each 'Node' . */ 
/* */ 

/* 2 --> Means that the list 'ListCycle' has been build */ 

/* in such a way that there is a cycle in it so we just */ 

/* de-statck the calls and do not touch anymore the list */ 



/* 'ListCycle' that will be used to print out. */ 
/* */ 

GNL_STATUS GnlMaybeCycle (Node, Depth, ListCycle, Res) 
GNL_NODE Node; 



int Depth; 
BLIST ListCycle; 
int *Res; 
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int i ; 

GNL_VAR Var ; 
GNL_NODE SonI; 
GNL_NODE NodeFunction; 
int RecRes ; 

GNL NODE SinkNode; 



/* We reach a leaf with depth = MAX_DEPTH_CYCLE 
/* is a cycle. 

if (Depth > MAX_DEPTH_CYCLE) 
{ 

BSize (ListCycle) = 0; 

if (BListAddElt (ListCycle, (int) Node)) 

return ( GNL_MEMORY_FULL) ; 
*Res = 1; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) GNL_CONS TANTE ) 
{ 

*Res = 0; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) « GNL_VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Node) ; 

if (GnlVarDir (Var) GNL_VAR_INPUT) 

{ 

*Res = 0; 
return (GNL_0K) ; 

} 

/* already visited and we know that there is no loop */ 
if (GnlVarHook (Var) ) 
{ 

*Res = 0; 
return (GNL_0K) ; 

} 

if (GnlVarFunction (Var) == NULL) 
{ 

*Res = 0; 
return (GNL_0K) ; 

} 

NodeFunction = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 

if (GnlMaybeCycle (NodeFunction, Depth+1, ListCycle, &RecRes) ) 
return (GNL_MEM0RY_FULL) ; 

/* a potential cycle already reached and 'ListCycle' already built*/ 
if (RecRes == 2) 

{ 

*Res = 2; 



. . . probably this */ 
*/ 
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return (GNL_OK) ; 

} 



/* a potential cycle already reached but we are currently building*/ 
/* the 'ListCycle ' . */ 
if (RecRes 1) 
{ 

SinkNode = (GNL_NODE) BListElt (ListCycle, 0) ; 

/* Ok the loop is here at that node. */ 

if (Node — SinkNode) 

{ 

if (BListAddElt (ListCycle, (int)Node)) 

return (GNL_MEMORY_FULL) ; 
*Res = 2; 
return (GNL_0K) ; 

} 



/* Otherwise we stack the node 'Node'. */ 
if (BListAddElt (ListCycle, (int)Node)) 

return ( GNL_MEMORY_FULL ) ; 
*Res = 1; 
return (GNL_OK) ; 

} 



/* We pass thru this variable *Var' and we know that there is no */ 
/* when traversing it. So we mark it and will not pass thru next */ 
/* time. */ 
SetGnlVarHook (Var, (int*) 1) ; 



*Res - 0; 
return (GNL OK) ; 



for (i=0; i<BListSize (GnlNodeSons (Node) ) ; i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node) , i) ; 
if (GnlMaybeCycle (SonI, Depth+1, ListCycle, &RecRes) ) 
return (GNL__MEMORY_FULL) ; 

if (RecRes == 2) 

{ 

*Res = 2; 
return (GNL_0K) ; 

} 

if (RecRes == 1) 
{ 

SinkNode = (GNL_N0DE) BListElt (ListCycle, 0) ; 

/* Ok the loop is here at that node. */ 
if (Node SinkNode) 
{ 

if (BListAddElt (ListCycle, (int) Node)) 

return (GNL_MEMORY_FULL) ; 
*Res = 2; 
return (GNL_0K) ; 

} 
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/* Otherwise we stack the node 'Node', 
if (BListAddElt (ListCycle, (int)Node)) 

return <GNL_MEMORY_FULL) ; 
*Res = 1; 
return (GNLJDK) ; 

} 

} 

*Res = 0; 
return (GNL_OK) ; 

} 



/* 

/* GnlPrintCycle */ 
/* 

void GnlPrintCycle (Gnl, ListCycle) 
GNL Gnl ; 

BLIST ListCycle; 

{ 

int i ; 

GNL_NODE Nodel; 
GNL_VAR Var; 



f print f (stderr, 

" ERROR: Combinatorial cycle (size=%d) detected in [%s]\n" , 

BListSize (ListCycle) , GnlVarName (Gnl) ) ; 
for (i=BListSize (ListCycle) -1; i>0; i--) 

{ 

Nodel = (GNL_NODE) BListElt (ListCycle, i) ; 
if (GnlNodeOp (Nodel) GNL_VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Nodel); 

fprintf (stderr, " %s ->\n", GnlVarName (Var)); 

} 

else 

fprintf (stderr, " ->\n"); 

} 

Nodel = (GNL__NODE) BListElt (ListCycle, i) ; 
if (GnlNodeOp (Nodel) == GNL_VAR I ABLE ) 

{ 

Var = (GNL_VAR) GnlNodeSons (Nodel); 

fprintf (stderr, » %s\n", GnlVarName (Var) ) ; 

} 

else 

fprintf (stderr, " . .\n ,f ); 

} 

/* 

/* GnlDetectCyclesInGnl */ 

/* 

/* This procedure detects cycles in a Gnl which is a graph. It uses a 
/* stack-based approach and is not very efficient. */ 
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/* 

GNL_STATUS GnlDetectCyclesInGnl (Gnl) 
GNL Gnl ; 

{ 

int i; 
GNL_VAR Varl; 
GNL_FUNCT I ON FunctionI ; 
int Res; 
BLIST ListCycle; 



/* Reset the Var hook. */ 
GnlResetVarHook (Gnl) ; 

if (BListCreate (^ListCycle) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

/* There is a potential cycle. */ 
if (GnlMaybeCycle (GnlFunctionOnSet (FunctionI); 0, ListCycle, 

&Res) ) 

return ( GNL_MEMOR Y_FULL) ; 

if (Res 2) 
{ 

GnlPrintCycle (Gnl, ListCycle); 
BListQuickDelete (ScListCycle) ; 
return (GNL_CYCLE_DETECTED) ; 

} 

if (Res 1) 
{ 

fprintf (stderr, 

" ERROR: %s detected a very long path of length > %d\n", 

GNL_T00L_NAME , 

MAX_DEPTH_CYCLE) ; 
BListQuickDelete (&ListCycle) ; 
return ( GNL_CYCLE_DETECTED ) ; 

} 

} 

BListQuickDelete (&ListCycle) ; 

/* Reset the Var hook. */ 
GnlResetVarHook (Gnl) ; 

return (GNL OK) ; 



/* 

/* GnlDetectUnusedVarlnGnl 
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/* */ 

/* This procedure extracts the variables with a functionality but which */ 

/* are not used anywhere. */ 

/* */ 

GNLJSTATUS GnlDetectUnusedVarlnGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 

int Line; 



GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. */ 
GnlGetNumberDadsFromGnl (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if ( (GnlVarDads (Varl) ==0) && 

(GnlVarDir (Varl) == GNL_VAR_LOCAL) ) 

{ 

Line = GnlVarLineNumber (Varl) ; 
fprintf (stderr, 
" WARNING (l.%d): signal <%s> is never used in module [%s]\n M , 
Line, GnlVarName (Varl) , GnlName (Gnl) ) ; 

} 

} 

return (GNL_0K) ; 

} 



/* */ 

/* GnlCheckUndrivenVar */ 

/* */ 

/* This procedure extracts the variable which are GNL_VAR_LOCAL and */ 
/* which have no functionality associated to it. There are undriven */ 
/* signals and this can cause important troubles for many traversal */ 
/* algorithms. */ 
/* */ 



static BLIST G_UndrivenVar ; 
GNL_STATUS GnlCheckUndrivenVar (Node) 
GNL_N0DE Node; 

{ 

int i ; 

GNL_VAR Var; 
GNL_NODE SonI; 
GNL_NODE NodeFunction; 
unsigned int Key; 
BLIST NewList; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_0K) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
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{ 

Var = (GNL_VAR) GnlNodeSons (Node); 

if (GnlVarDir (Var) ! = GNL_VAR_LOCAL) 
return (GNL_OK) ; 

Key = KeyOfName (GnlVarName (Var), BListSize (G_UndrivenVar) ) ; 

if (G_UndrivenVar->Adress [Key] == (int)NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 
G_UndrivenVar->Adress [Key] = (int)NewList; 

} 

NewList = (BLIST) (G_UndrivenVar- >Adress [Key] ) ; 

if (GnlVarFunction (Var) == NULL) 
{ 

if ( IBListMemberOf List (NewList, Var, Intldentical) ) 
if (BListAddElt (NewList, (int)Var)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

NodeFunction = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 
if (NodeFunction NULL) 
{ 

if ( IBListMemberOf List (NewList, Var, Intldentical)) 
if (BListAddElt (NewList, (int)Var)) 
return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 

} 

return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node) ) ; i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node) , i) ; 
if (GnlCheckUndrivenVar (SonI) ) 
return ( GNL_MEMORY_FULL ) ; 

} 



return (GNL_OK) ; 

} 

/* */ 

/* GnlDetectUndrivenVarlnGnl */ 

/* */ 

/* This procedure enumerates the variables which are used and which are */ 
/* supposed to have an associated function (GNL_VAR_LOCAL) but actually */ 
/* they have not. */ 

/* */ 

GNL_STATUS GnlDetectUndrivenVarlnGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL VAR Varl; 
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GNL_FUNCTION Functionl ; 
BLIST ListI; 
BLIST Bucket J; 
int j ; 

int Line; 



if (BListCreateWithSize (1000, &G__UndrivenVar) ) 

return ( GNL_MEMORY_FULL ) ; 
BSize <G_UndrivenVar) = 1000; 

for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Functionl = GnlVarFunction (Varl) ; 

if (GnlCheckUndrivenVar (GnlFunctionOnSet (Functionl) ) ) 
return (GNL_MEMORY_FULL) ; 

} 

for (j=0; j<BListSize (G_UndrivenVar) ; j++) 
{ 

BucketJ = (BLIST) BListElt (G_UndrivenVar , j); 
if (! Bucket J) 
continue; 

for (i=0; i<BListSize (Bucket J) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (BucketJ, i) ; 
Line = GnlVarLineNumber (Varl) ; 
f print f (stderr, 

11 WARNING (l.%d) : signal <%s> is used but never driven in module [%s] \n" 
Line, GnlVarName (Varl), GnlName (Gnl) ) ; 
SetGnlVarDir (Varl, GNL_VAR_LO C AL_UND R I VEN ) ; 

} 

} 

for (i=0; i<BListSize (G_UndrivenVar) ; i++) 
{ 

ListI = (BLIST) BListElt (G_UndrivenVar , i) ; 
if (ListI) 

BListQuickDelete (&ListI) ; 

} 

BListQuickDelete (&G UndrivenVar) ; 



} 



return (GNL OK) ; 



/* 

/* GnlNodelsConnected 

/* 

void GnlNodelsConnected (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_VAR Var; 
GNL_FUNCT I ON Function ; 
GNL NODE Node I ; 
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if (GnlNodeOp (Node) == GNL_VAR I AB LE ) 

{ 

Var = (GNLJVAR) GnlNodeSons (Node) ; 

/* already processed. */ 
if (GnlVarHook (Var) ) 
return; 

SetGnlVarHook (Var, 1); /* We mark the variable. */ 

if ( IGnlVar Function (Var)) 
return; 

Function = GnlVar Function (Var) ; 
Node = GnlFunctionOnSet (Function) ; 
GnlNodelsConnected (Node) ; 

return; 

} 

if (GnlNodeOp (Node) GNL_CONSTANTE) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlNodelsConnected (Nodel) ; 

} 



z* */ 

/* GnlRemoveNonConnexNodes */ 

/* --*/ 

GNL_STATUS GnlRemoveNonConnexNodes (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int j ; 

GNL_VAR VarJ; 

GNL_VAR Varl ; 

BLIST Bucketl; 

GNL_FUNCTT ON Func t i on ; 

GNL__NODE Node; 

BLIST HashTableNames; 



GnlResetVarHook (Gnl) ; 

HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames) ; i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

{ 



C-GNLl-38 



gnlcheck.c 



VarJ = (GNL_VAR) BListElt (Bucketl, j ) ; 

/* This var has been already traversed, 
if (GnlVarHook (VarJ) ) 
continue; 

if (GnlVarDir (VarJ) == GNL_VAR_LOCAL) 

fprintf (stderr, "%s\n n , GnlVarName (VarJ) ) ; 

continue; 

if ( (GnlVarDir (VarJ) == GNL_VAR_OUTPUT ) | | 

(GnlVarDir (VarJ) == GNL_VAR_INOUT) | | 

(GnlVarDir (VarJ) == GNL__VAR__LO C AL_W I R ING ) ) 

{ 

if ( I GnlVa r Function (VarJ)) 
continue; 

Function = GnlVarFunction (VarJ) ; 
Node = GnlFunctionOnSet (Function) ; 
GnlNodelsConnected (Node) ; 

} 

} 

} 

for (i = 0; i<BListSize (HashTableNames) ; i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
if ( I GnlVarHook (VarJ) && 

(GnlVarDir (VarJ) == GNL_VAR_LOCAL) ) 

{ 

BListDellnsert (Bucketl, j+1) ; 

j--; 

} 

} 

} 



for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if ('GnlVarHook (Varl) 

(GnlVarDir (Varl) == GNL_VAR_LOCAL) ) 

{ 

fprintf (stderr, 

" WARNING: Removing unconnected signal 1 %s 
GnlVarName (Varl) ) ; 

BListDellnsert (GnlFunctions (Gnl) , i+1) ; 
i-- ; 

} 

} 

GnlResetVarHook (Gnl) ; 
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return (GNL_OK) ; 

} 



/* */ 

/* GnlCheckGnl */ 

/* */ 

/* Three kind of checks are implemented: */ 

/* - cycle detection in Boolean equations in a Gnl */ 

/* - warning enumeration of unused variables having a functionality*/ 

/* - warning enumeration of undriven variables supposed to have a */ 

/* functionality */ 

/* */ 

GNL_STATUS GnlCheckGnl (Gnl) 
GNL Gnl ; 

{ 

GNL STATUS Status; 



/* Cycles detections. */ 
if ( (Status = GnlDetectCyclesInGnl (Gnl) ) ) 
return (Status) ; 

/* Unused var detections. */ 
if (GnlDetectUnusedVarlnGnl (Gnl)) 
return (GNL_MEMORY_FULL) ; 

/* undriven var detections. */ 
if (GnlDetectUndrivenVarlnGnl (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

/* 

if (GnlRemoveNonConnexNodes (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

*/ 

return (GNL_OK) ; 

} 

/* */ 

/* GnlCheckAllGnl */ 

/* */ 

GNL_STATUS GnlCheckAllGnl <Nw, Gnl) 
GNL_NETWORK Nw; 
GNL Gnl ; 



{ 



int i ; 

GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
GNL GnlCompol; 
GNL_STATUS Status ; 

BLIST Components ; 



/* If the 'Gnl 1 has been already processed it is not necessary to */ 
/* re-check it and its user components */ 
if (GnlTag (Gnl) GnlNetworkTag (Nw) ) 
return (GNLJDK) ; 
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SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

/* We check the current 'Gnl'. */ 
if ( (Status = GnlCheckGnl (Gnl) ) ) 

{ 

if (Status =- GNL_CYCLE_DETECTED) 

{ 

fprintf (stderr, 

" Mapit Aborted because of a combinatorial cycle\n" ); 

exit (1) ; 

} 

return ( GNL_MEMOR Y_FULL ) ; 

} 

Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components) ; i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components; i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue ; 

UserCompol - (GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if ( ! GnlCompol) 
continue ; 

if (GnlCheckAllGnl (Nw, GnlCompol)) 
return ( GNL_MEMORY_FULIi ) ; 

} 

return (GNL__OK) ; 

} 

/* */ 

/* GnlCheckNetwork */ 

/* */ 

/* Main checking function which checks the correct integrity of the */ 

/* network 'Nw' . */ 

/* */ 

GNL__STATUS GnlCheckNetwork (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl; 

TopGnl = GnlNetworkTopGnl (Nw) ; 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (GnlCheckAllGnl (Nw, TopGnl)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

return (GNL_OK) ; 

} 
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/* */ 

/* */ 

/* File: gnlcreate.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 
/* */ 

/* Description: */ 
/* */ 

/* */ 



#include <stdio.h> 

#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl.h" 

#include " tokens. h" /* Actually the tokens from y.tab.h coming from */ 

/* from the <yacc -d gnlparse.y> */ 

#include "blist.e" 



/* */ 

/* GLOBAL VARIABLES */ 

/* */ 

int GNL_VAR_UNIQUE_ID =0; /* Unique Id identifying GNL_VAR */ 



/* */ 

/* GNL_CALLOC */ 

/* */ 

unsigned GNL_CALLOC (NbObj, SizeObj) 
unsigned NbObj ; 
unsigned SizeObj; 

{ 

#ifdef MEMOR Y_S TAT 

GLOBAL- >TotalMemoryCalloc += NbObj *SizeObj ; 
#endif 

return ( (unsigned) calloc (NbObj , SizeObj ) ) ; 

} 

/* */ 

/* KeyOfName */ 
/* */ 

unsigned int KeyOfName (Name, HashTableSize) 

char *Name ; 

int HashTableSize ; 

{ 

char *p; 

unsigned h; 
unsigned g; 
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h = 0; 

for (p= Name; *p ;p++) 

{ 

h= (h<<4)+(*p); 

if ( (g = h & OxFOOOOOOO) != 0) 

{ 

h *= (g»24) ; 
h A = g; 

} 

} 

return (h % HashTableSize) ; 

} 



/* 

/* GnlCreateBuf Component 

/* 

GNL_STATUS GnlCreateAssoc (); 
GNL_STATUS GnlCreateBuf Component (NewCompo) 
GNL_BUF_COMPONENT * NewCompo ; 

{ 

BLIST NewList; 
int i; 
GNL_ASSOC NewAs soc ; 

if <(*NewCompo= (GNL_BUF_COMPONENT) calloc (1, 

Sizeof (GNL_BUF_COMPONENT_REC) ) ) = = NULL) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlBufType (*NewCompo, GNL_BUF_COMPO ) ; 

if (BListCreateWithSize (2, &NewList) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<2; i++) 

{ 

if (GnlCreateAssoc (&NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (NewList, (int) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlBuf Interface (*NewCompo, NewList) ; 
return (GNL_OK) ; 

} 



/* 

/* GnlCreateTristateComponent */ 

/* 

GNL_STATUS GnlCreateAssoc () ; 

GNL_STATUS GnlCreateTristateComponent (NewCompo) 
GNL_TRISTATE_COMPONENT *NewCompo ; 
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} 



BLIST NewList ; 
int i ; 

GNL ASSOC NewAssoc; 



if ( ( *NewCompo = (GNL_TRISTATE_COMPONENT) c alloc {1, 

sizeof (GNL_TRISTATE_COMPONENT_REC) ) ) == NULL) 
return (GNL__MEMORY_FULL) ; 

SetGnlTriStateType (*NewCompo / GNL_TR I S T ATE_COMPO ) ; 

if (BListCreateWithSize (3, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

for (i = 0; i<3; i++) 

{ 

if (GnlCreateAssoc (&NewAssoc) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt (NewList, (int) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlTriStatelnterf ace (*NewCompo, NewList) ; 
return (GNL OK) ; 



/* 

/* GnlVarCreate 

/* 

GNL_STATUS GnlVarCreate (Gnl, Name, Var) 

GNL Gnl ; 

char *Name; 

GNL VAR *Var; 



{ 



char *NewName ; 

if ((*Var= (GNL_VAR)GNL_CALLOC (1, sizeof (GNL_VAR_REC) ) ) == NULL) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlVarDir { (*Var) , GNL_VAR_LOCAL ) ; /* By Default */ 
SetGnlVarType ( (*Var) , GNL_VAR_ INTERNAL) ; /* By Default 

SetGnlVarMsb ( (*Var) , -1); /* By Default */ 

SetGnlVarLsb ((♦Var), -1); /* By Default */ 

SetGnlVarld ( (*Var) , GNL_VAR_UNIQUE_ID++) ; 

if (GnlStrCopy (Name, &NewName) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlVarName ( (*Var) , NewName) ; 

return (GNL OK) ; 



/*■ 
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/* GnlResizeHashNames 
/* 



*/ 



/* This procedure reduce the size of a hash table names if this one is 

/* to huge compare to the number of elements it stores. 

/* 



#define GNL_TRESHOLD_RESIZE 20 
GNL STATUS GnlResizeHashNames (Gnl) 



{ 



GNL Gnl ; 

int i ; 

int j ; 

int NbElem; 

BLIST HashTableNames; 

BLIST NewList; 

BLIST Bucketl; 

GNL VAR VarJ; 



NbElem = 0; 

HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames) ; i++) 

{ 

Bucketl - (BLIST) BListElt (HashTableNames, i) ; 
if (Bucketl) 

NbElem += BListSize (Bucketl) ; 
if (NbElem > GNL_TRE S HOLD_RE SIZE) 
return (GNL_0K) ; 

} 

if (BListCreateWithSize (NbElem, &NewList) ) 
return (GNL__MEMORY_FULL) ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
if (IBucketl) 
continue; 

for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

if (BListAddElt (NewList, (int) VarJ)) 
return (GNL_MEMORY__FULL) ; 

} 

BListQuickDelete (&BucketI) ; 

} 

BListQuickDelete (^HashTableNames) ; 

if (BListCreateWithSize (1, ^HashTableNames) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (HashTableNames, (int) NewList) ) 

return (GNL MEMORY_FULL ) ; 
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SetGnlHashNames (Gnl, HashTableNames) ; 
return (GNL_OK) ; 

} 

/* */ 

/* GnlUpdateDirVar */ 

/* */ 

/* 'Var' is used in the components and its direction must be updated */ 
/* (and the direction of its expansions) if its Direction is local */ 
/* GNL_VAR_LOCAL . We change it into GNL_VAR_LOCAL_WIRING so that it */ 
/* is still Local but cannot be removed from any optimization phases. */ 
/* */ 

GNL_STATUS GnlUpdateDirVar (Gnl, Var) 

GNL Gnl; 

GNL_VAR Var; 

{ 

int i ; 

int Start; 

int End; 

char * IndexVarName ; 

GNL_VAR I ndexVa r ; 



if (GnlVarRangeUndef ined (Var)) /* it is a single bit 

{ 

if (GnlVarDir (Var) == GNL_VAR_LOCAL ) 

SetGnlVarDir (Var, GNL_VAR_LOCAL_WIRING) ; 

return (GNLjDK) ; 

} 

/* If not it is a bus signal. * 
if (GnlVarMsb (Var) >= GnlVarLsb (Var) ) 
{ 

Start = GnlVarMsb (Var) ; 
End = GnlVarLsb (Var) ; 

} 

else 

{ 

Start = GnlVarLsb (Var) ; 
End = GnlVarMsb (Var) ; 

} 

for (i = Start; i >= End; i--) 

{ 

if (GnlVarlndexName (Var, i, & IndexVarName) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlGetVarFromName (Gnl, IndexVarName, &IndexVar) ) 
GnlError (12 /* Var does not exists */) ; 

if (GnlVarDir (IndexVar) == GNL_VAR_LOCAL ) 

SetGnlVarDir (IndexVar, GNL__VAR_LO C AL WIRING) ; 
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free ( (char*) IndexVarName) ; 



} 



} 

return (GNL OK) ; 



/* 

/* GnlUpdateDir */ 

/* 

/* *Var T is used in the components and its direction must be updated 
/* (and the direction of its expansions) if its Direction is local 
/* GNL_VAR_LOCAL . We change it into GNL_VAR_LOCAL_WIRING so that it 
/* is still Local but cannot be removed from any optimization phases. 
/* 'Var 1 can be also a GNL_NODE with operator GNL_CONCAT. */ 

/* 

GNLJSTATUS GnlUpdateDir (Gnl, Var) 

GNL Gnl ; 

GNL VAR Var; 



{ 



int i ; 

GNL_VAR Varl / 
BLIST Sons; 



if (IVar) 

return ( GNL__OK) ; 

if (GnlVarlsVar (Var) ) 

return (GnlUpdateDirVar (Gnl, Var)); 

Sons = GnlNodeSons ( (GNL_NODE) Var ) ; 
for (i=0; i<BListSize (Sons) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (Sons, i) ; 
if (GnlUpdateDirVar (Gnl, Varl)) 
return ( GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlUniqueVarNamelnGnl */ 

/* 

/* This procedure returns 1 if the name 'Name' is unique and 0 if the 

/* Name already exists. */ 

/* 

int GnlUniqueVarNamelnGnl (Gnl, Name) 
GNL Gnl ; 

char *Name; 

{ 

BLIST NewList; 
GNL_VAR Varl; 
unsigned int Key; 
int i; 
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BLIST HashTableNames ; 
GNL_STATUS GnlStatus ; 

char *NewName ; 



HashTableNames = GnlHashNames (Gnl) ; 

Key = KeyOfName (Name, BListSize (HashTableNames)); 

if (HashTableNames- >Adress [Key] == (int)NULL) 

{ 

return (1) ; 

} 

NewList = (BLIST) (HashTableNames ->Adress [Key] ) ; 

for (i=0; i<BListSize (NewList); i++) 
{ 

Varl = (GNL__VAR) BListElt (NewList, i) ; 
if (Istrcmp (GnlVarName (Varl), Name)) 

{ 

return (0) ; 

} 

} 

return (1) ; 

} 



/* 

/* GnlVarCreateAndAddlnHashTableWithNoTest */ 
/* 

/* Create a new var without testing if the var already exists. 
/* This procedure should then be used very carefully. Give a name that 
/* you know it will be unique. */ 
/* 

GNL_STATUS GnlVarCreateAndAddlnHashTableWithNoTest (Gnl, Name, Var) 
GNL Gnl ; 

char *Name; 
GNL_VAR *Var; 

{ 

BLIST NewList; 
GNL_VAR Varl; 
unsigned int Key; 
int i ; 

BLIST HashTableNames ; 
GNL_STATUS GnlStatus ; 

char *NewName ; 



HashTableNames = GnlHashNames (Gnl) ; 

Key = KeyOfName (Name, BListSize (HashTableNames) ) ; 

if (HashTableNames ->Adress [Key] == (int)NULL) 

{ 

if (BListCreateWithSize (1, &NewList) ) 
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return (GNL_MEMORY_FULL) ; 
HashTableNames->Adress [Key] = ( int) NewList ; 

} 

NewList = (BLIST) (HashTableNames - >Adress [Key] ) ; 

if (GnlStrCopy (Name, &NewName) ) 
return ( GNL_MEMORY_FULL ) ; 

if ( (GnlStatus = GnlVarCreate (Gnl, NewName, Var) ) ) 
return (GnlStatus) ; 

if (BListAddElt ( (BLIST) (HashTableNames- >Adress [Key] ) , (int) (*Var) ) ) 
return (GNL MEMORY_FULL) ; 



return (GNL_OK) ; 

} 



/* 

/* GnlVarCreateAndAddlnHashTable 

/* 

GNL_STATUS GnlVarCreateAndAddlnHashTable (Gnl, Name, Var) 

GNL Gnl ; 

char *Name ; 

GNL VAR *Var; 



{ 



BLIST NewList; 

GNL_VAR Varl; 

unsigned int Key; 

int i ; 

BLIST HashTableNames; 

GNL_STATUS GnlStatus ; 

char *NewName ; 



HashTableNames = GnlHashNames (Gnl) ; 

/* The list GnlHashNames (Gnl) is of size HASH_TABLE_NAMES_SIZE 
Key = KeyOfName (Name, BListSize (HashTableNames)); 

if (HashTableNames ->Adress [Key] == (int)NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

HashTableNames ->Adress [Key] = (int ) NewList ; 

} 

NewList = (BLIST) (HashTableNames- >Adress [Key] ) ; 

for (i=0; i<BListSize (NewList); i++) 
{ 

Varl = (GNL VAR) BListElt (NewList, i) ; 
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if ( ! strcmp (GnlVarName (Varl) , Name) ) 
{ 

*Var = Varl; 

return (GNL_VAR_EXISTS) ; 

} 

} 



/* If not found we create physically a new GNL_VAR */ 
if (GnlStrCopy (Name, &NewName) ) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlVarCreate (Gnl, NewName, Var) ) ) 
return (GnlStatus) ; 

if (BListAddElt { (BLIST) (HashTableNames- >Adress [Key] ) , (int) (*Var) ) ) 
return ( GNL_MEMORY__FULL ) ; 

return (GNL_OK) ; 



/* */ 

/* GnlFreeGnlNode */ 
/* */ 

/* This procedure frees virtually the GNLJSTODE 'Node' and stores it in */ 
/* a free list. Never free physically a GNL__NODE but pass thru this */ 
/* procedure. */ 
/* */ 

GNL_STATUS GnlFreeGnlNode (Gnl, Node) 
GNL Gnl; 
GNL_NODE Node; 

{ 

BLIST NewList; 



if ( (GnlNodeOp (Node) ! = GNL_CONSTANTE) && 
(GnlNodeOp (Node) 1= GNL_VARIABLE) ) 
BListQuickDelete (&GnlNodeSons (Node) ) ; 
BListQuickDelete (&GnlNodeDads (Node) ) ; 

SetGnlNodeTag (Node, 0) ; 
SetGnlNodeOp (Node, 0) ; 
SetGnlNodeSons (Node, NULL) ; 
SetGnlNodeDads (Node, NULL) ; 
SetGnlNodeLineNumber (Node, 0) ; 
SetGnlNodeHook (Node, NULL) ; 

if ( 3GnlListFreeNodes (Gnl) ) 
{ 

if (BListCreate (ScNewList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlListFreeNodes (Gnl, NewList) ; 

} 

if (BListAddElt (GnlListFreeNodes (Gnl), (int) Node)) 
return (GNL_MEMORY_FULL) ; 



C-GNL1-51 



gnlcreate.c 



return (GNL_OK) ; 

} 



/* ie/ 

/* GnlCreateMode */ 
/* + 1 

/* Each created GNLJSTODE object is relative to a 'Gnl' and belongs to */ 
/* a segment of GNLJSTODE. */ 
/* You cannot free directly a specific GNL_NODE created in this way */ 
/* because then you free the whole segment. */ 

/* To Free vitually a GNL_NODE use the function ' GnlFreeGnlNode ' . */ 

/* ie/ 

GNL_STATUS GnlCreateNode (Gnl, Op, NewNode) 
GNL Gnl; 
GNL_OP Op; 
GNLJSTODE *NewNode; 

{ 

int Size; 

/* If there are some previously freed GNLJSTODE we pick up these ones */ 
/* first. */ 
if (GnlListFreeNodes (Gnl) ) 
{ 

if (Size = BListSize (GnlListFreeNodes (Gnl))) 
{ 

*NewNode = (GNLJNODE) BListElt (GnlListFreeNodes (Gnl), Size-1) ; 
BListDelShift (GnlListFreeNodes (Gnl) , Size) ; 
SetGnlNodeOp ( (*NewNode) , Op) ; 
return (GNL_OK) ; 

} 

} 

/* If the first Node equals the last node we create a new page */ 
if (GnlFirstNode (Gnl) >= GnlLastNode (Gnl)) 
{ 

/* We create a new segment of Nodes. */ 
if ((*NewNode = (GNL_NODE) 

GNL_CALLOC <SEGMENT_NODE_SIZE , sizeof (GNL_NODE_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 
SetGnlFirstNode (Gnl, *NewNode) ; 

SetGnlLastNode (Gnl, ( *NewNode) +SEGMENT_NODE_SIZE) ; 
if (BListAddElt (GnlNodesSegments (Gnl), (int) (*NewNode) ) ) 
return (GNL_MEMORY FULL) ; 

} 

*NewNode = GnlFirstNode (Gnl) ; 
SetGnlFirstNode (Gnl, ( *NewNode) +1) ; 

SetGnlNodeOp ( (*NewNode) , Op); 

return (GNL_OK) ; 

} 

/* ^ 

/* GnlCreateConcatNode */ 
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/* This GNL_NODE is created independtly of any Gnl and is leaved alone */ 

/* so it can bee freed alone. */ 

/* 1t/ 

GNL_STATUS GnlGreateConcatNode (NewNode) 
GNL__NODE * NewNode; 

{ 

if ({*NewNode = (GNL_NODE) 

GNL_CALLOC (1, sizeof (GNL__NODE_REC) ) ) == NULL) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlNodeOp ( (*NewNode) , GNL_CONCAT) ; 

return (GNL OK) ; 



/* ie/ 

/* GnlCreateNodeForVar ★ / 

/* ic/ 

GNL_STATUS GnlCreateNodeForVar (Gnl, Var, NewNode) 
GNL Gnl ; 

GNL_VAR Var; 
GNL_NODE *NewNode ; 



{ 



} 



if (GnlCreateNode (Gnl, GNL_VARIABLE , NewNode)) 
return ( GNL__MEMORY_FULL ) ; 

SetGnlNodeSons ( (*NewNode) , (BLIST) Var) ; 

/* For GNL_VARIABLE the pointer */ 
/* sons correspond to Var 

return (GNL OK) ; 



/* 

/* GnlCreateSequentialComponent */ 
/* ft/ 

GNL_S TATUS GnlCreateSequentialComponent (Op, NewPBox) 
GNL_S E QUENT I AL_0 P Op ; 

GNL_S E QUENT I AL_C0M PONENT *NewPBox ; 

{ 

BLIST NewList; 
int i ; 
GNL_ASSOC NewAssoc ; 



if ((*NewPBox = (GNL_SEQUENTIAL_COMPONENT) 

GNL_CALLOC (1, sizeof (GNL_SEQUENTIAL_COMPONENT_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlSequentialCompoType ( (*NewPBox) , GNL__SEQUENTIAL_COMPO) ; 
SetGnlSequentialCompoOp ( (*NewPBox) , Op) ; 

/* A priori the sequential component has two outputs which are Q and */ 
/* Q bar . * / 

SetGnlSequentialCompoFormOutput ( (*NewPBox) , GNL_Q_QBAR) ; 
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if (BListCreateWithSize (6, &NewList) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<6; i++) 

{ 

if (GnlCreateAs soc (StNewAssoc) } 
return ( GNL_MEMOR Y_FULL ) ; 

if (BListAddElt (NewList, (int ) NewAssoc) ) 
return (GNLJVfEMORY_FULL) / 

} 

SetGnlSequentialCompoInterf ace (*NewPBox, NewList) ; 
return (GNL OK) ; 



/* ie/ 

/* GnlFunctionCreate */ 
/* ie/ 

GNL_STATUS GnlFunctionCreate (Gnl, LeftVar, RightNode, GnlFunction) 
GNL Gnl ; 

GNL_VAR LeftVar; 
GNL JNODE RightNode ; 

GNL_FUNCT I ON * Gnl Function ; 



{ 



GNL_STATUS Gnl St at us ; 
GNL_NODE NewNode ; 



if ( (*GnlFunction = (GNL_FUNCTION) 

GNL__CALLOC (1, sizeof (GNL_FUNCTION_REC) ) ) NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionVar ( { *GnlFunction) , LeftVar) ; 

SetGnlFunctionOnSet ( ( *GnlFunction) , RightNode) ; 

return (GNL OK) ; 



/* i(/ 

/* GnlFunctionCreateFromVars ★/ 

/* ie/ 

/* Creates a Boolean function corresponding to a simple assignment */ 

/* between two Vars. */ 

/* it/ 

GNL_S TATUS GnlFunctionCreateFromVars (Gnl, LeftVar, RightVar, 

GnlFunction, LineNumber) 

GNL Gnl ; 

GNL_VAR Le f t Var ; 

GNL__VAR RightVar; 
GNL__FUNCT I ON * Gnl Func t ion ; 
int LineNumber; 

{ 
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GNL_STATUS GnlStatus ; 

GNL NODE NewNode ; 



if ( (*GnlFunction = ( GNL_FUNCT I ON ) 

GNL_CALLOC (1, sizeof (GNL_FUNCTION_REC) ) ) = = NULL) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlFunctionVar ( ( *Gnl Function) , LeftVar) ; 

/* Create the GNL NODE for Var ' Right Var' */ 
if (GnlCreateNodeForVar (Gnl, RightVar, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (NewNode, LineNumber) ; 

SetGnlFunctionOnSet ( (* Gnl Function) , NewNode) ; 

SetGnlVarFunction (LeftVar, (*GnlFunction) ) ; 

if (BListAddElt (GnlFunctions (Gnl), (int) LeftVar) ) 
return (GNL_MEMORY__FULL) ; 

return (GNL OK) ; 



/* */ 

/* GnlSplitSignal */ 
/* */ 

/* Split signal Var according to its range and put it in the lists */ 
/* Gnllnputs or GnlOutputs or GnlLocals according to its Dir. */ 
/* */ 

GNL_STATUS GnlSplitSignal (Gnl, Var) 
GNL Gnl ; 

GNL VAR Var; 



{ 



xnt i ; 

char * I ndexVa rName ; 

GNL_VAR NewVar; 

int Start; 

int End; 



if (GnlVarRangeUndef ined (Var)) /* so it is then a single bit */ 

{ 

switch (GnlVarDir (Var) ) { 
case GNL_VAR_ INPUT : 

if (BListAddElt (Gnllnputs (Gnl), (int) Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbln (Gnl, GnlNbln (Gnl) + 1) ; 
break; 

case GNL_VAR_OUTPUT : 

if (BListAddElt (GnlOutputs (Gnl), (int) Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbOut (Gnl, GnlNbOut (Gnl) + 1) ; 
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break; 

case GNL_VAR_INOUT : 

if (BListAddElt (Gnllnputs (Gnl) , (int)Var)) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbln (Gnl, GnlNbln (Gnl) + 1) ; 
if (BListAddElt (GnlOutputs (Gnl), (int)Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbOut (Gnl, GnlNbOut (Gnl) + 1); 
breaks- 
default : 

if (BListAddElt (GnlLocals (Gnl), (int)Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) + 1) ; 

} 

return ( GNL__OK) ; 

} 

/* It is a bus signal that we split into single bit signals */ 
if (GnlVarMsb (Var) >= GnlVarLsb (Var) ) 
{ 

Start = GnlVarMsb (Var) ; 
End = GnlVarLsb (Var) ; 

} 

else 

{ 

Start = GnlVarLsb (Var) ; 
End = GnlVarMsb (Var) ; 

} 

for (i = Start; i >- End; i- - ) 

{ 

if (GnlVarlndexName (Var, i, &IndexVarName) ) 
return ( GNL _MEMORY_FULL ) ; 

if (GnlVarCreate (Gnl, IndexVarName, &NewVar) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarDir (NewVar, GnlVarDir (Var) ) ; 

/* the location must be assigned somewhere with the real */ 
/* location of the indexed signal. */ 
/* 

SetGnlVarLocation (NewVar, GnlVarLocation (Var) ) ; 

*/ 

/* This var is the result of a Bus expansion and is not original*/ 
SetGnlVarType (NewVar, GNL_VAR_EXPANSED) ; 

switch (GnlVarDir (NewVar) ) { 
case GNL_VAR_INPUT : 

if (BListAddElt (Gnllnputs (Gnl), (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbln (Gnl, GnlNbln (Gnl) + 1) ; 
break; 
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case GNL_VAR_OUTPUT : 

if (BListAddElt (GnlOutputs (Gnl) , (int ) NewVar ) ) 

return { GNL_MEMORY__FULL ) ; 
SetGnlNbOut (Gnl, GnlNbOut (Gnl) + 1) ; 
break; 

case GNL_VAR_INOUT : 

if (BListAddElt (Gnllnputs (Gnl), (int ) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbln (Gnl, GnlNbln (Gnl) + 1) ; 
if (BListAddElt (GnlOutputs (Gnl), ( int ) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbOut (Gnl, GnlNbOut (Gnl) + 1) ; 
break; 

default : 

if (BListAddElt (GnlLocals (Gnl), (int) NewVar) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) + 1) ; 

} 



} 



/* Adding the original local variable. 

if ( (GnlVarDir (Var) ! = GNL_VAR_INPUT ) && 
(GnlVarDir (Var) 1= GNL_VAR_OUTPUT) && 
(GnlVarDir (Var) != GNL_VAR_INOUT) ) 

{ 

if (BListAddElt (GnlLocals (Gnl), (int) Var); 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) + 1) ; 

} 



return (GNL OK) ; 



/* 

/* GnlCreateAllSignals 



■*/ 
*/ 
■*/ 



/* 

GNL_STATUS GnlCreateAllSignals (Gnl) 



{ 



GNL Gnl ; 

BLIST 

int 

int 

GNL__VAR 
GNL_S TATUS 
BLIST 
GNL VAR 



HashTableNames ; 

i; 

j ; 

VarJ; 

GnlStatus; 
ListI; 
Varl ; 



/* First we scan the HashTableNames in order to split bus signals */ 
HashTableNames = GnlHashNames (Gnl) ; 
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for (i=0; i<BListSize (HashTableNames) ; i++) 
{ 

ListI - (BLIST) BListElt (HashTableNames, i) ; 
if (ListI) 
{ 

for (j=0; j<BListSize (ListI); j++) 
{ 

VarJ - (GNL_VAR) BListElt (ListI, j); 
if ( (GnlStatus = GnlSplitSignal (Gnl, VarJ) ) ) 
return (GnlStatus) ; 

} 

} 

} 

/* We scan all the variables added in Gnllnputs (Gnl), GnlOutputs, */ 
/* and GnlLocals and add them in the HashTableNames (Gnl) . */ 
/* Actually signals which are not in the HashTableName are the signal*/ 
/* expanded from the bus signals. */ 
for (i=0; i<BListSize (Gnllnputs (Gnl)); i++) 
{ 

Varl = (GNLJVAR) BListElt (Gnllnputs (Gnl), i) ; 

if ({GnlStatus = GnlAddVarlnHashTablenames (Gnl, Varl))) 

if (GnlStatus J = GNL_VAR_EXISTS) 

return (GnlStatus); /* A real error */ 

} 

} 

for (i=0; i<BListSize (GnlOutputs (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnl), i) ; 
if ((GnlStatus = GnlAddVarlnHashTablenames (Gnl, Varl))) 
{ 

if (GnlStatus != GNL__VAR_EXISTS) 

return (GnlStatus); /* A real error */ 

} 

} 

for (issO; i<BListSize (GnlLocals (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnl), i) ; 

if ((GnlStatus = GnlAddVarlnHashTablenames (Gnl, Varl))) 



if (GnlStatus 1= GNL__VAR_EXISTS) 

return (GnlStatus); /* A real error */ 

} 

} 

return (GNL_OK) ; 

} 

/* A/ 

/* GnlOpFromGate */ 

/* it/ 

GNL_OP GnlOpFromGate (Gate) 
int Gate; 

{ 
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switch (Gate) { 



case 


G_ 


_0R: 


return (GNL_OR) ; 


case 


G_ 


_AND : 


return (GNL_AND) ; 


case 


G_ 


_NOT: 


return (GNL_NOT) ; 


case 


G_ 


_NAND 


: return (GNLJtfAND) ; 


case 


G_ 


_NOR: 


return (GNL_NOR) ; 


case 


G_ 


_XOR: 


return <GNL_XOR) ; 


case 


G_ 


[xNOR 


: return (GNL_XNOR) ; 


case 


G_ 


_MUX: 


return (GNL__XNOR) ; 


case 


G_ 


_DFF: 


return (GNL_DFF) ; 


case 


G~ 


~DFFX 


: return (GNL_DFFX) ; 


case 


G~ 


[dffi 


: return (GNL__DFF1) ; 


case 


G~ 


DFFO 


: return (GNL DFFO) ; 


case 


G_ 


LATCH: return (GNL_LATCH) ; 


case 


G_ 


LATCHX : return (GNL_LATCHX) 


case 


G_ 


LATCH 1 : return ( GNL_LATCH 1 ) 


case 


G_ 


_LATCHO: return (GNL_LATCHO) 


default : 





GnlError {8 /* unknown gate */) ; 
return (GNL_UNKNOWN GATE) ; 

} 

} 

/* 

/ * GnlAnalyzeBuf Compo 

/* 

GML_STATUS GnlAnalyzeBuf Compo (Gnl, Gate, InstanceName, AssocList) 
GNL Gnl ; 

int Gate; 
char * Ins tanceName ; 

BLIST AssocList; 

{ 

GNL_BUF_COMPONENT NewBox ; 

GNL_VAR OutputVar; 
GNL_VAR Input Var; 



if (GnlCreateBuf Component (&NewBox) ) 
return (GNL_MEMORY_FULL) ; 

OutputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 0) ) ; 
GnlUpdateDir (Gnl, OutputVar); 

InputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 1)); 
GnlUpdateDir (Gnl, InputVar); 

SetGnlBuf InstName (NewBox, InstanceName) ; 
SetGnlBuf Input (NewBox, InputVar) ; 
SetGnlBuf Output (NewBox, OutputVar) ; 

if (BListAddElt (Gnl Components (Gnl), (int) NewBox) ) 
return ( GNL_MEMOR Y_FULL ) ; 

return (GNL_OK) ; 

} 
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/* ±1 

/* GnlAnalyzeTriStateCompo */ 
/* */ 

GNL_STATUS GnlAnalyzeTriStateCompo (Gnl, Gate, InstanceName , AssocList) 
GNL Gnl ; 

int Gate; 
char * InstanceName; 

BLIST AssocList; 



{ 



GNL_TR I STATE_COMPONENT NewBox ; 

GNLJVAR OutputVar; 
GNL__VAR Input Var; 

GNLJVAR SelectVar; 
GNL_VAR SelectPol; 



if (BListSize (AssocList) != 4) 

{ 

fprintf (stderr, 

" ERROR: HUBBLE Predefined TriState <%s> requires 4 parameters\n" , 
InstanceName) ; 

exit (1); 

} 

if (GnlCreateTristateComponent (&NewBox) ) 
return (GNL_MEMORY_FULL) ; 

OutputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 0) ) ; 
GnlUpdateDir (Gnl, OutputVar) ; 

InputVar = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 1)); 
GnlUpdateDir (Gnl, InputVar); 

SelectVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 2)); 
GnlUpdateDir (Gnl, SelectVar); 

SelectPol = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 3) ) ; 
GnlUpdateDir (Gnl, SelectPol); 

SetGnlTriStatelnstName (NewBox, InstanceName) ; 
SetGnlTriStatelnput (NewBox, InputVar) ; 
SetGnlTriStateOutput (NewBox, OutputVar) ; 
SetGnlTriStateSelect (NewBox, SelectVar) ; 

if (GnlVarlsVss (SelectPol)) 

SetGnlTriStateSelectPol (NewBox, 1) ; 
else 

SetGnlTriStateSelectPol (NewBox, 0) ; 

if (BListAddElt (Gnl Components (Gnl), (int) NewBox) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



C-GNL1-60 



gnlcreate.c 



/* 

/* GnlAnalyzeCombUnary */ 

/* 

GNL_STATUS GnlAnalyzeCombUnary (Gnl, Gate, InstanceName, AssocList, 

LineNumber) 

GNL Gnl ; 

int Gate; 
char * InstanceName ; 

BLIST AssocList ; 

int LineNumber; 



{ 



GNL_VAR InputVar; 
GNL_VAR OutputVar ; 
GNL_NODE VarNode ; 
GNLJNODE NewNode; 
BLIST Sons; 
GNL_FUNCTION NewFunction; 



if (BListSize (AssocList) I- 2) 
{ 

GnlError (5 /* This gate must have a unique argumenet */ ) ; 
return (GNLJBAD ARG NUMBER) ; 
} ~ ~ 

if (GnlCreateNode {Gnl, GnlOpFromGate (Gate), &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (NewNode, LineNumber) ; 

InputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 1) ) ; 
OutputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 0) ) ; 

if (GnlCreateNodeForVar (Gnl, InputVar, &VarNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (VarNode, LineNumber) ; 

if (BListCreateWithSize (1, &Sons) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (Sons, (int ) VarNode) ) 
return ( GNL__MEMOR Y__FULL ) ; 

SetGnlNodeSons (NewNode, Sons) ; 

if (GnlFunctionCreate (Gnl, OutputVar, NewNode, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (OutputVar, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), OutputVar)) 
return (GNLJYIEMORY_FULL) ; 

return (GNL_0K) ; 
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/* 

/* GnlCreateNodeVdd 

/* 

GNL_S TATUS GnlCreateNodeVdd (Gnl, NodeVdd) 
GNL Gnl ; 

GNL_NODE *NodeVdd ; 

{ 

BLIST Sons; 

if (GnlCreateNode (Gnl, GNL_CONSTANTE , NodeVdd)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons (*NodeVdd, (BLIST) 1) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlCreateNodeVss 

/* 

GNL_S TATUS GnlCreateNodeVss (Gnl, NodeVss) 
GNL Gnl ; 

GNLJNTODE *NodeVss; 

{ 

BLIST Sons; 

if (GnlCreateNode (Gnl, GNL_CONSTANTE , NodeVss)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons {*NodeVss, (BLIST) 0) ; 

return (GNL_0K) ; 

} 

/* 

/* GnlCreateNodeNot 

/* 

/* Creates a new Node object which is the Not of the node 'Node'. */ 
/* 

GNL_S TATUS GnlCreateNodeNot (Gnl, Node, NodeNot) 
GNL Gnl ; 

GNL_N0DE Node; 
GNL_NODE *NodeNot; 

{ 

BLIST Sons; 

if (GnlCreateNode (Gnl, GNL_N0T , NodeNot)) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &Sons) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (Sons, (int)Node)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons (*NodeNot, Sons) ; 
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return (GNL_OK) ,- 

} 

/* *i 

/* GnlCreateNodeXor */ 
/* ie/ 

/* Creates a new node which corresponds to the Xor function of Varl/Var2*/ 

/* -Varl . Var2+Varl . ~Var2 */ 

/* */ 

GNL_STATUS GnlCreateNodeXor (Gnl, Varl, Var2 , XorNode, LineNumber) 
GNL Gnl ; 

GNL_NODE Varl; 
GNL_N0DE Var2; 
GNL_NODE *XorNode; 
int LineNumber ; 



{ 



GNL_NODE Var3; 
GNL_N0DE Var4; 
GNL_NODE NotVarl; 
GNL_NODE NotVar4; 
GNL_NODE Andl; 
GNL_NODE And2; 
GNL_NODE Or; 
BLIST Sons; 



if (GnlNodeCopyRec (Gnl, Varl, &Var3)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (Var3 , LineNumber) ; 

if (GnlNodeCopyRec (Gnl, Var2, &Var4) ) 
return { GNL_MEMORY_FULL ) ; 

SetGnlNodeLineNumber (Var4, LineNumber) ; 

if (GnlCreateNodeNot (Gnl, Varl, &NotVarl) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (NotVarl, LineNumber) ; 

if (GnlCreateNodeNot (Gnl, Var4, &NotVar4)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber <NotVar4, LineNumber) ; 

/* Building the first AND . . . 

if (GnlCreateNode (Gnl, GNL_AND, &Andl) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (Andl, LineNumber) ; 
if (BListCreateWithSize (2, &Sons) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int) NotVarl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int)Var2)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (Andl, Sons) ; 
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/* Building the second AND . . . 

if (GnlCreateNode (Gnl, GNL_AND, &And2) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (And2, LineNumber); 
if (BListCreateWithSize (2, &Sons) ) 

return { GNL_MEMORY_FULL ) ; 
if (BListAddElt (Sons, (int)Var3)) 

return { GNL_MEMORY__FULL ) ; 
if (BListAddElt (Sons, (int ) NotVar4) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (And2, Sons); 

/* Building the OR of the ANDs . . . 
if (GnlCreateNode (Gnl, GNLJDR, &0r) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (Or, LineNumber) ; 
if (BListCreateWithSize (2, &Sons) ) 

return (GNL__MEMORY_FULL) ; 
if (BListAddElt (Sons, (int)Andl)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int)And2)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (Or, Sons) ; 

*XorNode = Or; 

return (GNL_OK) ; 



/* 

/* GnlAnalyzeComb2arys 



-*/ 
*/ 
■*/ 



GNL_STATUS GnlAnalyzeComb2arys 



GNL 

int 

char 

BLIST 

int 



Gnl; 
Gate; 

* Ins tanceName ,- 
AssocList ; 
LineNumber; 



(Gnl, Gate, InstanceName, AssocList, 
LineNumber) 



int 

GNL_VAR 

GNL_VAR 

GNL_VAR 

GNL_NODE 

GNL_NODE 

GNL_NODE 

GNL_NODE 

GNL_NODE 

GNL_NODE 

BLIST 



i; 
van 

Var2 
Varl 
VarlNode 
Var2Node 
VarlNode 
NewNode 
NotNode 
XorNode 
Sons ; 



GNL_FUNCT ION NewFunction; 
GNL_VAR OutputVar; 
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OutputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 0) ) 
switch {GnlOpFromGate (Gate) ) { 

case GNL_AND: 
case GNL__OR : 

if (GnlCreateNode (Gnl, GnlOpFromGate (Gate), &NewNode) ) 
return ( GNL_MEMORY__FULL ) ; 

if (BListCreateWithSize (BListSize (AssocList ) -1 , ScSons) ) 
return (GNL_MEMORY_FULL) ; 

for (i=l; i<BListSize (AssocList) ; i++) 

{ 

Varl = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, i) ) ; 
if (GnlCreateNodeForVar (Gnl, Varl, &VarINode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (VarlNode, LineNumber); 



} 



if (BListAddElt (Sons, (int ) VarlNode) ) 
return (GNL MEMORY FULL) ; 



SetGnlNodeSons (NewNode, Sons) ; 
break ; 



case GNL_NAND : 

if (GnlCreateNode (Gnl, GnlOpFromGate (Gate), &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (BListSize (AssocList ) -1 , &Sons)) 
return (GNL_MEMORY_FULL) ; 

for (i=l; i<BListSize (AssocList) ; i++) 
{ 

Varl = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, i) ) ; 
if (GnlCreateNodeForVar (Gnl, Varl, &VarINode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (VarlNode, LineNumber) ; 

if (BListAddElt (Sons, (int ) VarlNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons (NewNode, Sons); 

if (GnlCreateNodeNot (Gnl, NewNode, &NotNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (NotNode, LineNumber) ; 
SetGnlNodeOp (NewNode, GNL_AND) ; 
NewNode = NotNode; 
break; 

case GNL_N0R: 

if (GnlCreateNode (Gnl, GnlOpFromGate (Gate), &NewNode) ) 
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return ( GNL_MEMORYJFULL ) ; 

if (BListCreateWithSize (BListSize (AssocList) -1 , &Sons) ) 
return ( GNL_MEMOR Y_FULL) ; 

for (i=l; i<BListSize (AssocList); i++) 

{ 

Varl = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, i) ) ; 
if (GnlCreateNodeForVar (Gnl, Varl, &VarINode) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeLineNumber (VarlNode, LineNumber) ; 

if (BListAddElt (Sons, (int) VarlNode) ) 
return (GNL MEMORY FULL) ; 

} 

SetGnlNodeSons (NewNode, Sons); 

if (GnlCreateNodeNot {Gnl, NewNode, &NotNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeLineNumber (NotNode, LineNumber) ; 
SetGnlNodeOp (NewNode, GNL_OR) ; 
NewNode = NotNode; 
break; 

case GNL_XOR: 

if (BListSize (AssocList) != 3) 
{ 

GnlError (7 /* This gate must have two arguments */ ); 
return { GNL_B AD ARG NUMBER) ; 

} 

Varl = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, 1) ) ; 

Var2 = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, 2)); 

if (GnlCreateNodeForVar (Gnl, Varl, &VarlNode) ) 
return ( GNL _MEMORY_FULL ) ; 

SetGnlNodeLineNumber (VarlNode, LineNumber) ; 

if (GnlCreateNodeForVar (Gnl, Var2 , &Var2Node) ) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlNodeLineNumber (Var2Node, LineNumber) ; 

if (GnlCreateNodeXor (Gnl, VarlNode, Var2Node, &XorNode, 

LineNumber) ) 
return (GNL_MEMORY_FULL) ; 
NewNode = XorNode; 
break; 

case GNL_XNOR: 

if (BListSize (AssocList) != 3) 

{ 
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GnlError (7 /* This gate must have two arguments */ ); 
return (GNL_BAD_ARG_NUMBER) ; 



Varl = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, 1) ) ; 

Var2 = GnlAssocActualPort { (GNL_ASSOC) 

BListElt (AssocList, 2) ) ; 

if (GnlCreateNodeForVar (Gnl, Varl, &VarlNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (VarlNode, LineNumber) / 

if (GnlCreateNodeForVar (Gnl, Var2 , &Var2Node) ) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlNodeLineNumber (Var2Node, LineNumber); 

if (GnlCreateNodeXor (Gnl, VarlNode, Var2Node, &XorNode, 

LineNumber) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (XorNode, LineNumber) ; 

if (GnlCreateNodeNot (Gnl, XorNode, &NotNode) ) 

return (GNL__MEMORY_FULL) ; 
NewNode = NotNode; 
break; 



SetGnlNodeLineNumber (NewNode, LineNumber) ; 

if (GnlFunctionCreate (Gnl, OutputVar, NewNode, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (OutputVar, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), OutputVar)) 
return ( GNL__MEMORY_FULL ) ; 

return (GNL_OK) ; 



/* 

/* GnlAnalyzeMUX * 
/* ^ 

GNL_STATUS GnlAnalyzeMUX (Gnl, Gate, InstanceName, AssocList, LineNumber) 



GNL Gnl; 

int Gate; 

char * InstanceName ; 

BLIST AssocList; 



*/ 
*/ 
*/ 



int LineNumber ; 

{ 



GNL_VAR Sel ; 



GNL_VAR Varl; 



GNL_VAR Var2 ; 



GNL_NODE SelNode ; 
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GNL_NODE 
GNL_NODE 
GNL_NODE 
GNL_NODE 
GNLJSTODE 
GNL_NODE 
BLIST 



NotSelNode; 

VarlNode; 

Var2Node ; 

Andl; 

And2; 

Or; 

Sons ; 



GNL_FUNCTION NewFunction; 
GNLJVAR OutputVar; 



if (BListSize (AssocList) != 4) 
{ 

GnlError (8 /* This gate must have three arguments */ ) ; 
return ( GNL_BAD_ARG NUMBER) ; 

} 

Sel = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 1) ) ; 
Varl - GnlAssocActualPort { (GNL_ASSOC) BListElt (AssocList, 2)); 
Var2 = GnlAssocActualPort { (GNL_ASSOC) BListElt (AssocList, 3)); 
OutputVar - GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 0) ) 

if (GnlCreateNodeForVar (Gnl, Sel, &SelNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (SelNode, LineNumber) ; 

if (GnlCreateNodeForVar (Gnl, Varl, &VarlNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (VarlNode, LineNumber) ; 

if (GnlCreateNodeForVar (Gnl, Var2, &Var2Node) ) 
return ( GNL_MEMORY_FULL ) / 

SetGnlNodeLineNumber (Var2Node, LineNumber) ; 

if (GnlCreateNodeNot (Gnl, SelNode, &NotSelNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeLineNumber (NotSelNode, LineNumber) ; 

/* Building the first AND . . . 

if (GnlCreateNode (Gnl, GNL_AND, &Andl) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlNodeLineNumber (Andl, LineNumber) ; 
if (BListCreateWithSize (2, &Sons) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int) SelNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, ( int ) VarlNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (Andl, Sons) ,- 

/* Building the second AND . . . 
if (GnlCreateNode (Gnl, GNL_AND, &And2)) 
return (GNL_MEMORY_FULL) ; 
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SetGnlNodeLineNumber (And2 , LineNumber) ; 
if (BListCreateWithSize (2, &Sons) ) 

return ( GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int ) NotSelNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (Sons, ( int ) Var2Node) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (And2, Sons); 

/* Building the OR of the ANDs . . . 
if (GnlCreateNode (Gnl, GNL_OR, &0r) ) 

return ( GNL JVIEMORY_FULL ) ; 
SetGnlNodeLineNumber (Or, LineNumber) ; 
if (BListCreateWithSize (2, &Sons) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (Sons, (int)Andl) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (Sons, (int)And2)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (Or, Sons) ; 



if (GnlFunctionCreate (Gnl, OutputVar, Or, ScNewFunction) ) 
return ( GNLJVIEMOR Y__FULL ) ; 

SetGnlVarFunction (OutputVar, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), OutputVar)) 
return ( GNL JMEMORY_FULL ) ; 

return (GNL_0K) ; 

} 



/* v 

/* GnlAnalyzeCombinatorial */ 

GNL_STATUS GnlAnalyzeCombinatorial (Gnl, Gate, InstanceName , AssocList, 

LineNumber) 

GNL Gnl; 

int Gate; 

char * InstanceName ; 

BLIST AssocList; 

int LineNumber; 

{ 



switch (Gate) { 
case G_NOT: 

return (GnlAnalyzeCombUnary (Gnl, Gate, InstanceName, 

AssocList, LineNumber) ) ; 

case G_AND : 
case G_NAND: 
case G_OR: 
case G_NOR: 
case G__XOR: 
case G XNOR: 
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return {GnlAnalyzeComb2arys (Gnl ; Gate, InstanceName , 

AssocList, LineNumber) ) ; 

case G_MUX : 

return (GnlAnalyzeMUX (Gnl, Gate, InstanceName , AssocList, 

LineNumber) ) ; 

default : 

GnlError (4 /* This combinatorial gate is unknown */); 
return (GNL_UNKNOWN GATE) ; 

} 

return (GNL_OK) ; 

} 



/* ic/ 

/* GnlCreateClockVar */ 

z* v 

GNL_S TATUS GnlCreateClockVar (Clk, NewClockVar) 
GNL_VAR Clk; 
GNL_CLOCK_VAR *NewClockVar ; 



{ 



BLIST NewList; 



} 



if { (*NewClockVar = ( GNL_CLOCK_VAR ) 

calloc (1, sizeof (GNL_CLOCK_VAR_REC) ) ) — NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlClockVarClock (*NewClockVar, Clk) ; 
if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlClockVarComponents ( *NewClockVar , NewList) ; 
return (GNL OK) ; 



/* t/ 

/* GnlCreateAssoc */ 
/* ±/ 

GNL_S TATUS GnlCreateAssoc (NewAssoc) 
GNL_ASSOC *NewAssoc ; 

{ 

if ((*NewAssoc = (GNL_ASSOC) calloc (1, sizeof (GNL_ASSOC_REC) ) ) NULL) 
return (GNL_MEMORY FULL) ; 



} 



return (GNL OK) ; 



/* ie/ 

/* GnlAnalyzeLatch */ 

/* ie/ 

GNL_S TATUS GnlAnalyzeLatch (Gnl, Gate, InstanceName, AssocList) 
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GNL Gnl ; 




int Gate; 




char *InstanceName ; 


BLIST AssocList; 


GNL_SEQUENTIAL_COMPONENT NewBox / 


GNL_VAR 


OutputVar ; 


GNL_VAR 


OutputVarBar ; 


GNL__VAR 


InputVar ; 


GNL_VAR 


ClkVar ; 


GNL_VAR 


ClkPol; 


GNL_VAR 


SetVar; 


GNL_VAR 


SetPol; 


GNL_VAR 


ResetVar; 


GNL_VAR 


ResetPol; 


GNL_COMPONENT 


NewCompo ; 


GNL_CLOCK__VAR 


Clockl; 


int 


i; 



if (GnlCreateSequentialComponent (GnlOpFromGate (Gate) , &NewBox) ) 
return { GNL_MEMOR Y_FULL) ; 

OutputVar = GnlAssocActualPort C (GNL_ASSOC) BListElt (AssocList, 0) ) ; 
GnlUpdateDir (Gnl, OutputVar); 

OutputVarBar = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 1) ) ; 
GnlUpdateDir (Gnl, OutputVarBar) ; 

InputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 2) ) ; 
GnlUpdateDir (Gnl, InputVar); 

ClkVar = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 3)); 
GnlUpdateDir (Gnl, ClkVar); 

ClkPol = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 4)); 
GnlUpdateDir (Gnl, ClkPol); 

/* eventually we add the new clock in 'GnlClocks (Gnl) */ 
for (i=0; i<BListSize (GnlClocks (Gnl)); i++) 
{ 

Clockl = (GNL_CLOCK_VAR) BListElt (GnlClocks (Gnl), i); 
if (GnlClockVarClock (Clockl) == ClkVar) 
break; 

} 

if (i == BListSize (GnlClocks (Gnl))) /* It is a new clock */ 

if (GnlCreateClockVar (ClkVar, &ClockI) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (GnlClocks (Gnl), (int) Clockl) ) 

return (GNL_MEMORY_FULL) ; 

} 

if (BListAddElt (GnlClockVarComponents (Clockl) , (int) NewBox) ) 
return (GNL_MEMORY_FULL) ; 

SetVar = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 5) ) ; 
GnlUpdateDir (Gnl, SetVar) ; 
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SetPol = GnlAssocActualPort ( (GNL_ASSOC) BLis tElt (AssocList, 6)); 
GnlUpdateDir (Gnl, SetPol); 

ResetVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 7) ) ; 
GnlUpdateDir (Gnl, ResetVar) ; 

ResetPol = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 8) ) ; 
GnlUpdateDir (Gnl, ResetPol); 

SetGnlSequentialCompoInstName (NewBox, InstanceName) ; 
SetGnlSequentialCompolnput (NewBox, InputVar) ; 

if (GnlVarlsVss (OutputVar) ) 

SetGnlSequentialCompoOutput (NewBox, NULL) ; 
else 

SetGnlSequentialCompoOutput (NewBox, OutputVar) ; 

if (GnlVarlsVss (OutputVarBar) ) 

SetGnlSequentialCompoOutputBar (NewBox, NULL) ; 
else 

SetGnlSequentialCompoOutputBar (NewBox, OutputVarBar) ; 

/* clock */ 
SetGnlSequentialCompoClock (NewBox, ClkVar) ; 
if (GnlVarlsVdd (ClkPol) ) 

SetGnlSequentialCompoClockPol (NewBox, 1) ; 
else 

SetGnlSequentialCompoClockPol (NewBox, 0) ; 

/* Set */ 
SetGnlSequentialCompoSet (NewBox, SetVar) ; 
if (GnlVarlsVdd (SetPol)) 

SetGnlSequentialCompoSetPol (NewBox, 1) ; 
else 

SetGnlSequentialCompoSetPol (NewBox, 0) ; 

/* Reset */ 
SetGnlSequentialCompoReset (NewBox, ResetVar) ; 
if (GnlVarlsVdd (ResetPol)) 

SetGnlSequentialCompoResetPol (NewBox, 1) ; 
else 

SetGnlSequentialCompoResetPol (NewBox, 0) ; 

if (BListAddElt (GnlComponents (Gnl), (int) NewBox) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* 

/* GnlAnalyzeDFF */ 

/* 

GNL_STATUS GnlAnalyzeDFF (Gnl, Gate, InstanceName, AssocList) 
GNL Gnl ; 

int Gate; 
char * InstanceName; 
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BLIST 



AssocList ; 



GNL_SEQUENTIAL_ 
GNL_VAR 
GNL_VAR 
GNLJVAR 
GNL_VAR 
GNL_VAR 
GNL_VAR 
GNL_VAR 
GNL_COMPONENT 

int 

GNL_CLOCK_VAR 
GNLJVAR 
GNL VAR 



COMPONENT NewBox / 
OutputVar; 
OutputVarBar; 
Input Var ; 
ClkVar; 
ClkPol ; 
SetVar; 
ResetVar; 
NewCompo ; 
i; 

Clockl ; 
SetPol; 
ResetPol; 



if (GnlCreateSequentialComponent (GnlOpFromGate (Gate), &NewBox) ) 
return (GNLJVEEMORY_FULL) ; 

OutputVar = GnlAssocActualPort < (GNL_ASSOC) BListElt (AssocList, 0) ) 
GnlUpdateDir (Gnl, OutputVar) ; 

OutputVarBar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 
GnlUpdateDir (Gnl, OutputVarBar); 

InputVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList 2))* 
GnlUpdateDir (Gnl, InputVar); 

ClkVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 3) ) - 
GnlUpdateDir (Gnl, ClkVar); 

ClkPol = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 4))- 
GnlUpdateDir (Gnl, ClkPol) ; 

/* eventually we add the new clock in 'GnlClocks (Gnl) • . */ 
for (i=0; i<BListSize (GnlClocks (Gnl)); i++) 

Clockl = (GNL_CL0CK_VAR) BListElt (GnlClocks (Gnl), i); 
if (GnlClockVarClock (Clockl) == ClkVar) 
break; 

} 

if (i BListSize (GnlClocks (Gnl))) /* it is a new clock */ 

if (GnlCreateClockVar (ClkVar, &ClockI) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlClocks (Gnl), (int) Clockl) ) 

return (GNL MEMORY FULL) ; 

} 

if (BListAddElt (GnlClockVarComponents (Clockl) , (int) NewBox) ) 
return (GNL_MEMORY_FULL) ; 

SetVar = GnlAssocActualPort ( (GNL_ASS0C) BListElt (AssocList, 5) ) ; 
GnlUpdateDir (Gnl, SetVar) ; 

SetPol = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 6) ) ; 
GnlUpdateDir (Gnl, SetPol); 
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ResetVar = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 7) ) ; 
GnlUpdateDir (Gnl, ResetVar); 

ResetPol = GnlAssocActualPort ( (GNL_ASSOC) BListElt (AssocList, 8)); 
GnlUpdateDir (Gnl, ResetPol); 

SetGnlSequentialCompoInstName (NewBox, InstanceName) ; 
SetGnlSequentialCompoInput (NewBox, InputVar) ; 
SetGnlSequentialCompoClock {NewBox, ClkVar) ; 

if (GnlVarlsVss (OutputVar) ) 

SetGnlSequentialCompoOutput (NewBox, NULL) ; 
else if (GnlVarlsVdd (OutputVar) ) 

SetGnlSequentialCompoOutput (NewBox, NULL) ; 
else 

SetGnlSequentialCompoOutput (NewBox, OutputVar) ; 

if (GnlVarlsVss (OutputVarBar) ) 

SetGnlSequentialCompoOutputBar (NewBox, NULL) ; 
else if (GnlVarlsVss (OutputVarBar) ) 

SetGnlSequentialCompoOutputBar (NewBox, NULL) ; 
else 

SetGnlSequentialCompoOutputBar (NewBox, OutputVarBar) ; 

/* clock */ 

if (GnlVarlsVss (ClkPol) ) 

SetGnlSequentialCompoClockPol (NewBox, 0) ; 
else 

SetGnlSequentialCompoClockPol (NewBox, 1) ; 

/* Set */ 
SetGnlSequentialCompoSet (NewBox, SetVar) ; 
if (GnlVarlsVss (SetPol)) 

SetGnlSequentialCompoSetPol (NewBox, 0) ; 
else 

SetGnlSequentialCompoSetPol (NewBox, 1) ; 

/* Reset */ 

SetGnlSequentialCompoReset (NewBox, ResetVar) ; 
if (GnlVarlsVss (ResetPol)) 

SetGnlSequentialCompoResetPol (NewBox, 0) ; 
else 

SetGnlSequentialCompoResetPol (NewBox, 1) ; 

if (BListAddElt (Gnl Components (Gnl), (int) NewBox) ) 
return <GNL_MEMORY_FULL) ; 

return (GNL__OK) ; 



z* v 

/* GnlAnalyzeSequentialCompo */ 



/* 

/ ^ 

GNL_STATUS GnlAnalyzeSequentialCompo (Gnl, Gate, InstanceName, AssocList) 
GNL Gnl ; 
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int Gate; 

char *InstanceName ; 

BLIST AssocList; 



switch (Gate) { 
case G_LATCH: 
case G_LATCHX: 
case G_LATCH1: 
case G_LATCHO : 

if (BListSize (AssocList) != 9) 

{ 

fprintf (stderr, 

" ERROR: HUBBLE Predefined Latch <%s> requires 9 parameters \n" , 
InstanceName) ; 

exit (1) ; 

} 

return (GnlAnalyzeLatch (Gnl, Gate, InstanceName, AssocList) ) ; 

case G__DFF: 
case G_DFFX: 
case G_DFF0 : 
case G_DFF1: 

if (BListSize (AssocList) != 9) 

{ 

fprintf (stderr, 
" ERROR: HUBBLE Predefined Dff <%s> requires 9 parameters\n» , 
InstanceName) ; 

exit (1) ; 

} 

return (GnlAnalyzeDFF (Gnl, Gate, InstanceName, AssocList)); 

} 

} 



/* v 

/* GnlCreateUserComponent */ 

/* v 

/* Remark: we do not use the list 'Parameters' for now. */ 

GNL_STATUS GnlCreateUserComponent (Name, InstanceName, Parameters, 

Interface, NewUserCompo) 

char *Name ; 

char * InstanceName ; 

BLIST Parameters; 

BLIST Interface; 



GNL_USER_COMPONENT *NewUserCompo ; 

if { (*NewUserCompo - (GNL_USER_COMPONENT) 

calloc (1, sizeof (GNL_USER_COMPONENT_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlUserComponentType ( (*NewUserCompo) , GNL_USER_COMPO) ; 
SetGnlUserComponentName ( (*NewUserCompo) , Name) ; 
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SetGnlUserComponentlnstName ( (*NewUserCompo) , InstanceName) ; 
SetGnlUserComponentlnterf ace ( ( *NewUserCompo) , Interface) ; 

/* During parsing, formal ports are represented by char * types. */ 
SetGnlUserComponentFormalType ( ( *NewUserCompo) , GNL_FORMAL_CHAR ) ; 

return (GNL_OK) ; 

} 



/* */ 

/* GnlAnalyzeUserCompo */ 
/* */ 

GNL_STATUS GnlAnalyzeUserCompo (Gnl, GateName, InstanceName, Def ParamList, 

AssocList , LineNumber) 

GNL Gnl ; 

char *GateName; 
char * InstanceName; 

BLIST Def ParamList ; 

BLIST AssocList; 
int LineNumber; 

{ 

int i ; 

GNL_VAR PortVar ; 

GNL__US ER_COMPONENT UserComponent ; 

GNL_COMPONENT NewCompo ; 



if (GnlAddCompoNamelnHashTablenames (Gnl, &GateName) ) 
return ( GNL_MEMOR Y_FULL ) ; 

/* Making local signals as local wire signals */ 
for (i=0; i<BListSize (AssocList); i++) 

{ 

PortVar = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, i) ) ; 
GnlUpdateDir (Gnl, PortVar); 

} 

if (GnlCreateUserComponent (GateName, InstanceName, Def ParamList , 

AssocList, &UserComponent) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlUserComponentLineNumber (UserComponent, LineNumber) ; 

if (BListAddElt (Gnl Components (Gnl), (int ) UserComponent) ) 
return ( GNL_MEMORY__FULL ) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlAnalyzeMacroCompo */ 
/* ii/ 

GNL_STATUS GnlAnalyzeMacroCompo (Gnl, GateName, InstanceName, 

Def ParamList , AssocList) 

GNL Gnl ; 
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char *GateName; 
char *InstanceName ; 

BLIST Def ParamList ; 

BLIST AssocList; 

int i ; 

GNL_VAR PortVar; 



} 



for (i=0; i<BListSize (AssocList); i++) 

{ 

PortVar = GnlAssocActualPort ( (GNL_ASSOC) 

BListElt (AssocList, i) ) ; 
GnlUpdateDir (Gnl, PortVar); 

} 

return (GNL OK) ; 



/* if/ 

/* GnlAnalyzelnstance */ 

/* ie/ 

/* This function analyzes a Verilog instance during the parsing and */ 
/* according to the type of the gate fills up the GNL structure. If the */ 
/* gate is combinatorial then it fills up GnlFuntions (Gn) otherwise the*/ 
/* GnlComponents (Gnl) for sequential or exotic elements. */ 
/* ie/ 

GNL_STATUS GnlAnalyzelnstance (Gnl, Gate, GateName, InstanceName , 

Def ParamList, AssocList, LineNumber, Mode) 

GNL Gnl ; 

int Gate; 

char *GateName ; 

char *InstanceName; 

BLIST Def ParamList ; 

BLIST AssocList; 

int LineNumber; 

in t Mode; /* If 1 then output is the last element */ 

{ /* of list 'AssocList 1 , otherwise lrst */ 

GNL_ASSOC LastAssoc ; 



switch (Gate) { 
case G_AND: 
case G_OR: 
case G_N AND : 
case G_NOT: 
case G_NOR: 
case G_XOR: 
case G_XNOR: 
case G_MUX: 

/* If Mode is 1 then the output is the last element */ 
if (Mode) 

{ 

LastAssoc = (GNL_ASSOC) BListElt (AssocList, 

BListSize (AssocList) -1) ; 
BListDelShift (AssocList, BListSize (AssocList)); 
if (BListlnsertlnList (AssocList, LastAssoc, 1)) 
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return (GNL_MEMORY_FULL) ; 

} 

return (GnlAnalyzeCombinatorial (Gnl , 

Gate, InstanceName , AssocList, 
LineNumber) ) ; 



case 


G_ 


_DFF : 


case 


G~_ 


_DFFX : 


case 


G_ 


_DFF0 : 


case 


G_ 


_DFF1 : 


case 


G_ 


>ATCH : 


case 


G_ 


_LATCHX 


case 


G_ 


_ LATCH 1 


case 


G 


LATCH 0 



return (GnlAnalyzeSequentialCompo (Gnl , 

Gate, InstanceName, AssocList)); 

case G_TRISTATE: 

return (GnlAnalyzeTriStateCompo (Gnl , 

Gate, InstanceName, AssocList)); 

case G_BUF: 

return {GnlAnalyzeBuf Compo (Gnl, 

Gate, InstanceName, AssocList) ) ; 

case G_PADD: 
case G_PCOMP: 

return (GnlAnalyzeMacroCompo (Gnl, Gate, InstanceName, 
Def ParamList , AssocList) ) ; 

case G_USER_GATE: 

return (GnlAnalyzeUserCompo (Gnl, GateName, InstanceName, 

Def ParamList, AssocList, 
LineNumber) ) ; 

default : 

GnlError (4 /* This gate is unknown */) ; 
return ( GNL_UNKNOWN_GATE ) ; 

} 

return (GNLJDK) ; 

} 



/* ic/ 

/* GnlSmallCreate */ 
/* i(/ 

I* Create a basic GNL and set the Name field. */ 
/* ie/ 



GNL_STATUS GnlSmallCreate (Name, Gnl) 
char *Name; 
GNL *Gnl ; 

{ 

BLIST NewList; 
char *CopyName; 
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if {(*Gnl - (GNL) GNL_CALLOC (1, sizeof <GNL_REC) ) ) ==NULL) 
return <GNL_MEMORY_FULL) ; 

if (Name) 

{ 

if (GnlStrCopy (Name, &CopyName) ) 
return ( GNL__MEMORY_FULL) ; 

SetGnlName ( (*Gnl) , CopyName) ; 

} 

/* Creating lists for different fields. 

if (BListCreateWithSize (SMALL_HASH_TABLE_NAMES_SIZE, &NewList) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlHashNames ( (*Gnl) , NewList) ; 
BSize (NewList) = SMALL_HASH_TABLE_NAMES_S I ZE ; 

if (BListCreateWithSize (HASHJTABLE_COMPO_NAMES_SIZE, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlHashCompoNames ( (*Gnl) , NewList) ; 
BSize (NewList) = HASH_TABLE_COMPO_NAMES_SIZE; 

/* Creating List of nodes segments 
if (BListCreate (&NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments ( (*Gnl) , NewList) ; 
SetGnlFirstNode ( (*Gnl) , NULL) ; 
SetGnlLastNode ( (*Gnl) , NULL) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnllnputs ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlOutputs ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlLocals ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL__MEMORY_FULL) ; 
SetGnlFunctions ( (*Gnl) , NewList) / 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlClocks ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlComponents ( (*Gnl) , NewList) / 

/* we create a hash list of list of GNL_PATH_COMPONENT */ 
if (BListCreateWithSize (HASHJLIST_PATH_COMPO_SIZE, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
BSize (NewList) = HASH__LIST_PATH_COMPO_SIZE; 
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SetGnlListPathComponent ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlListSourceFiles { (*Gnl) , NewList) ; 

return (GNL_OK) ; 

} 

/* 
/* 
/* 
/* 
/* 

GNL_STATUS GnlCreate (Name, Gnl) 
char *Name ; 

GNL *Gnl; 

{ 

BLIST NewList; 
char *CopyName; 



GnlCreate 


*/ 




Create a basic GNL and set the Name field. 




*/ 



if ((*Gnl = ( GNL ) GNL_CALLOC (1, sizeof (GNL_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

if (Name) 

{ 

if (GnlStrCopy (Name, &CopyName) ) 
return <GNL_MEMORY_FULL) ; 

SetGnlName ( (*Gnl) , CopyName) ; 

} 

/* Creating lists for different fields. */ 
if (BListCreateWithSize ( HAS H_TAB LE_NAME S_S I Z E , &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlHashNames ( (*Gnl) , NewList) ; 
BSize (NewList) = HASH__TABLE_NAMES_S IZE ; 

if (BListCreateWithSize (HASH_TABLE_C0MP0_NAMES_SIZE 7 &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlHashCompoNames ( (*Gnl) , NewList) ; 
BSize (NewList) = HASH_TABLE_COMPO_NAMES_SIZE ; 

/* Creating List of nodes segments */ 
if (BListCreate (&NewList)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments ( (*Gnl) , NewList) ; 
SetGnlFirstNode ( (*Gnl) , NULL) ; 
SetGnlLastNode ( (*Gnl) , NULL) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnllnputs ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, ScNewList) ) 
return ( GNL_MEMORY__FULL ) ; 
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SetGnlOutputs ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlLocals ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlFunctions ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlClocks ( (*Gnl) , NewList) ; 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlComponents ( (*Gnl) , NewList) ; 

/* we create a hash list of list of GNL_PATH_COMPONENT */ 
if (BListCreateWithSize (HASH_LIST_PATH_COMPO_SIZE, &NewList) ) 

return ( GNL _MEMORY_FULL ) ; 
BSize (NewList) = HASH_LIST_PATH__COMPO_SIZE; 
SetGnlListPathComponent { (*Gnl) , NewList) / 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlListSourceFiles ( (*Gnl) , NewList) ; 

return (GNL__OK) ; 



/* EOF 
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/* 

/* File: gnlcube.c 

/* Version: 1.1 

/* Modifications: 

/* Documentation: 

/* 

/* Description: 
/* 


*/ 




#include <stdio.h> 






tifdef MEMORY /* if one wants memory statistics 

#include <malloc.h> 

#endif 


for SUN */ 




Tfmciuae Diist.n" 
# inc 1 ude " gnl . h " 
#include "gnlmint .h" 






ffmcluae "blist.e" 










m 


GNL_STATUS Gnl Cubes FromGnl Node () ; 

GNL STATUS GnlMakeFunct ionFl ai-1-pnahl ^ (\ • 






/ * 






/* GLOBAL VARIABLES 
/* 


*/ 




int GJRank; 












/* GnlCubeStructFree 


*/ 




void GnlCubeStructFree (Cb) 
GNL CUBE Cb; 

{ 

tree ( (cnar*) GnlCubeHigh (Cb) ) ; 
SetGnlCubeHigh (Cb, NULL) ; 
tree ( (cnar*) GnlCubeLow (Cb) ) ; 
SetGnlCubeLow (Cb, NULL) ; 

} 






/* GnlCubeCreate */ 






GNL_STATUS GnlCubeCreate (NewCube) 
GNL CUBE * NewCube; 

{ 





*/ 
*/ 



*/ 



*/ 



*/ 



if <(*NewCube = (GNL_CUBE) GNL_CALLOC (1, sizeof (GNL_CUBE REC) ) ) == 
NULL) 

return (GNL_MEMORY_FULL) ; 
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return (GNL_OK) ; 

} 



/* 

/* GnlCubeStructCreate */ 
/* 

GNL_STATUS GnlCubeStructCreate (NbCells, Cube) 
int NbCells; 
GNL_CUBE Cube; 

{ 

unsigned *CellHigh; 
unsigned *CellLow; 



if (MintCreate (NbCells, &CellHigh) ) 
return (GNLJVffiMORY_FULL) ; 

if (MintCreate (NbCells, &CellLow) ) 
return {GNL_MEMORY_FULL) ; 

SetGnlCubeHigh (Cube, CellHigh) ; 
SetGnlCubeLow (Cube, CellLow) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlCubeFullCreate 

/* 

GNLJSTATUS GnlCubeFullCreate (NbCells, NewCube) 
int NbCells; 
GNL_CUBE *NewCube ; 

{ 

if (GnlCubeCreate (NewCube)) 
return (GNL_MEMORY_FULL) ; 

if (GnlCubeStructCreate (NbCells, *NewCube) ) 
return ( GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlCubeAndStructCreatelnit */ 
/* 

GNLJSTATUS GnlCubeAndStructCreatelnit (Cube, NbCells) 
GNL_CUBE Cube; 
int NbCells; 

{ 

if (GnlCubeStructCreate (NbCells, Cube)) 
return ( GNL_MEMORY__FULL) ; 

MintlnitWithValue (GnlCubeHigh (Cube), NbCells, 0) ; 
MintlnitWithValue (GnlCubeLow (Cube), NbCells, -0) ; 
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return (GNL_OK) ; 

} 

/* 

/* GnlCubeFullAndCreate */ 

/* 

GNL_STATUS GnlCubeFullAndCreate (NbCells, NewCube) 
int NbCells ; 

GNL_CUBE *NewCube; 

{ 

if (GnlCubeFullCreate (NbCells, NewCube)) 
return (GNL_MEMORY__FULL) ; 

MintlnitWithValue (GnlCubeHigh (*NewCube) , NbCells, 0); 
MintlnitWithValue (GnlCubeLow (*NewCube) , NbCells, ~0) ; 

return (GNLjDK) ; 

} 

/* 

/* GnlCubeAndExtend 

/* 

GNL_STATUS GnlCubeAndExtend (OldSize, NewSize, Cube, ExtCube) 
int OldSize; 
int NewSize; 
GNL_CUBE Cube; 
GNL__CUBE *ExtCube; 

{ 

if (GnlCubeFullAndCreate (NewSize, ExtCube)) 
return (GNL__MEMORY_FULL) ; 

memcpy (GnlCubeHigh (* Ext Cube ) , GnlCubeHigh (Cube), OldSize << 2) ; 
memcpy (GnlCubeLow (*ExtCube) , GnlCubeLow (Cube), OldSize << 2) ; 

return (GNL_0K) ; 

} 

/* 

/* GnlCubeCopy 

/* 

GNL_STATUS GnlCubeCopy (NbCells, Cube, NewCube) 
int NbCells; 
GNL_CUBE Cube ; 

GNL_CUBE *NewCube; 

{ 

if (GnlCubeFullCreate (NbCells, NewCube)) 
return (GNL_MEMORY_FULL) ; 

while (NbCells--) 
{ 

GnlCubeHigh (*NewCube) [NbCells] = GnlCubeHigh (Cube) [NbCells] ; 
GnlCubeLow (*NewCube) [NbCells] = GnlCubeLow (Cube) [NbCells]; 
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return (GNL OK) ; 

} 



/* 

/* GnlCopyListOf Cubes 

/* 

GNL_STATUS GnlCopyListOf Cubes (ListOf Cubes , CopyList, NbCells) 

BLIST ListOf Cubes; 

BLIST *CopyList; 
int NbCells; 

{ 

int i ; 

GNL_CUBE Cube I ; 

GNL_CUBE NewCube; 



if {BListCreateWithSize (2, CopyList) ) 
return ( GNL_MEMORY__FULL ) ; 

for (i=0; i<BListSize (ListOf Cubes) ; i++) 

Cubel = (GNL_CUBE) BListElt (ListOf Cubes , i) ; 
if (GnlCubeCopy (NbCells, Cubel, &NewCube) ) 

return (GNL_MEMORY__FULL) ; 
if (BListAddElt (*CopyList, (int ) NewCube) ) 

return ( GNL_MEMORY_FULL ) ; 



return (GNL_OK) ; 



/* 

/* GnlCubeFree 

/* 

void GnlCubeFree (Cb) 
GNL_CUBE *Cb; 

{ 

if (*Cb == NULL) 
return; 

GnlCubeStructFree (*Cb) ; 
free ((char*) (*Cb) ) ; 
*Cb = NULL; 

} 



/* 

/* GnlCubelnitWithValue 
/* 



ie/ 

*/ 

^ I 

/* Initialize GNL_CUBE 'Cube' with the following values according to 'C**/ 
/* c High Low */ 

/* ? 0' 0 0 

/* r l r 1 1 

/* '- 1 0 1 

/* *?' 1 0 

/* 



*/ 
*/ 
*/ 
*/ 

*/ 
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void GnlCubelnitWithValue (Cube, C, NbCells) 
GNL_CUBE Cube; 
char *C; 
int NbCells; 

{ 

switch (*c) { 
case 1 0 ' : 

MintlnitWithValue (GnlCubeHigh (Cube) , NbCells, 0) ; 
MintlnitWithValue (GnlCubeLow (Cube) , NbCells, 0) ; 
break; 



case 1 1 ' : 

MintlnitWithValue (GnlCubeHigh (Cube) , NbCells, ~0) ; 

MintlnitWithValue (GnlCubeLow (Cube) , NbCells, -0) ; 
break; 



case ' - ' : 

MintlnitWithValue (GnlCubeHigh (Cube) , NbCells, 0) ; 
MintlnitWithValue (GnlCubeLow (Cube ) , NbCells, ~0) ; 
break; 



case ' ? 1 : 

MintlnitWithValue (GnlCubeHigh (Cube) , NbCells, -0) ; 
MintlnitWithValue (GnlCubeLow (Cube ) , NbCells, 0) ; 
break; 

} 

} 

/* 

/* GnlCubeLiteralExistQuick 

/* 

int GnlCubeLiteralExistQuick (Cube, Litlnfo, t, d, mask) 

GNL_CUBE Cube ; 

int Litlnfo; 

int t; 

int d; 

unsigned mask; 

{ 



if (Litlnfo & 1) 

return ( ! { (mask & (* (GnlCubeHigh (Cube) + d) ) ) || 
(mask & (* (GnlCubeLow (Cube) + d) ) ) ) ) ; 

return ((int) (mask & (* (GnlCubeHigh (Cube) + d) ) & 
(* (GnlCubeLow (Cube) + d) ) ) ) ; 



/* 

/* GnlCubeLiteralExist 

/* 

/* Returns 1 if GNL_CUBE 'Cube' contains literal defined by 'Litlnfo'. 
/* 'Litlnfo 1 is an encoded value that defines both the index of the 
/* searched literal and its form: 'Litlnfo' div 2 is the index, and 
/* 'Litlnfo" mod 2 is the form (1 : normal form, 0 : complement form) 
/* 

int GnlCubeLiteralExist (Cube, Litlnfo) 
GNL_CUBE Cube ; 
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int Litlnfo; 

{ 

int t; 
int d; 
unsigned mask; 

t = (Litlnfo >> 1) % BITS_PER_INT; 
d = (Litlnfo >> 1) / BITS_PER_INT; 
mask - 1 << t; 

if (Litlnfo & 1) 

return ('((mask & ( * (GnlCubeHigh (Cube) + d) ) ) || 
(mask Sc (* (GnlCubeLow(Cube) + d) ) ) ) ) ; 

return ((int) (mask & ( * (GnlCubeHigh (Cube) + d) ) & 
^ (* (GnlCubeLow(Cube) + d) ) ) ) ; 



/* 

/* GnlCubelsTautology */ 
/* 

int GnlCubelsTautology (Cube, NbCells) 
GNL_CUBE Cube; 
int NbCells; 



{ 



while (NbCells--) 
{ 

if (-(GnlCubeHigh (Cube) [NbCells] " GnlCubeLow (Cube) [NbCells] ) ) 
return (0) ; 

} 

return (1) ; 



/* 

/* GnlCubelncluded 

/* 

int GnlCubelncluded (NbCells, Cubel, Cube2) 
int NbCells; 
GNL_CUBE Cubel; 
GNL_CUBE Cube2; 



{ 



} 



while (NbCells--) 
{ ( 

if ( (GnlCubeLow (Cubel) [NbCells] & -GnlCubeLow (Cube2 ) [NbCells] ) | 
(-GnlCubeHigh (Cubel) [NbCells] & GnlCubeHigh (Cube2) [NbCells])) 
return (o) ; 

} 

return (1) ; 



/* 

/* GnlCubePrint */ 
/* 

/* High: 10 10 */ 
/* Low : 1 0 0 1 */ 



*/ 
*/ 
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/* 10 
/* 

void GnlCubePrint 
FILE 
int 

GNL_CUBE Cube; 

{ 

int N; 
int Nb ; 

int Mask; 



(File, NbVar, Cube) 

*File; 

NbVar ,- 



N = 0; 

while (NbVar) 
{ 

NbVar - = (Nb = (NbVar > BITS_PER_INT) ? BITS_PER_INT : NbVar) - 
Mask = 1; 

do 

{ 

if (GnlCubeHigh (Cube) [N] & Mask) 
if (GnlCubeLow(Cube) [N] & Mask) 

fprintf (File, "1"); 
else 

fprintf (File, »-») ; 
else if (GnlCubeLow(Cube) [N] & Mask) 
fprintf (File, "-"); 

else 

fprintf (File, "0" ) ; 
Mask <<= 1; 

} 

while (--Nb); 

N++; 

} 

} 

/* 
/* 
/* 
/* 
/* 

int GnlCubeLitNumber (Cube, NbCells) 
GNL_CUBE Cube; 
int NbCells; 

{ 

unsigned V; 
int LitNb; 

LitNb = 0; 

while (NbCells--) 

{ 

V = - (GnlCubeHigh (Cube) [NbCells] A GnlCubeLow (Cube) [NbCells]); 
LitNb += MintCardinalAllCells (&V, 1) ; 



GnlCubeLitNumber 


*/ 




Returns the number of literals in the Cube 'Cube'. 




*/ 



*/ 
*/ 
*/ 
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} 

return (LitNb) ; 

} 

/* 

/* GnlListCubesLitNumber 

/* 

/* Returns the number of literals in a list of Cubes 

/* ; 

int GnlListCubesLitNumber (ListCubes, NbCells) 

BLIST ListCubes; 
int NbCells; 

{ 

int i ; 
int NbLit ; 

GNL_CUBE Cubel; 

NbLit = 0; 

for (i=0; i<BListSize (ListCubes); i++) 

Cubel = (GNL__CUBE) BListElt (ListCubes, i) ; 
NbLit += GnlCubeLitNumber (Cubel, NbCells); 

return (NbLit) ; 



/* 

/* GnlListCubesPrint 

/* 

void GnlListCubesPrint (File, NbVar, ListCubes) 
FILE *File; 
int NbVar; 
BLIST ListCubes; 

{ 

int i ; 

GNL_CUBE Cubel; 



for (i=0; i<BListSize (ListCubes) -1; i++) 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
GnlCubePrint (File, NbVar, Cubel) ; 
fprintf (File, » + ») ? 

} 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
GnlCubePrint (File, NbVar, Cubel) ; 
fprintf (File, »\n») ; 



/* 

1 * 

/* GnlCubesFromGnlNodeOR */ 

/* [ + 

GNL__STATUS GnlCubesFromGnlNodeOR (Gnl, NbCells, NbVar, GnlNode, ListCubes 
GNL Gnl ; 



C-GNL1-89 



gnlcube.c 



int NbCells; 
int NbVar; 

GNL_NODE GnlNode ; 

BLIST *ListCubes; 

int i; 
GNL_NODE SonI; 
BLIST Sons; 
BLIST ListCubesSon; 



if (BListCreate (ListCubes) ) 
return (GNL_MEMORY_FULL) ; 

Sons = GnlNodeSons (GnlNode) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL__NODE) BListElt (Sons, i) ; 

if (GnlCubesFromGnlNode (Gnl, NbCells, NbVar, SonI, ^ListCubesSon) ) 
return (GNL_MEMORY_FULL) ; 

if (BListSize (ListCubesSon) ) 

{ 

if (BListAppend ( (*ListCubes) , ^ListCubesSon) ) 
return <GNL_MEMORY_FULL) ; 

} 

else /* Empty list because Cube is the 0 constante */ 

{ /* Then it i not necessary to append it. */ 

BListQuickDelete (^ListCubesSon) ; 

} 

} 



} 



return (GNL OK) ; 



/* 

/* GnlMakeFlattenableNodeOR */ 

/* 

GNL_S TATUS GnlMakeFlattenableNodeOR (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) 

GNL Gnl ; 

int NbCells; 
int NbVar ; 

GNL_NODE GnlNode ; 

BLIST *ListCubes; 
int MaxCubes; 
int *Flattened; 

{ 

int i ; 

GNL_NODE SonI; 

BLIST Sons; 

BLIST ListCubesSon ; 



if (BListCreate (ListCubes)) 
return (GNL_MEMORY_FULL) ; 
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Sons = GnlNodeSons (GnlNode) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 

if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, SonI, 

&ListCubesSon, MaxCubes, Flattened) ) 

return (GNL_MEMORY_FULL) ; 

if ( I (^Flattened) ) 
return (GNL_OK) ; 

if (BListSize (ListCubesSon) ) 

{ 

if (BListAppend ( (*ListCubes) , &ListCubesSon) ) 
return (GNL_MEMORY_FULL) ; 

} 

else /* Empty list because Cube is the 0 constante */ 

{ /* Then it i not necessary to append it. */ 

BListQuickDelete (&ListCubesSon) ; 

} 



if (BListSize ( (*ListCubes) ) > MaxCubes) 
{ 

^Flattened = 0; 
return (GNL_OK) ; 

} 



*Flattened = 1; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlCubeCumulativeMult */ 
/* */ 

void GnlCubeCumulativeMult (CumulCube, Cube, NbCells) 
GNL_CUBE CumulCube; 
GNL_CUBE Cube; 
int NbCells; 



{ 



unsigned *CumulHigh; 
unsigned *CumulLow; 
unsigned *High; 
unsigned *Low; 



CumulHigh = GnlCubeHigh (CumulCube) ; 
CumulLow = GnlCubeLow (CumulCube) ; 
High = GnlCubeHigh (Cube) ; 
Low = GnlCubeLow (Cube) ; 

while (NbCells--) 
{ 

* (CumulHigh++) | = * (High++) ; 
* (CumulLow++) &= * (Low++) ; 

} 
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/* 

z 

/* GnlCubeMultiply 

/* J f 

/* Compute the product of the two cubes ■ Cubel ' and 'Cube2'. The result */ 

/* 'CubeMult' can be NULL if the product is 0. */ 

/* 

GNL_STATUS GnlCubeMultiply (NbCells, Cubel, Cube2 , CubeMult) 
int NbCells; 



{ 



GNL_CUBE Cubel; 
GNL_CUBE Cube2; 
GNL_CUBE *CubeMult; 

if (GnlCubeFullCreate (NbCells, CubeMult)) 
return (GNL_MEMORY__FULL) ; 

while (NbCells--) 

{ 

if ( (GnlCubeHigh(*CubeMult) [NbCells] = GnlCubeHigh (Cubel) [NbCells] | 

GnlCubeHigh(Cube2) [NbCells]) 

& 

~<GnlCubeLow(*CubeMult) [NbCells] = GnlCubeLow( Cubel) [NbCells] & 
^ GnlCubeLow(Cube2) [NbCells])) 

GnlCubeFree (CubeMult) ; 
* CubeMult = NULL; 
return (GNL_OK) ; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlCubeMultQuickCubeCube */ 

/* 1 

I ^ 

/* ' Cube3' wil contain the product of 'Cubel 1 by ' Cube2 ' iff the product*/ 
/* is not NULL */ 
/* 



void GnlCubeMultQuickCubeCube (Cubel, Cube 2 , Cube 3 , NbCells) 
GNL_CUBE Cubel; 
GNL_CUBE Cube2; 
GNL__CUBE Cube3j 
int NbCells; 

{ 

while (NbCells--) 

{ 

GnlCubeHigh (Cube3) [NbCells] = GnlCubeHigh (Cubel) [NbCells] 

GnlCubeHigh (Cube2) [NbCells] ; 
GnlCubeLow(Cube3) [NbCells] = GnlCubeLow( Cubel) [NbCells] & 

GnlCubeLow(Cube2) [NbCells]; 



/*■ 



/ 
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/* GnlCubeldentical 

/* 

int GnlCubeldentical (Cubel, Cube2, NbCells) 
GNL_CUBE Cubel; 
GNL_CUBE Cube2; 
int NbCells; 

{ 

if { Imemcmp { (char* ) GnlCubeHigh (Cubel) , (char* ) GnlCubeHigh (Cube2 ) , 
NbCells << 2) ) 

if ( Imemcmp ( (char* ) GnlCubeLow (Cubel) , (char*) GnlCubeLow (Cube2 ) , 
NbCells « 2)) 

return (1) ; 
else 

return (0) ; 

else 

return (0) ; 

} 

/* 

/* GnlCubeAlreadylnList 

/* 

int GnlCubeAlreadylnList (NbCells, Cube, List) 
int NbCells; 
GNL_CUBE Cube; 
BLIST List; 

{ 

int i ; 

GNL_CUBE Cubel; 

return (0) ; 

for (i=0; i<BListSize (List) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (List, i) ; 
if (GnlCubeldentical (Cube, Cubel, NbCells)) 
return (1) ; 

} 

return (0) ; 

} 



/* 

/* GnlCubesListMultiply 

/* 

GNL_STATUS GnlCubesListMultiply (NbCells, LI, L2 , Lres) 
int NbCells; 
BLIST LI; 
BLIST L2 ; 

BLIST *Lres; 

{ 

int i ; 
int j ; 

GNL_CUBE Cubel; 
GNL_CUBE Cube J ; 
GNL_CUBE CubeMult; 
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if (BListCreate (Lres) ) 

return (GNL_MEMORY_FULL) ; 

/* If one of the list is 0 then we return an empty list */ 
if ( (BListSize (LI) ==0) || (BListSize (L2) == 0)) 
return (GNL_0K) ; 

for (i=0; i<BListSize (LI); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (LI, i) ; 
for (j=0; j<BListSize (L2) ; j++) 

{ 

CubeJ = (GNL_CUBE) BListElt (L2, j ) ; 

if (GnlCubeMultiply (NbCells, Cubel, CubeJ, &CubeMult) ) 
return (GNL_MEMORY_FULL) ; 

if (CubeMult) /* If NULL then the product was 0 */ 

if (GnlCubeAlreadylnList (NbCells, CubeMult, *Lres)) 

GnlCubeFree (&CubeMult) ; 
else 

{ 

if (BListAddElt (*Lres, (int) CubeMult) ) 
return (GNL_MEMORY FULL) ; 

} 

} 

} 

} 



return (GNL_0K) ; 

} 

/* 1c{ 

I* GnlCubesListMultiplyFlattenable */ 

GNL_STATUS GnlCubesListMultiplyFlattenable (NbCells, LI, L2 , MaxCubes, 

Lres) 

int NbCells; 
BLIST LI; 
BLIST L2; 

int MaxCubes; 
BLIST *Lres ; 

{ 

int i ; 
int j ; 

GNL_CUBE Cubel; 
GNL_CUBE CubeJ; 
GNL_CUBE CubeMult; 



if (BListCreate (Lres)) 

return (GNL_MEMORY_FULL) ; 

/* If one of the list is 0 then we return an empty list */ 
if ((BListSize (LI) ==0) || (BListSize (L2) 0)) 
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} 



return (GNL_OK) ; 

for {i=0; i<BListSize (LI); i++) 

{ 

Cubel = (GNL_CUBE) BListElt (LI, i) ; 
for (j=0; j<BListSize (L2) ; j++) 

{ 

CubeJ = (GNL_CUBE) BListElt (L2, j); 

if (GnlCubeMultiply (NbCells, Cubel, CubeJ, &CubeMult) ) 
return ( GNL_MEMORY_FULL ) ; 

if (CubeMult) /* If NULL then the product was 0 */ 
{ 

if (GnlCubeAlreadylnList (NbCells, CubeMult, *Lres) ) 

GnlCubeFree (&CubeMult) ; 
else 

{ 

if (BListAddElt (*Lres, (int) CubeMult ) ) 
return (GNL_MEMORY_FULL) ; 
if (BListSize (*Lres) > MaxCubes) 
return (GNL_OK) ; 

} 

} 

} 

} 

return (GNL OK) ; 



/* */ 

/* GnlCubesFromGnlNodeAND */ 

/* */ 

GNL_STATUS GnlCubesFromGnlNodeAND (Gnl, NbCells, NbVar, GnlNode, ListCubes) 
GNL Gnl ; 

int NbCells; 
int NbVar; 
GNL_NODE GnlNode; 
BLIST *ListCubeS; 

{ 

BLIST Sons; 

GNL_NODE SonI; 

int i; 

int NbCubesl; 

int NbCubes2; 

BLIST ListCubesSon; 

BLIST ListRes; 

BLIST MinimizedListRes ; 



Sons = GnlNodeSons (GnlNode) ; 

SonI = (GNL_NODE) BListElt (Sons, 0) ; 

if (GnlCubesFromGnlNode (Gnl, NbCells, NbVar, SonI, ListCubes)) 
return { GNL_MEMORY_FULL ) ; 

if (BListSize (*ListCubes) == 0) /* Actually the 0 Constante */ 
return (GNL_OK) ; 
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for (i=l; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_NODE) BListElt (Sons, i) / 

if (GnlCubesFromGnlNode (Gnl, NbCells, NbVar, SonI, ^ListCubesSon) ) 
return (GNL_MEMORY_FULL) ; 

NbCubesl = BListSize (*ListCubes) ; 
NbCubes2 = BListSize (ListCubesSon) ; 

if (GnlCubesListMultiply (NbCells, *ListCubes, ListCubesSon, 

&ListRes) ) 
return (GNL_MEMORY_FULL) ; 

/* If the multiplication of the lists of cubes produces a list */ 
/* too large (e.g. of size 2 times greater than the sum of the */ 
/* two original lists) then we invoke the two-level minimization*/ 
if (BListSize (ListRes) > 2 * (NbCubesl + NbCubes2) ) 
{ 

if (LsMinListCubes (ListRes, NULL, NbVar, &MinimizedListRes) ) 
return (GNL_MEMORY_FULL) ; 

BListDelete (&ListRes, GnlCubeFree) / 
ListRes = MinimizedListRes; 

} 

BListDelete (ListCubes, GnlCubeFree) ; 
BListDelete (^ListCubesSon, GnlCubeFree) ; 
*ListCubes = ListRes; 

if (BListSize (ListRes) 0) /* Actually the 0 Constante */ 

return (GNLJDK) / 

} 

} 



return (GNL OK) ; 



/* 

/* GnlMakeFlattenableNodeAND 



-*/ 
■*/ 



7 



/* 

GNL_STATUS GnlMakeFlattenableNodeAND (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) 



GNL 
int 
int 

GNL_NODE 
BLIST 
int 
int 



Gnl; 

NbCells; 

NbVar; 
GnlNode ; 
*ListCubes; 

MaxCubes; 

*Flattened; 



BLIST Sons; 

GNL__NODE SonI; 

int 

int 

int 



NbCubesl ; 
NbCubes2 ; 



BLIST 



ListCubesSon; 
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BLIST ListRes; 

BLIST MinimizedListRes ; 



Sons = GnlNodeSons (GnlNode) ; 

SonI = (GNL_NODE) BListElt (Sons, 0) / 

if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, SonI, ListCubes, 

MaxCubes, Flattened) ) 

return ( GNL_MEMORY_FULL ) ; 

if ( ! (*Flattened) ) 
return <GNL_0K) ; 

*Flattened = 1; 

if (BListSize (*ListCubes) == 0) /* Actually the 0 Constante */ 
return (GNL_0K) ; 

for (i=l; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_N0DE) BListElt (Sons, i) ; 

if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, SonI, 

^ListCubesSon, MaxCubes, Flattened) ) 

return ( GNL_MEMORY_FULL) ; 

if ( ! <*Flattened) ) 
return (GNL_0K) ; 

if (BListSize (ListCubesSon) == 0) 
{ 

BListDelete (ListCubes, GnlCubeFree) ; 
*ListCubes = ListCubesSon; 
return (GNL_OK) ; 

} 

NbCubesl = BListSize (*ListCubes) ; 
NbCubes2 = BListSize (ListCubesSon) ; 

i f (GnlCubesListMultiplyFlattenable (NbCells , *ListCubes , 
ListCubesSon, MaxCubes, &ListRes) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListSize (ListRes) > MaxCubes) 

{ 

BListDelete (&ListRes, GnlCubeFree) ; 
*Flattened = 0; 
return (GNL_OK) ; 

} 

/* If the multiplication of the lists of cubes produces a list */ 
/* too large (e.g. of size 2 times greater than the sum of the */ 
/* two original lists) then we invoke the two- level minimization*/ 
if (BListSize (ListRes) > 2 * (NbCubesl + NbCubes2)) 
{ 

if (LsMinListCubes (ListRes, NULL, NbVar, ScMinimizedListRes) ) 
return (GNL_MEMORY_FULL) ; 
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BListDelete (&ListRes, GnlCubeFree) ; 
ListRes = MinimizedListRes ; 

} 

BListDelete (ListCubes, GnlCubeFree) ; 
BListDelete (&ListCubesSon, GnlCubeFree) ; 
*ListCubes = ListRes; 

if (BListSize (ListRes) == 0) /* Actually the 0 Constante */ 

{ 

♦Flattened = 1; 
return (GNL_OK) ; 

} 

} 

♦Flattened = 1; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlCubeNot */ 

/* */ 

GNL_STATUS GnlCubeNot (NbCells, Cube, CubeNotList) 
int NbCells; 
GNL_CUBE Cube; 
BLIST *CubeNotList ; 



{ 



BLIST ComplementList; 
GNL_CUBE NewCube; 
unsigned *VarSet; 
int CellNb; 
unsigned VarMask; 



if (BListCreate (&ComplementList) ) 
return (GNL_MEMORY_FULL) ; 

if (MintXNOR (GnlCubeHigh (Cube), GnlCubeLow (Cube), NbCells, &VarSet) ) 
return (GNL_MEMORY_FULL) ; 



while (MintLocateFirstOne (VarSet, NbCells, &CellNb, &VarMask) ) 
{ 

if (GnlCubeFullAndCreate (NbCells, &NewCube) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (ComplementList, NewCube)) 
return ( GNL_MEMORY_FULL ) ; 



if (GnlCubeHigh (Cube) [CellNb] & VarMask) 

GnlCubeLow (NewCube) [CellNb] &= -VarMask; 
else 

GnlCubeHigh (NewCube) [CellNb] | = VarMask; 
VarSet [CellNb] &= -VarMask; 
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} 

free ((char *)VarSet); 
*CubeNotList = ComplementList ; 
return (GNL OK) ; 



/* */ 

i * GnlCubeComplementListCubes * / 

/* ie/ 

GNL_STATUS GnlCubeComplementListCubes (Gnl, NbCells, NbVar, ListCubes, 

ListCubesNot) 

GNL Gnl ; 

int NbCells; 
int NbVar; 
BLIST ListCubes; 
BLIST *ListCubesNot ; 



{ 



int i ; 

BLIST OldCompList; 
BLIST NewCompList; 
BLIST CubeNotList 
GNL_CUBE NewCube; 
GNL_CUBE Cube I; 



if (BListCreateWithSize (1, &01dCompList) ) 
return ( GNL_MEMORY__FULL ) ; 

/* The first Cube is set to " " 

if (GnlCubeFullAndCreate (NbCells, &NewCube) ) 
return ( GNL__MEMORY_FULL ) ; 

if (BListAddElt (OldCompList, (int) NewCube) ) 
return (GNL_MEMORY FULL) ; 



/* if BListSize (ListCubes) is 0 it is Constant 0, the following loop */ 
/* is not entered. */ 

for (i = 0; i < BListSize (ListCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
if (GnlCubeNot (NbCells, Cubel, ScCubeNotList) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCubesListMultiply (NbCells, OldCompList, CubeNotList, 

&NewCompList) ) 
return (GNL_MEMORY_FULL) ; 

BListDelete (^OldCompList , Gnl Cube Fr ee ) ; 

BListDelete ( ^CubeNotList , GnlCubeFree) ; 

OldCompList = NewCompList; 

} 
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*ListCubesNot = OldCompList; 
return (GNL OK) ; 



/* 

/* GnlCubeComplementListCubesFlattenable 
/* 



GNL_STATUS Gnl Cube Complement List Cubes Flat tenable (Gnl, NbCells, NbVar, 



GNL 

int 

int 

BLIST 

int 

BLIST 



ListCubes , MaxCubes , 
ListCubesNot) 



Gnl; 

NbCells; 

NbVar; 

ListCubes; 

MaxCubes ; 
*ListCubesNot ; 



int 1 ; 

BLIST OldCompList ; 
BLIST NewCompList ; 
BLIST CubeNotList ; 
GNL_CUBE NewCube; 
GNL CUBE Cube I ; 



if (BListCreateWithSize (1, ^OldCompList) ) 
return (GNL_MEMORY_FULL) ; 

/* The first Cube is set to " " 

if (GnlCubeFullAndCreate (NbCells, kNewCube) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt (OldCompList, ( int ) NewCube) ) 
return (GNL_MEMORY_FULL) ; 



*/ 



/* if BListSize (ListCubes) is 0 it is Constant 0, the following loop */ 
/* is not entered. */ 

for (i = 0; i < BListSize (ListCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
if (GnlCubeNot (NbCells, Cubel, &CubeNotList ) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlCubesListMultiply (NbCells, OldCompList, CubeNotList, 

&NewCompList ) ) 
return ( GNL_MEMORY_FULL ) ; 

BListDelete (&01dCompList , GnlCubeFree) ; 
BListDelete (^CubeNotList , GnlCubeFree) ; 
OldCompList = NewCompList; 

/* we stop since we reach the max number of allowed cubes */ 
if (BListSize (OldCompList) > MaxCubes) 
break; 
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} 



} 



*ListCubesNot = OldCompList; 
return (GNL OK) ; 



/* 

/* GnlCubesFromGnlNodeNOT */ 

/* *i 

GNL_STATUS GnlCubesFromGnlNodeNOT (Gnl, NbCells, NbVar, GnlNode, ListCubes) 
GNL Gnl ; 

int NbCells; 
int NbVar; 
GNL_NODE GnlNode ; 

BLIST *ListCubes; 



{ 



BLIST Sons; 
GNL_NODE Son; 
BLIST ListCubesSon; 
GNL CUBE CubeOne; 



Sons = GnlNodeSons (GnlNode) ; 

Son = (GNL_NODE) BListElt (Sons, 0) ; 

if (GnlCubesFromGnlNode (Gnl, NbCells, NbVar, Son, ^ListCubesSon) ) 
return (GNL_MEMORY_FULL) ; 



if (BListSize (ListCubesSon) 0) 
{ 

if (BListCreate (ListCubes)) 
return ( GNL __MEMORY_FULL ) ; 

if (GnlCubeFullAndCreate (NbCells, &CubeOne) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt ( (*ListCubes) , (int) CubeOne) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

if (GnlCubeComplementListCubes (Gnl, NbCells, NbVar, ListCubesSon, 

ListCubes) ) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 



/* itf 

/* GnlMakeFlattenableNodeNOT */ 

/* ic/ 

GNL_STATUS GnlMakeFlattenableNodeNOT (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) 

GNL Gnl; 

int NbCells; 
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int NbVar; 

GNL_NODE GnlNode ; 

BLIST *ListCubes; 
int MaxCubes ; 

int *Flattened; 

BLIST Sons; 
GNL_NODE Son; 
BLIST ListCubesSon; 
GNL CUBE CubeOne; 



Sons = GnlNodeSons (GnlNode) ; 

Son = (GNL_NODE) BListElt (Sons, 0) ; 

if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, Son, 

&ListCubesSon, MaxCubes, Flattened) ) 

return ( GNL_MEMORY_FULL ) ; 

if ( ! (*Flattened) ) 
return (GNL_OK) ; 

if (BListSize (ListCubesSon) 0) 

{ 

*Flattened = 1; 
if (BListCreate (ListCubes) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCubeFullAndCreate (NbCells, &CubeOne) ) 
return (GNL_MEMORY__FULL) ; 

if (BListAddElt ( (*ListCubes) , ( int) CubeOne) ) 
return (GNL__MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

if (GnlCubeComplementListCubesFlattenable (Gnl, NbCells, NbVar, 

ListCubesSon, MaxCubes, ListCubes) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListSize (*ListCubes) > MaxCubes) 

{ 

*Flattened = 0; 
return (GNL_OK) ; 

} 

*Flattened - 1; 
return (GNL__OK) ; 

} 

/* 

/* Gn 1 Cube s Fr omGnlNodeCONSTANTE */ 
/* 

GNL_STATUS Gn 1 Cube s F romGnlNodeCONS TANTE (Gnl, NbCells, NbVar, GnlNode, 

ListCubes) 

GNL Gnl ; 

int NbCells; 
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int NbVar; 
GNL_NODE GnlNode; 
BLIST *ListCubes; 

int Value; 
GNL CUBE NewCube; 



Value = (int) GnlNodeSons (GnlNode); 

if (BListCreateWithSize (1, ListCubes) ) 
return (GNL_MEMORY_FULL) ; 

/* The constant value is 1 otherwise it is 0. */ 
if (Value == 1) 
{ 

if (GnlCubeFullAndCreate (NbCells, &NewCube) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt ( (*ListCubes) , (int ) NewCube) ) 

return (GNLJVIEMORY_FULL) ; 

} 



} 



return (GNL OK) ; 



/* 

/* Gnl Cube sFromGnlNode VARIABLE */ 
/* 

/* WARNING: field ' GnlVarRank ' of the variable must be correctly set 

/* according to the list inputs/outputs/locals of 'Gnl'. */ 
/* 

GNL_STATUS Gnl Cube sFromGnlNode VARIABLE (Gnl, NbCells, NbVar, GnlNode, 

ListCubes) 

GNL Gnl ; 

int NbCells; 
int NbVar; 
GNL_NODE GnlNode ; 

BLIST *ListCubes; 

{ 

GNL_VAR Var ; 

int Rank; 

i nt Rank InCe 1 1 ; 

GNL CUBE NewCube; 



Var = (GNL VAR) GnlNodeSons (GnlNode) ; 



/* case where Var is a VDD or a VSS. 
if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
{ 

if (BListCreateWithSize (1, ListCubes)) 
return ( GNL__MEMORY_FULL ) ; 

if (GnlVarlsVss (Var) ) 
return (GNL_0K) ; 
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if (GnlCubeFullAndCreate (NbCells, &NewCube) ) 

return ( GNL_MEMORY__FULL ) ; 
if (BListAddElt { (*ListCubes) , (int) NewCube) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

Rank = GnlVarRank (Var) ; /* The Rank of the var in the list */ 

/* { Input s+Outputs+Locals} */ 

if (GnlCubeFullAndCreate (NbCells, &NewCube) ) 
return (GNL_MEMORY_FULL) ; 

locate (Rank, BITS_PER_INT, NbCells, RanklnCell) ; 

(GnlCubeHigh (NewCube) ) [NbCells] |= (1 << (RanklnCell -1) ) ; 
(GnlCubeLow (NewCube) ) [NbCells] |= (1 << (RanklnCell -1) ) ; 

if (BListCreateWithSize (1, ListCubes) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt ( (*ListCubes) , (int ) NewCube) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 



/* */ 

/* GnlCubesFromGnlNode */ 

/* */ 

GNL_STATUS GnlCubesFromGnlNode (Gnl, NbCells, NbVar, GnlNode, ListCubes) 
GNL Gnl ; 

int NbCells; 
int NbVar; 
GNL_NODE GnlNode; 
BLIST ^ListCubes; 

{ 

switch (GnlNodeOp (GnlNode) ) { 
case GNL_OR: 

return (Gnl Cube sFromGnlNodeOR (Gnl, NbCells, NbVar, GnlNode, 

ListCubes) ) ; 

case GNL_AND: 

return (GnlCubesFromGnlNode AND (Gnl, NbCells, NbVar, GnlNode, 

ListCubes) ) ; 

case GNLJSOT: 

return (Gnl Cube sFromGnl Nod eNOT (Gnl, NbCells, NbVar, GnlNode, 

ListCubes) ) ; 

case GNL_CONSTANTE : 

return ( Gnl Cube s FromGnlNodeCONSTANTE (Gnl, NbCells, NbVar, 

GnlNode, ListCubes) ) ; 

case GNL VARIABLE: 
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return (GnlCubesFromGnlNodeVARIABLE {Gnl, NbCells, NbVar, 

GnlNode, ListCubes) ) ; 



default: 

GnlError (12 /* unknow operator */) 
return (1) ; 



} 

/* */ 

/* GnlMakeFunctionFlattenable */ 

/* */ 

GNL_STATUS GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) 

GNL Gnl ; 

int NbCells; 
int NbVar; 
GNL_NODE GnlNode; 
BLIST *ListCubes; 
int MaxCubes; 
int *Flattened; 

{ 



if (! GnlNode) 
{ 

*Flattened - 1; 
return (GNL_OK) ; 

} 

switch (GnlNodeOp (GnlNode)) { 
case GNL_OR: 

return (GnlMakeFlattenableNodeOR (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) ) ; 



case GNL_AND: 

return (GnlMakeFlattenableNodeAND (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened)); 



case GNL_NOT: 

return (GnlMakeFlattenableNodeNOT (Gnl, NbCells, NbVar, GnlNode, 

ListCubes, MaxCubes, Flattened) ) ; 



case GNL_CONSTANTE : 

*Flattened = 1; 

if (Gnl Cube sFromGnlNodeCONSTANTE (Gnl, NbCells, NbVar, 

GnlNode, ListCubes) ) 
return ( GNL__MEMOR Y_FULL ) ; 
return (GNL_OK) ; 

case GNL_VARIABLE : 

*Flattened = 1; 

if (GnlCubesFromGnlNodeVARIABLE (Gnl, NbCells, NbVar, 

GnlNode, ListCubes) ) 
return (GNL_MEMORY_FULL) ; 
return (GNLJDK) ; 
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default : 

GnlError (12 /* unknow operator */) ; 
return (1) ; 

} 



} 

z* 

/* UpdateVarRank */ 
/* 

int UpdateVarRank (Gnl) 
GNL Gnl ,- 

{ 

int i; 

GNL VAR Varl; 



} 



for (i=0; i<BListSize ( Gnl Inputs (Gnl) ) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnl) , i) ; 
SetGnlVarRank (Varl, i+1) ; 

} 

for (i=0; i<BListSize (GnlOutputs (Gnl) ) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnl) , i) ; 
SetGnlVarRank (Varl, i+l+BListSize (Gnllnputs (Gnl) )) ; 

} 

for (i=0; i<BListSize (GnlLocals (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnl) , i) ; 
SetGnlVarRank (Varl, i+l+BListSize (Gnllnputs (Gnl) )+ 

BListSize (GnlOutputs (Gnl) ) ) ; 

} 

return (BListSize (Gnllnputs (Gnl) ) + BListSize (GnlOutputs (Gnl ) ) + 
BListSize (GnlLocals (Gnl) ) + 1) ; 



/* 

/* GnlComputeCubesInGnl 

/* 

GNL_STATUS GnlComputeCubesInGnl (Gnl) 

GNL Gnl ; 

{ 

int NbVar; 
int NbCells; 
int i; 
GNL_FUNCT I ON Funct ionl ; 

BLIST ListOnSetCubes ; 

BLIST ListDCSetCubes ; 

GNL_VAR Varl ; 
int NextRank; 



C-GNLl-106 



gnlcube.c 



/* number of variables in the design. */ 
NbVar = BListSize (Gnllnputs (Gnl) ) + BListSize (GnlOutputs (Gnl) ) + 
BListSize (GnlLocals (Gnl) ) ; 

/* Number ot Ints to code the variables. */ 
NbCells - NbOf Cells (NbVar, BITS_PER_INT) ; 

/* We compute Rank of each Variable {inputs+Outputs+locals} 
NextRank = UpdateVarRank (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVar Function (Varl) ; 

/* Computing the list of cubes for the On set node. */ 
if (BListCreateWithSize (1, ScListOnSet Cubes) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCubesFromGnlNode (Gnl, NbCells, NbVar, 

GnlFunctionOnSet (FunctionI) , 
&ListOnSetCubes) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSetCubes (FunctionI, ListOnSetCubes) ; 



ttifdef TRACE 

/* Printing the cubes ... */ 
GnlListCubesPrint (stderr, NbVar, 

GnlFunctionOnSet Cubes (FunctionI) ) ; 

#endif 



/* Computing the list of cubes for the DC set node. */ 
if (BListCreateWithSize (1, &Li s t DCS et Cubes) ) 

return ( GNL_MEMORY_FULL) ; 
if (GnlFunctionDCSet (FunctionI) && 

GnlCubesFromGnlNode (Gnl, NbCells, NbVar, 

GnlFunctionDCSet (FunctionI) , 
&ListDCSet Cubes) ) 
return ( GNL_MEMORY_FULL) ; 
SetGnlFunctionDCSetCubes (FunctionI, ListDCSetCubes) ; 

} 



return (GNL_OK) ; 

} 



/* 

/* GnlCreateNewFunctionFromFunction */ 

/* 

GNL_STATUS GnlCreateNewFunctionFromFunct ion (Gnl, NbVar, NbCells, Node) 

GNL Gnl ; 

int *NbVar; 

int *NbCells; 
GNL_NODE Node; 

{ 

int i ; 



C-GNL1-107 



gnlcube.c 



GNL_NODE SonI; 

BLIST Sons; 

GNL_VAR NewVar; 

GNL_NODE NewNode; 

GNL FUNCTION NewFunction; 



if (!Node) 

return (GNL_OK) ; 

switch (GnlNodeOp (Node) ) { 
case GNL_CONSTANTE : 
case GNL_VARIABLE : 

return (GNL_OK) ; 



case GNLJNOT: 

<*NbVar) ++; 

*NbCells - NbOfCells (*NbVar, BITS_PER_INT) ; 

Sons = GnlNodeSons (Node) ; 

SonI = (GNL_NODE) BListElt (Sons, 0) ; 

if (GnlCreateNewFunctionFromFunction (Gnl, NbVar, NbCells, 

SonI) ) 

return { GNL_MEMORY_FULL > ; 

if (GnlCreateUniqueVar (Gnl, "D H , tNewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE , &NewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NewNode, (BLIST) NewVar) ; 
BListElt (Sons, 0) - (int) NewNode; 

if (GnlFunctionCreate (Gnl, NewVar, SonI, &NewFunction) ) 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlVarFunction (NewVar, NewFunction) ; 



if (BListAddElt (GnlLocals (Gnl), (int ) NewVar) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 
if (BListAddElt (GnlFunctions (Gnl), (int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarRank (NewVar, G_Rank++) ,- 



return (GNL_OK) ; 



case GNL_OR: 
case GNL_AND: 

Sons = GnlNodeSons (Node) ; 

for (i=0; i<BListSize (Sons) ; i++) 

{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 

if (GnlCreateNewFunctionFromFunction (Gnl, NbVar, NbCells 

SonI) ) 

return (GNL_MEMORY_FULL) ; 

} 

for (i = 0; i<BListSize (Sons); i++) 

{ 

SonI = (GNL NODE) BListElt (Sons, i) ; 
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if (GnlNodeOp (SonI) == GNL_VAR I AB L E ) 
continue; 

if (GnlNodeOp (SonI) == GNL_CONSTANTE) 
continue; 

(*NbVar) ++; 

*NbCells = NbOfCells (*NbVar, BITS_PER_INT) ; 
if (GnlCreateUniqueVar (Gnl, "D M , &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE , &NewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NewNode, (BLIST) NewVar) ; 
BListElt (Sons, i) = ( int ) NewNode ; 

if (GnlFunctionCreate (Gnl, NewVar, SonI, &NewFunction) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlVarFunction (NewVar, NewFunction) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl ) +1) ; 
if (BListAddElt (GnlFunctions (Gnl), (int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarRank (NewVar, G_Rank++) ; 

} 

return (GNL_OK) ; 

} 

} 

/* */ 

/* GnlMakeGnlFlat tenable */ 

/* */ 

GNL__STATUS GnlMakeGnlFlattenable (Gnl, MaxCubes, Flattened) 

GNL Gnl ; 

int MaxCubes ; 

int ^Flattened; 

{ 

int NbVar; 

int NbCells ; 

int i ; 

GNL_FUNCT I ON Func t i on I ; 

BLIST ListOnSetCubes ; 

BLIST ListDCSetCubes ; 

GNL_VAJR Varl; 

int NbFunctions; 



/* number of variables in the design. */ 
NbVar = BListSize (Gnllnputs (Gnl) ) + BListSize (GnlOutputs (Gnl) ) + 
BListSize (GnlLocals (Gnl) ) ; 

/* Number ot Ints to code the variables. */ 
NbCells = NbOfCells (NbVar, BITS_PER_INT) ; 

/* We compute Rank of each Variable { inputs+outputs+locals} */ 
G_Rank = UpdateVarRank (Gnl) ; 
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NbFunctions = BListSize (GnlFunctions (Gnl)); 
for (i=0; i<NbFunctions ; i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

/* Computing the list of cubes for the On set node. */ 
if (BListCreateWithSize (1, ^ListOnSetCubes) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, 

GnlFunctionOnSet (FunctionI) , 
&ListOnSetCubes, MaxCubes, Flattened) ) 
return ( GNLJ4EM0R Y_FULL) ; 
if ( ! (*Flattened) ) 

if (GnlCreateNewFunctionFromFunction (Gnl, &NbVar, &NbCells, 

GnlFunctionOnSet (FunctionI) ) ) 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlFunctionOnSetCubes (FunctionI, ListOnSetCubes) ; 

/* Computing the list of cubes for the DC set node. */ 
if (BListCreateWithSize (1, ^ListDCSetCubes) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlMakeFunctionFlattenable (Gnl, NbCells, NbVar, 

GnlFunctionDCSet (FunctionI) , 
^ListDCSetCubes, MaxCubes, Flattened) ) 
return ( GNL_MEMORY_FULL ) ; 
if ( I (*Flattened) ) 

if (GnlCreateNewFunctionFromFunction (Gnl, &NbVar, &NbCells, 

GnlFunctionDCSet (FunctionI) ) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlFunctionDCSetCubes (FunctionI, ListDCSetCubes) ; 

} 

if (NbFunctions != BListSize (GnlFunctions (Gnl))) 

{ 

for (i=0 ; i<NbFunctions; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

ListOnSetCubes = GnlFunctionOnSet Cubes (FunctionI) ; 
BListDelete (^ListOnSetCubes , GnlCubeFree) ; 
SetGnlFunctionOnSetCubes (FunctionI, NULL) ; 
ListDCSetCubes = GnlFunctionDCSetCubes (FunctionI) / 
BListDelete (^ListDCSetCubes , GnlCubeFree) ; 
SetGnlFunctionDCSetCubes (FunctionI, NULL) ; 

} 

♦Flattened = 0; 
return (GNL_OK) ; 

} 

♦Flattened = 1; 
return (GNL_OK) ; 

} 
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/* */ 

/* */ 

/* File: gnlcube.h */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* */ 

#ifndef GNLCUBE_H 
#define GNLCUBE_H 

/* */ 

/* Macros */ 

/* */ 



#define D IRECT_INS TANT I ATE ~0 

#define INVERSE_INSTANTIATE ~DIRECT_INSTANTIATE 
#def ine GnlCubeNonVars (High, Low) ( (High) A (Low) ) 

#define GnlCubeVars (High, Low) ( -GnlCubeNonVars (High; Low)) 

#define GnlCubeSignif icantVars (High, Low, VarSet)\ 

(GnlCubeVars (High , Low) ScVarSet ) 

#define GnlCubeVarClash (Highl , Lowl, High2, Low2 , Directlnverse) \ 
~ (GnlCubeNonVars (Highl, Lowl) | \ 
GnlCubeNonVars (High2, Low2) j \ 

(GnlCubeNonVars (Highl, High2) " (Directlnverse) ) ) 

#def ine GnlCubeONVars (High, Low) ( (High) & (Low) ) 
#def ine GnlCubeOFFVars (High, Low) (~ { (High) | (Low) ) ) 



#define GnlCubeSignif icantONVars (High, Low, VarSet)\ 

(GnlCubeONVars (High, Low) ScVarSet) 

#define GnlCubeSignif icantOFFVars (High, Low, VarSet) \ 

(GnlCubeOFFVars (High, Low) ScVarSet) 



#define IntDiff(x,y) ( (x) > (y) ? (x) - (y) : (y) - (x) ) 

/* EOF */ 

#endif 
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/* 






/* 


File: 


gnlec . c 


/* 


Version : 


1.1 


/* 


Modifications : 




/* 


Documentation : 




/* 






/* 


Class: none 




/* 


Inheritance : 




/* 







#include <stdio.h> 
#include <stdlib.h> 
#include <math.h> 



#include "blist.h" 
^include "blist.e" 
#include "gnl.h" 
#include "bbdd.h" 
#include "gnlec .h" 
#include " skiplist . h" 
#include " gnloption . h" 



/* 

/* DEFINE */ 
/* 

#define S TRUCT_MODE 0 

#define REGULAR_MODE 1 

#define BREAK_MODE 2 

#define LOCAL_MODE 3 

# define RANDOM MODE 4 



1000000 



#define RANDOM__IN_VECTORS_NUM 32 
#define MAX_CHECKED__LIST_SIZE 2 

#define CHECK_MAX__CONFLICTS 

/* #define ALL_CUTPOINTS_TOGETHER 

/* #define COMMON_CUTPOINTS_HEUR 

/* #define LEAST_BDD_HEUR 

#def ine COMPOS E_UNTIL_F IRS T_FAI LURE 

/* #define PRINT_COMPOSE_STAT 

/* #define PRINT_CUTPOINTS_STAT 

#define STRUCTURAL_CHECK 

#define FND 

/* #define FND_2 

#define RANDOM_SIMULATION 

/* #define XOR_ANALYSIS 

/* #define PRINT_BDD_BUILD 

/* #define BFS_BDD_PHASE 

/* #define S PL I TT ING_NODE S 

/* #define PRINT__SIMXJLATION_BUCKETS 

/* #define IMPLICATION_CHECK 



Bdds for all CP built together 

Uncommon CP composed first 

least Bdd composed first 
/* Compose CP only until first fail 

Print Compose statistics 

Print CP statistics 
/* Structural Checking phase 
/* False Negative Detection phase 

Final False Negative Detection 
/* Random Simulation phase 

XOR Analysis phase 

BFS BDD building 
Splitting multiple input nodes 
Print possibly equiv nodes lists 
Checking implications of nodes 



/* 

/* EXTERN */ 
/* 
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extern BDD_WS GLOB_BDD_WS ; /* Current global BDD work space 
extern GNL ENV G GnlEnv; 



/* 

/* STATIC VARIABLES 

/* 

static int G_EcUniqueId = 0; 
static int G_NbCutVar = 0; 
static int G_GnlMaxBddNode; 
static int G__Fir stBrkVar Index; 
static BLIST G__ListAllCutPoints ; 

static int G_BridgeNodes = ec- 
static int G_InvBridgeNodes = ec- 
static int G_Tag = 0; 

#ifdef COMMON_CUTPOINTS_HEUR 

static BLIST G_ListOut ICutPoints ; 

static BLIST G_List0ut2CutPoints ; 

static BLIST G — List CommonCut Points; 

ftendif 



#ifdef 


RAND0M__S IMULATION 


static 


BLIST 


G_InVectors ; 


static 


SKIPLIST 


G_PossiblyEquiv - NULL; 


static 


int 


G__NbEquiv; 


static 


int 


G_SimulationNum = 0; 


static 


int 


G_Dif f Found; 


static 


int 


G_EquivFound ; 


#endif 







#ifdef XOR_ANALYSIS 

static int G_OnePath; 

static int GJNbOnePath; 

static int G_FalsePath = 1000000; 

static BLIST G_TransitiveXorSupport ; 

static BLIST G_ListConf lictBdd; 

static int G_CheckConf lict ; 

#endif 



#ifdef BFS_BDD_PHASE 
static int G_WsNum; 
#endif 



static BLIST 

static BLIST 

static BLIST 

static BLIST 



G_Outputsl ; 
G_Outputs2; 
G_OutputNodesl ; 
G_OutputNodes2 ; 



static BLIST 
static BLIST 
static int 



G_Li st Constraints = NULL; 
G_ListBadPat terns - NULL; 
G BadPatternsFound; 



#ifdef SPLITTING_NODES 

/* 

/* ComputeMaxInput */ 
/* 

void ComputeMaxInput (Node) 
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GNL_NODE Node ; 

int i ; 

int Maxld = -1; 

GNLJSTODE SonI; 

if (GnlNodeHook (Node) ) 
return ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 



SetGnlNodeHook (Node, (void *)-l); 
return; 



if (GnlNodeOp (Node) == GNL_VARI ABLE ) 

SetGnlNodeHook (Node, (void *)GnlVarId ( (GNL_VAR) GnlNodeSons (Node))) 
return; 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

ComputeMaxInput (SonI) ; 

if (Maxld < (int) GnlNodeHook (SonI)) 
Maxld = (int) GnlNodeHook (SonI) ; 

} 

SetGnlNodeHook (Node, (void *) Maxld); 



/* */ 

/* HookCmp */ 

/* */ 

int HookCmp (Nodel, Node 2) 

GNL_NODE *Node 1 ; 

GNLJSTODE *Node2 ; 

^ return ( (int) GnlNodeHook (*Nodel) - (int) GnlNodeHook (*Node2) ) ; 
} 

/* */ 

/* ResetHookFields */ 

z* */ 

void ResetHookFields (Node) 
GNL_NODE Node ; 

{ 

int i ; 



if (! GnlNodeHook (Node)) 
return; 

SetGnlNodeHook (Node, NULL) ; 
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if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) -= GNL_VAR1ABLE) ) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

ResetHookFields ( (GNL_NODE) BListElt (GnlNodeSons (Node) , i) ) ; 

} 

/* 

/* SplitNode */ 
/* 

GNL_STATUS SplitNode (RefGnl, Node) 
GNL RefGnl; 
GNL_NODE Node ; 

{ 

int i; 
int NbSons; 
int MaxHook; 
GNL_NODE CurrSon; 
GNL__NODE Next Son ; 

GNL_NODE NewS on ; 

BLIST NewSonsList ; 

if (GnlNodeTag (Node) == GJTag) 
return (GNL_OK) ; 

SetGnlNodeTag (Node, G_Tag) ; 

if ( (GnlNodeOp (Node) GNL_CONSTANTE) | | 
(GnlNodeOp (Node) == GNL_VARIABLE) ) 
return (GNL_OK) ; 

NbSons = BListSize (GnlNodeSons (Node)); 

for (i=0 ; i<NbSons ; i++) 

if (SplitNode (RefGnl, (GNL_NODE) BListElt (GnlNodeSons (Node), i) ) ) 
return ( GNL_MEMORY_FULL ) ; 

if (NbSons <= 2) 
return (GNL_OK) ; 

qsort (BListAdress (GnlNodeSons (Node)), NbSons, sizeof (GNLJSTODE) , 
HookCmp) ; 

i - 1; 

CurrSon = (GNL_NODE) BListElt (GnlNodeSons (Node), 0) ; 

while (i < NbSons - 1) 

NextSon = (GNL_N0DE) BListElt (GnlNodeSons (Node), i++) ; 

if (GnlCreateNode (RefGnl, GnlNodeOp (Node), fcNewSon) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (2, ^GnlNodeSons (NewSon) ) ) 
return (NULL) ; 
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BListAddElt (GnlNodeSons (NewSon) , (int ) CurrSon) ; 
BListAddElt (GnlNodeSons (NewSon), ( int) NextSon) ; 

MaxHook = ( (int) GnlNodeHook (CurrSon) < (int ) GnlNodeHook (NextSon) 
(int) GnlNodeHook (NextSon) : (int) GnlNodeHook (CurrSon)); 

SetGnlNodeHook (NewSon, (void *) MaxHook); 

CurrSon = NewSon; 

} 

if (BListCreateWithSize (2, &NewSonsList) ) 
return (GNL_MEMORY_FULL) ; 

BListAddElt (NewSonsList , (int ) CurrSon) ; 

BListAddElt (NewSonsList, BListElt (GnlNodeSons (Node), NbSons - 1) ) ,- 

BListQuickDelete (^GnlNodeSons (Node)) ; 
SetGnlNodeSons (Node, NewSonsList) ; 

return (GNL_OK) ; 

} 

/* 

/* SplitNodesInGnl */ 

/* 

GNL_STATUS SplitNodesInGnl (RefGnl, ListOf OutNodes) 
GNL RefGnl; 
BLIST Li stOf OutNodes ; 

{ 

int i ; 

for (i=0; i<BListSize (ListOf OutNodes) ; i++) 

if (SplitNode (RefGnl, (GNL_NODE) BListElt (Lis tOf OutNodes , i) ) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

#endif 

/* 

/* BListAddEltWCheck */ 

/* 

static int BListAddEltWCheck (L, Elt) 
BLIST *L; 
int Elt; 

{ 

if (*L == NULL) 

if (BListCreate (L) ) 
return (1) ; 
return (BListAddElt (*L, Elt) ) ; 

} 

/* 

/* GnlVarOnSetNode */ 

/* 

/* PREC: before invoking this function the Dads field of all primary 
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/* inputs has to be assigned (in our case by RemoveLocals proc . ) * 
, * 

z* 

GNL_NODE GnlVarOnSetNode (Var) 
GNL_VAR Var; 

{ 

GNL_FUNCT I ON Func; 

if (GnlVarDir (Var) == GNL_VAR_INPUT) 
return ( (GNL_NODE) Gnl Var Dads (Var) ) ; 

if ( (Func - GnlVarFunction (Var) ) == NULL) 

return (NULL) ; 
return (Gnl Func tionOnSet (Func) ) ; 

} 

/* AllocateHookPtrs */ 

GNL_STATUS AllocateHookPtrs (Node) 
GNL_NODE Node ; 

{ 

GNL_CONSTRAINT NewConstraint; 
BLIST Signatures; 

if ((NewConstraint = (GNL_CONSTRAINT) calloc (1, sizeof 
(GNL_CONSTRAINT_REC) ) ) == NULL) 
return ( GNL_MEMORY_FULL) ; 
SetGnlConstraintNode (NewConstraint, Node) ; 
SetGnlConstraint Value (NewConstraint, 0) ; 
SetGnlNodeNegConstraint (Node, NewConstraint) ; 

if ((NewConstraint = (GNL_CONSTRAINT) calloc (1, sizeof 
(GNL_CONSTRAINT_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 
SetGnlConstraintNode (NewConstraint, Node) ; 
SetGnlConstraintValue (NewConstraint, 1) ; 
SetGnlNodePosConstraint (Node, NewConstraint) ; 

#ifdef RAND0M_S IMULATION 

if (BListCreate (^Signatures) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSignatures (Node, Signatures) ; 
#endif 

return ( GNL_0K) ; 

} 

/* - 

/* CreateNodeHookField */ 

/* 

GNL_STATUS CreateNodeHookField (Node) 
GNL_NODE Node ; 

{ 

int i; 
void *Ptr; 

if ( !Node | | GnlNodeHook (Node) ) 
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return (GNL_OK) ; 

if ( (GnlNodeOp (Node) != GNL_CONSTANTE) Sc& 
(GnlNodeOp (Node) ! = GNL_VARIABLE) ) 
for {i=0; i<BListSize (GnlNodeSons (Node)); i++) 

if (CreateNodeHookField ( (GNL_NODE) BListElt (GnlNodeSons (Node), i) ) ) 
return ( GNL _MEM0RY_FULL ) ; 

if ( (Ptr = calloc (1, sizeof (ADD_GNL_NODE_REC) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeHook (Node, Ptr) ; 

if (GnlNodeOp (Node) ! = GNL_C0NSTANTE) 
if (AllocateHookPtrs (Node) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

SetGnlNodeVar (Node, (GNL_VAR) GnlNodeSons (Node) ) ; 

return (GNL_OK) ; 



/* */ 

/* CreateNodesHookFields */ 

/* */ 

GNL_STATUS CreateNodesHookFields (Gnll, Gnl2) 

GNL Gnll; 

GNL Gnl2 ; 

{ 

int i ; 



for (i=0; i<BListSize (G_0utputNodesl) ; i++) 

if (CreateNodeHookField ( (GNLJSTODE) BListElt ( G_Out put Nodes 1 , i) ) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (G_0utputNodes2) ; i++) 

if (CreateNodeHookField ( (GNL_NODE) BListElt (G_0utputNodes2 , i) ) ) 
return ( GNL_MEMORY__FULL ) ; 

for (i=0; i<BListSize (GnlLocals (Gnll)); i++) 

if (CreateNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (GnlLocals 
(Gnll) , i)))) 

return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlLocals (Gnl2) ) ; i++) 

if (CreateNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (GnlLocals 
(Gnl2), i)))) 

return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 



/* CreateVarsHookFields */ 

/* */ 

GNL_STATUS CreateVarsHookFields (Gnl) 
GNL Gnl ; 
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{ 

int i ; 

GNL_VAR Varl ; 

GNL_NODE Nodel; 
void *Ptr; 

for (i=0; i<BListSize (Gnl Functions (Gnl) ) ; i++) 

{ 

Varl = (GNL__VAR) BListElt (GnlFunctions (Gnl), i) ; 

if ({Ptr = calloc (1, sizeof (ADD_GNL_VAR_REC) ) ) -= NULL) 

return ( GNL _MEMOR Y_FULL ) ; 

SetGnlVarHook (Varl, Ptr) ; 

Nodel = GnlFunctionOnSet ( (GNL_FUNCT I ON) Gnl Var Function (Varl)); 
if (GnlNodeHook (Nodel) && 

(GnlNodeOp (Nodel) != GNL_VARIABLE) && 

(GnlNodeOp (Nodel) != GNL_C0NSTANTE) ) 
SetGnlNodeVar (Nodel, Varl); 

} 

for <i=0; i<BListSize (GnlRelevantlnputs (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlRelevantlnputs (Gnl), i) ; 

if (GnlVarHook (Varl)) 

continue; 

if ((Ptr = calloc (1, sizeof (ADD_GNL_VAR_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 
SetGnlVarHook (Varl, Ptr); 

} 

for (i=0; i<2; i++) 

if (Varl = GnlConstant (Gnl, i) ) 

{ 

if ({Ptr = calloc (1, sizeof (ADD_GNL_VAR_REC) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarHook (Varl, Ptr) ; 
Nodel - (GNL_N0DE) GnlVarDads (Varl) ; 
i f ( GnlNodeHook ( Node I ) ) 

SetGnlNodeVar (Nodel, Varl) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* FreeNodesHook */ 

/* 

void FreeNodesHook (Node) 
GNL_NODE Node ; 

{ 

free (GnlNodeNegConstraint (Node) ) ; 

SetGnlNodeNegConstraint (Node, NULL) ; 

free (GnlNodePosConstraint (Node) ) ; 

SetGnlNodePosConstraint (Node, NULL) ; 
#ifdef RANDOM_S IMULATION 

BListDelete (&GnlNodeSignatures (Node) , BListQuickDelete) ; 
#endif 

free (GnlNodeHook (Node) ) ; 
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SetGnlNodeHook (Node, NULL); 

} 



/* */ 

/* FreeNodeHookField */ 

/* */ 

void FreeNodeHookField (Node) 

GNL_NODE Node ; 

{ 

int i; 

if (!Node || IGnlNodeHook (Node)) 
return; 

if (GnlNodeVar (Node) ) 

{ 

free (GnlVarHook (GnlNodeVar (Node))); 
SetGnlVarHook (GnlNodeVar (Node) , NULL) ; 

} 

FreeNodesHook (Node) ; 

if ( (GnlNodeOp (Node) GNL_CONSTANTE) | | (GnlNodeOp (Node) == 
GNL_VARIABLE) ) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

FreeNodeHookField ( (GNL_NODE) BListElt (GnlNodeSons (Node) , i) ) ; 

} 

/* */ 

/* FreeHookFields */ 

/* */ 

void FreeHookFields (Gnll, Gnl2) 

GNL Gnll; 

GNL Gnl2; 

{ 

int i ; 

for (i=0; i<BListSize (G_Outputsl) ; i++) 

FreeNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (G_Outputsl # i) ) ) 

for (i=0; i<BListSize (G_0utputs2) ; i++) 

FreeNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (G_0utputs2, i) ) ) 

for (i=0; i<BListSize (GnlLocals (Gnll)); i++) 

FreeNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (GnlLocals (Gnll) , 

i))) ; 

for (i=0; i<BListSize (GnlLocals (Gnl2) ) ; i++) 

FreeNodeHookField (GnlVarOnSetNode ( (GNL_VAR) BListElt (GnlLocals (Gnl2) , 

i))) ; 
} 

/* */ 

/* MakeNewTag */ 

/* */ 
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/* We update the tags of both netlists Gnll and Gnl2 with a new value */ 

/* */ 

void MakeNewTag (Gnll, Gnl2) 

GNL Gnll; 

GNL Gnl2; 

{ 

int MaxTag ; 

MaxTag = (GnlTag (Gnll) < GnlTag (Gnl2) ? 

GnlTag (Gnl2) : GnlTag (Gnll)); 
if (MaxTag < G_Tag) 

MaxTag = GJTag; 
SetGnlTag (Gnll, MaxTag+1) ; 
SetGnlTag (Gnl2, MaxTag+1) ; 
G_Tag = MaxTag+1; 

} 

/* */ 

/* MakeNewTagBdd */ 

/* */ 

/* We update the bdd tags of netlists Gnll and Gnl2 with a new value */ 

/* */ 

void MakeNewTagBdd (Gnll, Gnl2) 

GNL Gnll; 

GNL Gnl2 ; 

{ 

int MaxTag ; 

MaxTag = (GnlTagBdd (Gnll) < GnlTagBdd (Gnl2) ? 

GnlTagBdd (Gnl2) : GnlTagBdd (Gnll)); 
SetGnlTagBdd (Gnll, MaxTag+1) ; 
SetGnlTagBdd (Gnl2, MaxTag+1) ; 

} 

/* */ 

/* GnlCreateBddRef Info */ 

/* */ 

GNL_STATUS GnlCreateBddRef Info (BddReflnfo) 
BDD_REF_INFO *BddRef Info; 

{ 

if ( (*BddRefInfo = (BDD_REF_INFO) calloc (1, 

sizeof (BDD_REF_INFO__REC) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

/* */ 

/* GnlModifyEcNodelnfo */ 

/* */ 

void GnlModifyEcNodelnfo (Node) 

GNL_NODE Node ; 

{ 

int i ; 

BDD Bdd; 
BDD PTR BddPtr; 
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BDD_VAR BddVar; 

if (GnlNodeTag (Node) == G_Tag) 
return; 

SetGnlNodeTag (Node, G_Tag) ; 

if ( (GnlNodeOp (Node) != GNL_CONSTANTE ) && 
(GnlNodeOp (Node) != GNL_VARI ABLE ) ) 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

GnlModifyEcNodelnfo ( (GNLJNTODE) BListElt (GnlNodeSons (Node), i) ) 

if (Bdd = GnlNodeBdd (Node)) 
{ 

BddPtr = GetBddPtr (Bdd) ; 

free ( (BDD_REF_INFO) GetBddPtrHook (BddPtr) ) ; 
SetBddPtrHook (BddPtr, (Uint32) NULL) ; 

} 

if ( (BddVar = GnlNodeBreakBddVar (Node) ) && 
(Bdd = BddVarBdd (BddVar) ) ) 

{ 

BddPtr = GetBddPtr (Bdd) ; 

free ( (BDD_REF_INFO) GetBddPtrHook (BddPtr)); 
SetBddPtrHook (BddPtr, (Uint32 ) NULL) ; 

} 

if (GnlNodeOp (Node) GNL_CONS TANTE ) 

return; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

SetGnlVarBdd (GnlNodeVar (Node) , BDD__NULL) ; 

SetGnlNodeBdd (Node, BDD_NULL) ; 

return; 

} 

/* Modifying also the Node information. */ 
if (GnlNodeBreakBddVar (Node) ) 

SetGnlNodeBreakBddVar (Node, (BDD_VAR) -1) ; 
SetGnlNodeBdd (Node, BDD_NULL) ; 



/* 

/* GnlFreeWorkSpaceFromNodes */ 
/* 

void GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) 
BDD_WS Ws ; 

GNL_NODE Nodel; 
GNL_NODE Node 2 ; 

{ 

G_Tag++; 

GnlModifyEcNodelnfo (Nodel) ; 
GnlModifyEcNodelnfo (Node2) ; 
FreeBddWorkSpace (Ws) ; 



/* 
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/* GnlCutPointFree */ 

/* */ 

void GnlCutPointFree (Cp) 

GNL_EC_CUT_POINT *Cp ; 

{ 

free (*Cp) ; 
*Cp = NULL; 

} 

/* */ 



/* Gnl CreateEcCut Point */ 

/* */ 

GNL__STATUS GnlCreateEcCutPoint (EcCutPoint) 
GNL_EC_CUT_POINT *EcCutPoint ; 

{ 

if ( (*EcCutPoint = <GNL_EC_CUT_POINT) calloc (1, 

sizeof (GNL_EC_CUT_POINT_REC) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 



} 



return (GNL OK) ; 



/* 

/* VarlnGnl 

/* 

/* 

int VarlnGnl (Var, Gnl) 
GNL_VAR Var; 
GNL Gnl ; 



{ 



int 



i; 



if ( (GnlConstant (Gnl, 0) ==Var) || (GnlConstant (Gnl, 1) == Var) ) 

return (1) ; 
for (i=0; i<GnlNbLocal (Gnl); i++) 

if ( (GNL_VAR) BListElt (GnlLocals (Gnl), i) ==Var) 
return (1) ; 
for (i=0; i<GnlNbIn (Gnl); i++) 

if ( (GNL__VAR) BListElt (Gnllnputs (Gnl), i) ==Var) 
return (1) ; 
for (i=0; i<GnlNbOut (Gnl); i++) 

if ( (GNL_VAR) BListElt (GnlOutputs (Gnl), i) « Var) 
return (1) ; 
return (0) ; 



} 

*/ 



z* */ 

/* GetBufflnVar */ 

/* */ 

GNL_VAR GetBufflnVar (Gnl, OutVar) 

GNL Gnl ; 

GNL_VAR Out Var ; 

{ 

int i; 

GNL_US ER_COMPONENT Comp I ; 
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GNL_ASSOC Port ; 

for (i=0; i<BListSize (Gnl Components (Gnl) ) ; i++) 
{ 

CompI = (GNL_USER__COMPONENT)BListElt (Gnl Components (Gnl), i) ; 

if ( (GnlUserComponentType (CompI) == GNL_USER_COMPO) 
Istrcmp (Gnl User Component Name (CompI), "buff") && 
Istrcmp (GnlUserComponentlnstName (CompI), GnlVarName (OutVar) ) ) 

{ 

Port = (GNL_ASSOC) BListElt (GnlUser Component Interface (CompI), 1) ; 
if (GnlVarlsVar (GnlAssocActualPort (Port))) 

return (GnlAssocActualPort (Port) ) ; 
else 

return (NULL) ; 

} 

} 

return (NULL) ; 

} 

/* . 

/* ComputeGnlValueOnNodeOR */ 

/* 

void ComputeGnlValueOnNodeOR (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_N0DE Node I; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeValue (Nodel) == 1) 

{ 

SetGnlNodeValue (Node, 1) ; 
return; 

} 

} 

SetGnlNodeValue (Node, 0) ; 



} 



/* */ 

/* ComputeGnlValueOnNodeNOR */ 

/* */ 

void ComputeGnlValueOnNodeNOR (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE Nodel; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeValue (Nodel) == 1) 

{ 

SetGnlNodeValue (Node, 0) ; 
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return; 

} 

} 

S e t Gnl Node Va lue ( Node , 1 ) ; 

} 



/* 

/* ComputeGnlValueOnNodeAND 

/* 

void ComputeGnlValueOnNodeAND (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE Nodel; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

if (GnlNode Value (Nodel) == 0) 

{ 

SetGnlNode Value (Node, 0) ; 
return; 

} 

} 

SetGnlNodeValue (Node, 1) ; 

} 

/* 

/* ComputeGnlValueOnNodeNAND 

/* 

void ComputeGnlValueOnNodeNAND (Node) 
GNL_NODE Node; 

{ 

int i; 
GNL_NODE Nodel; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeValue (Nodel) == 0) 

{ 

SetGnlNodeValue (Node, 1); 
return; 

} 

} 

SetGnlNodeValue (Node, 0) ; 



} 

/* 

/* ComputeGnlValueOnNodeNOT */ 
/* 

void ComputeGnlValueOnNodeNOT (Node) 
GNL_NODE Node; 

{ 
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GNL_NODE Node In; 

Node In = (GNL_NODE) BListElt (GnlNodeSons (Node), 0); 
SetGnlNodeValue (Node, 1-GnlNode Value (Nodeln) ) ; 

} 

/* */ 

/* ComputeGnlValueOnNodeXOR */ 

/* */ 

void ComputeGnlValueOnNodeXOR (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE Nodel; 

int NbOne = 0; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeValue (Nodel) == 1) 
NbOne ++; 

} 

SetGnlNodeValue (Node, NbOne%2) ; 

} 

/* */ 

/* ComputeGnlValueOnNodeXNOR */ 

/* */ 

void ComputeGnlValueOnNodeXNOR (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE Nodel; 

int NbOne = 0; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeValue (Nodel) 1) 
NbOne ++ ; 

} 

SetGnlNodeValue (Node, 1-Nb0ne%2) ; 



} 

/* */ 

/* ComputeGnlValueOnNode */ 

/* */ 

void ComputeGnlValueOnNode (Node) 
GNL_NODE Node; 

{ 

switch (GnlNodeOp (Node) ) 

{ 

case GNL_0R: 

ComputeGnlValueOnNodeOR (Node) ; 
return; 
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case GNL_NOR: 

ComputeGnlValueOnNodeNOR (Node) ; 
return; 

case GNL_AND: 

ComputeGnlValueOnNodeAND (Node) ; 
return ; 

case GNL_NAND: 

ComputeGnlValueOnNodeNAND (Node) ; 
return; 

case GNL_NOT: 

ComputeGnlValueOnNodeNOT (Node) / 
return; 

case GNL_XOR: 

ComputeGnlValueOnNodeXOR (Node) ; 
return ; 

case GNL_XNOR: 
O ComputeGnlValueOnNodeXNOR (Node) ; 

Jj return; 

SI } 

111 } 



/* */ 

/* Simul a teGn lvalue */ 
/* */ 

GNLJSTATUS SimulateGnlValue (Gnl, Node, Index) 

GNL Gnl ; 

GNL_NODE Node; 

int Index; /* In the case of random simulation - number */ 
{ /* of input vector, otherwise -1 */ 

int i ; 

GNL_NODE Node I ; 



if (GnlNodeTag (Node) ==GnlTag (Gnl)) 
return (GNL_OK) ; 

SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 

{ 

SetGnlNodeValue (Node, (GnlNodeSons (Node) ? 1 : 0) ) ; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL_VAR I ABLE ) 
{ 

if (GnlNodeValue (Node) == -1) 
SetGnlNodeValue (Node, 1) ; 
return (GNL_0K) ; 

} 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
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{ 

Nodel = (GNLJsTODE) BListElt (GnlNodeSons (Node), i) ; 
if (SimulateGnlValue (Gnl ; Nodel, Index)) 
return ( GNL_MEMORY_FULL) ; 

} 

ComputeGnlValueOnNode (Node) ; 

#ifdef RANDOM_S IMULATION 
if (Index >= 0) 

{ 

BLIST Signatures = GnlNodeSignatures (Node) ; 
BLIST CurrSignature; 

if (I Index) 
{ 

if (BListCreateWithSize (BListSize (G__InVectors) , ^CurrSignature) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Signatures, (int) CurrSignature) ) 

return (GNL_MEMORY_FULL) ; 

} 

else 

CurrSignature = (BLIST) BListElt (Signatures, BListSize (Signatures) - 

l); 

BListAddElt (CurrSignature, GnlNodeValue (Node) ) ; 

} 

#endif 

return (GNL_OK) ; 

} 



/* */ 

/* Resetlnputs */ 

/* */ 

void Resetlnputs (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_N0DE InNodel; 

for (i=0; i<BListSize (GnlRelevant Inputs (Gnl)); i++) 
{ 

if (InNodel = (GNL_N0DE) GnlVarDads ( (GNL_VAR) BListElt 
(GnlRelevant Inputs (Gnl) , i) ) ) 



SetGnlNode Value (InNodel, -1) ; 

} 

} 



/* */ 

/* Setlnputs */ 

/* */ 

void Setlnputs (BadPattern) 

BLIST BadPattern; 

{ 

int i ; 



GNL CONSTRAINT Constraint!; 
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for (i=0; i<BListSize (BadPattern) ; i++) 

{ 

if (Constraintl = (GNL__CONSTRAINT) BListElt (BadPattern, i) ) 
SetGnlNodeValue (GnlConstraintNode (Constraintl) , 
GnlConstraint Value (Constraintl) ) ; 

} 

} 

z* */ 

/* Create InputNode */ 

/* */ 

GNL_NODE CreatelnputNode (Gnl, Var) 
GNL Gnl ; 

GNL_VAR Var; 

{ 

GNL_NODE VarNode ; 

if (GnlVarTag (Var) ! = GnlTag (Gnl)) 
{ 

SetGnlVarTag (Var, GnlTag (Gnl)); 

if (GnlCreateNodeForVar (Gnl, Var, &VarNode) ) 
{ 

fprintf (stderr, "RMV-ERR: Can't create input node\n n ); 
return (NULL) ; 

} 

SetGnlVarDads (Var, (BLIST) VarNode) ,- 
/* 

fprintf (stderr, "Created new Node for Var %s\n", GnlVarName (Var)); 
*/ 

} 

else 

VarNode = (GNL_NODE) GnlVarDads (Var); 
return (VarNode) ; 

} 

/* */ 

/* GetNon VarNode */ 

/* */ 

GNL_NODE GetNonVarNode (Gnl, Var) 

GNL Gnl ; 

GNL_VAR Var; 

{ 

GNL_VAR RightVar; 

GNL_NODE Va rNode ; 

int Rank; 

while (1) 
{ 

VarNode = GnlVarOnSetNode (Var) ; 

if (I VarNode) 
{ 



C-GNL1-130 



gnlec.c 



Rank = BListMemberOf List (GnlLocals (Gnl), (int)Var, Int Identical) 
BListDellnsert (GnlLocals (Gnl) , Rank) ; 

if {! (Right Var = GetBufflnVar (Gnl, Var) ) ) 
{ 

fprintf (stderr, "RMV-ERR : variable %s doesn't have any support 

!\n", 

GnlVarName (Var) ) ; 
return (NULL) ; 

} 

if (GnlVarDir (RightVar) == GNL_VAR_ INPUT) 
return ( Create InputNode (Gnl, RightVar)); 

Var = RightVar; 
continue; 

} 

if (GnlNodeOp (VarNode) == GNL_CONSTANTE) 
{ 

if (GnlVarTag (Var) != GnlTag (Gnl)) 

{ 

SetGnlVarTag (Var, GnlTag (Gnl)); 
SetGnlVarDads (Var, (BLI ST) VarNode) ; 

SetGnl Constant (Gnl, (int) GnlNodeSons (VarNode), Var); 

} 

else 

VarNode - (GNL_NODE) GnlVarDads (Var) ; 

return (VarNode) ; 
} 

if (GnlNodeOp (VarNode) == GNL_VARIABLE) 
{ 

RightVar = (GNL_VAR) GnlNodeSons (VarNode); 

if (GnlVarDir (RightVar) == GNL_VAR_INPUT) 
{ 

if (GnlVarTag (RightVar) I = GnlTag (Gnl)) 
{ 

SetGnlVarTag (RightVar, GnlTag (Gnl) ) ; 
SetGnlVarDads (RightVar, (BLI ST) VarNode) ; 

} 

else 

VarNode = (GNL_NODE) GnlVarDads (RightVar); 
return (VarNode) ; 

} 

Var = RightVar; 
continue; 

} 

return (VarNode) ; 

} 

} 
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/* 

/* RemoveLocalSons */ 

/* 

GNL_STATUS RemoveLocalSons (Gnl, Node) 
GNL Gnl ; 

GNLJSIODE Node; 

{ i 

int i ; 

GNLJNODE Sonl; 
GNL_VAR Varl ; 

if (GnlNodeTag (Node) == GnlTag (Gnl)) 
return (GNL_OK) ; 

SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Sonl = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

if (GnlNodeTag (Sonl) == GnlTag (Gnl)) 
continue; 

if (GnlNodeOp (Sonl) == GNL_VARIABLE) 
{ 

Varl = (GNL_VAR) GnlNodeSons (Sonl); 

if (GnlVarDir (Varl) == GNL_VAR__ INPUT) 
{ 

if (GnlVarTag (Varl) != GnlTag (Gnl)) 
{ 

SetGnlVarTag (Varl, GnlTag (Gnl) ) ; 
SetGnlVarDads (Varl , (BLIST) Sonl) ; 

} 

else 

BListElt (GnlNodeSons (Node), i) = (int ) GnlVarDads (Varl) ; 
continue ; 

} 

else 

{ 

if (!(SonI = GetNonVarNode (Gnl, Varl))) 

return ( GNL_B AD_GNL ) ; 
BListElt (GnlNodeSons (Node), i) = (int) Sonl; 

} 

} 

if ((GnlNodeOp (Sonl) != GNL_VARI ABLE ) && 
(GnlNodeOp (Sonl) != GNL_CONSTANTE) ) 
if (RemoveLocalSons (Gnl, Sonl)) 
return (GNL_BAD_GNL) ; 

} 

return (GNL_OK) ; 

} 

/* 
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/* RemoveLocals */ 

/* 

/* This procedure removes all nodes corresponding to local variables 
/* and assigns to the Dads field of the input Vars pointers to the 
/* corresponding nodes. 

/* 

GNL_STATUS RemoveLocals (Gnl, OutNodesList ) 
GNL Gnl ; 

BLIST OutNodesList ; 

{ 

int i ; 

GNL_VAR OutVarl; 
GNL_N0DE OutVarNode; 

IncrGnlTag (Gnl) ,* 

for (i=0; i<BListSize (GnlVirtualOutputs (Gnl)); i++) 

OutVarl = (GNL_VAR)BListElt (GnlVirtualOutputs (Gnl), i) ; 
if (GnlVarDir (OutVarl) == GNL VAR INPUT) 

{ " " 

if (! (OutVarNode = Create InputNode (Gnl, OutVarl))) 
return ( GNL_MEMOR Y FULL) ; 

} 

else 

{ 

if (! (OutVarNode = GetNonVarNode (Gnl, OutVarl))) 
return (GNLJBAD GNL) ; 

} 

if (BListAddElt (OutNodesList, (int) OutVarNode) ) 
return (GNL_MEMORY_FULL) ; 

if ((GnlNodeOp (OutVarNode) != GNL_VARIABLE) 
(GnlNodeOp (OutVarNode) 1= GNL_C0NSTANTE) ) 
if (RemoveLocalSons (Gnl, OutVarNode)) 
return ( GNL_BAD_GNL ) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* ReconnectNode */ 

/* 

GNL_STATUS ReconnectNode (FNode, TNode, Invert) 



GNL_NODE 


FNode ; 


GNL_NODE 


TNode ; 


int 


* Invert ; 


int 


i; 


int 


NodesRank; 


GNL_NODE 


DadI ; 


BLIST 


Union ; 


GNL_NODE 


FromNode = FNode; 


GNL_NODE 


ToNode = TNode; 
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BDD NodesBdd; 
BDD_PTR NodesBddPtr; 

♦Invert = 0; 

if (FNode TNode) 
return (GNL_0K) ; 

G__BridgeNodes++ ; 

if (GnlNodeHeight (FNode) < GnlNodeHeight (TNode) ) 
{ 

FromNode = TNode; 
ToNode = FNode; 
* Invert = 1; 

} 

/* 

fprintf (stderr, "Reconnecting: %s > %s\n" , 

(GnlNodeVar (FromNode) ? GnlVarName (GnlNodeVar (FromNode)) : 

var") , 

(GnlNodeVar (ToNode) ? GnlVarName (GnlNodeVar (ToNode) ) : "No 

var")) ; 
*/ 

if (NodesBdd = GnlNodeBdd (FromNode)) 
{ 

NodesBddPtr = GetBddPtr (NodesBdd) ; 
if (IsBddTypelNV (NodesBdd)) 

SetGnlBddlnvRefNode (NodesBddPtr, ToNode) ; 
else 

SetGnlBddPosRefNode (NodesBddPtr, ToNode) ; 

} 

for (i=0; i<BListSize (GnlNodeDads (FromNode)); i++) 
{ 

DadI = (GNL_N0DE) BListElt (GnlNodeDads (FromNode), i) ; 
while (NodesRank = BListMemberOf List (GnlNodeSons (DadI) , 

(int) FromNode, Intldentical) ) 
^ BListElt (GnlNodeSons (DadI), NodesRank-1) = (int)ToNode; 

if (BListCreateWithSize (BListSize (GnlNodeDads (FromNode) ) + 

BListSize (GnlNodeDads (ToNode) ) , fcUnion) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlNodeDads (ToNode)); i++) 

BListAddElt (Union, BListElt (GnlNodeDads (ToNode) , i) ) ; 

for (i=0; i<BListSize (GnlNodeDads (FromNode)); i++) 

BListAddElt (Union, BListElt (GnlNodeDads (FromNode), i) ) ; 

BListQuickDelete (&GnlNodeDads (ToNode) ) ; 
BListQuickDelete { &GnlNodeDads (FromNode) ) ; 
SetGnlNodeDads (ToNode, Union); 

if (GnlNodeBreakBddVar (FromNode) ) 

SetGnlNodeBreakBddVar (ToNode, GnlNodeBreakBddVar (FromNode) ) ; 
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while (NodesRank = BList Member Of List (G_OutputNodesl , (int ) FromNode , 
Intldentical) ) 

BListElt (GJDutputNodesl, NodesRank-1) = (int) ToNode; 
while (NodesRank = BListMemberOf List (G_0utputNodes2 , (int ) FromNode, 
Intldentical) ) 

BListElt (G_0utputNodes2, NodesRank-1) = (int) ToNode; 

return (GNL_OK) ; 

} 

/* 

/* Reconnect InvNode */ 

/* 

GNL_STATUS Reconnect InvNode (Gnl, FNode, TNode, Invert) 



GNL 


Gnl; 


GNL_NODE 


FNode; 


GNL_NODE 


TNode ; 


int 


* Invert ; 


int 


i = 0; 


int 


Inv; 


int 


NotHeight; 


GNL_NODE 


FromNode = FNode; 


GNL_NODE 


ToNode = TNode; 


GNL_NODE 


NotNode ; 


BLIST 


Sons ; 


void 


*Ptr; 


* Invert = -1; 





if ((GnlNodeOp (FNode) ! 
(GnlNodeOp (TNode) ! 

{ 

* Invert = 0 ; 

if (GnlNodeHeight (FNode) < GnlNodeHeight (TNode)) 

FromNode = TNode; 
ToNode = FNode; 
* Invert = 1; 
} 

while (i < BListSize (GnlNodeDads (ToNode))) 

if (GnlNodeOp (NotNode = (GNL_NODE) BListElt (GnlNodeDads (ToNode), 
i++)) == GNL_NOT) 
break ; 

if (i == BListSize (GnlNodeDads (ToNode))) 
{ 

G_InvBridgeNodes++ ; 

if (GnlCreateNodeNot (Gnl, ToNode, &NotNode) ) 
return (GNL_MEMORY_FULL) ; 

if ( (Ptr = calloc (1, sizeof (ADD_GNL_NODE_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 



= GNL_NOT) && 
= GNL_NOT) ) 
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SetGnlNodeHook (NotNode, Ptr) ; 

SetGnlNodeHeight (NotNode, GnlNodeHeight (ToNode) + 1) ; 
if (AllocateHookPtrs (NotNode) ) 
return ( GNL_MEMORY_FULL) ; 

if (BListAddEltWCheck ( &GnlNodeDads (ToNode), (int) NotNode) ) 
return (GNL_MEMORY FULL) ; 

} 

SetGnlNodeBdd (NotNode, UseBdd (GnlNodeBdd (FromNode) ) ) ; 
SetGnlNodeBreakBddVar (NotNode, GnlNodeBreakBddVar (FromNode) ) ; 

NotHeight = GnlNodeHeight (NotNode) ; 

SetGnlNodeHeight (NotNode, 0) / 

if (ReconnectNode (FromNode, NotNode, &Inv) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeHeight (NotNode, NotHeight) ; 

return (GNL_0K) ; 

} 

return (GNL_OK) ; 

} 



/* 

/* ReconnectToORNode * 
/* 

/* 

GNL_STATUS ReconnectToORNode (RefGnl, FromNode, ToNode) 

GNL RefGnl; 

GNL_NODE FromNode ; 

GNL_NODE ToNode ; 

{ 

int i ; 

int NodesRank; 

int MaxHeight; 

GNL_NODE OrNode ; 

void *Hook; 

G_Impl++; 

if (GnlCreateNode (RefGnl, GNL_OR, &OrNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeDads (OrNode, GnlNodeDads (ToNode)); 

if (BListCreateWithSize (2, ^GnlNodeSons (OrNode))) 
return ( GNL_MEMOR Y_FULL ) ; 

BListAddElt (GnlNodeSons (OrNode), (int ) FromNode) ; 
BListAddElt (GnlNodeSons (OrNode), (int ) ToNode) ; 

if (BListAddEltWCheck ( ScGnlNodeDads (FromNode), (int) OrNode) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &GnlNodeDads (ToNode))) 
return (GNL_MEMORY_FULL) ; 
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BListAddElt (GnlNodeDads (ToNode) , (int ) OrNode) ; 

if ((Hook = calloc (1, sizeof (ADD_GNL_NODE_REC) ) ) == NULL) 
return (GNL MEMORY FULL) ; 



SetGnlNodeHook (OrNode, Hook) ; 



MaxHeight = (GnlNodeHeight (FromNode) > GnlNodeHeight (ToNode) ? 

GnlNodeHeight (FromNode) : GnlNodeHeight (ToNode) ) ; 
SetGnlNodeHeight (OrNode, MaxHeight + 1) ; 

if (AllocateHookPtrs (OrNode) ) 
return (GNL__MEMORY_FULL) ; 

while (NodesRank - BListMemberOf List (G_OutputNodesl , (int) ToNode, 
Intldentical) ) 

BListElt (G_OutputNodesl, NodesRank- 1) = (int) OrNode; 
while (NodesRank = BListMemberOf List (G_0utputNodes2 , (int) ToNode, 
Intldentical) ) 

BListElt (G_OutputNodes2 , NodesRank- 1) = (int) OrNode; 

return (GNL__OK) ; 

} 

*/ 



/* ie/ 

/* BindPrimarylnputs */ 

/* ic/ 

/* ASSUMPTION! : the two Gnl must have the same number of primary inputs */ 
/* + i 

GNL_STATUS BindPrimarylnputs (Gnll, Gnl2) 

GNL Gnll; 

GNL Gnl2; 

{ 

int i ; 

GNL_VAR Varl; 

GNL_VAR Var2 ; 

GNL_NODE Nodel; 

GNL_NODE Node 2 ; 

int Invert; 



for (i=0; i<BListSize (GnlRe levant Inputs (Gnll)); i++) 
{ 

/* We reconnect the relevant primary inputs' nodes of Gnl2 to */ 

/* the corresponding relevant primary inputs 1 nodes of Gnll */ 

Varl = (GNL_VAR) BListElt (GnlRelevant Inputs (Gnll), i) ; 

Var2 = (GNL_VAR) BListElt (GnlRelevant Inputs (Gnl2), i) ; 

Nodel = (GNL_NODE) GnlVarDads (Varl) ; 

Node2 = (GNL_NODE) GnlVarDads (Var2) ; 

if (iNodel) 

{ 

BListElt (GnlRelevantlnputs (Gnll), i) = (int)Var2; 
continue; 

} 

if (lNode2) 
continue; 
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if (ReconnectNode (Node2 , Nodel, fclnvert) ) 
return ( GNL __MEMORY_FULL ) ; 

} 

for (i=0; i<2; i++) 

if { (Varl « GnlConstant (Gnll, i) ) (Var2 = GnlConstant (Gnl2 f i) ) ) 

{ 

Nodel = (GNL_NODE) GnlVarDads (Varl); 
Node2 = (GNL_NODE) GnlVarDads (Var2); 
if (ReconnectNode (Node2, Nodel, fclnvert) ) 
return ( GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* *i 

#define MAX_LAYER 97 

/* */ 

/* INDEX */ 

/* */ 

int INDEX (Node) 
GNL_N0DE Node ; 

{ 

int i ; 

int Value; 

if (GnlNode Value (Node) == -1) 
{ 

Value = (int)GnlNodeOp (Node) + BListSize (GnlNodeSons (Node)); 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

Value += GnlNodeValue ( <GNL__NODE) BListElt (GnlNodeSons (Node), i) ) ; 
Value = Value % MAX_LAYER; 
SetGnlNodeValue (Node, Value); 

} 

return (GnlNodeValue (Node) ) ; 

} 

/* */ 

/* AddDads */ 

/* + i 

/* Adds the node Node in the hash table "Layer" if it does not exist */ 
/* 

GNL_S TATUS AddDads (Gnl, AllLayer, Node) 
GNL Gnl ; 

BLIST *AllLayer; 
GNL_NODE Node ; 

{ 

int Key; 
int i ; 

GNL_NODE DadI ; 

BLIST Layer; 

if ("Node || iGnlNodeHeight (Node)) 
return (GNL_OK) ; 

for (i=0; i<BListSize (GnlNodeDads (Node)); i++) 
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{ 

/* Dad's tag means that he has been added previously so we 
/* do not add it . 

DadI « (GNL_NODE) BListElt (GnlNodeDads (Node), i); 
if (GnlNodeTag (DadI) == GnlTag (Gnl)) 
continue ; 

SetGnlNodeTag (DadI, GnlTag (Gnl) ) / 
Key = INDEX (DadI) ; 

/* Selecting the Layer of the DadI corresponding to its Height 
Layer = AllLayer [GnlNodeHeight (DadI) - 1] ; 

if (BListAddEltWCheck ( (BLIST*) &BListElt (Layer, Key), (int)Dadl)) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* ComputeDadsOnNodes */ 

/* 

int ComputeDadsOnNodes (Gnl, Node) 
GNL Gnl ; 

GNL_NODE Node; 

{ 

int i ; 

GNL_NODE NodeSonl; 
BLIST NodeSonlDads ; 

BLIST VarSonlDads ; 

GNL VAR VarSonI; 



if ( (GnlNodeOp (Node) == GNL__CONS TANTE ) | | 
(GnlNodeOp (Node) =- GNL_VARI ABLE ) | | 
(GnlNodeTag (Node) == GnlTag (Gnl))) 
return (0) ; 

SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

NodeSonl = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
NodeSonlDads = GnlNodeDads (NodeSonl) ; 
if (BListAddEltWCheck (^NodeSonlDads , (int) Node)) 
return (1) ; 

SetGnlNodeDads (NodeSonl, NodeSonlDads) ; 

if (ComputeDadsOnNodes (Gnl, NodeSonl)) 
return (1) ; 

} 

return (0) ; 

} 
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/* */ 

/* ComputeDadsInGnl */ 

/* */ 

static int ComputeDadsInGnl (Gnll, Gnl2) 
GNL Gnll; 
GNL Gnl 2; 

{ 

int i ; 



GNL NODE OutI; 



MakeNewTag (Gnll, Gnl2); 

for (i=0; i<BListSize (G_OutputNodesl) ; i++) 
{ 

OutI - (GNL_NODE) BListElt (G_OutputNodesl , i) ; 
if (ComputeDadsOnNodes (Gnll, OutI)) 
return (1) ; 

} 

for (i=0; i<BListSize (G_0utputNodes2 ) ; i++) 
{ 

OutI = (GNL_NODE) BListElt (G_0utputNodes2 , i) ; 
if (ComputeDadsOnNodes (Gnl2, OutI)) 
return (1) ; 

} 

return (0) ; 



/* */ 

/* ComputeNodesHeight */ 

/* */ 

void ComputeNodesHeight (Gnl, Node) 
GNL Gnl ; 

GNLjNTODE Node; 



{ 



GNL_NODE Son I ; 

int i ; 

int Height; 

if (GnlNodeTag (Node) == GnlTag (Gnl) ) 
return; 

SetGnlNodeTag (Node, GnlTag (Gnl)); 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) || 
(GnlNodeOp (Node) GNL__VARIABLE) ) 

{ 

SetGnlNodeHeight (Node, 1) ; 
return; 

} 

SetGnlNodeHeight (Node, 0) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Sonl = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
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ComputeNodesHeight (Gnl, SonI) ; 

if ((Height = GnlNodeHeight (SonI) + 1) > GnlNodeHeight (Node)) 
SetGnlNodeHeight (Node, Height) ; 

} 

} 

/* */ 

/* ComputeGnlHeights */ 

/* */ 

/* The Height of a var is 1 for primary inputs and */ 

/* the Height of the corresponding node otherwise */ 

/* */ 

void ComputeGnlHeights (Gnll, Gnl2, MaxHeight) 
GNL Gnll; 
GNL Gnl2; 
int *MaxHeight; 



{ 



} 



int i ; 

GNL_NODE OutNodel; 

* MaxHeight = 0; 

MakeNewTag (Gnll, Gnl2) ; 

for (i=0; i<BListSize (G_OutputNodesl) ; i++) 
{ 

OutNodel = (GNL_NODE) BListElt (G_OutputNodesl , i) ; 
ComputeNodesHeight (Gnll, OutNodel) ; 
if (*MaxHeight < GnlNodeHeight (OutNodel)) 
*MaxHeight = GnlNodeHeight (OutNodel) ; 

OutNodel = (GNL_NODE) BListElt (G_OutputNodes2 , i) ; 
ComputeNodesHeight (Gnl2, OutNodel) ; 
if (*MaxHeight < GnlNodeHeight (OutNodel)) 
*MaxHeight = GnlNodeHeight (OutNodel) ; 

} 



/* it/ 

/* CreateAllLayers */ 

/* #/ 

int CreateAllLayers (MaxHeight, AllLayers) 
int MaxHeight; 
BLIST **AllLayers ; 

{ 

int i ; 

if ((*AllLayers = (BLIST*) 

calloc (MaxHeight, sizeof (BLIST))) == NULL) 

return (1) ; 

for (i=0; i<MaxHeight; i++) 

if (BListCreateWithSize (MAX_LAYER, & ( (*AllLayers) [i] ) ) ) 
return (1) ; 

return (0) ; 
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/* */ 

/* FreeAllLayers */ 

/* */ 

void FreeAllLayers (MaxHeight, AllLayers) 
int MaxHeight ; 

BLIST * AllLayers; 



{ 



} 



int i ; 

for (i=0; i<MaxHeight ; i++) 

BListDelete (& (AllLayers [i] ) , BListQuickDelete) ; 

free (AllLayers) ; 



/* */ 

/* EquivStructuralNode */ 

/* */ 

int EquivStructuralNode (Nodel, Node2) 



GNL_ 


_NODE 


Nodel; 


gnl" 


_NODE 


Node 2 ; 


int 




i; 


int 




j; 


int 




NumSonsl; 


int 




NumSons2 ; 


GNL_ 


__NODE 


Sonl ; 


GNL^ 


_NODE 


Son2 ; 


int 




Found ; 


if 


(Nodel 


Node 2) 



return (1) ; 

if (GnlNodeOp (Nodel) 1= GnlNodeOp (Node2) ) 
return (0) ; 

if ((NumSonsl = BListSize (GnlNodeSons (Nodel))) != 
(NumSons2 = BListSize (GnlNodeSons (Node2)))) 
return (0) ; 

for (i=0; i<NumSonsl; i++) 
{ 

Sonl = (GNL_NODE) BListElt (GnlNodeSons (Nodel), i) ; 
Found = 0; 

for (j=0; j<NumSons2; j++) 
{ 

Son2 = (GNL_N0DE) BListElt (GnlNodeSons (Node2) , j); 
if (Sonl == Son2) 

{ 

Found = 1; 
break; 

} 

} 

if (! Found) 
return (0) ; 
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} 

return (1) ; 

} 



/* 

/* Matchlnternal */ 
/* 

GNL_STATUS Matchlnternal (Gnll, Gnl2, ListNodes, AllLayers) 



■*/ 
■*/ 



GNL 
GNL 
BLIST 
BLIST 



Gnll; 
Gnl2; 

ListNodes ; 

* AllLayers ; 



int 
int 

GNL_NODE 
GNL_NODE 
int 



i; 
j; 

Nodel; 
Node2 ; 
Invert 



= 0; 



for (i=0; i<BListSize (ListNodes) ; i++) 
for (j=i+l; j<BListSize (ListNodes); j++) 

{ 

Nodel = ( GNL_NODE ) BLi s t E 1 1 (ListNodes, i) ; 
Node2 = (GNL_NODE) BListElt (ListNodes, j); 
if (EquivStructuralNode (Nodel, Node2)) 
{ 

if (AddDads (Gnll, AllLayers, Nodel)) 
return (GNL_MEMORY_FULL) ; 

if (Nodel != Node2) 
{ 

if (AddDads (Gnll, AllLayers, Node2) ) 
return ( GNL_MEMORY_FULL ) ; 

if (ReconnectNode (Node2, Nodel, &Invert) ) 
return (GNL__MEMORY_FULL) ; 

} 

if (Invert) 

BListElt (ListNodes, i) = (int)Node2; 



BListDellnsert (ListNodes, j+1); 

j--; 

} 

} 

return (GNL_0K) ; 

} 



/* */ 

/* MatchNodes */ 

/* */ 

/* This function identifies structurally equivalent Nodes in the layers */ 
/* Layerl and Layer2 and removes them from the layers. */ 
/* */ 

GNL_STATUS MatchNodes (Gnll, Gnl2, AllLayer, Height) 
GNL Gnll; 
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GNL Gnl2; 

BLIST *AllLayer; 

int Height; 

int Key; 
BLIST Layer; 
BLIST KeysLayer ; 

Layer = AllLayer [Height- 1] ; 

for (Key=0; Key<MAX_LAYER; Key++) 

{ 

if (KeysLayer = (BLIST) BListElt (Layer, Key)) 
if (Matchlnternal (Grill, Gnl2, KeysLayer, AllLayer)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL OK) ; 



} 



/* */ 

/* EquivCheckGnlWithStructural */ 

/* */ 

/* This function connect GNL_NODE and GNL_VAR objects of the two */ 

/* netlists Gnll and Gnl2 by filling their fields BindedNode and */ 

/* BindedVar for cross referencing. Two elements are connected if they */ 

/* are structurally equivalent. To do so we start from the leaves of */ 

/* each netlist by connecting first the primary inputs, then we use a */ 

/* bottom-up merging. The function returns 1 if any problem occurs */ 

/* (Memory full, .. .) and 0 if everything was OK. It returns also the */ 

/* number of different outputs which were not structurally merged */ 

/* (var. NbFalse) and the list of these outputs for both netlists */ 
/* (Out Gnll and 0utGnl2) . */ 

/* */ 

GNL_STATUS EquivCheckGnlWithStructural (Gnll, Gnl2, OutMayFalse) 
GNL Gnll; 
GNL Gnl2; 
BLIST *OutMayFalse ; 



{ 



int i; 
int Nbln; 
int NbOut; 
int NbFalse; 
GNL_NODE Outl; 
GNL_NODE 0ut2; 
int Height; 
int MaxHeight; 
BLIST *AllLayers; 



Nbln = BListSize (GnlRelevantlnputs (Gnll) ) ; 
NbOut = BListSize (GnlVirtualOutputs (Gnll) ) ; 



/ * We compute the Height of each Node in the two Netlists. 
ComputeGnlHeights (Gnll, Gnl2, &MaxHeight) ; 
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/* We create the set of Layers that we will use to make the matching */ 
if (CreateAllLayers (MaxHeight, ScAllLayers) ) 
return (GNL_MEMORY_FULL) ; 

MakeNewTag (Gnll, Gnl2) ; 

/* The primary inputs' nodes belong to the Layer 1. */ 
for (i=0; i<NbIn; i++) 

{ 

if (AddDads (Gnll, AllLayers, 

(GNL_NODE) GnlVarDads { (GNL_VAR) BListElt (GnlRelevantlnputs 

(Gnll), i)))) 

return ( GNL_MEMOR Y_FULL) ; 

} 

for (i=0; i<2; i++) 

{ 

if (GnlConstant (Gnll, i) ) 

if (AddDads (Gnll, AllLayers, (GNL_NODE) GnlVarDads (GnlConstant (Gnll, 

i) ) ) ) 

return (GNL_MEMORY_FULL) ; 

} 



/* We start from Layer 2. 

for (Height = 2; Height <= MaxHeight; Height++) 
if (MatchNodes (Gnll, Gnl2, AllLayers, Height)) 
return (GNL MEMORY FULL) ; 



NbFalse = 0; 

for (i=0; i<NbOut; i++) 
{ 

Outl = (GNL_NODE) BListElt ( G_0utput Nodes 1 , i) ; 

Out2 = (GNL_NODE) BListElt (G_0utputNodes2 , i); 



if (Outl != 0ut2) 
NbFalse++ ; 



} 



if (NbFalse == 0) 
return (0) ; 

if (BListCreateWithSize (NbFalse, OutMayFalse) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<NbOut; i++) 

{ 

Outl = (GNL_N0DE) BListElt (G_OutputNodesl , i) ; 
Out2 = (GNL_NODE) BListElt (G_OutputNodes2 , i) ; 

if (Outl != Out2) 

{ 

if (BListAddElt (*OutMayFalse, i) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

/* 
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else 

{ 

fprintf (stderr, "\n <%s> == <%s>\n", 

GnlVarName ( (GNL_VAR) BListElt (GJDutputsl, i) ) , 
GnlVarName ( (GNL_VAR) BListElt (G_0utputs2, i) ) ) ; 

} 

*/ 

} 

FreeAllLayers (MaxHeight, AllLayers) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlBuildBddOnVar Input 

/* 

BDD_STATUS GnlBuildBddOnVar Input (Gnl) 
GNL Gnl; 

{ 

int i; 
GNL_VAR Varl; 
BDD_STATUS Status; 
BDD VAR VarBdd; 



for (i=0; i<BListSize (GnlRe levant Inputs (Gnl)); i++) 

{ 

Varl - (GNL_VAR) BListElt (GnlRelevant Inputs (Gnl) , i) ; 
if (Status = CreateBddVar (GnlVarName (Varl), &VarBdd) ) 
return (Status) ; 

SetGnlVarBdd (Varl, UseBdd (BddVarBdd (VarBdd) )) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* ComputeBddOnNode */ 

/* 

/* Compute BDD of node 'Node 1 and stores it in the field Node->Bdd. 
/* 

BDD_STATUS ComputeBddOnNode (Node, Mode, OverLimit, BddRes) 

GNL_NODE Node ; 

int Mode ; 

int *OverLimit; 

BDD *BddRes; 

{ 

int i ; 

GNLi_NODE SonI ; 

BDD SonlBdd; 

BDD_STATUS Status ; 

BDD NewBdd; 

BDD BddTemp ; 

int NbNodes; 
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*OverLimit = 0; 

#ifdef PRINT_BDD_BUILD 

fprintf (stderr, "Began to compute BDD for node %x [%s] \n" , 

Node, (GnlNodeVar (Node) ? GnlVarName (GnlNodeVar (Node)) : "No 

var") ) ; 
#endif 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 

if ( (GnlNodeOp (SonI) == GNL_CONSTANTE) || 

(GnlNodeOp (SonI) GNL_VARIABLE) | | 

(Mode != BREAK_MODE) ) 

SonlBdd - GnlNodeBdd (SonI) ; 
else 

SonlBdd = BddVarBdd (GnlNodeBreakBddVar (SonI) ) ; 
if (i == 0) /* First son: we set f NewBdd' */ 

{ 

NewBdd = SonlBdd; 

if (GnlNodeOp (Node) 1= GNL_NOT ) 

continue; 
if (bdd_not (NewBdd, BddRes) ) 

return (GNL_MEMORY_FULL) ; 
return (BDD_OK) ; 

} 

switch (GnlNodeOp (Node) ) 

{ 

case GNL_AND: 

if (bdd_and (SonlBdd, NewBdd, ScBddTemp) ) 

return (GNL__MEMORY_FULL) ; 
break; 

case GNL_OR: 

if (bdd_or (SonlBdd, NewBdd, &BddTemp) ) 

return (GNL_MEMORY_FULL) ; 
break; 

default: 

fprintf (stderr, "ERROR: unknown operator\n") ; 
exit (1) ; 

} 

NewBdd = BddTemp; 

if (Mode == REGULAR_MODE) 

{ 

BddCountNodes (NewBdd, &NbNodes) ; 

if (NbNodes > (G_GnlMaxBddNode * (i == (BListSize (GnlNodeSons (Node)) 

- 1) ? 

1 : BListSize (GnlNodeSons (Node))))) 

{ 

*OverLirait = 1; 
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return (BDD_OK) ; 

} 

} 



#ifdef PRINT_BDD_BUILD 

fprintf (stderr, "Finished to compute BDD for node %x[%s]\n", 

Node, (GnlNodeVar (Node) ? GnlVarName (GnlNodeVar (Node)) : "No 

var") ) ; 
#endif 



*BddRes = NewBdd; 
return (BDD OK) ; 



/* 

/* GnlNodeUpdateBddRef 

/* 

GNL_STATUS GnlNodeUpdateBddRef (RefGnl, Mode, Node, Layers) 



GNL 
int 

GNL_NODE 
BLIST 



RefGnl; 
Mode ; 
Node ; 
*Layers ; 



BDD 

BDD_PTR 

GNL_NODE 

BDD_REF_INFO 

int 

int 



NodesBdd; 
BddResPtr , - 
Re f Node; 

BddRef Inf o; 

Invert ; 

Rank ; 



NodesBdd = (Mode == BREAK_MODE ? 

BddVarBdd (GnlNodeBreakBddVar (Node)) : GnlNodeBdd (Node)); 
BddResPtr - GetBddPtr (NodesBdd) ; 

/* we create the structure info if does not exist for 'BddResPtr' */ 
if ( !GetBddPtrHook (BddResPtr) ) 

{ 

if (GnlCreateBddRef Info (&BddRef Inf o) ) 

return (GNL_MEMORY_FULL) ; 
SetBddPtrHook (BddResPtr, (Uint32 ) BddRef Inf o) ; 
if (IsBddTypelNV (NodesBdd)) 

SetGnlBddlnvRefNode (BddResPtr, Node) ; 
else 

SetGnlBddPosRefNode (BddResPtr, Node) ; 
return (GNL_OK) ; 

} 

if (IsBddTypelNV (NodesBdd) (GnlBddlnvRefNode (BddResPtr) NULL) ) 

{ 

SetGnlBddlnvRefNode (BddResPtr, Node) ; 
if (GnlBddPosRefNode (BddResPtr) ) 
{ 

if ( Reconnect InvNode (RefGnl, Node, GnlBddPosRefNode (BddResPtr), 
&Invert) ) 

return (GNL MEMORY FULL) ; 
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if (Invert == -1) 
return (GNL_OK) ; 

if (Layers) 
{ 

RefNode = (Invert ? GnlBddPosRef Node (BddResPtr) : Node) ; 

Rank = BListMemberOf List (Layers [GnlNodeHeight (RefNode) -1] , 
(int) RefNode) ; 

BListDelShif t (Layers [GnlNodeHeight (RefNode) -1] , Rank) ; 

} 

} 

return (GNL_OK) ; 

} 

if ( I IsBddTypelNV (NodesBdd) (GnlBddPosRefNode (BddResPtr) == NULL) ) 

{ 

SetGnlBddPosRefNode (BddResPtr, Node) ; 
if (GnlBddlnvRefNode (BddResPtr) ) 

{ 

if (Reconnect InvNode (RefGnl, Node, GnlBddlnvRefNode (BddResPtr) , 
fidnvert) ) 

return (GNL_MEMORY_FULL) ; 

if (Invert == -1) 
return (GNL_OK) ; 

if (Layers) 
{ 

RefNode = (Invert ? GnlBddlnvRefNode (BddResPtr) : Node) ; 

Rank = BListMemberOf List (Layers [GnlNodeHeight (RefNode) -1] , 
(int) RefNode) ; 

BListDelShift (Layers [GnlNodeHeight (RefNode) -1] , Rank) ; 

} 

} 

return (GNL_OK) ; 

} 

/* There is already a Ref node. We reconnect Node to the ref . node */ 

if (IsBddTypelNV (NodesBdd)) 

RefNode = GnlBddlnvRefNode (BddResPtr) ; 
else 

RefNode = GnlBddPosRefNode (BddResPtr) ; 

if (Re connect Node (Node, RefNode, Sclnvert) ) 
return (GNL_MEMORY_FULL) ; 

if (Layers) 

{ 

RefNode = (Invert ? RefNode : Node) ; 

Rank = BListMemberOfList (Layers [GnlNodeHeight (RefNode) -1] , 
(int) RefNode) ; 

BListDelShift (Layers [GnlNodeHeight (RefNode) -1] , Rank) ; 

} 
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return (GNL_OK) ; 

} 



/* */ 

/* GnlBuildBddFromSons */ 

/* */ 

GNL__STATUS GnlBuildBddFromSons (RefGnl, Node) 
GNL RefGnl; 
GNL_NODE Node ; 

{ 

int i ; 

GNL_NODE SonI ; 

BDD BddRes ; 

int BddOverLimit = 0 ; 

BDD_VAR BddVar; 

char * NewStr; 



if (ComputeBddOnNode (Node, REGULAR_MODE , &BddOverLimit , &BddRes) ) 
return ( GNL_MEMORY_FULL) ; 

if (BddOverLimit) 

{ 

/* 

printf ("Node = %x, Var = %s\n", Node, 

(GnlNodeVar (Node) ? GnlVarName (GnlNodeVar (Node)) : "No var")) 
printf (" CutSons:\n") ; 
*/ 

/* The Max Bdd node limit has been reached and we need to */ 
/* create break bdd var for the sons of node so we can build */ 
/* its associated bdd function. */ 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

/* Actually the node 'SonI' has already a break bdd var */ 
if ( (GnlNodeOp (SonI) GNL_CONSTANTE) || 
(GnlNodeOp (SonI) = = GNL_VARIABLE ) | | 
GnlNodeBreakBddVar (SonI) ) 
continue; 

if (GnlStrAppendlntCopy ("X", GLOB_BDD_WS- >UniqueId+l , &NewStr) ) 

return ( GNL_MEMORY_FULL ) ; 
if (CreateBddVar (NewStr, &BddVar) ) 

return ( GNL_MEMOR Y__FULL ) ; 
SetGnlNodeBreakBddVar (SonI; BddVar); 

if (GnlNodeUpdateBddRef (RefGnl, BREAK_MODE , SonI, NULL) ) 
return (GNL_MEMORY_FULL) ; 

G_NbCutVar++; 
/* 

printf (" %d. Son[%d] = %x, Var = %s, CutVar = %s\n", G_NbCutVar, 

SonI, 

(GnlNodeVar (SonI) ? GnlVarName (GnlNodeVar (SonI)) : "No var") 

NewStr) ; 
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*/ 

} 

/* Now we rebuild the new Bdd by taking into account */ 
/* the break bdd var */ 
if (ComputeBddOnNode (Node, BREAK_MODE , &BddOver Limit , &BddRes) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

SetGnlNodeBdd (Node, UseBdd (BddRes) ) ,- 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return ( GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* */ 

/* GnlNodeBuildBddFct */ 

/* */ 

/* This procedure builds the Bdd function of the function corresponding */ 
/* to node 'Node 1 . The Bdd size cannot exceeds the size specified in */ 
/* ' G_GnlMaxBddNode ' . If this is the case a break var is inserted at the*/ 
/* sons of the node and the bdd of the node is simply the bdd apply on */ 
/* this node with the break vars . */ 
/* */ 

GNL__STATUS GnlNodeBuildBddFct (RefGnl, Node) 
GNL RefGnl; 
GNL_NODE Node ; 

{ 

int i ; 

GNL_NODE Son I; 

/* The Node has actually already a Bdd function asssociated. */ 
if (GnlNodeBdd (Node) ) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
{ 

if (GnlNodeSons (Node)) 

SetGnlNodeBdd (Node , bdd_one { ) ) ; 
else 

SetGnlNodeBdd (Node , bdd_zero ( ) ) ; 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR__MODE , Node, NULL)) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL__VARI ABLE ) 
{ 

SetGnlNodeBdd (Node, UseBdd (GnlVarBdd (GnlNodeVar (Node) ) ) ) ; 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return (GNL MEMORY FULL) ; 
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return (GNLJOK) ; 

} 

/* First we build the Bdd functions of each son. 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlNodeBuildBddFct (RefGnl, SonI)) 
return (GNL_MEMORY_FULL) ; 

} 

/* Now we compute the Bdd function of 'Node' by applying the 

/* corresponding operator of 1 GnlNodeOp'. */ 

return (GnlBuildBddFromSons (RefGnl, Node)); 



/* 

/* GnlBuildBddFct 

/* 

GNL_STATUS GnlBuildBddFct {Gnll, Gnl2, OutsGnl) 

GNL Gnll; 

GNL Gnl2; 

BLIST OutsGnl; 



int i ; 

int Ind; 
BDD_WS Ws; 
GNL_NODE Node I ; 

if (InitBddWorkSpacelnvOrder (BListSize (GnlRelevantlnputs (Gnll) )+l, 
ScWs) ) 

return ( GNL_MEMORY_FULL) ; 

if (GnlBuildBddOnVar Input (Gnll) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (OutsGnl); i++) 

{ 

Ind = BListElt (OutsGnl, i) ; 

Nodel = (GNL_NODE) BListElt (G_OutputNodesl , Ind) ; 
if (GnlNodeBuildBddFct (Gnll, Nodel)) 
return (GNL_MEMORY_FULL) ; 

} 

for (i=0; i<BListSize (OutsGnl); i++) 

{ 

Ind = BListElt (OutsGnl, i); 

Nodel = (GNL_NODE) BListElt (G_OutputNodes2 , Ind) ; 
if (GnlNodeBuildBddFct (Gnl2, Nodel)) 
return (GNL_MEMORY_FULL) ; 

} 

G_Tag++; 

for (i=0; i<BListSize (OutsGnl) ; i++) 

{ 
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Ind = BListElt (OutsGnl, i) ; 



Nodel = (GNLJtfODE) BListElt {G_OutputNodesl , Ind); 
GnlModifyEcNodelnf o (Nodel) ; 

Nodel = (GNL_NODE) BListElt (G_0utputNodes2 , Ind); 
GnlModif yEcNodelnf o (Nodel) ; 

} 

FreeBddWorkSpace (Ws) ; 
return (GNL_OK) ; 

} 



#ifdef BFS_BDDJ>HASE 

/* */ 

/* MarkFanln */ 

/* */ 

void MarkFanln (Gnl, Node) 

GNL Gnl ; 

GNL_NODE Node / 

{ 

int i ; 



if (GnlNodeTag (Node) GnlTag (Gnl)) 
return; 

SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) == GNL__ VAR I AB L E ) ) 
return; 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

MarkFanln (Gnl, (GNL_NODE) BListElt (GnlNodeSons (Node), i) ) ; 



/* */ 

/* UpdateFanOutHeight */ 

/* */ 

void UpdateFanOutHeight (RefGnl, Node) 

GNL RefGnl; 

GNL_NODE Node ; 

{ 

int i ; 

BLIST Dads; 

GNL_NODE DadI; 

if ( ! (Dads = GnlNodeDads (Node) ) ) 
return; 

for (i=o; i<BListSize (Dads) ; i++) 
{ 

DadI - (GNL_NODE) BListElt (Dads, i) ; 

if (GnlNodeTag (DadI) < GnlTag (RefGnl)) 
continue ; 
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if (GnlNodeHeight (DadI) < GnlNodeHeight (Node) + 1) 
{ 

SetGnlNodeHeight (DadI, GnlNodeHeight (Node) + 1) ; 
UpdateFanOutHeight (DadI) ; 

} 

} 

} 

z* 

/* BuildBddForLayer */ 
/* 

GNL_STATUS BuildBddForLayer (Layers, Height) 
BLIST Layers; 
int Height; 

{ 
} 

/* 

/* GnlLocalBddPhase */ 
/* 

GNL_STATUS GnlLocalBddPhase (Gnll, Gnl2, OutsMayFalse) 



GNL 


Gnll; 


GNL 


Gnl2 ; 


BLIST 


OutsMayFalse ; 


int 


i; 


int 


j ; 


int 


k; 


int 


Ind; 


int 


Heightl; 


int 


MaxHeight = 0 


int 


Repeat; 


BDD_WS Ws ; 




GNL_VAR 


InVarl ; 


GNL_NODE 


InNodel ; 


GNL_NODE 


Node J; 


GNL_NODE 


DadK; 


GNL_S TATUS 


Status ; 


BDD_VAR 


VarBdd; 


BLIST 


* Layers ; 



MakeNewTag (Gnll, Gnl2) ; 
MakeNewTagBdd (Gnll, Gnl2) ; 



for (i=0; i<BListSize (OutsMayFalse); i++) 
{ 

Ind = BListElt (OutsMayFalse, i) ; 

MarkFanln (Gnll, (GNL_NODE) BListElt (G_0utputNodesl , Ind) ) ,- 
MarkFanln (Gnl2, (GNL_NODE) BListElt (G_0utputNodes2 , Ind) ) ; 

if ( (Heightl = GnlNodeHeight ( (GNL_NODE) BListElt (G_OutputNodesl , 
Ind) ) ) > MaxHeight) 

MaxHeight = Heightl; 
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if ((Heightl = GnlNodeHeight ( (GNL_NODE) BListElt (G_0utputNodes2 , 
Ind) ) ) > MaxHeight) 

MaxHeight - Heightl; 

} 

if (! {Layers - {BLIST *)calloc (MaxHeight, sizeof (BLIST) ) ) ) 
return <GNL_MEMORY_FULL) ; 

for (i=0; i<MaxHeight; i++) 

if (BListCreateWithSize (BListSize (GnlRelevant Inputs (Gnll) ) + 2, 
^Layers [i] ) ) 

return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlRelevant Inputs (Gnll)); i++) 

^InVarl = (GNL_VAR) BListElt (GnlRelevantlnputs (Gnll), i) ; 

if ((InNodel = (GNL_NODE) GnlVarDads (InVarl) ) && 

(GnlNodeTag (InNodel) == GnlTag (Gnll))) 
BListAddElt (Layers [0] , (int) InNodel) ; 

} 

if (InitBddWorkSpacelnvOrder (BListSize (Layers [0] ) + 1, &Ws) ) 
return ( GNL_MEMORY_FULL ) ; 

G WsNum = 1; 



(Gnll, i)) ScSc (InNodel = (GNL_NODE) GnlVarDads 

GnlTag (Gnll))) 
(int) InNodel) ; 

for (i=0; i<BListSize (Layers [0] ) ; i++) 
{ 

InNodel - (GNL_NODE) BListElt (Layers [0] , i) ; 
InVarl = GnlNodeVar (InNodel) ; 

if (GnlNodeOp (InNodel) GNL_CONSTANTE) 

SetGnlNodeBdd (InNodel, (GnlNodeSons (InNodel) ? bdd_one () : bdd_zero 

())>; 

else 
{ 

if (Status = CreateBddVar (GnlVarName (InVarl), &VarBdd) ) 
return (Status) ; 

SetGnlVarBdd (InVarl, UseBdd (BddVarBdd (VarBdd) )) ; 
SetGnlNodeBdd (InNodel, UseBdd (BddVarBdd (VarBdd))); 

} 

if (GnlNodeUpdateBddRef (Gnll, REGULAR_MODE , InNodel, Layers)) 
return (GNL_MEMORY_FULL) ; 

} 

Repeat = 0 ; 

for (i=l; i<MaxHeight; i++) 



for (i=0; i<2; i++) 

if ((InVarl = GnlConstant 
(InVarl)) && 

(GnlNodeTag (InNodel) — 
BListAddElt (Layers [0] , 
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{ 

if (! Repeat) 

{ 

for (j=0; j<BListSize (Layers [i] ) ; j++) 
{ 

Node J = (GNL__NODE) BListElt (Layers [i] , j); 

for (k=0; k<BListSize (GnlNodeDads (NodeJ) ) ; k++) 
{ 

DadK = (GNL_NODE) BListElt (GnlNodeDads (NodeJ), k) ; 

if ( (GnlNodeTag (DadK) == GnlTag (Gnll) ) 

(GnlNodeTagBdd (DadK) < GnlTagBdd (Gnll))) 

{ 

SetGnlNodeTagBdd (DadK, GnlTagBdd (Gnll)); 
if (BListAddElt (Layers [i+1] , (int)DadK)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

} 

if (BuildBddForLayer (Layers, i) ) 

{ 

G_WsNum++; 
G__Tag++ ; 

for (j=0; j<BListSize (Layers [i] ) ; j++) 
{ 

NodeJ = (GNL_NODE) BListElt (Layers [i] , j); 
GnlFreeNodesBddRef Inf o (NodeJ) ; 

} 

FreeBddWorkSpace (Ws) ; 

if (InitBddWorkSpacelnvOrder (100, &Ws) > 
return (GNL_MEMORY_FULL) ; 

i - - ; 

Repeat = 1 ; 
continue; 

} 

Repeat = 0; 

} 

for (i=0; i<MaxHeight; i++) 

BListQuickDelete (&Layers [i] ) ; 

free (Layers) ; 

G_Tag++; 

for (j=0; j<BListSize (OutsMayFalse) ; j++) 

{ 

Ind = BListElt (OutsMayFalse, j); 
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NodeJ = (GNL_NODE) BListElt (G_0utputNodesl , Ind); 
GnlFreeNodesBddRef Inf o (NodeJ) ; 

NodeJ = (GNL_NODE) BListElt (G_0utputNodes2 , Ind); 
GnlFreeNodesBddRef Inf o (NodeJ) ; 

} 

FreeBddWorkSpace (Ws) ; 
return (GNL_OK) ; 

} 

#endi f 

/* */ 

/* GnlExtractPendingFunctions */ 

/* */ 

/* Extracts the outputs which have different Bdd representatives. These */ 

/* outputs may lead to a functional difference. */ 

/* */ 

void GnlExtractPendingFunctions (Gnll, Gnl2, OutMayFalse) 
GNL Gnll; 
GNL Gnl2; 
BLIST OutMayFalse; 

{ 

int i ; 

int Ind; 
GNL_NODE Outl; 
GNL_NODE 0ut2; 

for (i=0; i<BListSize (OutMayFalse); i++) 
{ 

ind - BListElt (OutMayFalse, i) ; 

Outl = (GNL_NODE) BListElt (G_OutputNodesl , Ind) ; 
0ut2 = (GNL_NODE) BListElt (G_0utputNodes2 , Ind) ; 

/* If same Nodes then they are equivalent. */ 

if (Outl Out 2) 

{ 

BListDellnsert (OutMayFalse, i+l) 
i- - ; 

} 

/* 

else 

fprintf (stderr, " EC: pending functions <%s> and <%s>\n", 
GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind)), 
GnlVarName ( (GNL_VAR) BListElt (G_0utputs2, Ind) ) ) ; 

*/ 

} 

} 

/* */ 

/* GnlCreateNewEcBddVarlnputs */ 

/* */ 

GNL_STATUS GnlCreateNewEcBddVarlnputs (Node) 
GNL_NODE Node; 

{ 
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int i ; 

GNL_NODE SonI; 

GNL_VAR Var; 

char *NewStr; 

BDD_VAR BddVar ; 

GNL EC CUT POINT CutPoint ; 



if (GnlNodeTag (Node) -= GJTag) 

return (GNL_OK) ; 
SetGnlNodeTag (Node, G_Tag) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) = = GNL_VAR I ABLE ) 
{ 

Var = GnlNodeVar (Node) ; 

/* If the Var has no associated bdd var yet we create new one 
if (GnlVarBdd (Var) BDD_NULL) 

{ 

if (GnlStrAppendlntCopy ("I", GLOB_BDD_WS - >UniqueId+l , &NewStr) ) 

return ( GNL_MEMORY_FULL ) ; 
if (CreateBddVar (NewStr, &BddVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarBdd (Var, UseBdd (BddVarBdd (BddVar))); 

/* we create a new cut point and add it in the global list */ 
/* of the cut points. */ 
if (GnlCreateEcCutPoint (&CutPoint) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlEcCutPointBddVar (CutPoint, BddVar) ; 
SetGnlEcCutPointNode (CutPoint, Node) ; 
if (BListAddElt (G__ListAllCutPoints , (int) CutPoint) ) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCreateNewEcBddVarlnputs (SonI) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* CutPointsNodeldentical 

/* 

int CutPointsNodeldentical (CutPoint, Node) 
int CutPoint ; 

int Node ; 

{ 
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return (GnlEcCutPointNode ( ( GNL_EC_CUT_PO INT) Cut Point ) == (GNL_NODE) Node) 

} 

/* */ 

/* GnlCreateNewEcBddVar */ 

/* */ 

GNL_STATUS GnlCreateNewEcBddVar (Node, OutsNum) 
GNL__NODE Node; 
int OutsNum; 



{ 



int i; 
GNL_NODE SonI ; 

char *NewStr ; 

BDD_VAR BddVar; 
GNL_EC_CUT_POINT Cut Point ; 

int NodesRank; 



if (GnlNodeTag (Node) == GJTag) 
{ 

#ifdef COMMON_CUTPOINTS_HEUR 
if (OutsNum == 2) 
{ 

if (NodesRank = BListMemberOf List (G_ListOutlCutPoints , (int) Node, 

CutPointsNodeldentical) ) 

{ 

CutPoint = (GNL_EC_CUT_POINT) BListElt (G_ListOutl Cut Points , 
NodesRank- 1) ; 

if (BListAddElt (G_ListCommonCut Points , (int ) CutPoint) ) 

return (GNL_MEMORY_FULL) ; 
BListDelShift ( G__ListOutl Cut Point s , NodesRank) ; 

} 

} 

#endif 

return (GNL__OK) ; 

} 

Set GnlNodeTag (Node, G_Tag) ; 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) == GNL__VARIABLE) ) 
return (GNL_OK) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCreateNewEcBddVar (SonI, OutsNum)) 
return ( GNL_MEMORY_FULL ) ; 

} 



if (GnlNodeBreakBddVar (Node) == (BDD_VAR) -1) 
{ 

if (GnlStrAppendlntCopy ( M B " , GLOB_BDD_WS->UniqueId+l , &NewStr) ) 

return ( GNL_MEMORY_FULL ) ; 

if (CreateBddVar (NewStr, ScBddVar) ) 

return ( GNL_MEMORY_FULL ) ; 

SetGnlNodeBreakBddVar (Node, BddVar) ; 
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/* We create a new cut point and add it in the global list of the 
/* cut points. 

if (GnlCreateEcCutPoint (&CutPoint) } 
return ( GNL_MEMORY_FULL) ; 

SetGnlEcCutPointBddVar (Cut Point, BddVar) ; 
SetGnlEcCutPointNode (CutPoint, Node) ; 
if (BListAddElt (G_ListAllCutPoints , ( int) CutPoint ) ) 
return ( GNL_MEMORY_FULL ) ; 
#ifdef COMMON_CUTPOINTS_HEUR 
if (OutsNum == 1) 

{ 

if (BListAddElt (G_ListOutlCutPoints, (int) CutPoint) ) 
return (GNL_MEMORY_FULL) ; 

} 

else /* OutsNum == 2 

{ 

if (BListAddElt (G_ListOut2CutPoints , ( int ) CutPoint) ) 
return (GNL_MEMORY_FULL) ; 

} 

#endif 
} 



return (GNL OK) ; 



/* 

/* GnlCreateLocalBddNode 

/* 

GNL_STATUS GnlCreateLocalBddNode (RefGnl, Node, Top) 



GNL 

GNL_NODE 
int 



RefGnl; 
Node ; 

Top; 



BDD_VAR 
int 

GNL_NODE 

int 

BDD 

GNL NODE 



BddVar; 

i; 

SonI; 

OverLimit ; 
BddRes; 
InvNode ; 



if (GnlNodeTag (Node) == G_Tag) 

return (GNL_OK) ; 
SetGnlNodeTag (Node, G_Tag) ; 



if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
{ 

if (GnlNodeSons (Node)) 
SetGnlNodeBdd (Node, bdd_one ()); 
else 

SetGnlNodeBdd (Node, bdd_zero ()); 



if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return ( GNL_MEMORY_FULL ) ; 



return (GNL_OK) ; 

} 



C-GNL1-160 



gnlec.c 



if (GnlNodeOp (Node) == GNL_VARIABLE ) 
{ 

SetGnlNodeBdd (Node, UseBdd (GnlVarBdd (GnlNodeVar (Node)))); 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

if ( (BddVar = GnlNodeBreakBddVar (Node) ) Top) 
{ 

SetGnlNodeBdd (Node, UseBdd (BddVarBdd (BddVar))); 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return (GNL__MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCreateLocalBddNode (RefGnl, SonI, 1)) 
return (GNL_MEMORY_FULL) ; 

} 

if (ComputeBddOnNode (Node, LOCALJMODE, &OverLimit, &BddRes) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeBdd (Node, UseBdd (BddRes) ) ; 

if (GnlNodeUpdateBddRef (RefGnl, REGULAR_MODE , Node, NULL) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* */ 

/* GnlBuildCutPointBdd */ 
/* */ 

GNL_STATUS GnlBuildCutPointBdd (RefGnl, CutPoint) 
GNL RefGnl; 
GNL_EC_CUT_POINT CutPoint ; 



{ 



int Index; 
GNL_NODE CutPointNode ; 

int NbNodes; 

if ( IGnlEcCutPointBddFct (CutPoint)) 
{ 

CutPointNode = GnlEcCutPointNode (CutPoint) ; 
G_Tag++; 

if (GnlCreateLocalBddNode (RefGnl, CutPointNode, 0)) 
return (GNL_MEMORY_FULL) ; 

SetGnlEcCutPointBddFct (CutPoint, UseBdd (GnlNodeBdd (CutPointNode))) 

} 
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#ifdef LEAST_BDD_HEUR 

BddCountNodes (GnlEcCutPointBddFct (CutPoint) , &NbNodes) ; 

SetGnlEcCutPointNbNode (CutPoint, NbNodes) ; 
ttendif 

return (GNL_OK) ; 

} 

/* 

/* GnlBuildCutPointsBddFct 

/* 

GNL_STATUS GnlBuildCutPointsBddFct (RefGnl) 
GNL RefGnl; 

{ 

int i; 
GNL_EC_CUT_POINT CutPointI ; 

/* Create Bdd for all the cut variables. 

for (i=G_FirstBrkVarIndex; i<BListSize (G__ListAllCutPoints) ; i++) 
{ 

CutPointI = (GNL_EC_CUT_POINT) BListElt (G_ListAllCutPoints , i) ; 
if (GnlBuildCutPointBdd (RefGnl, CutPointI)) 
return { GNL_MEMORY_FULL) ; 

} 

return <GNL_OK) ; 

} 

/* — 

/* GnlResetCutPointsSupport 

/* 

void GnlResetCutPointsSupport (void) 

{ 

int i; 
GNL_EC__CUT_POINT CutPointI ; 



for (i = 0; i<BListSize (G__ListAll CutPoint s) ; i++) 
{ 

CutPointI = (GNL_EC_CUT_POINT) BListElt (G_ListAllCutPoints , i); 
SetGnlEcCutPointSupport (CutPointI, BDD_NULL) ; 
if (GnlNodeValue (GnlEcCutPointNode (CutPointI)) < 0) 
SetGnlNodeValue (GnlEcCutPointNode (CutPointI) , 0) ; 

} 



z* .._ 

/* SearchForlndexInBdd */ 
/* 

/* 

int SearchForlndexInBdd (Bdd, Index) 

BDD Bdd; 

int Index; 

{ 

BDD_PTR BddPtr; 
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if (ConstantBdd (Bdd) ) 
return (0) ; 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagCountBit (BddPtr)) 
return (0) ; 

BddTagCountBit (BddPtr) ; 

if (GetBddPtrlndex (BddPtr) < Index) 
return (0) ; 

if (GetBddPtrlndex (BddPtr) == Index) 
return (1) ; 

return (SearchForlndexInBdd (GetBddPtrEdgel (BddPtr) , Index) | | 
SearchForlndexInBdd (GetBddPtrEdgeO (BddPtr) , Index) ) ; 



} 

*/ 

/* */ 

/* SearchForTagOccurBit */ 

/* */ 

/* 



int SearchForTagOccurBit (Bdd) 
BDD Bdd; 

{ 

BDD PTR BddPtr; 



if (ConstantBdd (Bdd) ) 
return ( 0 ) ; 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagCountBit (BddPtr)) 
return (0) ; 

BddTagCountBit (BddPtr) ; 

if (IsBddTagOccurBit (BddPtr)) 
return (1) ; 

return (SearchForTagOccurBit (GetBddPtrEdgel (BddPtr) ) | | 
SearchForTagOccurBit (GetBddPtrEdgeO (BddPtr) ) ) ; 



} 

*/ 

/* *z 

/* TotalResetTagOccurBit */ 

/* */ 

/* 



void TotalResetTagOccurBit (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 
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if (ConstantBdd (Bdd) ) 
return ; 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd); 

if (IsBddTagCountBit (BddPtr)) 
return ; 

BddTagCountBit (BddPtr) ; 

ResetBddTagOccurBit (BddPtr) ; 

ResetTagOccurBit (GetBddPtrEdgel (BddPtr) ) ; 
ResetTagOccurBit (GetBddPtrEdgeO (BddPtr) ) ; 

} 

*/ 

/* */ 

/* GnlGetBddSupportRec */ 

/* */ 

void GnlGetBddSupportRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 
GNL_EC_CUT POINT CutPoint; 



if (ConstantBdd (Bdd) ) 
return; 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 

/* Bdd with index less than 1 G_FirstBrkVarIndex 1 . They correspond to * / 
/* primary inputs. */ 
if (GetBddPtrlndex (BddPtr) < G__FirstBrkVarIndex) 
return; 

if (IsBddTagCountBit (BddPtr)) /* Already traversed. */ 

return; 

BddTagCountBit (BddPtr) ; 

/* We mark the info associated to the bdd var. */ 
CutPoint = (GNL_EC_CUT__POINT) BListElt {G_ListAllCutPoints , 

GetBddPtrlndex (BddPtr) ) ; 
SetGnlEcCutPointSupport (CutPoint, bdd_one ()); 

GnlGetBddSupportRec (GetBddPtrEdgel (BddPtr) ) ; 
GnlGetBddSupportRec (GetBddPtrEdgeO (BddPtr) ) ; 



/* 

/* GnlGetBddSupport 

/* 

void GnlGetBddSupport (Bdd) 
BDD Bdd; 

{ 
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} 



GnlReset Cut Point sSupport () ; 
ResetTagCountBit (Bdd) ; 
GnlGetBddSupportRec (Bdd) ; 
ResetTagCountBit (Bdd) ; 



#ifdef COMMON_CUTPOINTS_HEUR 
/* 

/* GnlExtractBestCutPointO 
/* 



int GnlExtractBestCutPointO (RefGnl, Index) 
GNL RefGnl; 
int *Index; 



int 
int 
int 
int 
int 

GNL_EC_CUT_POINT 
GNL_EC_CUT_POINT 
GNL EC CUT POINT 



l; 

FindCutPointl - 1; 
FindCutPoint2 = 1; 
LastOutllndex; 
LastOut2Index; 
CutPointl; 
CutPoint2 
CutPointl 



LastOutllndex = BListSize (G__ListOutlCut Points) - 1; 
Last0ut2Index = BListSize (G_List0ut2CutPoints) - 1; 

while (1) 
{ 

if (FindCutPointl) 
CutPointl = NULL; 
if (FindCutPoint2) 
CutPoint2 = NULL; 



if (FindCutPointl) 

for (i=LastOutlIndex; i>=0; i--) 

{ 

CutPointl = (GNL_EC_CUT_POINT) BListElt (G_ListOutlCutPoints , i) ; 
if (GnlEcCutPointSupport (CutPointl) && 

(GnlNodeValue (GnlEcCutPointNode (CutPointl)) >= 0)) 

{ 

CutPointl = CutPointl; 
FindCutPointl = 0; 
LastOutllndex = i - 1; 
break; 

} 

} 

if (FindCutPoint2 ) 
for (i-LastOut2Index; i>=0; i--) 
{ 

CutPointl = (GNL_EC_CUT_POINT) BListElt (G_List0ut2CutPoints t i) ; 
if (GnlEcCutPointSupport (CutPointl) 

(GnlNodeValue (GnlEcCutPointNode (CutPointl)) >= 0)) 

{ 

CutPoint2 = CutPointl; 
FindCutPoint2 = 0; 
LastOut2 Index - i - 1; 
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break; 



if (! CutPointI && !CutPoint2) 
return (0) ; 



for (i=BListSize (G_ListAllCutPoints) -1; i>=G_FirstBrkVar Index; i--) 
{ 

CutPointI = ( GNL_E C_CUT_P0 INT )BListElt (G_ListAllCutPoints , i) ; 
if ((CutPointI == CutPointI) || (CutPointI == CutPoint2) ) 

{ 

if (GnlBuildCutPointBdd (RefGnl, CutPointI)) 
{ 

#ifdef PRINT_CUTPOINTS_STAT 

fprintf (stderr, "Can't build CutPoint Bdd for Var = %s at phase 

0\n", 

BddVarName (GnlEcCutPointBddVar (CutPointI) ) ) ; 

#endif 

SetGnlNodeValue (GnlEcCutPointNode (CutPointI) , -1) ; 
if (CutPointI == CutPointI) 
FindCutPointl = 1; 
else 

FindCutPoint2 = 1; 
break; 

} 

* Index = i ; 
return (1) ; 

} 

} 

} 

} 

#endif 



/* */ 

/* GnlExtractBestCutPointl */ 

/* */ 

int GnlExtractBestCutPointl (RefGnl, Index) 

GNL RefGnl ; 

int * Index; 

{ 

int i ; 

GNL_EC_CUT_POINT CutPoint ; 

CutPoint = (GNL_EC_CUT_POINT)BListElt (G_ListAllCutPoints , * Index ) ; 

if (GnlNodeValue (GnlEcCutPointNode (CutPoint)) >= 0) 
{ 

#ifndef ALL_CUTPOINTS_TOGETHER 

if (GnlEcCutPointBddFct (CutPoint) ) 
return (1) ; 



if (! GnlBuildCutPointBdd (RefGnl, CutPoint)) 
return (1) ; 

SetGnlNodeValue (GnlEcCutPointNode (CutPoint) , -1) ; 

#else 
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return (1) ; 

#endi f 

} 

for (i = * Index- 1; i> = 0; i--) 

{ 

CutPoint - (GNL_EC_CUT_POINT) BListElt (G_ListAllCutPoints , i) ; 
if ( !GnlEcCutPointSupport (CutPoint) || 

{GnlNodeValue (GnlEcCutPointNode (CutPoint)) < 0)) 
continue; 

#ifndef ALL__CUTPOINTS_TOGETHER 

if ( IGnlBuildCutPointBdd (RefGnl, CutPoint)) 

{ 

* Index = i; 
return (1) ; 

} 

SetGnlNode Value (GnlEcCutPointNode (CutPoint) , -1) ; 

#else 

* Index = i; 
return (1) ; 

#endif 

#ifdef PRINT_CUTPOINTS_STAT 

fprintf (stderr, "Can't build CutPoint Bdd for Var = %s at phase l\n" , 
BddVarName (GnlEcCutPointBddVar (CutPoint) ) ) ; 

#endi f 

} 

return (0) ; 

} 

/* */ 

/* GnlExtractBestCutPoint2 */ 
/* */ 

int GnlExtractBestCutPoint2 (RefGnl, Index) 
GNL RefGnl? 
int * Index; 



{ 



int i ; 

GNL_EC_CUT_POINT CutPoint I ; 

int Best Index = -1; 

int MinNodes ; 



/* Bestlndex = G_FirstBrkVarIndex; */ 
MinNodes = 1000000; 

for (i=G_FirstBrkVarIndex; i<BListSize (G_ListAllCut Points) ; i++) 

{ 

CutPointI = (GNL_EC_CUT_POINT) BListElt (G_ListAllCutPointS, i) ; 
#ifndef ALL_CUTPOINTS_TOGETHER 

if (GnlNodeValue (GnlEcCutPointNode (CutPointI)) < 0) 
continue; 

#endif 

if (GnlEcCutPointSupport (CutPointI) ) 

{ 
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#ifndef ALL_CUTPOINTSJTOGETHER 

if (GnlBuildCutPointBdd (RefGnl, CutPointI) ) 

{ 

SetGnlNodeValue (GnlEcCutPointNode (CutPointI) , -1) ; 
#ifdef PRINT_CUTPOINTS_STAT 

fprintf (stderr, "Can't build CutPoint Bdd for Var = %s at phase 

2\n", 

BddVarName (GnlEcCutPointBddVar (CutPointI) ) ) ; 

#endif 

continue; 

} 

#endif 

if (GnlEcCutPointNbNode (CutPointI) <= MinNodes) 

{ 

MinNodes = GnlEcCutPointNbNode (CutPointI) ; 
Be st Index = i; 

} 

} 

} 

if (Bestlndex >= 0) 

{ 

* Index = Bestlndex; 
return (1) ; 

} 

else 

return (0) ; 

} 

/* *z 

/* PrintCutPointsMap */ 

/* */ 

void PrintCutPointsMap (void) 

{ 

int j ; 

GNL_EC_CUT_POINT CutPoint ; 

fprintf (stderr, "Input Break Vars:\n"); 
for (j=0; j<G_FirstBrkVarIndex; j++) 
{ 

CutPoint = (GNL_EC_CUTJ?OINT)BListElt (G_ListAllCutPoints , j); 

if (GnlEcCutPointSupport (CutPoint) ) 

fprintf (stderr, » Var = %s, NbNodes = %d\n", 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 

GnlEcCutPointNbNode (CutPoint) ) ; 

} 

#ifdef COMMON_CUTPOINTS_HEUR 

fprintf (stderr, "Outl Break Vars:\n"); 
for (j=0; j<BListSize (G_ListOutl Cut Points) ; j++) 
{ 

CutPoint = (GNL_EC_CUT_POINT) BListElt (G_ListOut lCutPoints , j); 

if (GnlEcCutPointSupport (CutPoint) ) 

fprintf (stderr, " Var = %s, NbNodes = %d\n", 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 

GnlEcCutPointNbNode (CutPoint) ) ; 
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} 

fprintf (stderr, "Out2 Break Vars : \n" ) ; 

for (j=0; j<BListSize (G_List0ut2CutPoints ) ; j++) 

{ 

CutPoint = (GNL_EC_CUT_POINT) BListElt (G_ListOut 2 Cut Points , j); 

if (GnlEcCutPointSupport (CutPoint) ) 

fprintf (stderr, " Var = %s, NbNodes = %d\n" , 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 

GnlEcCutPointNbNode (CutPoint) ) ; 

} 

fprintf (stderr, "Common Break Vars:\n"); 
for (j=0; j<BListSize (G_ListCommonCut Points) ; j++) 
{ 

CutPoint = (GNL__EC_CUT_POINT) BListElt ( G_ListCommonCut Point s , j); 

if (GnlEcCutPointSupport (CutPoint) ) 

fprintf (stderr, " Var = %s, NbNodes = %d\n" / 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 

GnlEcCutPointNbNode (CutPoint) ) ; 

} 

#else 

fprintf (stderr, "Other Break Vars:\n"); 

for ( j=G_FirstBrkVarIndex; j<BListSize (G_ListAllCutPoints) ; j++) 
{ 

CutPoint = (GNL_EC_CUT_PO INT) BListElt (G_ListAllCutPoints , j); 

if (GnlEcCutPointSupport (CutPoint) ) 

fprintf (stderr, » Var = %s, NbNodes = %d\n" , 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 

GnlEcCutPointNbNode (CutPoint) ) ; 

} 

#endif 

} 

/* 

/* ComputeConstraints */ 

/* 

int ComputeConstraints (Bdd) 



BDD 


Bdd; 


BDD_PTR 


BddPtr; 


GNL_NODE 


Node ; 


BLIST 


NewListConstraints ; 


int 


Index ; 


int 


ToContinue; 


if (Bdd 


bdd_one ( ) ) 


{ 





if (BListAddElt (G_ListBadPatterns , (int ) G_ListConstraints) ) 
return (0) ; 

if (BListCopyNoEltCr (G__ListConstraints , ScNewList Constraints) ) 
return (0) ; 

G_ListConstraints = NewListConstraints; 
return (1) ; 
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} 

if (ConstantBdd (Bdd) ) 
return (1) ; 

BddPtr - (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 

if (IsBddTagOccurBit (BddPtr)) 
return (1) ; 

BddTagOccurBit (BddPtr) ; 

Index = GetBddPtrlndex (BddPtr) ; 

Node = GnlEcCutPointNode ( (GNL_EC_CUT_POINT) BListElt {G_ListAllCut Points , 
Index) ) ; 

if (IsBddTypelNV (Bdd)) 

{ 

if (BListAddElt (G_ListConstraints , ( int ) GnlNodePosConstraint (Node) ) ) 
return (0) ; 

ToContinue - ComputeConstraints (Complement BDD (GetBddPtrEdgel 
(BddPtr) ) ) ; 

BListDellnsert (G_ListConstraints , BListSize (G_ListConstraints) ) ; 
if ( ! ToContinue) 
return (0) ; 

if (BListAddElt (G__ListConstraints , (int) GnlNodeNegConstraint (Node))) 
return (0) ; 

ToContinue - ComputeConstraints (ComplementBDD (GetBddPtrEdgeO 
(BddPtr) ) ) ; 

BListDellnsert (G_ListConstraints, BListSize (G__ListConstraints) ) ; 
return (ToContinue) ; 

} 

else 

{ 

if (BListAddElt (G_ListConstraints , (int) GnlNodePosConstraint (Node) ) ) 
return (0) ; 

ToContinue = ComputeConstraints (GetBddPtrEdgel (BddPtr) ) ; 
BListDellnsert (G_ListConstraints r BListSize (G_ListConstraints) ) ; 
if ( ! ToCont inue ) 
return (0) ; 

if (BListAddElt (G_ListConstraints , (int) GnlNodeNegConstraint (Node) ) ) 
return (0) ; 

ToContinue = ComputeConstraints (GetBddPtrEdgeO (BddPtr) ) ; 
BListDellnsert (G_ListConstraints , BListSize (G_ListConstraints) ) ; 
return (ToContinue) ; 

} 

} 



#ifdef XOR_ANALYSIS 

/* */ 

/* GnlGetTransitiveBddSupportRec */ 

/* */ 

/* Computes the transitive support of 'Bdd' by taking into account in */ 

/* the support the intermediate cut variables. */ 

/* */ 
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void GnlGetTransitiveBddSupportRec (Bdd) 
BDD Bdd ; 

{ 

BDD__PTR BddPtr; 
GNL_EC_CUT_POINT CutPoint ; 

BDD BddCutPoint ; 



if (ConstantBdd (Bdd) ) 
return ; 

BddPtr = (BDDJPTR)GetBddPtrFromBdd (Bdd); 

if (IsBddTagCountBit (BddPtr)) /* Already traversed. */ 

return; 

BddTagCountBit (BddPtr) ; 

/* We mark the info associated to the bdd var. */ 
CutPoint - (GNL_EC_CUT_POINT) BListElt ( G__ListAll Cut Point s , 

GetBddPtrlndex (BddPtr) ) ; 

if (GnlEcCutPointSupport (CutPoint) != bdd_one ()) 

{ 

/* Bdd cut point not already traversed so we do it. */ 
SetGnlEcCutPointSupport (CutPoint, bdd_one ()); 
BddCutPoint = GnlEcCutPointBddFct (CutPoint) ; 
if (BddCutPoint) 

GnlGetTransitiveBddSupportRec (BddCutPoint) ; 

} 

GnlGetTransitiveBddSupportRec (GetBddPtrEdgel (BddPtr) ) ; 
GnlGetTransitiveBddSupportRec (GetBddPtrEdgeO (BddPtr) ) ; 

} 



/* */ 

/* GnlGetTransitiveBddSupport */ 

/* */ 

/* Computes the transitive support of 'Bdd* by taking into account in */ 

/* the support the intermediate cut variables. */ 

/* The support is returned thru the list ' ListSupport * . */ 

/* */ 



GNL_S TATUS GnlGetTransitiveBddSupport (Bdd, ListSupport) 
BDD Bdd; 
BLIST *ListSupport ; 

{ 

int i ; 

GNL EC CUT POINT CutPoint; 



GnlResetCutPointsSupport () ; 
ResetTagCountBit (Bdd) ; 
GnlGetTransitiveBddSupportRec (Bdd) ; 
ResetTagCountBit (Bdd) ; 

if (BListCreateWithSize (1, ListSupport)) 
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return (GNL_MEMORY_FULL) ; 

for (i=BListSize (G_ListAll Cut Points ) -1 ; i>=0; i--) 
{ 

CutPoint = <GNLJEC_CUT__POINT)BListElt (G__ListAllCutPoints , i) ; 
if (GnlEcCutPointSupport (CutPoint) == bdd_one {)) 
{ 

if (BListAddElt ( *ListSupport , (int) CutPoint ) ) 
return ( GNL_MEMORY_FULL) ; 

} 

} 

GnlResetCutPointsSupport () ; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlPrintOnePath */ 

/* */ 

void GnlPrintOnePath (ListSupport) 
BLIST ListSupport ; 

{ 

int i ; 

GNL_EC_CUT_POINT CutPoint I ; 

int Size; 
char ValueChar ; 

GNL_VAR NodesVar ; 

char *Name ; 



Size = 0; 

for (i=0; i<BListSize (ListSupport); i++) 

{ 

CutPointI = (GNL_EC_CUT_POINT) BListElt (ListSupport, i) ; 
if ( ! GnlEcCutPointSupport (CutPointI) ) 
continue ; 

ValueChar = (GnlEcCutPointSupport (CutPointI) == bdd_one () ? 
: ' 0 • ) ; 

if ( 'GnlEcCutPointSupport (CutPointI) ) 
ValueChar = 

if (! (NodesVar = GnlNodeVar (GnlEcCutPointNode (CutPointI)))) 

Name = "No var" ; 

else 

Name = GnlVarName (NodesVar) ; 

fprintf (stderr, " [%d %s %c] " , GnlEcCutPointBddVar (CutPointI) ->Id, 
Name, ValueChar) ; 

Size++ ; 

} 

fprintf (stderr, "\nSize = %d\n" , Size) ; 
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/* 

/* Gnl Re compose Cut Points 

/* 

GNL STATUS GnlRecomposeCut Points (CutPoint, BddValue, Conflict) 



GNL_EC_CUT_POINT 

BDD 

int 



CutPoint; 
BddValue ; 
*Conf lict ; 



mt 

int 
BDD 

BDD_STATUS 
int 

GNL_EC_CUT_POINT 
BDD 



Index; 
j ; 

BddJ; 
Status ; 
IsConf lict 
CutPointJ; 
BddRes; 



Index = GnlEcCutPointBddVar (CutPoint) ->Id; 

for (j=0; j<BListSize (G_TransitiveXor Support) ; j++) 
{ 

CutPointJ = (GNL_EC_CUT_POINT) 

BListElt (G_TransitiveXorSupport , j); 

if (CutPointJ == CutPoint) 
return (GNL_OK) ; 

BddJ = (BDD) BListElt (G_ListConf lictBdd, j); 

if (BddJ BDD_NULL) 
continue ; 

if (Status = bdd_compose (BddJ, Index, BddValue, &BddRes) ) 
return (GNL_MEMORY_FULL) ; 

if (BddJ == BddRes) 
continue; 

BddJ = BListElt (G_ListConf lictBdd, j) = (int) BddRes; 

/* If there is a conflict value for cut point J then we */ 
/* stop. */ 
if (Const ant Bdd (BddJ) ) 

{ 

/* If there is a value for 'CutPointJ' different of its 
/* composition result then there is a conflict. */ 
if (GnlEcCutPointSupport (CutPointJ) && 

(BddJ 1= GnlEcCutPointSupport (CutPointJ))) 

{ 

*Conflict = 1; 
return (GNL_OK) ; 

} 

if ( [GnlEcCutPointSupport (CutPointJ) ) 

{ 

if (GnlRecomposeCutPoints (CutPointJ, BddJ, 

fclsConf lict) ) 
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} 

} 



return (GNL_MEMORY_FULL) ; 
if (IsConflict) 
{ 

♦Conflict = 1; 
return (GNL_OK) ; 

} 



} 



*Conflict = 0; 
return (GNL OK) ; 



/* 

/* GnlCheckConf lict 



/* 

GNL_S TATUS GnlCheckConf lict (Conflict, FalsePath) 

int *Conflict; 

int *FalsePath; 



int 
int 

GNL_E C_CUT_PO INT 

GNL_EC_CUT_POINT 

int 

BDD 

BDD 

BDD_S TATUS 

int 

BDD 

BDD 

int 



i; 
j ; 

CutPointI; 
Cut Point J; 
Index I ; 
BddJ; 
BddRes; 
Status; 
Path; 
BddExpr ; 
BddProd ; 
Index; 



*FalsePath = 1000000; 

/* We add the forest of Bdds in the list ' G__Trans it iveXor Support * 
BSize (G_ListConf lictBdd) = 0; 

for (i=0; i<BListSize (G_TransitiveXor Support) ; i++) 
{ 

CutPointI = (GNL_EC_CUT_POINT) 

BListElt (G_TransitiveXorSupport , i) ; 
if (BListAddElt (G_ListConf lictBdd, 

( int ) GnlEcCutPointBddFct ( CutPointI ) ) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

/* 

GnlPrintOnePath (G_TransitiveXor Support) ; 
*/ 

/* we substitute in a top-down approach each sub bdds in order to 
/* expect a conflict. */ 
Path = -1; 
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for (i=0; i<BListSize (G_TransitiveXorSupport) ; i++) 
{ 

CutPointI = (GNL__EC_CUT_POIMT)BListElt (GJTransitiveXorSupport , i) 

/* If it is not a Var on the current Xor path. */ 
if { 'GnlEcCutPointSupport (CutPointI) ) 
continue; 

Path++; 

Indexl = GnlEcCutPointBddVar (CutPointI) ->Id; 

for (j=0; j<i; j++) 
{ 

CutPointJ = <GNL_EC_CUT_POINT) 

BListElt (G_TransitiveXorSupport , j) ; 
BddJ = (BDD) BListElt (G_ListConf lictBdd, j); 

if (BddJ == BDD_NULL) 
continue; 

if (Status = bdd_coinpose (BddJ, Indexl, 

GnlEcCutPointSupport (CutPointI) , 
&BddRes) ) 
return ( GNL_MEMORY_FULL) ; 

if (BddJ == BddRes) 
continue; 

BddJ = BListElt (G_ListConf lictBdd, j) = (int) BddRes; 

/* If there is a conflict value for cut point J then we */ 
/* stop. */ 
if (ConstantBdd (BddJ) ) 
{ 

/* If there is a value for 'CutPointJ' different of its*/ 
/* composition result then there is a conflict. */ 
if (GnlEcCutPointSupport (CutPointJ) 

(BddJ != GnlEcCutPointSupport (CutPointJ))) 

{ 

*Conflict = 1; 
*FalsePath = Path; 
return (GNL_OK) ; 

} 

if { I GnlEcCutPointSupport (CutPointJ) ) 

{ 

if (GnlRecomposeCutPoints (CutPointJ, BddJ, 

Conflict) ) 

return (GNL_MEMORY_FULL) ; 
if (*Conflict == 1) 

{ 

*FalsePath = Path; 
return (GNL_OK) ; 

} 

} 
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} 

} 

} 

♦Conflict = 0; 

for (j=0; j<BListSize (G_ListConf lictBdd) ; j++) 

{ 

BddJ = (BDD) BListElt (G_ListConf lictBdd, j); 

if (BddJ == BDD_NULL) 
continue ; 

/* There is an expression which is not constant so we cannot 
/* that there is no uncompatibility . */ 
if ( IConstantBdd (BddJ) ) 

{ 

*Conflict - -1; 
break; 

} 

} 

if (^Conflict == 0) 
return (GNL_OK) ; 

BddProd - bdd_one () ; 

for (j=0; j<BListSize (G_TransitiveXorSupport) ; j++) 
{ 

CutPointJ = (GNL_EC_CUT_POINT) 

BListElt (G_TransitiveXor Support , j ) ; 

/* If it is not a Var on the current Xor path, 
if ( IGnlEcCutPointSupport (CutPointJ) ) 
continue; 

BddJ = (BDD) BListElt (G_ListConf lictBdd, j); 

if (BddJ == BDD__NULL ) 
continue; 

if (IConstantBdd (BddJ) ) 
{ 

if (GnlEcCutPointSupport (CutPointJ) == bdd_one ()) 

BddExpr = BddJ; 
else 

BddExpr = Complement BDD (BddJ) ; 

if ((Status = bdd_and (BddProd, BddExpr, ScBddRes))) 
return (GNL_MEMORY_FULL) ; 

BddProd = BddRes; 

/* If the product is (0) so there is a conflict */ 
if (BddProd == bdd_zero () ) 
{ 

*Conflict = 1; 
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return (GNL_OK) ; 

} 

} 

} 

if (BddProd == bdd_one ()) 

{ 

^Conflict = 0; 
return (GNL_OK) ; 

} 

while (1) 

{ 

Index = GetBddPtrlndex ( (BDD_PTR) GetBddPtrFromBdd (BddProd)); 
if (Index < G_FirstBrkVarIndex) 

{ 

^Conflict = 0; 
return (GNL_0K) ; 

} 

for (j=0; j<BListSize (G_ Trans it iveXorSupport) ; j++) 
{ 

CutPointJ = (GNL_EC_CUTJE>OINT) 

BListElt ( GJTrans it iveXorSupport , j) ; 

if (GnlEcCutPointBddVar (CutPointJ) - >Id == Index) 
break; 

} 

BddJ = (BDD) BListElt (G_ListConf lictBdd, j); 

if (Status = bdd__compose (BddProd, Index, BddJ, &BddRes) ) 
return ( GNL_MEMORY_FULL ) ; 

BddProd = BddRes; 

if (BddProd == bdd_zero ()) 

{ 

*Conflict = 1; 
return (GNL_0K) ; 

} 

if (BddProd == bdd_one ()) 
{ 

♦Conflict = 0; 
return (GNL_0K) ; 

} 

} 

return (GNL_0K) ; 

} 



/* 

/* GnlExtractBddOnePath 

/* 

GNL_STATUS GnlExtractBddOnePath (Bdd, Path, Correct) 
BDD Bdd; 
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int Path; 

int ^Correct; 

{ 

BDD_PTR BddPtr; 

int Index; 

GNL_EC_CUT_POINT CutPoint ; 

int Conflict = 0; 

int FalsePath; 



if (*Correct < 1) 
return (GNLjOK) ; 

if (Path > G_FalsePath) 

return (GNL_OK) ; 
G_FalsePath = 1000000; 

if (Bdd == bdd_one () ) 

{ 

if (G_CheckConf lict >= CHECK_MAX_CONFLICTS) 

{ 

*Correct = -1; 
return (GNL_OK) ; 

} 

G__CheckConf lict++; 

if (GnlCheckConf lict (&Conflict f &G_FalsePath) ) 
return (GNL_MEMORY_FULL) ; 

if (Conflict 0) 
{ 

fprintf (stderr, "error I\n n ); 
* Correct = 0; 
return (GNL_OK) ; 

} 

if (Conflict == -1) 

{ 

*Correct = -1; 
return (GNLJDK) ; 

} 

*Correct = 1; 
return <GNL_OK) ; 

} 

if (ConstantBdd (Bdd) ) 
{ 

return (GNL_0K) ; 

} 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 
Index = GetBddPtrlndex (BddPtr) ; 

CutPoint = (GNL_EC_CUT__POINT)BListElt (G_ListAllCut Points , Index); 
if (IsBddTypelNV (Bdd)) 
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{ 

SetGnlEcCutPointSupport (CutPoint, bdd__zero ()); 

if (GnlExtractBddOnePath (ComplementBDD (GetBddPtrEdgeO (BddPtr) ) 

Path+1, Correct)) 
return ( GNL_MEMORY_FULL ) ; 

} 

else 

{ 

SetGnlEcCutPointSupport (CutPoint, bdd_zero ()); 
if (GnlExtractBddOnePath {GetBddPtrEdgeO (BddPtr) , 

Path+1, Correct)) 
return (GNL_MEMORY__FULL) ; 

} 

/* Case of error or undetermi nation . 
if (*Correct < 1) 
return (GNL_OK) ; 

if (IsBddTypelNV (Bdd) ) 
{ 

SetGnlEcCutPointSupport {CutPoint, bdd_one ()); 

if (GnlExtractBddOnePath (ComplementBDD (GetBddPtrEdgel (BddPtr) ) 

Path+1, Correct)) 
return (GNL_MEMORY__FULL) ; 

} 

else 
{ 

SetGnlEcCutPointSupport (CutPoint, bdd_one ()); 
if (GnlExtractBddOnePath (GetBddPtrEdgel (BddPtr) , 

Path+1, Correct)) 

return { GNL__MEMORY_FULL) ; 

} 

SetGnlEcCutPointSupport (CutPoint, BDD_NULL) ; 
return (GNL_OK) ; 

} 



/* 

/* GnlAnalyzeBddXor */ 
/* 

GNLJSTATUS GnlAnalyzeBddXor (BddXor, Correct) 
BDD BddXor; 
int *Correct; 

{ 

BLIST XorSupport; 



if (GnlGetTransitiveBddSupport (BddXor, &XorSupport) ) 
return ( GNL_MEMORY_FULL) ; 

G_TransitiveXorSupport = XorSupport; 

if (BListCreateWithSize (BListSize (G_TransitiveXorSupport ) , 

&G_ListConf lictBdd) ) 
return (GNL_MEMORY_FULL) ; 
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G_CheckConf lict = 0; 

*Correct = 1; /* we suppose it is correct */ 

if (GnlExtractBddOnePath (BddXor, 0, Correct)) 
return ( GNL_MEMORY_FULL) ; 



fprintf (stderr, "Check Conflicts = %d\n»\ G_CheckConf lict ) ; 
return (GNL_OK) ; 

} 

#endif 

#ifndef IMPLICATION_CHECK 

/* 

/* GnlResolveTwoNodes 

/* 



*/ 
*/ 

7 



GNL__STATUS GnlResolveTwoNodes (NbMaxUsedNodes , RefGnl, Nodel, Node2, Invert) 



mt 
GNL 

GNL_NODE 
GNL_NODE 
int 

int 

BDD_WS 
BDD 
BDD 
BDD 

BDD__PTR 
BDD 
BDD 
int 
int 

GNL_EC_CUT_PO INT 
GNL_NODE 
int 
int 
int 



NbMaxUsedNodes ; 

RefGnl; 

Nodel ; 

Node 2 ; 

* Invert; 

i; 



Ws; 
Bddl; 
Bdd2; 
BddXor ; 
BddXorPtr; 
BddRes; 
VarBddFct; 
Index; 
Newlndex ; 

CutPoint ; 
CutPointNode; 

SameBddXor; 
Phase = 0; 
Correct; 



G BadPatternsFound 



0; 



if ( (GnlNodeOp (Nodel) == GNL_VARIABLE) 
(GnlNodeOp (Node2) == GNL_VARIABLE) ) 
return (GNL_ERROR_DETECTED) ; 



while (1) 
{ 

if (BListCreateWithSize (l, 

return ( GNL _MEMORY_FULL) ; 
#ifdef COMMON_CUTPOINTS_HEUR 

if (BListCreateWithSize (1, 

return { GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (1, 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (1, 

return (GNL_MEMORY__FULL) ; 



&G_ListAllCutPoints) ) 

&G__ListOutlCutPoints) ) 
&G_ListOut2CutPoints) ) 
&G_ListCommonCut Points) ) 
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#endif 

if (InitBddWorkSpacelnvOrder (100, &Ws) ) 
return { GNL_MEMORY_FULL ) ; 

/* we authorize a maximum number of used nodes. 
SetNbMaxUsedNode (NbMaxUsedNodes) ; 

/* We create bdd var for primary inputs. 
G_Tag++; 

if (GnlCreateNewEcBddVarlnputs (Nodel) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNewEcBddVarlnputs (Node2) ) 

return (GNL_MEMORY_FULL) ; 

/* 

for (i=0; i<BListSize (GnlRe levant Inputs (RefGnl) ) ; i + 
if (GnlCreateNewEcBddVarlnputs { (GNL_NODE) GnlVarDads 
( (GNL_VAR) BListElt (GnlRelevant Inputs (RefGnl) , i) ) ) ) 
return ( GNL_MEMORY_FULL) ; 

*/ 

G_FirstBrkVarIndex = Ws->UniqueId + 1; 

/* We create bdd var for local variables. 
G__Tag++ ; 

if (GnlCreateNewEcBddVar (Nodel, 1)) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNewEcBddVar (Node2, 2)) 

return ( GNL__MEMORY_FULL) ; 

G_Tag++; 

if (GnlCreateLocalBddNode (RefGnl, Nodel, 0)) 

return ( GNL_MEMORY_FULL) ; 
if (GnlCreateLocalBddNode (RefGnl, Node 2 , 0)) 

return ( GNL_MEMORY__FULL) ; 

Bddl = GnlNodeBdd (Nodel) ; 
Bdd2 = GnlNodeBdd (Node2 ) ; 



if (bdd_xor (Bddl, Bdd2, &BddXor) ) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL__UNRESOLVED_AT_XOR_BUILD) ; 

} 

if (BddXor == bdd_zero ()) 

{ 

if (ReconnectNode (Node2, Nodel, Invert)) 
return ( GNL_MEMORY_FULL) ; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_EQUIVALENT_AT_XOR_BUILD) ; 

} 

if (BddXor == bdd one ()) 
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{ 

if (ReconnectlnvNode (RefGnl, Node2 , Nodel, Invert)) 
return (GNL_MEMORY_FULL) ; 

G_BadPatternsFound = -1; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_ERROR_DETECTED_AT_XOR_BUILD) ; 

} 

#ifdef ALL_CUTPOINTS_TOGETHER 

if (GnlBuildCutPointsBddFct (RefGnl) ) 

{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_UNRESOLVED_AT_BUILD_CUTPOINT) ; 

} 

#endif 

SameBddXor = 0; 

while (1) 
{ 

if (! SameBddXor) 
{ 

BddXorPtr = GetBddPtr (BddXor) ; 
Index = GetBddPtrlndex (BddXorPtr) ; 
if (Index < G_FirstBrkVar Index) 

{ 

if ( I G_ListBadPatterns && 

BListCreateWithSize (1000, &G_ListBadPat terns) ) 
return (GNL_ERROR_DETECTED_PHASE0_ONLY_INPUTS + Phase) ; 
if (BListCreateWithSize (G_FirstBrkVarIndex, &G__ListConstraints) ) 
return (GNL__ERROR_DETECTED_PHASE0_ONLY_INPXJTS + Phase) ; 
G_BadPatternsFound = 1; 
ResetTagOccurBit (BddXor) ; 
ComputeConstraints (BddXor) ; 
ResetTagOccurBit (BddXor) ; 
BListQuickDelete (&G_ListConstraints) ; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

return (GNL_ERROR_DETECTED__PHASE0_ONLY_INPUTS + Phase) ; 

} 

} 

/* We use the first heuristic. */ 
if (Phase == 0) 
{ 

if (! SameBddXor) 

{ 

GnlGetBddSupport (BddXor) ; 
#ifdef PRINT_CUTPOINTS_STAT 

PrintCutPointsMap () ; 

#endif 

} 

#ifdef COMMON_CUTPOINTS_HEUR 

if ( IGnlExtractBestCutPointO (RefGnl, &NewIndex) ) 
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Phase = 1; 
else 

Index = Newlndex; 

} 

/* We use the second heuristic. */ 
if (Phase == 1) 

{ 

if ( ISameBddXor) 
{ 

GnlGetBddSupport (BddXor) ; 
#ifdef PRINT_CUTPOINTS_STAT 

PrintCutPointsMap () ; 

#endif 

} 

#endif 

if ( IGnlExtractBestCutPointl (RefGnl, &Index) ) 

{ 

#ifdef LEAST_BDD_HEUR 
Phase = 2; 
break; 

#else 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_UNRESOLVED_AT_EXTRACTION) ; 

ftendif 

} 

} 

#ifdef LEAST_BDD_HEUR 

/* We use the third heuristic. */ 
if (Phase == 2) 

{ 

if (ISameBddXor) 

{ 

GnlGetBddSupport (BddXor) ; 
#ifdef PRINT_CUTPOINTS_STAT 

PrintCutPointsMap () ; 

#endif 

} 

if { !GnlExtractBestCutPoint2 (RefGnl, &Index) ) 

{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return ( GNL_UNRESOLVED_AT_EXTRACTI ON ) ; 

} 

} 

#endif 

CutPoint = (GNL_EC_CUT_POINT) BListElt (G__ListAllCutPoints , Index); 
VarBddFct = GnlEcCutPointBddFct (CutPoint) ; 

if (bdd_compose (BddXor, Index, VarBddFct, &BddRes) ) 
{ 

#ifdef PRINT_COMPOSE_STAT 

f print f (stderr, "Tried to compose Var = %s (NbNodes = %d) at phase 

%d\n», 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 
GnlEcCutPointNbNode (CutPoint) , Phase) ; 
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#endif 

#ifdef LEAST_BDD_HEUR 

if (Phase == 0) 
{ 

#ifndef COMPO S E_UNT I L_F IRST_FAI LURE 

SetGnlNodeValue (GnlEcCutPointNode (Cut Point) , 

SameBddXor = 1; 

continue; 



#else 



#endif 



/* We try the second heuristic. 
Phase - 2 ; 



} 



#ifdef C0MM0N_CUTPOINTS_HEUR 
if (Phase == 1) 

{ 

Phase = 2 ; 
break; 

} 

ftendif 

else 

{ 

#ifdef XOR_ANALYSIS 

SetNbMaxUsedNode (GetNbMaxUsedNode () +200000) ; 

if (GnlAnalyzeBddXor (BddXor, ^Correct) ) 
return ( GNL_MEMORY_FULL) ; 

if (Correct — 1) 

return ( GNL__EQUIVALENT_PHASE 0 + Phase) ; 
if (Correct == 0) 

return (GNL_ERROR_DETECTED_PHASE0 + Phase) ; 
if (Correct == -1) 

return (GNL_UNRESOLVED) ; 

} 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL UNRESOLVED) ; 



#else 



#endif 

} 

break; 

#else 

#ifndef COMPOSE_UNTIL_FIRST_FAILURE 

SetGnlNodeValue (GnlEcCutPointNode (CutPoint) , -1) 
SameBddXor = 1; 
continue ; 

#else 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_UNRESOLVED) ; 

#endif 
#endif 
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} 

BddXor = BddRes; 
SameBddXor = 0; 

#ifdef PRINT_COMPOSE_STAT 

fprintf (stderr, "Composed Var = %s (NbNodes = %d) at phase %d\n", 
BddVarName (GnlEcCutPointBddVar (CutPoint)) , 
GnlEcCutPointNbNode (CutPoint) , Phase) ; 

#endif 



if (BddXor == bdd_zero () ) 
{ 



if (ReconnectNode (Node2 , Nodel, Invert)) 
return ( GNL_MEMORY_FULL ) ; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return ( GNL_EQU I VALENT_PHASE 0 + Phase); 

else 

if (BddXor bdd_one () ) 

{ 

if (ReconnectlnvNode (RefGnl, Node 2 , Nodel, Invert)) 
return ( GNL_MEMORY_FULL) ; 

GJBadPatternsFound = -1; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_ERROR_DETECTED_PHASE0 + Phase) ; 



} 



GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

BListDelete (&G_ListAllCutPoints, GnlCutPointFree) ; 
#ifdef COMMON_CUTPOINTS_HEUR 

BListQuickDelete (&G_ListOutlCut Points) ; 

BListQuickDelete (&G_ListOut2Cut Points) ; 

BListQuickDelete (&G_ListCommonCut Points) ; 
#endif 

} 

} 

#else 

/* 

/* GnlResolveTwoNodes 

/* 



*/ 
*/ 
*/ 



GNL_STATUS GnlResolveTwoNodes (NbMaxUsedNodes, RefGnl, FirstNode, SecondNode, 
Invert ) 



int 






NbMaxUsedNodes ; 


GNL 






RefGnl; 


GNL_ 


_N0DE 




FirstNode; 


GNL_ 


_NODE 




SecondNode; 


int 






* Invert ; 


int 






i; 


BDD_ 


_WS 


Ws; 




BDD~ 




Bddl; 




BDD 




Bdd2 ; 
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BDD 




Bddlmpl; 


BDD 


_PTR 


BddlmplPtr ; 


BDD 




BddRes; 


BDD 




varBaaFct ; 


int 




Index; 


int 




New Index ; 


GNL_ 


_EC_CUT_ 


_POINT CutPoint; 


GNL 


NODE 


CutPointNoae ; 


int 




SameBddlmpl ; 


int 




Phase - 0; 


int 




Correct ; 


int 




Direction = 1; 


int 




Lef tlmplRight = -1; 


int 




RightlmplLef t = -1; 


GNL_ 


_NODE 


Nodel = FirstNode; 


GNL_ 


_NODE 


Node2 = SecondNode; 


/* 






int 




IndexExists; 


int 




TagOccurBitExists ; 


*/ 







G_BadPatternsFound = 0; 

if ( (GnlNodeOp (Nodel) « GNL_VARI ABLE ) 
(GnlNodeOp (Node2) GNL_VARIABLE) ) 
return (GNL_ERROR_DETECTED) ; 

while (Direction < 3) 

{ 

if (BListCreateWithSize (1, 

return (GNL__MEMORY_FULL) ; 
#ifdef COMMON_CUTPOINTS_HEUR 

if (BListCreateWithSize (1, 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, 

return ( GNL _MEMORY_FULL ) ; 
if (BListCreateWithSize (1, 

return ( GNL_MEMORY_FULL ) ; 

#endif 

if (Direction 2) 

{ 

Nodel = SecondNode; 
Node 2 = FirstNode; 

} 

if (InitBddWorkSpacelnvOrder (100, &Ws) ) 
return (GNL_MEMORY_FULL) ; 

/* we authorize a maximum number of used nodes. 
SetNbMaxUsedNode (NbMaxUsedNodes) ; 

/* We create bdd var for primary inputs. 
G_Tag++; 

if (GnlCreateNewEcBddVarlnputs (Nodel) ) 
return (GNL_MEMORY_FULL) ; 



&G_ListAllCutPoints) ) 

&G_Li s t Out 1 Cut Points) ) 
&G_ListOut2CutPoints) ) 
&G_ListCommonCutPoints) ) 
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if (GnlCreateNewEcBddVarlnputs (Node2) ) 
return (GNL_MEMORY_FULL) ; 

/* 

for (i = 0; i<BListSize (GnlRelevantlnputs (RefGnl) ) ; i++) 
if (GnlCreateNewEcBddVarlnputs ( (GNL_NODE) GnlVarDads 
( (GNL_VAR) BListElt (GnlRelevantlnputs (RefGnl), i)))) 
return (GNL_MEMORY__FULL) ; 

*/ 

G_FirstBrkVar Index « Ws->UniqueId + 1; 

/* We create bdd var for local variables. 
G__Tag++; 

if (GnlCreateNewEcBddVar (Nodel, 1)) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNewEcBddVar (Node2, 2)) 

return ( GNL_MEMORY_FULL) ; 

G_Tag++ ; 

if (GnlCreateLocalBddNode (RefGnl, Nodel, 0)) 

return ( GNL_MEMORY_FULL) ; 
if (GnlCreateLocalBddNode (RefGnl, Node2 , 0)) 

return (GNL_MEMORY_FULL) ; 

Bddl = GnlNodeBdd (Nodel) ; 
Bdd2 = GnlNodeBdd (Node2) ; 



if (bdd_impl (Bddl, Bdd2 , &BddImpl) ) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_UNRESOLVED__AT_XOR_BUILD) ; 
} 

if (Bddlmpl == bdd_one () ) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

if (Direction == 1) 

Lef tlmplRight = 1; 
else 

RightlmplLef t = 1; 
Direction**; 
continue ; 

} 

#ifdef ALL_CUTPOINTS_TOGETHER 

if (GnlBuildCutPointsBddPct (RefGnl) ) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 
return (GNL_UNRESOLVED_AT_BUILD CUTPOINT) ; 

} 

#endif 
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SameBddlmpl = 0; 

while (1) 
{ 

if ( 1 SameBddlmpl) 

{ 

BddlmplPtr = GetBddPtr (Bddlmpl) ; 
Index = GetBddPtrlndex (BddlmplPtr) ; 
if (Index < G_FirstBrkVar Index) 

{ 

if ( !G_ListBadPatterns && 

BListCreateWithSize (1000, &G_ListBadPatterns) ) 
return (GNL_ERROR_DETECTED_PHASE0_ONLY_INPUTS + Phase) ; 
if (BListCreateWithSize (G_FirstBrkVarIndex, &G_ListConstraints) ) 
return (GNL_ERROR_DETECTED_PHASE0_ONLY_ INPUTS + Phase) ; 
G_BadPat terns Found = 1; 
ResetTagOccurBit (Bddlmpl) ; 

ComputeConstraints (ComplementBDD (Bddlmpl)) ; 
ResetTagOccurBit (Bddlmpl) ; 
BListQuickDelete (&G_List Constraints) ; 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

if (Direction == 1) 
Lef tlmplRight = 0; 
else 

Right ImplLeft = 0; 
Direction = 3; 
break; 

} 

} 

/* We use the first heuristic, 
if (Phase == 0) 

{ 

if (! SameBddlmpl) 

{ 

GnlGetBddSupport (Bddlmpl) ; 
#ifdef PRINT_CUTPOINTS_STAT 

PrintCutPointsMap () ; 

#endif 

} 

#ifdef COMMON_CUTPOINTS_HEUR 

if ( IGnlExtractBestCutPointO (RefGnl, ScNewIndex) ) 

Phase = 1; 
else 

Index = Newlndex; 

} 

/* We use the second heuristic, 
if (Phase == 1) 

{ 

if ( I SameBddlmpl) 

{ 

GnlGetBddSupport (Bddlmpl) ; 



*/ 



*/ 
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#ifdef PRINT_CUTPOINTS_STAT 

Printout Point sMap () ; 

#endif 

} 

#endif 

if ( IGnlExtractBestCutPointl (RefGnl, &Index) ) 

{ 

#ifdef LEAST_BDD_HEUR 
Phase = 2; 
break; 

#else 

GnlFreeWorkSpaceFromNodes (Ws , Nodel , Node2 ) ; 

if (Direction == 1) 
Lef tlmplRight = -1; 
else 

Right ImplLeft = -1; 
Direct ion++ ; 
break ; 

#endif 

} 

} 

#ifdef LEAS T_BDD_HEUR 

/* We use the third heuristic. */ 
if (Phase 2) 
{ 

if ( ISameBddlmpl) 
{ 

GnlGetBddSupport (Bddlmpl) ; 
#ifdef PRINT__CUTPOINTS_STAT 

PrintCutPointsMap () ; 

#endif 

} 

if ( ! GnlExtractBestCutPoint2 (RefGnl , &Index) ) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

if (Direction == 1) 
Lef tlmplRight = -1; 
else 

Right ImplLeft = -1/ 

Direction++; 

break; 

} 

} 

#endif 

CutPoint = (GNL_EC_CUT_POINT) BListElt (G_ListAllCutPoints , Index) 
VarBddFct = GnlEcCutPointBddFct (CutPoint) ; 

/* 

if ((Direction == 2) && (Index == 100)) 
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{ 

ResetTagCountBit (Bddlmpl) ; 

IndexExists = SearchForlndexInBdd (Bddlmpl, 100); 
ResetTagCountBit (Bddlmpl) • 

TagOccurBitExists = SearchForTagOccurBit (Bddlmpl) ; 
ResetTagCountBit (Bddlmpl) ; 

TotalResetTagOccurBit (Bddlmpl) ; 
ResetTagCountBit (Bddlmpl) ; 

} 

*/ 

if (bdd_compose (Bddlmpl, Index, VarBddFct, &BddRes) ) 

{ 

#ifdef PRINT_COMPOSE_STAT 

fprintf (stderr, "Tried to compose Var = %s (NbNodes = %d) at phase 

%d\n\ 

BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 
GnlEcCutPointNbNode (CutPoint) , Phase) ; 

#endif 

#ifdef LEAS T_BDD_HEUR 

if (Phase == 0) 

{ 

#ifndef COMPOSE_UNTIL_FIRST_FAILURE 

SetGnlNodeValue (GnlEcCutPointNode (CutPoint) , -1) ; 

SameBddXor = 1; 

continue; 



#else 



#endif 



/* We try the second heuristic. */ 
Phase = 2; 



} 



#ifdef COMMON_CUTPOINTS_HEUR 
if (Phase == 1) 
{ 

Phase = 2; 
break; 

} 

#endif 



else 

{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

if (Direction == 1) 
Lef tlmplRight = -1; 
else 

RightlmplLeft = -1; 
Direction++ ; 
break; 

} 

break ; 

#else 

#ifndef COMPOSE UNTIL FIRST FAILURE 
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SetGnlNodeValue (GnlEcCutPointNode (CutPoint), -1) ; 

SameBddlmpl = 1; 

continue; 

#else 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 



if {Direction 1) 

Lef tlmplRight - -1; 
else 

RightlmplLeft = -1; 
Direction**; 



break; 

#endif 
#endif 

} 

Bddlmpl = BddRes; 
SameBddlmpl = 0; 

#ifdef PRINT_COMPOSE_STAT 

fprintf (stderr, "Composed Var = %s {NbNodes = %d) at phase %d\n" , 
BddVarName (GnlEcCutPointBddVar (CutPoint) ) , 
GnlEcCutPointNbNode (CutPoint) , Phase) ; 

#endif 

if (Bddlmpl == bdd_one ()) 
{ 

GnlFreeWorkSpaceFromNodes (Ws, Nodel, Node2) ; 

if (Direction == 1) 

LeftlmplRight = 1; 
else 

Right ImplLeft = 1; 
Direct ion++; 



break; 

} 

} 

BListDelete (&G_ListAllCutPoints, GnlCutPointFree) ; 
#ifdef COMMON_CUTPOINTS_HEUR 

BListQuickDelete (&G_ListOutlCutPoints) ; 

BListQuickDelete (&G_ListOut 2 Cut Points) ; 

BListQuickDelete (&G__ListCommonCut Points) ; 
#endif 

} 

/* 

* Invert = -1; 
*/ 



if ((LeftlmplRight > 0) (RightlmplLef t > 0)) 

{ 

if (ReconnectNode (SecondNode, FirstNode, Invert)) 

return (GNL_MEMORY__FULL) ; 
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return (GNL_EQUIVALENT_PHASEO + Phase) ; 

} 

/* 

if (LeftlmplRight > 0) 
{ 

if (ReconnectToORNode (RefGnl, FirstNode, SecondNode) ) 
return (GNL_MEM0RY FULL) ; 



* Invert = 0; 

} 



if (RightlmplLeft > 0) 
{ 

if (ReconnectToORNode (RefGnl, SecondNode, FirstNode) ) 
return (GNL MEMORY FULL) ; 



* Invert = 1; 

} 

*/ 



if (! LeftlmplRight || ! RightlmplLeft) 

return (GNL_ERROR_DETECTED_PHASE0jDNLY_ INPUTS + Phase) ; 

return (GNL_UNRE SOLVED) ; 

} 

#endif 



/* 

/* GnlResolveFalseNegative 

/* 

GNL_STATUS GnlResolveFalseNegative (Grill, Gnl2, GnlMayFalse, 



GNL 

GNL 

BLIST 

BLIST 

BLIST 



GnlErrors, GnlBadPat terns) 
Gnll; 
Gnl2 ; 
GnlMayFalse; 
GnlErrors ; 

GnlBadPatterns ; 



int 
int 
int 

GNL_NODE 

GNL_NODE 

BDD_STATUS 

int 

BLIST 



Outl; 
Out2 ; 



Ind; 
Invert ; 



Status ; 

Phase; 

BadPattern; 



for (i=0; i<BListSize (GnlMayFalse); i++) 

{ 

Ind = BListElt (GnlMayFalse, i) ; 

Outl = (GNL_NODE) BListElt ( G_Output Nodes 1 , Ind) ; 
Out2 = (GNL_NODE) BListElt (G_OutputNodes2 , Ind) ; 

Status = GnlResolveTwoNodes (200000, Gnll, Outl, 0ut2 7 &Invert) ; 
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if (Status == GNL_MEMORY_FULL) 
return (GNL_MEMORY_FULL) ; 

if (Status GNL_UNRESOLVED_AT_XOR_BUILD) 
{ 

fprintf (stderr, " o [%s] Unresolved at XOR-building phase !\n" ( 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind))); 
continue; 

} 

if (Status == GNL_EQUIVALENT_AT_XOR_BUILD) 
{ 

fprintf (stderr, " o [%s] Resolved at XOR-building phase !\n n , 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind))); 
BListDellnsert (GnlMayFalse , i+1) ; 
i--; 

continue; 

} 

if (Status == GNL__ERROR_DETECTED_AT_XOR_BUILD) 

{ 

fprintf (stderr, " o [%s] Error Detected at XOR-building phase 

! ! !\n" , 

GnlVarName ( (GNL_VAR) BListElt (GJDutputsl, Ind) ) ) ; 

BListAddElt (GnlBadPatterns, -1) ; 

if (BListAddElt (GnlErrors, Ind)) 

return ( GNL_MEMORY_FULL ) ; 
BListDellnsert (GnlMayFalse, i+1) ; 
i--; 

continue; 

} 

if (Status == GNL_UNRESOLVED_AT_BUILD_CUTPOINT) 
{ 

fprintf (stderr, " o [%s] Unresolved at BuildCutPoint phase l\n" 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind) ) ) ; 
continue; 

} 

if ( (Status >= GNL_ERROR_DETECTED_PHASE0_ONLY_INPUTS) && 
(Status <= GNL_ERR0R_DETECTED__PHASE2_0NLY_INPUTS) ) 

{ 

Phase = Status - GNL_ERROR_DETECTED_PHASE0_ONLY_INPUTS; 

fprintf (stderr, 

" o [%s] Error Detected at phase %d - only input vars ! ! 1 
GnlVarName { (GNL_VAR) BListElt (G_Outputsl, Ind)); Phase); 

if (G_BadPatternsFound == 1) 
{ 

if (BListCopyNoEltCr ( (BLIST) BListElt (G_ListBadPatterns , 

BListSize (G_ListBadPatterns) - 1) 

&BadPattern) ) 
return (GNL_MEMORY_FULL) ; 
BListAddElt (GnlBadPatterns , (int) BadPattern) ; 

} 
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else 

BListAddElt (GnlBadPatterns , G_BadPat terns Found) ; 

if (BListAddElt (GnlErrors, Ind) ) 

return ( GNL__MEMOR Y_FULL ) ; 
BListDellnsert (GnlMayFalse, i+1) ; 
i--; 

continue; 

} 

if (Status == GNL_UNRESOLVED_AT EXTRACTION) 

{ 

#ifdef LEAST_BDD_HEUR 

fprintf (stderr, " o [%s] Unresolved at 2-d Extract phase !\n" 
GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind))); 

#else 

fprintf (stderr, " o [%s] Unresolved at 0-th Extract phase !\n 
GnlVarName ( (GNL_VAR) BListElt (G_Outputsl , Ind) ) ) ; 

#endif 

continue; 

} 

if (Status == GNL_UNRESOLVED) 

{ 

#ifdef LEAST_BDD_HEUR 

fprintf (stderr, " o [%s] Unresolved at phase 2 ! \n" , 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl , Ind) ) ) ; 

#else 

fprintf (stderr, » o [%s] Unresolved at phase 0 i\n M , 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind) ) ) ; 

#endif 

continue; 

} 

if ((Status >= GNL_EQUIVALENT_PHASEO) && 
(Status <= GNL_EQUIVALENT PHASE 2) ) 

{ 

Phase = Status - GNL_EQUIVALENT_PHASEO ; 

fprintf (stderr, " o [%s] Resolved at phase %d l\n", 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind)), Phase); 
BListDellnsert (GnlMayFalse, i+1) ; 
i--; 

continue; 

} 

if ((Status >= GNL_ERROR_DETECTED_PHASE0 ) && 
(Status <= GNL_ERROR_DETECTED PHASE2 ) ) 

{ 

Phase = Status - GNL_ERROR_DETECTEDJPHASE0 ; 

fprintf (stderr, " o [%s] Error Detected at phase %d !!!\n", 

GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind)), Phase); 

BListAddElt (GnlBadPatterns, -1) ; 

if (BListAddElt (GnlErrors, Ind)) 
return (GNL_MEMORY_FULL) ; 
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BListDellnsert (GnlMayFalse , i+1) ; 
i-- ; 

continue; 



} 



return (GNL OK) / 



#ifdef RANDOM_S IMULATION 
/* 



/ * PrepareRandomlnputVec tors 

/* 

GNL STATUS PrepareRandomlnputVec tors (Listln) 



{ 



BLIST 
int 

KEY_TYPE 

int 

int 

int 

int 

GNL_CONSTRAINT 
BLIST 
GNL_NODE 
BLIST 



Listln; 

Nbln = BListSize (Listln) ; 

*Seed; 

i; 

j ; 

NumBadPatterns = 0; 
Newlnd; 

NewConstraint ; 
NewInVector; 
CurrlnNode; 
TmpList ; 



srand (G_SimulationNum) ; 

if (BListCreateWithSize ( RANDOM__IN_VECTORS_NTJiyi , &G_InVectors ) ) 
return (GNL_MEMORY_FULL) ; 

if (G_ListBadPatterns BListSize (G_ListBadPatterns) ) 

{ 

if ((NumBadPatterns = BListSize (G_ListBadPatterns) ) > 
RANDOM_IN_VECTORS_NUM ) 
{ 

for (i^O; i <RANDOM_IN__VECTORS_NUM ; i++) 
{ 

Newlnd = (int) (NumBadPatterns * rand ()/(RAND_MAX + 1.0)); 
BListAddElt (G_InVectors, BListElt (G_ListBadPatterns , Newlnd)) 
BListDellnsert (G_ListBadPatterns , Newlnd+l) ; 
NumBadPatterns- - ; 

} 

return (GNL_OK) ; 
} 

else 
{ 

TmpList = G_InVectors; 
G__InVectors = G_ListBadPatterns ; 
G_ListBadPatterns = TmpList; 

if (NumBadPatterns « RANDOM_IN_VECTORS_NUM) 
return (GNL_OK) ; 

} 

} 

if ( ! (Seed = (KEY_TYPE *)calloc (Nbln, sizeof (KEY_TYPE) ) ) ) 
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return { GNL _MEMORY_FULL ) ; 

for Ci-NumBadPat terns; i<RANDOM_IN_VECTORS_NUM; i++) 

if (BListCreateWithSize (Nbln, ScNewInVector ) ) 

return ( GNL_MEMORY__FULL ) ; 
BListAddElt (G_InVectors, (int) NewInVector ) ; 

} 

for {i=0; i<NbIn; i++) 
Seed [i] = rand () ; 



for (i=0; i<NbIn; i++) 

CurrlnNode = (GNL_NODE) GnlVarDads ( (GNL_VAR) BListElt (Listln, i) ) ; 
if (! CurrlnNode) 

continue; 
srand (Seed[i] ) ; 

for (j=NumBadPatterns; j <RANDOM_IN_VECTORS__NUM; j++) 

NewConstraint = (rand ( ) / (RAND_MAX+1 . 0) < 0.5 ? 

GnlNodeNegConstraint (CurrlnNode) : 

GnlNodePosConstraint (CurrlnNode) ) ; 
BListAddElt ( (BLIST) BListElt (G_InVectors , j), (int ) NewConstraint ) ; 

} 

} 

free (Seed) ; 



*/ 
■*/ 



return (GNL_OK) ; 

} 

/* 

/* PrintVectors 

/* 

void PrintVectors (void) 
{ 

int i ; 

int j ; 

BLIST Vectorl; 
GNL_C0NS TRAINT ConstraintI; 

for (i=0; i<RANDOM_IN_VECTORS_NUM; i++) 

{ 

Vectorl = (BLIST) BListElt (G_InVectors , 1) ; 
for (j=0; j<BListSize (Vectorl); j++) 

ConstraintI = (GNL_CONSTRAINT) BListElt (Vectorl, j); 
printf ("%c" , (ConstraintI ? 

VALUE (GnlConstraintValue (ConstraintI)) : VALUE (-1))) 

} 

printf ("\n"); 

} 



} 

/* RandomSimulation 



, */ 

/* / 

*/ 
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,* */ 

GNL_STATUS Randoms imul at ion (Gnll, Gnl2, OutList) 

GNL Gnll; 

GNL Gnl2; 

BLIST OutList; /* List of output indexes */ 

{ 

int i ; 

int j ; 

int Ind; 



for (i=0; i<BListSize (G_InVectors) ; i++) 
{ 

Resetlnputs (Gnll) ; 

Setlnputs ( (BLIST) BListElt (G_InVectors , i) ) ; 
MakeNewTag (Gnll, Gnl2) ; 

for (j=0; j<BListSize (OutList); j++) 
{ 

Ind = BListElt (OutList, j); 

if (SimulateGnlValue (Gnll, (GNL_NODE) BListElt (G_OutputNodesl , Ind), 

i)) 

return (GNL_MEMORY_FULL) ; 
if (SimulateGnlValue (Gnl2, (GNL_NODE) BListElt (G_0utputNodes2 , Ind), 

i) ) 

return (GNL_MEMORY_FULL) ; 

} 

} 

return (GNL_OK) ; 

} 



/* Hash 



/* This hash function gets as parameter the results of simulation */ 
/* by RANDOM_IN_VECTORS_NUM random input vectors in some node and */ 
/* returns unsigned integer value which is the perfect hashing. */ 

/* */ 

KEY_TYPE Hash (Signature) 
BLIST Signature; 

{ 

int i; 

KEY TYPE Result = 0; 



for (i=0; i<BListSize (Signature); i++) 
if (BListElt (Signature, i) ) 
Result += pow (2, i) ; 



return (Result) ; 

} 

/* */ 

/* KeyCmp */ 

/* */ 

int KeyCmp (Ptrl, Ptr2) 
BLIST *Ptrl; 
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BLIST *Ptr2; 

{ 

int i ; 

KEY_TYPE Keyl; 

KEYJTYPE Key2; 

for (i=0; i<BListSize (*Ptrl) ; i++) 

{ 

Keyl = ( KEY__TYPE ) BLi s t E 1 1 (*Ptrl, i) ; 
Key2 = (KEYJTYPE) BListElt (*Ptr2, i) ; 

if (Keyl < Key 2) 
return (-1) ; 

if (Keyl > Key 2) 
return (1) ; 

} 

return (0) ; 

} 



/* 

/* SortNodes 

/* 

GNL_STATUS SortNodes (Gnl, Node) 

GNL Gnl ; 

GNL_N0DE Node; 

{ 

int i ; 

int Status; 

BLIST *KeyPtr; 

KEY_TYPE Keyl; 

BLIST *NodesListPtr; 

if (GnlNodeTag (Node) == GnlTag (Gnl)) 

return (GNL_OK) ; 
SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) == GNL_VARIABLE) ) 
return (GNL_OK) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++> 

if (SortNodes (Gnl, (GNL_NODE) BListElt (GnlNodeSons (Node), i) ) ) 
return (GNL_MEMORY_FULL) ; 

if (!(KeyPtr = (BLIST *)calloc (1, sizeof (BLIST)))) 

return ( GNL__MEM0R Y__FULL ) ; 
if (BListCreateWithSize (BListSize (GnlNodeSignatures (Node) ) , KeyPtr) 

return (GNLJVEEMORY_FULL) ; 
for (i=0; i<BListSize (GnlNodeSignatures (Node)); i++) 

^Keyl == Hash ( (BLIST) BListElt (GnlNodeSignatures (Node), i) ) ; 
BListAddElt (*KeyPtr, ( int ) Keyl); 

} 

if (NodesListPtr = (BLIST *) SkipListFindData (G_PossiblyEquiv, KeyPtr] 
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{ 

if (BListAddElt ( *NodesListPtr , (int)Node)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeEquivList (Node, *NodesListPtr) ; 
BListQuickDelete (KeyPtr) ; 
free (KeyPtr) ; 
return (GNL_OK) ; 

} 

if (! (NodesListPtr = (BLIST * ) calloc (1, sizeof (BLIST) ) ) ) 
return (GNL__MEMORY_FULL) ; 

if (BListCreate (NodesListPtr) ) 

return (GNLJVIEMORY_FULL) ; 
BListAddElt (*NodesListPtr, (int)Node) ; 
SetGnlNodeEquivList (Node, *NodesListPtr) ; 

if (Status = SkipListlnsert (G_PossiblyEquiv, KeyPtr, NodesListPtr) ) 
return (GNL_MEMORY_FXJLL) ; 

return (GNL_OK) ; 

} 

/* 

/* MarkFanOut 

/* 

void MarkFanOut (Node) 
GNL_NODE Node; 

{ 

int i ; 

if (GnlNodeEquivTag (Node) == G_SimulationNum) 
return; 

SetGnlNodeEquivTag (Node, G__SimulationNum) ; 

if (GnlNodeDads (Node)) 

for (i=0; i<BListSize (GnlNodeDads (Node)); i++) 

MarkFanOut ( (GNL__NODE) BListElt (GnlNodeDads (Node), i) ) ; 

} 

/* 

/* MatchlnternalWithBdds 

/* 

GNL_STATUS MatchlnternalWithBdds (RefGnl, ListNodes, 

GnlMayFalse, GnlErrors, GnlBadPatterns) 



GNL 


RefGnl; 


BLIST 


ListNodes; 


BLIST 


GnlMayFalse 


BLIST 


GnlErrors; 


BLIST 


GnlBadPatterns ; 


int 


i; 


int 


j ; 


int 


k; 


int 


Ind; 


GNL_NODE 


OutNodel; 



C-GNLl-199 



gnlec.c 



GNL_NODE OutNode2 ; 

GNL_NODE Nodel; 

GNLJSFODE Node 2 ; 

int Status ; 

int Invert = 0; 

BLIST BadPattern; 

for (i=0; i<BListSize (ListNodes) ; i++) 

{ 

for (j=i+l; j<BListSize (ListNodes) ; 
{ 

Nodel = (GNL_N0DE) BListElt (ListNodes, i) ; 
Node2 = (GNL_NODE) BListElt (ListNodes , j); 

if ( (GnlNodeEquivTag (Nodel) < G_SimulationNum - 1) && 
(GnlNodeEquivTag (Node2) < G_SimulationNum - 1)) 
continue; 

G_NbEquiv+ + ; 

Status = GnlResolveTwoNodes (100000, RefGnl, Nodel, Node2, fclnvert) ; 

if ( (Status >= GNL_EQUT VALENT ) 

(Status <= GNLJ3QUIVALENT_PHASE2) ) 

{ 

fprintf (stderr, "+"); 

if (Invert) 

BListElt (ListNodes, i) = (int)Node2; 

G_EquivFound++ ; 

MarkFanOut ( (GNLJSTODE) BListElt (ListNodes, i) ) ; 
BListDellnsert (ListNodes, j+1) ; 

j--; 

} 

if { (Status GNL_ERROR_DETECTED) && 

(Status <= GNL_ERROR__DETECTED_AT_XOR__BUILD) ) 

{ 

G_Di f f Founds + ; 
/* 

if (Invert == 0) 

{ 

G_Impl Found ++ ; 
MarkFanOut (Nodel) ; 
fprintf (stderr, ">"); 

} 

if (Invert == 1) 
{ 

G_ImplFound++ ; 
MarkFanOut (Node2 ) ; 
fprintf (stderr, "<"); 

} 
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if (Invert == -1) 

fprintf (stderr, "-"); 

*/ 

fprintf (stderr, " - " ) ; 

} 

f (Status <= GNLJJNRESOLVED_AT_EXTRACTION) 

{ 

/* 

if (Invert == 0) 
{ 

G_ImplFound++ ; 
MarkFanOut (Nodel) ; 
fprintf (stderr, "1") ; 

} 

if (Invert == 1) 

{ 

G_ImplFound++ ; 
MarkFanOut (Node2 ) ; 
fprintf (stderr, "r"); 

} 

if (Invert == -1) 

fprintf (stderr, "?"); 

*/ 

fprintf (stderr, "?") ; 

} 



for (k=0; k<BListSize (GnlMayFalse) ; k++) 

{ 

Ind = BListElt (GnlMayFalse, k) ; 

OutModel = (GML__NODE) BListElt (G_OutputNodesl , Ind); 
OutNode2 = (GNL_NODE) BListElt (G_OutputNodes2 , Ind); 

if ( (Status >= GNL_EQUI VALENT ) && 
(Status <= GNL_EQUIVALENT_PHASE2 ) ) 

{ 

if (OutNodel == OutNode2) 

BListDellnsert (GnlMayFalse, k+1) ; 
continue ; 

} 

if (((Nodel == OutNodel) && (Node2 == OutNode2)) || 
((Nodel == OutNode2) && (Node2 == OutNodel))) 

{ 

if (G_BadPatternsFound == 1) 
{ 

if (BListCopyNoEltCr ( (BLIST) BListElt (G__ListBadPatterns , 

BListSize (G__ListBadPat terns) 

&BadPattern) ) 
return ( GNL_MEMORY_FULL ) ; 
BListAddElt (GnlBadPat terns , (int) BadPattern) ; 
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} 



} 

else 

BListAddElt (GnlBadPatterns , G_BadPatternsFound) ; 

if (BListAddElt (GnlErrors, Ind) ) 
return (GNL_MEMORY_FULL) ; 

BListDellnsert (GnlMayFalse , k+1) ; 
continue; 

} 

} 



if (IBListSize (GnlMayFalse)) 
{ 

i = BListSize (ListNodes) ; 
break; 

} 

SetGnlNodeEquivTag (Nodel, G_SimulationNum - 2) ; 
SetGnlNodeEquivTag (Node2 , G_SimulationNum - 2); 

} 

} 

return (GNL_OK) ; 

} 

/* */ 

/* InsertlntoReadyList */ 
/* */ 

GNL_STATUS InsertlntoReadyList (Gnl, ReadyList, Node) 
GNL Gnl ; 

BLIST * ReadyList; 
GNL_NODE Node; 

{ 

int i ; 

BLIST NodesEquivList; 
GNL_NODE FirstNode; 
GNL_MODE Node I ; 

if (GnlNodeTag (Node) == GnlTag (Gnl)) 

return (GNL_OK) ; 
SetGnlNodeTag (Node, GnlTag (Gnl) ) ; 

if ( (GnlNodeOp (Node) — GNL_CONSTANTE ) || 
(GnlNodeOp (Node) == GNL_VARIABLE) ) 
return (GNL_OK) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

if (InsertlntoReadyList (Gnl, ReadyList, (GNL_NODE) BListElt (GnlNodeSons 
(Node), i))) 

return (GNL_MEMORY_FULL) ; 

NodesEquivList = GnlNodeEquivList (Node) ; 
FirstNode = (GNL_NODE) BListElt (NodesEquivList, 0) ; 

if (GnlNodeTagBdd (FirstNode) == GnlTagBdd (Gnl)) 
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return (GNL_OK) ; 
SetGnlNodeTagBdd (FirstNode, GnlTagBdd (Gnl) ) ; 

#ifdef PRINT_SIMULATION_BUCKETS 

if (BListSize (NodesEquivList ) > 1) 

{ 

fprintf (stderr, "List of %d nodes:\n", BListSize (NodesEquivList)) 
for (i=0; i<BListSize (NodesEquivList); i + + ) 

{ 

Nodel = (GNL_NODE) BListElt (NodesEquivList, i) ; 
fprintf (stderr, " %s n , (GnlNodeVar (Nodel) ? 

GnlVarName (GnlNodeVar (Nodel)) : "Novar")); 

} 

fprintf (stderr, "\n"); 

} 

#endif 

if (BListSize (NodesEquivList) < 2) 
return (GNL_OK) ; 

if (BListSize (NodesEquivList) > MAX_CHECKED_LIST_SIZE) 

{ 

for (i=0; i<BListSize (NodesEquivList) ; i++) 

SetGnlNodeEquivTag ( (GNL_N0DE) BListElt (NodesEquivList, i) , 
G_SimulationNum) ; 

return (GNL_OK) ; 

} 

return (BListAddElt (ReadyList [GnlNodeHeight (FirstNode) -1] , 
(int) NodesEquivList) ) ; 

} 

/* 

/ * EquivCheckGnlWithRandomSimulation 

/* 

GNL_STATUS EquivCheckGnlWithRandomSimulation (Gnll, Gnl2, GnlMayFalse, 

GnlErrors , GnlBadPatt erns ) 

GNL Gnll; 
GNL Gnl2; 

BL1ST GnlMayFalse; 
BLIST GnlErrors ; 

BLIST GnlBadPatt ems ; 

{ 

int i ; 

int j ; 

int NbUnchange = 1; 

int Ind; 
GNL_NODE Outl; 
GNLJJODE 0ut2; 
KEY_TYPE *CurrKey; 
BLIST *CurrNodesListPtr; 
BLIST CurrSignaturel ; 
BLIST CurrSignature2 ; 
BLIST NewBadPattern; 
SKIPLIST PrevPossiblyEquiv; 
int MaxHeight; 
GNL_NODE OutNodel; 
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BLIST CurrList; 
BLIST *ReadyList; 



{ 

G_S imu 1 a t i onNum+ + ; 

G_NbEquiv = GJDiff Found = G_EquivFound = 0; 

if (PrepareRandomlnputVectors (GnlRe levant Inputs (Gnll) ) ) 
return ( GNL_MEMORY_FULL) ; 

if (RandomSimulation (Gnll, Gnl2, GnlMayFalse) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlMayFalse); i++) 

{ 

Ind = BListElt (GnlMayFalse, i) ; 

Outl = (GNL_NODE) BListElt (G_OutputNodesl , Ind); 

Out2 = (GNL_NODE) BListElt (G_OutputNodes2 , Ind) ; 

CurrSignaturel = (BLIST) BListElt (GnlNodeSignatures (Outl), 
G_SimulationNum-l) ; 

CurrSignature2 = (BLIST) BListElt (GnlNodeSignatures (Out2), 
G_SimulationNum-l) ; 

if (Hash (CurrSignaturel) 1= Hash (CurrSignature2) ) 

{ 

fprintf (stderr, " o [%s] Error Detected - different signatures 

! ! ! \n" , 

GnlVarName ( (GNL_VAR) BListElt (G__Outputsl , Ind) ) ) ; 
if (BListAddElt (GnlErrors, Ind)) 

return (GNL_MEMORY_FULL) ; 
for (j=0; j<BListSize (CurrSignaturel); j++) 

if (BListElt (CurrSignaturel, j) != BListElt (CurrSignature2 , j)) 
break; 

if (BListCopyNoEltCr ( (BLIST) BListElt (G_InVectors , j), 
&NewBadPattern) ) 

return (GNL_MEMORY_FULL) ; 
BListAddElt (GnlBadPatterns , NewBadPattern) ; 
BListDellnsert (GnlMayFalse, i+1) ; 
i--; 

} 

} 

BListDelete (&G_InVectors , BListQuickDelete) ; 

if ( !BListSize (GnlMayFalse) ) 
return (GNL_OK) ; 

PrevPossiblyEquiv = G_PossiblyEquiv; 

if (SkipListCreate (&G_PossiblyEquiv, KeyCmp) ) 
return (GNL_MEMORY_FULL) ; 

MakeNewTag (Gnll, Gnl2) ; 

for (i=0; i<BListSize (GnlMayFalse); i++) 

{ 

Ind = BListElt (GnlMayFalse, i) ; 
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if (SortNodes {Gnll, (GNL_NODE) BListElt (G_OutputNodesl , Ind) ) ) 

return ( GNL_MEMORY_FULL) ; 
if (SortNodes (Gnll, (GNL_NODE) BListElt (G_0utputNodes2 , Ind))) 

return ( GNL_MEMORY_FULL ) ; 

} 

if ( (G_SimulationNum > 1) && 

(SkipListSize (G__PossiblyEquiv) == SkipListSize (PrevPossiblyEquiv) ) ) 

NbUnchange++ ; 
else 

NbUnchange = 1; 

MakeNewTag (Gnll, Gnl2) ; 
MaxHeight = 0; 

for (i=0; i<BListSize (GnlMay False) ; i++) 

{ 

Ind = BListElt (GnlMayFalse, i) ; 

OutNodel = (GNLJNODE) BListElt (G_OutputNodesl , Ind); 
ComputeNodesHeight (Gnll, OutNodel) ; 
if (MaxHeight < GnlNodeHeight (OutNodel) ) 
MaxHeight = GnlNodeHeight (OutNodel) ; 

OutNodel = (GNL_NODE) BListElt ( G_Out put Node s2 , Ind) ; 
ComputeNodesHeight (Gnl2, OutNodel) ; 
if (MaxHeight < GnlNodeHeight (OutNodel)) 
MaxHeight = GnlNodeHeight (OutNodel) ; 

} 

if (CreateAllLayers (MaxHeight, &ReadyList) ) 
return (GNL_MEMORY_FULL) ; 

MakeNewTag (Gnll, Gnl2) ; 
MakeNewTagBdd (Gnll, Gnl2) ; 

for (i=0; i<BListSize (GnlMayFalse) ; i++) 

{ 

Ind = BListElt (GnlMayFalse, i) ; 

OutNodel = (GNL_NODE) BListElt (G_OutputNodesl , Ind) ; 
if (InsertlntoReadyList (Gnll, ReadyList, OutNodel)) 

return (GNL__MEMORY_FULL) ; 
OutNodel = (GNL_NODE) BListElt (G_OutputNodes2 , Ind) ; 
if (InsertlntoReadyList (Gnl2, ReadyList, OutNodel)) 

return (GNL_MEMORY__FULL) ; 

} 

fprintf (stderr, ?, \n") ; 
for (i=0; i<MaxHeight; i++) 

{ 

for (j=0; j<BListSize (ReadyList [i] ) ; j++) 
{ 

CurrList = (BLIST) BListElt (ReadyList [i] , j); 
if (MatchlnternalWithBdds (Gnll, CurrList, 

GnlMayFalse, GnlErrors, GnlBadPatterns) ) 
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return ( GNL _MEMOR Y_FULL ) ; 

if ( IBListSize (GnlMayFalse) ) 

{ 

i = MaxHeight; 
break; 

} 

} 

} 

fprintf (stderr, "\n") ; 

for (i=0; i<MaxHeight ; i++) 

BListQuickDelete (& (ReadyList [i] ) ) ; 

free (ReadyList) ; 

fprintf (stderr, 

"\n Simulation %d: size - %d, checked - %d, equiv. - %d, 

diff. - %d\n", 

G_SimulationNum, SkipListSize (G_PossiblyEquiv) , 
G_NbEquiv, G_EquivFound, G_Diff Found) ; 

^SkipListDelete (&PrevPossiblyEquiv, BListQuickDelete, BListQuickDelete) ; 

while (BListSize (GnlMayFalse) && 
(G_EquivFound | | 
(G_ListBadPatterns && BListSize (G__ListBadPatterns) ) | | 
(NbUnchange < 10) ) ) ; 

SkipListDelete (&GJPossiblyEquiv, BListQuickDelete, BListQuickDelete) ; 
return (GNL_OK) ; 

} 

#endif 

/* #/ 

/* PrintStatistics */ 

/* ie/ 

void PrintStatistics (Num_Equiv, Num_Err / Num_Unproved) 
i nt Num_Equ i v ; 

int Num_Err; 
int Num_Unp roved; 



{ 



} 



fprintf (stderr, " Nb Functions proved equivalent = %d\n", Num_Equiv) ; 

fprintf (stderr, " Nb Functions proved non- equivalent = %d\n n , NumJErr) ; 

fprintf (stderr, " Nb Functions unproved = %d\n" , Num_Unp roved) ; 

fprintf (stderr, " MaxNb Nodes = %d\n", G_GnlMaxBddNode) ; 

fprintf (stderr, " Nb CutVar = %d\n", G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , G_BridgeNodes) ; 

fprintf (stderr, " Nb InvBridge Nodes = %d\n" , G_InvBridgeNodes) ; 

fprintf (stderr, "\n") ; 



/* 

/* PrintBadPattern */ 

/* ic/ 
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void PrintBadPattern (Pattern) 
int Pattern; 

{ 

int i ; 

BLIST BadPattern; 

GNL_CONS TRAINT ConstrainI; 

GNL_NODE Nodel; 

int Value; 



fprintf (stderr, "["); 
if (Pattern == -1) 

fprintf (stderr, " Always different!"); 
else 

{ 

BadPattern = (BLIST) Pattern; 

ConstrainI = (GNL_CONS TRAINT) BListElt (BadPattern, 0) ; 
Nodel = GnlConstraintNode (ConstrainI) ; 
Value = GnlConstraintValue (ConstrainI) ; 
fprintf (stderr, 11 %s = %c \n" , 

GnlVarName (GnlNodeVar (Nodel)), VALUE (Value)); 
for (i=l; i<BListSize (BadPattern) -1 ; i++) 
{ 

ConstrainI = (GNL_CONS TRAINT) BListElt (BadPattern, i) ; 
Nodel = GnlConstraintNode (ConstrainI) ; 
Value = GnlConstraintValue (ConstrainI) ; 
fprintf (stderr, 

%s = %c \n", 

GnlVarName (GnlNodeVar (Nodel)), VALUE (Value)); 

} 

ConstrainI = (GNL_CONSTRAINT) BListElt (BadPattern, i) ; 

Nodel = GnlConstraintNode (ConstrainI) ; 

Value = GnlConstraintValue (ConstrainI) ; 

fprintf (stderr, 

" %s = %c ] 

GnlVarName (GnlNodeVar (Nodel)), VALUE (Value)); 

} 

} 



/* */ 

/* PrintResults */ 

/* */ 

void PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns) 
GNL Gnll; 
GNL Gnl2; 
BLIST OutMayFalse; 
BLIST OutErrors; 
BLIST ListBadPatterns ; 

{ 

int i ; 

int Ind; 

int NfaMayFalse = BListSize (OutMayFalse) ; 

int NbErrors = BListSize (OutErrors) ; 

GNL JSTODE Ou tNode 1 ; 

GNL_NODE OutNode2 ; 

char *Namel; 
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char *Name2 ; 

fprintf (stderr, "\n") ; 

f print f (stderr, " Output (s) proved different: %d\n" / NbErrors) ; 

fprintf (stderr, " \n ?, ) ; 

for (i=0; i<NbErrors; i++) 

{ 

Ind = BListElt (OutErrors, i) ; 

Namel = GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind)); 

Name2 = GnlVarName ( (GNL_VAR) BListElt (G_0utputs2, Ind)); 

fprintf (stderr, "\n <%s> != <%s>", Namel, Name2) ; 

if (ListBadPatterns && BListElt (ListBadPatterns , i) ) 

{ 

fprintf (stderr, "\n Counter-Example Vector = "); 

PrintBadPattern (BListElt (ListBadPatterns, i) ) ; 

if (BListElt (ListBadPatterns, i) != -1) 

{ 

OutNodel = (GNL_NODE) BListElt (G_OutputNodesl , Ind); 
0utNode2 = (GNL_NODE) BListElt (G_OutputNodes2 , Ind) ; 
MakeNewTag (Gnll, Gnl2) ; 
Resetlnputs (Gnll) ; 

Setlnputs ( (BLIST) BListElt (ListBadPatterns, i) ) ; 
SimulateGnlValue (Gnll, OutNodel, -1) ; 

fprintf (stderr, "\n Function: %s = %c" , Namel, 

VALUE (GnlNode Value (OutNodel) ) ) ; 

SimulateGnlValue (Gnl2, OutNode2 , -1) ; 

fprintf (stderr, " \n Function: %s = %c", Name2 , 

VALUE (GnlNode Value (0utNode2) ) ) ; 

} 

} 

fprintf (stderr, "\n"); 

} 

fprintf (stderr, "\n"); 

fprintf (stderr, " Output (s) not proved: %d\n" / NbMayFalse) ; 

fprintf (stderr, " \n") ; 

for (i=0; i<NbMayFalse; i++) 

{ 

Ind = BListElt (OutMayFalse , i) ; 

Namel = GnlVarName ( (GNL_VAR) BListElt (G_Outputsl, Ind) ) ; 

Name2 = GnlVarName ( (GNL_VAR) BListElt (G_0utputs2, Ind) ) ; 

fprintf (stderr, "\n <%s> != <%s>", Namel, Name2) ; 

fprintf (stderr, "\n"); 

} 

BListDelete ( &G_ListBadPat terns , BListQuicJcDelete) ; 

FreeHookFields (Gnll, Gnl2) ; 

BListQuickDelete (&G_0utputsl) ; 
BListQuickDelete (&G_0utputs2 ) ; 
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BListQuickDelete (&G_OutputNodesl) ; 
BListQuickDelete (&G_0utputNodes2 ) ; 

BListQuickDelete (&Gnl Re levant Inputs (Gnll) ) 

BListQuickDelete (ScGnlRelevant Inputs (Gnl2) ) 

BListQuickDelete (&GnlVirtualOutputs (Gnll) ) 

BListQuickDelete (&GnlVirtualOutputs (Gnl2) ) 
free (GnlHook (Gnll) ) ; 
free (GnlHook (Gnl2) ) ; 



/* 

/* ResetNodesFields 



-*/ 



/* 

void ResetNodesFields (Node) 
GNL NODE Node; 



int 



1; 



if (GnlNodeTag (Node) G_Tag) 
return; 

SetGnlNodeTag (Node, GJTag) ; 

SetGnlNode Value (Node, 0) ; 
SetGnlNodeTagBdd (Node, 0) ; 
SetGnlNodeEquivTag (Node, 0) ; 

if ( (GnlNodeOp (Node) == GNL_CONSTANTE) | | 
(GnlNodeOp (Node) == GNL_VARIABLE) ) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

ResetNodesFields ( (GNL NODE) BListElt (GnlNodeSons (Node) , i) ) ; 



/* 

/* GnlEquivCheckGnl 
/* 

GNL_STATUS GnlEquivCheckGnl (Gnll, Gnl2, ListAssocIn, ListAssocOut , 

MaxNbNodes, NbMayErrors , GnlMayErrors , 
NbErrors , GnlErrors , GnlBadPatterns ) 

GNL Gnll; 
GNL Gnl2; 
BLIST ListAssocIn; 
BLIST ListAssocOut ; 
int MaxNbNodes; 
int *NbMayErrors ; 

BLIST * GnlMayErrors ; 
int *NbErrors; 
BLIST *GnlErrors; 
BLIST *GnlBadPatterns ; 



■*/ 
■*/ 



7 



int 

int 

int 

BLIST 

int 



i; 

Nbln; 
NbOut ; 
NewList; 

NbMay False; 
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int NbEquiv; 

BLIST OutMayFalse = NULL; 
int NbCurrentError ; 

BLIST OutErrors = NULL; 

BLIST ListBadPatterns = NULL; /* BLIST of BLISTs of GNL_NODEs 
void *Ptr; 



fprintf (stderr, "\n ,f ) ; 

fprintf (stderr, " o Verification started ...\n n ); 
if (BListSize (ListAssocIn) % 2) 

{ 

fprintf (stderr, " CMPGNL - ERROR : net lists have different number of 
inputs\n ,r ) ; 

return (GNL_MEMORY_FULL) ; 

} 

if {BListSize (ListAssocOut ) % 2) 
{ 

fprintf (stderr, " CMPGNL -ERROR : netlists have different number of 
output s\n" ) ; 

return ( GNL_MEMORY_FULL ) ; 

} 

Nbln = BListSize (ListAssocIn) / 2; 
NbOut = BListSize (ListAssocOut) / 2; 

if ( (Ptr = calloc (1, sizeof (ADD_GNL_REC) ) ) == NULL) 
{ 

fprintf (stderr, " CMPGNL -ERROR : cannot allocate enough memory\n M ); 
return ( GNL_MEMORY_FULL ) ; 

} 

SetGnlHook (Gnll, Ptr) ; 

if ((Ptr = calloc (1, sizeof (ADD_GNL_REC) ) ) == NULL) 
{ 

fprintf (stderr, " CMPGNL- ERROR : cannot allocate enough memory\n" ) ; 
return (GNL_MEMORYJFULL) ; 

} 

SetGnlHook (Gnl2, Ptr) ; 

if (BListCreateWithSize (Nbln, &NewList) ) 

{ 

fprintf (stderr, " CMPGNL- ERROR : cannot allocate enough memory\n") ; 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlRelevantlnputs (Gnll, NewList) ; 

if (BListCreateWithSize (Nbln, &NewList) ) 
{ 

fprintf (stderr, "CMPGNL -ERROR : cannot allocate enough memory\n"); 
return (GNL__MEMORY_FULL) ; 

} 

SetGnlRelevantlnputs (Gnl2, NewList) ; 

if (BListCreateWithSize (NbOut, &NewList) ) 
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{ 



fprintf (stderr, "CMPGNL- ERROR: cannot allocate enough memory\n"); 
return ( GNL__MEMORY_FULL ) ; 

} 

SetGnlVirtualOutputs {Gnll, NewList) ; 

if (BListCreateWithSize (NbOut, &NewList) ) 
{ 

fprintf {stderr, " CMPGNL -ERROR : cannot allocate enough memory\n ,! ); 
return ( GNL_MEMORY_FULL ) ; 

} 

SetGnlVirtualOutputs (Gnl2, NewList) ; 

if (BListCreateWithSize (NbOut, &G_OutputNodesl) ) 
{ 

fprintf (stderr, " CMPGNL -ERROR : cannot allocate enough memory\n") ; 
return (GNL_MEMORY_FULL) ; 

} 

if (BListCreateWithSize (NbOut, &G__OutputNodes2 ) ) 
{ 

fprintf (stderr, " CMPGNL - ERROR : cannot allocate enough memory\n n ); 
return ( GNL_MEMORY__FULL ) ; 

} 

for (i=0; i<BListSize (ListAssocOut ) ; i++) 

SetGnlVarDir ( (GNL_VAR) BListElt (ListAssocOut, i) , GNL VAR OUTPUT) ; 



for (i=0; i<BListSize (ListAssocIn) ; i++) 

SetGnlVarDir ( (GNLJVAR) BListElt (ListAssocIn, i) , GNL_VAR_ INPUT) ; 

for (i=0; i<NbIn; i++) 



1) ) ; 



for (i=0; i<NbOut; i++) 



l) ) ; 



if 



if 



BListAddElt (GnlRe levant Inputs (Gnll), BListElt (ListAssocIn, 2*i) ) ; 
BListAddElt (GnlRe levant Inputs (Gnl2) , BListElt (ListAssocIn, 2*i + 



B L i s t AddE It (GnlVirtualOutputs (Gnll) 
BListAddElt (GnlVirtualOutputs (Gnl2) 



BListElt (ListAssocOut, 2*i) ) 
BListElt (ListAssocOut, 2*i + 



(BListCopyNoEltCr (GnlVirtualOutputs (Gnll) , &G_Outputsl) ) 

fprintf (stderr, " CMPGNL- ERROR : cannot allocate enough memory\n" ) ; 
return (GNL MEMORY FULL) / 



(BListCopyNoEltCr (GnlVirtualOutputs (Gnl2) , &G_0utputs2) ) 

fprintf (stderr, " CMPGNL- ERROR : cannot allocate enough memory\n" ) ; 
return (GNL MEMORY FULL) ; 
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/* 

for (i=0; i<BListSize (Gnllnputs (Gnll) ) ; i++) 

SetGnlVarDads ( (GNL_VAR) BListElt (Gnllnputs (Gnll), i) , NULL) ; 

for (i=0; i<BListSize (Gnllnputs (Gnl2) ) ; i++) 

SetGnlVarDads ( (GNL_VAR) BListElt (Gnllnputs (Gnl2) , i) , NULL) ; 

for (i=0; i<BListSize (GnlLocals (Gnll)); i++) 

SetGnlVarDads ( (GNL_VAR) BListElt (GnlLocals (Gnll), i) , NULL); 

for (i=0; i<BListSize (GnlLocals (Gnl2) ) / i++) 

SetGnlVarDads ( (GNL_VAR) BListElt (GnlLocals (Gnl2) , i) , NULL); 

for (i=0; i<BListSize (GnlOutputs (Gnll)); i++) 

SetGnlVarDads ( (GNLJ/AR) BListElt (GnlOutputs (Gnll), i) , NULL); 

for (i=0; i<BListSize (GnlOutputs (Gnl2) ) ; i++) 

SetGnlVarDads ( (GNL_VAR) BListElt (GnlOutputs (Gnl2) , i) , NULL); 
/* 

/* We remove all local variables' nodes, because 

/* they can affect drastically equivalence checking performances, 
fprintf (stderr, "\n") ; 

fprintf (stderr, " o Preprocessing ..An"); 

if (RemoveLocals (Gnll, G_OutputNodesl) ) 

return (GNL_MEMORY_FULL) ; 
if (RemoveLocals (Gnl2, G_OutputNodes2) ) 

return { GNL_MEMORY_FULL ) ; 

#ifdef SPLITTING_NODES 

for (i=0; i<BListSize (G_OutputNodesl) ; i++) 
{ 

ComputeMaxInput ( (GNL_NODE) BListElt (G_OutputNodesl , i) ) ; 
ComputeMaxlnput ( (GNL_NODE) BListElt (G_0utputNodes2 , i) ) ; 

} 



G_Tag++; 

if (SplitNodesInGnl (Gnll, G_OutputNodesl) ) 

return ( GNL_MEM0RY__FULL ) ; 
if (SplitNodesInGnl (Gnl2, G_0utputNodes2 ) ) 

return (GNL__MEMORY_FULL) ; 

for (i=0; i<BListSize (G_OutputNodesl) ; i++) 
{ 

ResetHookFields ( (GNL_NODE) BListElt ( G_Out put Nodes 1 , i) ) ; 
ResetHookFields ( (GNL__NODE) BListElt (G__0utputNodes2 , i) ) ; 

} 

#endif 



/* First of all we create the Hook fields of all Vars and Nodes 
if (CreateNodesHookFields (Gnll, Gnl2) ) 
{ 

fprintf (stderr, "CMPGNL- ERROR: cannot allocate enough meraory\n" ) ; 
return (GML_MEMORY_FULL) ; 

} 
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if (CreateVarsHookFields (Grill)) 
{ 

fprintf (stderr, " CMPGNL - ERROR : cannot allocate enough memory\n"); 
return (GNL_MEMORY_FULL) ; 

} 

if (CreateVarsHookFields (Gnl2)) 

{ 

fprintf (stderr, "CMPGNL -ERROR: cannot allocate enough memory\n" ) ; 
return (GNL_MEMORY_FULL) ; 

} 

/* Computing the Dads of each Node in the Netlists */ 
if (ComputeDadsInGnl (Gnll, Gnl2) ) 
return { GNL_MEM0R Y_FULL ) ; 

BListQuickDelete (&Gnl Functions (Gnll)) ; 
BListQuickDelete ( &Gnl Functions (Gnl2) ) ; 

/* We bind the primary inputs of the two netlists */ 
if (BindPrimarylnputs (Gnll, Gnl2) ) 
return ( GNL_MEMORY_FULL ) ; 

#ifdef STRUCTURAL_CHECK 

/* First we try to merge structurally the maximum of local vars and */ 
/* nodes in the two netlists. */ 
fprintf (stderr, "\n") ; 

fprintf (stderr, " o Structural checking . ,.\n ,f ); 

if (EquivCheckGnlWithStructural (Gnll, Gnl2, &OutMayFalse) ) 
return (GNL_MEMORY_FULL) ; 

/* Actually all the outputs are structurally equivalent so the job is*/ 
/* already finished. */ 
if ( ! (NbMayFalse ~ BListSize (OutMayFalse) ) ) 
{ 

*NbErrors = *NbMayErrors = 0; 

*GnlErrors = *GnlMayErrors = *GnlBadPat terns = NULL; 
fprintf (stderr, "\n"); 

fprintf (stderr, " Nb Functions proved equivalent = %d\n n , NbOut) ; 

fprintf (stderr, " Nb Functions proved non- equivalent = %d\n", 0) ; 

fprintf (stderr, " Nb Functions unproved = %d\n" , 0) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , G_BridgeNodes) ; 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPat terns) ; 
return (GNL_OK) ; 

} 



G_Tag++ ; 



for (i=0; i<BListSize (G_OutputNodesl) ; i++) 

ResetNodesFields ( (GNL_NODE) BListElt ( G_Out put Nodes 1 , i) ) ; 

for (i=0; i<BListSize (G_0utputNodes2) ; i++) 

ResetNodesFields ( (GNL_N0DE) BListElt (G_0utputNodes2 , i) ) ; 

NbEquiv = NbOut - NbMayFalse; 
fprintf (stderr, "\n") ; 

fprintf (stderr, " Nb Functions proved equivalent = %d\n" , NbEquiv); 
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fprintf (stderr, " Nb Functions unproved = %d\n" , NbMayFalse) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n", G_BridgeNodes) ; 

#else 

if (BListCreateWithSize (BListSize (GnlVirtualOutputs (Gnll) ) , 
^OutMayFalse) ) 

return ( GNL__MEMORY_FULL ) ; 
for (i=0; i<BListSize (GnlVirtualOutputs (Gnll)); i++) 
BListAddElt (OutMayFalse, i) ; 
#endif 

/* Now we try to prove the equivalence of the rest of the Outputs by */ 
/* building their respective BDDs . */ 

/* Bottom-up construction of local bdds. */ 
fprintf (stderr, "\n"); 

fprintf (stderr, " o Local -BDD checking . ,.\n"); 
G_GnlMaxBddNode = MaxNbNodes; 

if (GnlBuildBddFct (Gnll, Gnl2, OutMayFalse) ) 
return (GNL_MEMORY__FULL) ; 

GnlExtractPendingFunctions (Gnll, Gnl2, OutMayFalse) ; 

/* Actually all the outputs are functionally equivalent so the job is*/ 
/* already finished. */ 
if (BListSize (OutMayFalse) == 0) 

{ 

*NbErrors = *NbMayErrors = 0; 

*GnlErrors = *GnlMayErrors = *GnlBadPatterns = NULL; 
fprintf (stderr, »\n"); 

fprintf (stderr, " Nb Functions proved equivalent = %d\n", NbOut) 

fprintf (stderr, " Nb Functions proved non- equivalent = %d\n", 0) 

fprintf (stderr, " Nb Functions unproved = %d\n" , 0); 

fprintf (stderr, " MaxNb Nodes = %d\n" , Gj3nlMaxBddNode) ; 

fprintf (stderr, " Nb CutVar = %d\n M , G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , G_BridgeNodes) ; 

fprintf (stderr, " Nb InvBridge Nodes = %d\n" , G_InvBridgeNodes) ; 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns) ; 
return (GNL_OK) ; 

} 

NbEquiv = NbOut - BListSize (OutMayFalse) ; 
fprintf (stderr, "\n") ; 

fprintf (stderr, " Nb Functions proved equivalent = %d\n ,r , NbEquiv); 

fprintf (stderr, " Nb Functions proved non -equivalent = %d\n n , 0) ; 

fprintf (stderr, " Nb Functions unproved = %d\n" , BListSize 

(OutMayFalse) ) ; 

fprintf (stderr, " MaxNbNodes = %d\n", G_GnlMaxBddNode) ; 

fprintf (stderr, " Nb CutVar = %d\n" , G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , G_BridgeNodes) ; 
fprintf (stderr, " Nb InvBridge Nodes = %d\n" , G_InvBridgeNodes) ; 

if (BListCreateWithSize (BListSize (OutMayFalse), ScOutErrors) ) 

return (GNL_MEMORY__FULL) ; 
if (BListCreateWithSize (BListSize (OutMayFalse) , &ListBadPatterns) ) 

return (GNL MEMORY FULL) ; 



C-GNL1-214 



gnlec.c 



/* Verify the pending outputs by composing the root bdd with */ 
/* break bdd variables. */ 
#ifdef FND 

fprintf (stderr, M \n M ); 

fprintf (stderr, " o False Negative Detection . ..\n"); 
if (GnlResolveFalseNegative (Gnll, Gnl2 , OutMayFalse, OutErrors, 
ListBadPatterns) ) 

return (GNL_MEMORY__FULL) ; 

NbMayFalse = BListSize (OutMayFalse) ; 

NbEquiv = NbOut - NbMayFalse - BListSize (OutErrors) ; 

if (NbMayFalse == 0) 
{ 

*NbMayErrors = 0 ; 

*NbErrors - BListSize (OutErrors) ; 
*GnlMayErrors = NULL; 
*GnlErrors = OutErrors; 
*GnlBadPatterns = ListBadPatterns; 
fprintf (stderr, "\n") ; 

fprintf (stderr, " Nb Functions proved equivalent = %d\n n , 

NbEquiv) ; 

fprintf (stderr, " Nb Functions proved non- equivalent = %d\n", 

*NbErrors) ; 

fprintf (stderr, " Nb Functions unproved = %d\n" , 0) ; 

fprintf (stderr, " MaxNb Nodes = %d\n'\ G_GnlMaxBddNode ) ; 

fprintf (stderr, " Nb CutVar = %d\n" , G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , G__BridgeNodes) ; 

fprintf (stderr, " Nb InvBridge Nodes = %d\n" , G_InvBridgeNodes) 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns); 

return (GNL_OK) ; 

} 

fprintf (stderr, H \n"); 

fprintf (stderr, " Nb Functions proved equivalent = %d\n", NbEquiv) 

fprintf (stderr, " Nb Functions proved non- equivalent = %d\n", 

BListSize (OutErrors) ) ; 

fprintf (stderr, " Nb Functions unproved = %d\n" , BListSize 

(OutMayFalse) ) ; 

fprintf (stderr, " MaxNb Nodes = %d\n" , G_GnlMaxBddNode) ; 

fprintf (stderr, " Nb CutVar = %d\n n , G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n", G_BridgeNodes) ; 

fprintf (stderr, " Nb InvBridge Nodes = %d\n M , G_InvBridgeNodes) ; 

#endif 

#ifdef RANDOM_S IMULAT I ON 

/* If the user did not ask to ignore random simulation we call it */ 
if ( ! GnlEnvIgnoreRandomSim () ) 

{ 

/* Verify the pending outputs by random simulation, 
fprintf (stderr, M \n") ; 

fprintf (stderr, " o Random Simulation . ..\n"); 
if (EquivCheckGnlWithRandomSimulation (Gnll, Gnl2, OutMayFalse, 

OutErrors, ListBadPatterns)) 

{ 

fprintf (stderr, " Failed - cannot allocate enough memory\n" 
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} 



*GnlErrors = OutErrors; 
*GnlMayErrors = OutMayFalse ; 
*GnlBadPatterns = ListBadPatterns; 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns) 
return (GNL OK) ; 



NbMayFalse = BListSize (OutMayFalse) ; 

NbEquiv = NbOut - NbMayFalse - BListSize (OutErrors) ; 

/* Actually all the outputs are structurally equivalent so the job is 
/* already finished. */ 
if (NbMayFalse 0) 

{ 

*NbMayErrors = 0; 

*NbErrors = BListSize (OutErrors) ; 
*GnlMayErrors = NULL; 
*GnlErrors = OutErrors; 
*GnlBadPatterns = ListBadPatterns; 
fprintf (stderr, "\n") ; 

fprintf (stderr, " Nb Functions proved equivalent = %d\n", 

NbEquiv) ; 

fprintf (stderr, » Nb Functions proved non-equivalent = %d\n" , 

*NbErrors) ; 

fprintf (stderr, " Nb Functions unproved = %d\n", 0) ; 

fprintf (stderr, » MaxNb Nodes = %d\n" , G_GnlMaxBddNode ) ; 

fprintf (stderr, " Nb CutVar = %d\n", G_NbCutVar) ; 

fprintf (stderr, » Nb Bridge Nodes = %d\n", G_BridgeNodes) ; 

fprintf (stderr, » Nb InvBridge Nodes = %d\n", 

G_InvBridgeNodes) ; 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns); 
return (GNL_OK) ; 

} 

fprintf (stderr, "\n"); 

fprintf (stderr, " Nb Functions proved equivalent = %d\n", 
NbEquiv) ; 

fprintf (stderr, " Nb Functions proved non-equivalent = %d\n", 

BListSize (OutErrors) ) ; 

fprintf (stderr, " Nb Functions unproved = %d\n", NbMayFalse); 

fprintf (stderr, " MaxNb Nodes = %d\n", G_GnlMaxBddNode) ; 

fprintf (stderr, " Nb CutVar = %d\n", G_NbCutVar) ; 

fprintf (stderr, " Nb Bridge Nodes = %d\n" , GJBridgeNodes) ; 

fprintf (stderr, " Nb InvBridge Nodes = %d\n", G_InvBridgeNodes) ; 

#ifdef FND_2 

fprintf (stderr, M \n n ); 

fprintf (stderr, » o Final False Negative Detection ...\n"); 
if (GnlResolveFalseNegative (Gnll, Gnl2, OutMayFalse, OutErrors, 
ListBadPatterns) ) 

return ( GNL_MEMORY_FULL ) ; 

NbMayFalse = BListSize (OutMayFalse) ; 

NbEquiv = NbOut - NbMayFalse - BListSize (OutErrors) ; 
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fprintf (stderr, n \n n ); 

fprintf (stderr, » Nb Functions proved equivalent = %d\n n , 

NbEquiv) ; 

fprintf (stderr, » Nb Functions proved non- equivalent = %d\n" , 

BListSize (OutErrors) ) ; 



fprintf (stderr, " 

(OutMayFalse) ) ; 

fprintf (stderr, " 

fprintf (stderr, " 

fprintf (stderr, n 

fprintf (stderr, " 

#endif 

} 

#endif 



Nb Functions unproved = %d\n" / BListSize 

MaxNb Nodes = %d\n\ G_GnlMaxBddNode ) ; 

Nb CutVar = %d\n n , G_NbCutVar) ; 

Nb Bridge Nodes = %d\n" , G__BridgeNodes) ; 

Nb InvBridge Nodes = %d\n n , G_InvBridgeNodes) ,- 



*GnlErrors = OutErrors; 
*GnlMayErrors = OutMayFalse; 
*GnlBadPatterns = ListBadPatterns ; 

PrintResults (Gnll, Gnl2, OutMayFalse, OutErrors, ListBadPatterns); 
return (GNL OK) ; 



EOF 
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*/ 






File: 


gnlec .h 






*/ 


Version: 


1.1 




*/ 




Documentation : 




*/ 


*/ 





/* 
/* 
/* 
/* 
/* 
/* 
/* 

#ifndef EC_H 
#define EC_H 

#define VALUE (v) ( (v) == -1 ? ? u' : ( (v) == 0 ? • 0' : '1')) 

ttdefine GNL_NO_VAR (char) 0x00 

#define GNL_VAR_GNL1 (char)OxOF 

#define GNL_VAR_GNL2 (char) OxFO 

#define GNL_VAR_BOTH (char) OxFF 

#define GNL_POLAR_NONE (char) 0x00 
#define GNL_POLAR_POS (char) OxOF 
#define GNL_POLAR_INV (char) OxFO 

typedef unsigned long Ulong64; 
typedef Uint32 KEY_TYPE; 



/* , 

/* Info stored on the Bdd node structure. */ 

/* , 

typedef struct BDD_REF_INFO_STRUCT 

{ 

GNL_NODE PosNode; /* Reference GNL_NODE of the Bdd for a */ 

/* positive edge. */ 

GNL_NODE NegNode; /* Reference GNL_NODE of the Bdd for a */ 

/* negative edge. */ 

} 

BDD_REF_INFO_REC , *BDD_REF_INFO ; 

#define GnlBddPosRefNode (b) ( ( (BDD_REF_INFO) (b) ->Hook) ->PosNode) 

#define SetGnlBddPosRefNode (b, 1 ) ( ( (BDD_REF_INFO) (b) ->Hook) ->PosNode - 1) 

#def ine GnlBddlnvRefNode <b) ( ( (BDD_REF_INFO) (b) ->Hook) ->NegNode) 
#define SetGnlBddlnvRefNode (b, 1) ( ( (BDD_REF_INFO) (b) ->Hook) ->NegNode = 1) 

/* , 

/* ADD__GNL__VAR_STRUCT */ 

/* , 

typedef struct ADD_GNL_VAR_S TRUCT 

{ 

int TagBdd; 

BDD Bdd; /* Bdd associated to this VAR */ 

int Height; 

} 

ADD_GNL_VAR_REC , *ADD_GNL_VAR ; 

#def ine GnlVarTagBdd (v) ( { ( (ADD_GNL_VAR) GnlVarHook (v) ) - 
>TagBdd) ) 

#def ine GnlVarBdd (v) ( ( ( (ADD_GNL__VAR) GnlVarHook (v) ) - 
>Bdd) ) 
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#def ine GnlVarHeight (v) 
>Height) ) 

ttdefine GnlVarDepth (v) 
>Height) ) 

#define SetGnlVarTagBdd (v, t) 
>TagBdd = t) ) 
#define SetGnlVarBdd (v, b) 
- b)) 

ftdefine SetGnlVarHeight (v # h) 
>Height = h) ) 

#define SetGnlVarDepth (v, d) 
>Height = d) ) 



( (ADD_ 


_GNL_ 


_VAR) GnlVarHook 


(v) ) - 


( (ADD_ 


- GNL . 


_VAR) GnlVarHook 


(v) ) - 


( (ADD_ 


_GNL_ 


_VAR) GnlVarHook 


(v))- 


( (ADD_ 


_GNL_ 


_VAR) GnlVarHook 


(v) ) ->Bdd 


( (ADD_ 


_GNL_ 


_VAR) GnlVarHook 


(v))- 


( (ADD_ 


_GNL_ 


_VAR) GnlVarHook 


(v))- 



/* 

/* ADD_GNL_NODE__STRUCT 
/* 



typedef struct ADD_GNL_NODE_STRUCT 

{ 



GNL_VAR Node s Var ; 

int TagBdd; 
BDD Bdd; 
int Height; 
BDD_VAR BddVar; 
BLIST Signatures; 
BLIST EquivList; 
GNL_CONSTRAINT NegConstraint ; 
GNL_CONSTRAINT PosConstraint ; 
int EquivTag; 
int Value ; 



/* Bdd associated to node's function 



7 



/* 
/* 
/* 



Bdd var corresponding to a cut point */ 
results of random simulations */ 
list of potentially equivalent nodes */ 



ADD GNL NODE REC, *ADD GNL NODE; 



TO 



#define GnlNodeVar (n) 


( ( ( (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n)) 


>NodesVar) ) 










#define GnlNodeTagBdd (n) 


( ( { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n)) 


>TagBdd) ) 










ftdefine GnlNodeBdd <n) 


( ( ( (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n)) 


>Bdd) ) 










#def ine GnlNodeHeight (n) 


( ( { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n)) 


>Height) ) 










#define GnlNodeDepth (n) 


( ( { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n)) 


>Height) ) 










#define GnlNodeBreakBddVar (n) 


( ( ( (ADD GNL NODE) GnlNodeHook (n) ) - 


>BddVar) ) 










#def ine GnlNodeSignatures (n) 


( ( { (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n)) 


>Signatures) ) 










#def ine GnlNodeEquivList (n) 


{ ( { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>EquivList) ) 










#def ine GnlNodeNegConstraint (n) 


( ( { (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n)) 


>NegConstraint) ) 










#def ine GnlNodePosConstraint (n) 


( ( { (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n)) 


>PosConstraint) ) 










#define GnlNodeEquivTag (n) 


{ ( { (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n)) 


>EquivTag) ) 










#def ine GnlNodeValue (n) 


{ ( { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n)) 


> Value) ) 
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#define SetGnlNodeVar (n, v) 


( ( ( (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>NodesVar = v) ) 










#def ine SetGnlNodeTagBdd (n, t) 


( { ( (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>TagBdd = t) ) 










#define SetGnlNodeBdd (n, b) 


( { { (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>Bdd = b) ) 










#define SetGnlNodeHeight (n, h) 


( { ( (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>Height = h) ) 










#define SetGnlNodeDepth (n, d) 


( { ( (ADD_ 


_GNL_ 


NODE ) GnlNodeHook 


(n) ) 


>Height = d) ) 










#def ine SetGnlNodeBreakBddVar (n, b) 


( { ( (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n) ) 


>BddVar = b) ) 










#def ine SetGnlNodeSignatures (n, s) 


( ( ( (ADD_ 


_GNL_ 


_NODE) GnlNodeHook 


(n) ) 


>Signatures = s) ) 










#define SetGnlNodeEquivList (n, 1) 


( { ( (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n) ) 


>EquivList = 1) ) 










#def ine SetGnlNodeNegConstraint (n, c) 


( ( ( (ADD_ 




_NODE) GnlNodeHook 


(n) ) 


>NegConstraint = c) ) 










#def ine SetGnlNodePosConstraint (n, c) 


( ( ( (ADD_ 


_GNL_ 


__NODE) GnlNodeHook 


(n) ) 


>PosConstraint = c) ) 










#def ine IncrGnlNodeEquivTag (n) 


( { ( (ADD_ 


_GNL_ 


_NODE ) GnlNodeHook 


(n) ) 


>EquivTag++) ) 










#define SetGnlNodeEquivTag (n, t) 


( { ( (ADD_ 


_GNL_ 


JST0DE ) GnlNodeHook 


(n) } 


>EquivTag = t) ) 










#def ine SetGnlNodeValue (n, t) 


( { ( (ADD_ 


_GNL_ 


_N0DE) GnlNodeHook 


(n) ) 



>Value = t) ) 



*/ 
*/ 



/* ADD_GNL_S TRUCT 
★ 



/ 

typedef struct ADD_GNL_STRUCT 

{ 

int TagBdd; 

GNL_VAR ConstantVars [2] ; 

BLIST Re levant Inputs ; 

BLIST VirtualOutputs ; 



ADD__GNL_RE C , * ADD_GNL ; 

#define GnlTagBdd(g) 

#define Gnl Const ant (g, i) 

>ConstantVars [i] ) ) 

#def ine GnlRelevant Inputs (g) 

>Relevant Inputs) ) 

#define GnlVirtualOutputs (g) 

>VirtualOutputs) ) 

#define Inc rGnl TagBdd (g) 
#define SetGnlTagBdd (g, t ) 

t) ) 

#define SetGnlConstant (g, i , v) 

>ConstantVars [i] = v) ) 

#def ine SetGnlRelevant Inputs (g, i) 

>Relevant Inputs = i) ) 

#define SetGnl VirtualOutputs (g,o) 

>VirtualOutputs = o) ) 



(ADD_ 
(ADD_ 


_GNL) GnlHook 
_GNL) GnlHook 


(g) 
(g) 


(ADD_ 


_GNL) GnlHook 


(g) 


(ADD_ 


_GNL) GnlHook 


(g) 


(ADD_ 

(add] 


JGNL) GnlHook 
^GNL) GnlHook 


(g) 
(g) 


(ADD_ 


_GNL) GnlHook 


(g) 


(ADD_ 


_GNL) GnlHook 


(g) 


(ADD_ 


_GNL) GnlHook 


(g) 



->TagBdd) 



->TagBdd++) ) 
->TagBdd = 
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/* 

/* GNL_EC_CUT_POINT 
/* 



7 



typedef struct GNL_EC_CUT_POINT_STRUCT { 

BDD_VAR BddVar; /* Bdd var corresponding to a cut point */ 

GNL_NODE Node; /* GNL_NODE corresponding to the bdd var*/ 

BDD BddFct; /* Bdd corresponding to the function of 



7 



BDD 
int 



/* Node. 
Support ; 
NbNode ; 



GNL EC CUT_POINT_REC, *GNLJSC_CUT POINT; 



#define GnlEcCutPointBddVar (c) 
#define GnlEcCutPointNode (c) 
#define GnlEcCutPointBddFct (c) 
#define GnlEcCutPointSupport (c) 
#define GnlEcCutPointNbNode (c) 



((c) ->BddVar) 
( (c) ->Node) 

( (c) ->BddFct) 
( (c) ->Support) 
((c) ->NbNode) 



#def ine SetGnlEcCutPointBddVar (c , v) 
#define SetGnlEcCutPointNode (c, v) 
#def ine SetGnlEcCutPointBddFct ( c , v) 
#define SetGnlEcCutPointSupport (c,b) 
#def ine SetGnlEcCutPointNbNode (c, v) 



((c) ->BddVar = v) 
( (c) ->Node = v) 
((c) ->BddFct - v) 

((c) ->Support 
((c) ->NbNode = v) 



b) 



EOF 



*/ 



#endif 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


gnlecmain. c 


Version : 


1.1 


Modifications : 




Documentation : 




Class: none 




Inheritance : 





*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



#include <stdio.h> 
#include <stdlib.h> 
#include <time*h> 



#include 
#include 
#include 
#include 
# include 
#include 
#include 
#include 



"blist.h" 

"gnl.h" 

"gnlopt.h" 

"bbdd.h" 

"libc_mem.h" 

"libc_api.h" 

"gnllibc.h" 

"gnloption.h" 



/*- 

/* 

/* 

extern GNL ENV 



•*/ 
-*/ 



EXTERN 



G GnlEnv; 



/* 

/* GnlEcVerif 

/* 

int GnlEcVerif () 

{ 



int 


n; 


int 


i; 


BLIST 


ListGnlsl; 


BLIST 


ListGnls2 ; 


GNL 


Gnll; 


GNL 


Gnl2; 


BLIST 


0utputs2 ; 


int 


NbMayErrors ; 


BLIST 


GnllMayErrors = NULL; 


BLIST 


Gnl2MayErrors = NULL; 


int 


NbErrors ; 


BLIST 


GnllErrors = NULL; 


BLIST 


Gnl2Errors = NULL; 


BLIST 


GnlBadPatterns = NULL; 


int 


MaxNbNode s ; 


void 


*Ptr; 


char 


*Filel; 


char 


*File2; 



File2 = GnlEnvInput ( ) ; 
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Filel = GnlEnvRef erence () ; 

fprintf (stderr, "\n# File = %s\n", Filel); 

fprintf (stderr, "\n# Analyzing [%s] ...\n", Filel); 

if {GnlRead (Filel, &ListGnlsl) ) 

{ 

fprintf (stderr, "# ERROR: Verification aborted . \n" ) ; 
exit (1); 

} 

fprintf (stderr, "\n# Analyzing [%s] ...\n", File2) ; 
if (GnlRead (File2, &ListGnls2) ) 

{ 

fprintf (stderr, "# ERROR : Verification aborted . \n" ) ; 
exit (1) ; 

} 

if (BListSize (ListGnlsl) ! = BListSize (ListGnls2)) 

{ 

fprintf (stderr, 

"# ERROR: netlists have different number of modules\n" ) ; 
return (1) ; 

} 

MaxNbNodes = GnlEnvMaxBddNode { ) ; 
if (MaxNbNodes 0) 
MaxNbNode s = 500; 

for (n=0; n<BListSize (ListGnlsl); n++) 

{ 

Gnll = (GNL) BListElt (ListGnlsl, n) ; 
Gnl2 = (GNL) BListElt (ListGnls2, n) ; 

if (GnlNbln (Gnll) 1= GnlNbln (Gnl2)) 

{ 

fprintf (stderr, 

"# ERROR: netlists have different number of inputs\n"); 
return (1) ; 

} 

if (GnlNbOut (Gnll) != GnlNbOut (Gnl2)) 
{ 

fprintf (stderr, 

"# ERROR: netlists have different number of output s\n n ) ; 
return (1) ; 

} 

fprintf (stderr, "\n# Verifying Logic [%s] Vs. [%s]..\n n , 
GnlName (Gnll), GnlName (Gnl2) ) ; 

if (GnlEquivCheckGnl (Gnll, Gnl2, MaxNbNodes, 

&NbMayErrors , &GnllMay Errors , &Gnl2iyiayErrors , 
ScNbErrors, &GnllErrors, &Gnl2Errors, &GnlBadPat terns) ) 

{ 

fprintf (stderr, "# ERROR: Critical Problem During Verif ication\n" ) 
exit (1) ; 

} 
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} 

return (0) ; 

} 
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/* */ 

/* */ 

/* File: gnlerror.c */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* Description: */ 

/* */ 
/* */ 

# include <stdio . h> 

#include "blist.h" 
#include "gnl.h" 

/* */ 

/* GnlError */ 

/* */ 

void GnlError (Id) 
int Id; 

a { 



C? fprintf (stderr, "\n# GNL-ERROR<%d>\n", Id) ; 

m exit 

ru 1 

y 

o 

s 

eu 

m 
m 
a 
n 
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/* */ 

/* */ 

/* File: gnlestim.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* Description: */ 

/* */ 

/* */ 



#include <stdio.h> 



#ifdef MEMORY 
#include <malloc.h> 
#endif 



/* If one wants memory statistics for SUM */ 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
# include 



"blist .h" 

"gnl.h" 

"gnlmint .h" 

"bbdd.h" 

" gnloption.h" 

"libc_mem.h" 

"libc_api.h" 

"gnllibc.h" 

" gnlestim.h" 

"gnlmap .h" 

"time.h" 



#include "blist. e" 



#include "libutil . e" 
#include " timecomp . e " 



/* *i 

/* EXTERN */ 

/* */ 

extern GNL_ENV G_GnlEnv; 

extern BDD_PTR GetBddPtrFromBdd () ; 

/* 

/* FORWARD */ 

/* */ 

GNL_STATUS GnlBestAreaMapNode (); 

GNL_STATUS GnlBestDepthMapNode () ; 

void GnlAddPinCapacitance () ; 

GNL_S TATUS GnlGetMaxMinDelaysFromNode () ; 

void GnlGetMaxTechnologyDepthFromNode () ; 

/* */ 

/* GnlCreatePathComponent */ 
/* */ 

GNL_S TATUS GnlCreatePathComponent (NewPathCompo) 
GNL_PATH_COMPONENT *NewPa t hCompo ; 

{ 
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if ( (*NewPathCompo = (GNL_PATH_COMPONENT) 

calloc (1, sizeof (GNL_PATH_COMPONENT_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlCreateAssocTraversallnf o 
/* 

GNL_STATUS GnlCreateAssocTraversallnf o (NewTraversallnf o) 
GNL_ASSOC_TRAVERSAL_INFO *NewTraversalInf o ; 

{ 

if ( (*NewTraversalInfo = (GNL_ASSOC_TRAVERSAL_INFO) 

calloc (1, sizeof (GNL_ASSOC_TRAVERSAL_INFO_REC) ) ) == NULL) 
return ( GNL_MEMORY_FULL) ; 

(*NewTraversalInfo) ->Component = (GNL_COMPONENT) NULL; 
(*NewTraversalInfo) ->Hook = NULL; 

return (GNL_OK) ; 

} 

/* 

/* GnlFreeAssocTraversallnf o 

/* 

void GnlFreeAssocTraversallnf o (AssocTraversallnf o, HookDelete) 

GNL_ASSOC_TRAVERSAL_INFO *As socTraver sal Info; 

VoidFctPtr HookDelete ; 

{ 

if ( ! (*AssocTraversalInf o) ) 
return ; 

if ( (*AssocTraversalInfo) ->Hook) 

HookDelete (&( ( *AssocTraversalInf o) ->Hook) ) ; 

free ((char *) *AssocTraversalInf o) ; 

(*AssocTraversalInfo) = NULL; 

} 

/* 

/* GnlCreateVarTraversallnfo 

/* 

GNL_STATUS GnlCreateVarTraversallnfo (NewTraversallnf o) 
GNL_VAR__TRAVERS AL_ I NFO ^NewTraversallnf o ; 

{ 

if ( (*NewTraversalInfo = ( GN L_VAR_TRAVE R S AL_ INFO ) 

calloc (1, sizeof (GNL_VAR_TRAVERSAL_INFO_REC) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 



return (GNL__OK) ; 
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} 

/* 

/* GnlFreeVarTraversallnf o 

/* 

void GnlFreeVarTraversallnfo (VarTraversallnf o, HookDelete) 

GNL_VAR__TRAVERSAL_INFO * VarTraversallnf o ; 

VoidFctPtr HookDelete ; 

{ 

if ( I (*VarTraversalInf o) ) 
return; 

if ( (*VarTraversalInfo) ->ListAssoc) 

BListQuickDelete (&{ { *VarTraversalInf o) ->ListAssoc) ) ; 

if ( (* VarTraversallnf o) - >ListLef tAssign) 

BListQuickDelete (&( {^VarTraversallnf o) ->ListLef tAssign) ) ; 

if ( (*VarTraversallnf o) ->Hook) 

HookDelete {&( (* VarTraversallnf o) ->Hook) ) ; 

free ((char *) * VarTraversallnf o) ; 

(*VarTraversalInfo) = NULL; 

} 

/* 

/* GnlVarTraversallnf oAddAssoc 

/* 

GNL_STATUS GnlVarTraversallnf oAddAssoc (Var, Assoc) 

GNL_VAR Var; 

GNL_ASSOC Assoc; 

{ 

BLIST NewList; 



if (!Var) 

return (GNL_OK) ; 

if ( ! GnlVarTraversallnf oListAssoc (Var) ) 

{ 

if (BListCreateWithSize (1, ScNewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarTraversallnfoListAssoc (Var, NewList) ; 

} 

if (BListAddElt (GnlVarTraversallnfoListAssoc (Var), (int) Assoc)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* - 

/ * Gnl Va rTraversal Inf oAddLe f t Var As s i gn 

/* 
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GNL_STATUS GnlVarTraversallnf oAddLef tVarAssign (Var, Lef tAssigned) 
GNL_VAR Var; 
GNL_VAR Le f t As s i gned ; 

{ 

BLIST NewList; 



} 



if (! GnlVarTraversallnf oListLef tAssign (Var)) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarTraversallnf oListLef tAssign (Var, NewList) ; 

} 

if (BListAddElt (GnlVarTraversallnf oListLef tAssign (Var) , 
(int) Lef tAssigned) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 



/* 

/* GnlGetGnlMapAreaFromNode 

/* 

double GnlGetGnlMapAreaFromNode (Gnl, OutVar, Node) 

GNL Gnl ; 

GNL_VAR Out Var ; 

GNL NODE Node; 



{ 



int i ; 

BDD Bdd; 

BDD_PTR BddPtr; 

BLIST ListDeriveCells ; 

float BestArea; 

GNL_NODE Son; 

GNL__VAR Var; 

LIB_DERIVE_CELL BestCell ; 

int Depth; 



switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 
case GNL_CONSTANTE : 
case GNL_WIRE: 

return (0.0) ; 

case GNL_N0T: 
case GNL_AND: 
case GNL_0R: 
case GNL_NOR: 
case GNL_NAND: 
case GNL_XOR: 
case GNL__XN0R : 

if (GnlNodeHook (Node) && GnlMapNodelnf oCutVar (Node) ) 

{ 

Var = GnlMapNodelnf oCutVar (Node) ; 
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if (Var != OutVar) 
{ 

return (0.0) ; 

} 

Bdd = GnlMapNodelnf oBestBdd (Node) ; 
if (!Bdd) 

return (0.0) ; 
BddPtr = GetBddPtrFromBdd (Bdd) / 
if ((Bdd == bdd_zero () ) || 
(Bdd bdd_one () ) ) 
return (0.0); 
ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ,- 
GnlGetBestAreaCell (ListDeriveCells, Bdd, fcBestCell, 
&BestArea, &Depth) ; 
return ( (double) BestArea) ; 

} 

f print f (stderr, " ERROR: in GnlGetGnlMapAreaFromNode" ) ; 
return; 

default : 

GnlError (9 /* Unknown node */) ; 
return; 

} 

} 

z* 

/* Gnl Get Component Are a */ 

/* 

double GnlGetComponentArea (Component) 
GNL_COMPONENT Component ; 

{ 

LIBC_CELL Cell; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_TR I S TATE_COMPONENT Tr i S t a t e Compo ; 

GNL_BUF_COMPONENT Buf Compo ; 

double CellArea; 



switch (GnlComponentType (Component) ) { 
case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) Component ; 
Cell - GnlSeqCompoInfoCell (SeqCompo) ; 
CellArea = (double) LibCellArea (Cell) ; 
return (CellArea) ; 

case GNL_USER_COMPO : 
return (0.0) ; 

case GNL__TRISTATE_COMPO : 

TriStateCompo = (GNL_TRISTATE_COMPONENT) Component ; 
Cell = GnlTriStateCompoInf oCell (TriStateCompo) ; 
CellArea = (double) LibCellArea (Cell) ; 
return (CellArea) ; 

case GNL_BUF_C0MP0 : 

Buf Compo = (GNL__BUF_COMPONENT) Component ; 
Cell = GnlBufCompoInfoCell (BufCompo) ; 
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CellArea = (double) LibCellArea (Cell) ; 
return (CellArea) ; 

case GNL_MACRO_COMPO : 
return (0.0) ; 

default : 

GnlError (12 /* Unknown component */) ; 

} 



/* */ 

/* GnlGetGnlMapArea */ 

/* */ 

/* This procedure computes the technology area of the module ' Gnl 1 and */ 
/* returns a double value corresponding to it. It simply adds the */ 
/* cells area created during the mapping phase. */ 
/* */ 

double GnlGetGnlMapArea (Gnl) 

GNL Gnl ; 

{ 

int i; 

GNL_VAR Varl; 

GNL_FUNCT I ON FunctionI ; 

double Area; 

GNL_COMPONENT Component I ; 



} 



Area = 0.0; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Area += GnlGetGnlMapAreaFromNode (Gnl, Varl, 

GnlFunctionOnSet (FunctionI)); 

} 

for (i=0; i<BListSize (GnlComponents (Gnl)); i++) 

{ 

ComponentI = (GNL_C0MP0NENT) BListElt (GnlComponents (Gnl), i) 
Area += GnlGet Component Area (ComponentI) ; 

} 

return (Area) ; 



/* */ 

/* GnlGetGnlMapArealnGnl */ 
/* */ 

void GnlGetGnlMapArealnGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

double GnlArea; 
GNL_C0MP0NENT Component I ; 
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GNL_USER_COMPONENT UserCompo ; 

GNLJSEQUENTIAL_C0MP0NENT SeqCompo ; 

GNLJTR I STATE_COMPONENT Tr i s t a t eCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

LIBC_CELL Cell; 
BLIST Components; 



GnlArea = 0.0; 

Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i); 

switch (GnlComponentType (ComponentI)) { 
case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) ComponentI ; 

/* If not a black box or cell we do take it into 

/ * account . 

Cell = GnlUserComponentCellDef (UserCompo) ; 
if (ICell) 

continue ; 
break; 

case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI ; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 

break; 

case GNL_TRISTATE_COMPO : 

TristateCompo = (GNL_TRISTATE_COMPONENT) ComponentI; 
Cell = GnlTriStateCompoInf oCell (TristateCompo) ; 
break; 

case GNLJBUF_COMPO : 

Buf Compo = (GNL_BUF_COMPONENT) ComponentI ; 
Cell = GnlBuf Compolnf oCell (Buf Compo) ; 
break; 

} 

if (ICell) 
continue; 

GnlArea += (double) LibCellArea (Cell); 

} 

SetGnlArea (Gnl, GnlArea); 
GnlComputeMaxFanoutlnGnl (Gnl) ; 
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/* GnlGetGnlMapArealnNwRec 

/* 



*/ 
-*/ 
*/ 
*/ 
*/ 
-*/ 



/* This procedure computes the technology area of the module 'Gnl' 
/* returns a double value corresponding to it. It simply adds the 
/* cells area created during the mapping phase. 
/* 



and 



void GnlGetGnlMapArealnNwRec <Nw, Gnl) 
GNL_NETWORK Nw; 
GNL Gnl ; 



{ 



int i ; 

GNL TopGnl ; 

GNL_COMPONENT Component I ; 

GNL_USER__COMPONENT UserCompol ; 
GNL GnlCompol; 
BLIST Components; 



if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 
GnlGetGnlMapArealnGnl (Gnl) ; 
Components = GnlComponents (Gnl) ; 

for (i = 0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) 1= GNL_USER_COMPO) 
continue ; 

UserCompol = (GNL_USER_COMPONENT) ComponentI; 
GnlCompol = GnlUser Component GnlDef (UserCompol) ; 

if (! GnlCompol) 
continue ; 

GnlGetGnlMapArealnNwRec (Nw, GnlCompol) ; 

} 

} 



/* */ 

/* GnlGetGnlMapArealnNw */ 
/* */ 

/* This procedure computes the technology area of the module 'Gnl' and */ 
/* returns a double value corresponding to it. It simply adds the */ 
/* cells area created during the mapping phase. */ 
/* */ 

void GnlGetGnlMapArealnNw (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 



SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
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TopGnl = GnlNetworkTopGnl (Nw) • 
GnlGetGnlMapArealnNwRec (Nw, TopGnl) ; 



/* 

/* GnlGetMaxTechnologyDepthFromNodeVar 

/* 

void GnlGetMaxTechnologyDepthFromNodeVar (Gnl, OutVar, Node) 

GNL Gnl ; 

GNL_VAR OutVar; 
GNL_NODE Node; 

{ 

GNL__VAR Var; 

GNL__FUNCT I ON FunctionI ; 

GNL_NODE Nodel; 



Var = (GNL_VAR) Gnl Node Sons (Node) ; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
{ 

SetGnlMapNodelnf oDepth (Node, 0) ; 
return ; 

} 

if (GnlVarFunction (Var) == NULL) 
{ 

SetGnlMapNodelnf oDepth (Node, 0) ; 
return; 

} 

FunctionI = GnlVarFunction (Var) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 
GnlGetMaxTechnologyDepthFromNode (Gnl, Var, Nodel) ; 
SetGnlMapNodelnf oDepth (Node, GnlMapNodelnf oDepth (Nodel) ) 



/* 

/* GnlGetGnlMaxDepthFromNodeOp 
*/ 

/* 

void GnlGetMaxTechnologyDepthFromNodeOp (Gnl, OutVar, Node) 

GNL Gnl ; 

GNL__VAR OutVar; 

GNL NODE Node; 



{ 



int i ; 

int j ; 

int MaxDepth; 

GNL_NODE Node J; 

GNL_VAR Varl ; 

GNL__VAR VarCelll; 

BLIST Celllnputs; 

BLIST LibVar Support ; 

BLIST NodeSupport ; 
BDD Bdd; 
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BDD_PTR BddPtr; 

BLIST ListDeriveCells ; 

float Be st Area; 

GNL_NODE Son; 

GNL_VAR Var; 

L I B_DER I VE_CELL B e s t Ce 1 1 ; 

GNL__FUNCT I ON FunctionI ; 

GNL_NODE Nodel; 

int Depth; 



if ( I GnlNodeHook (Node) || I GnlMapNodelnf oCutVar (Node)) 
{ 

fprintf (stderr, " ERROR: in GnlGetMaxTechnologyDepthFromNodeOp" ) 

} 

Var = GnlMapNodelnf oCutVar (Node) ; 
if (Var != Out Var) 

{ 

if (GnlVarFunction (Var) == NULL) 
{ 

SetGnlMapNodelnfoDepth (Node, 0) ; 
return ; 

} 

FunctionI = GnlVarFunction (Var) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 
GnlGetMaxTechnologyDepthFromNode (Gnl, Var, Nodel) ; 
return; 

} 

Bdd = GnlMapNodelnf oBestBdd (Node) ; 
if (IBdd) 
return; 

BddPtr = GetBddPtrFromBdd (Bdd) ; 
if ((Bdd == bdd_zero () ) || (Bdd bdd_one ())) 
{ 

SetGnlMapNodelnfoDepth (Node, 0) ; 
return ; 

} 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 
GnlGetBestAreaCell (ListDeriveCells, Bdd, &BestCell, &BestArea, 
&Depth) ; 



MaxDepth = 0; 



NodeSupport = GnlMapNodelnf oNodeSupport (Node) ; 
LibVarSupport = GnlMapNodelnf oLibVar Support (Node) ; 
Celllnputs = LibDeriveCelllnputs (BestCell) ; 
for (i=0; i<BListSize (Celllnputs); i++) 
{ 

Varl = (GNL_VAR) BListElt (Celllnputs, i) ; 
for (j=0; j<BListSize (LibVarSupport); j++) 
{ 

VarCelll = (GNL__VAR) BListElt (LibVarSupport , j ) ; 
if (Varl == VarCelll) 
break; 
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} 



} 

Node J = (GNL_NODE) BListElt (NodeSupport , j); 
if (GnlNodeOp (Node J) == GNL_VARIABLE) 

Varl = (GNL_VAR) GnlNodeSons (NodeJ); 
else 

Varl = GnlMapNodelnf oCutVar (NodeJ) ; 
GnlGetMaxTechnologyDepthFromNode (Gnl, Varl, NodeJ) ; 
if ( GnlMapNodelnf oDepth (NodeJ) > MaxDepth) 

MaxDepth = GnlMapNodelnf oDepth (NodeJ) ; 

} 

MaxDepth++; 

SetGnlMapNodelnf oDepth (Node, MaxDepth) ; 



/*_ 

/* GnlGetGnlMaxDepthFromNode 

/* 

void GnlGetMaxTechnologyDepthFromNode (Gnl, OutVar, Node) 

GNL Gnl ; 

GNL_VAR Out Var ; 

GNL NODE Node; 



{ 



} 



/* If previously computed then we return. *, 
if (GnlMapNodelnf oDepth (Node) != 0) 
return; 

switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 

GnlGetMaxTechnologyDepthFromNodeVar (Gnl, OutVar, Node) ; 
return; 

case GNL_CONSTANTE : 
case GNL_WIRE: 

SetGnlMapNodelnf oDepth (Node, 0) ; 

return ; 

case GNL_N0T: 
case GNL_AND: 
case GNL_0R: 
case GNL_N0R: 
case GNL_NAND: 
case GNL_X0R: 
case GNL_XN0R: 

GnlGetMaxTechnologyDepthFromNodeOp (Gnl, OutVar, Node) ; 
return; 

default : 

GnlError (9 /* Unknown node */) ,* 
return; 

} 



z* 

/* GnlGetMaxTechnologyDepth 
/* 
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/* This procedure computes the maximum depth between cells which have 

/* been created during the technology mapping phase. */ 
/* 

int GnlGetMaxTechnologyDepth (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_FUNCTION FunctionI; 
int MaxDepth; 
GNL_NODE Nodel ; 



MaxDepth = 0; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Node I = GnlFunctionOnSet (FunctionI) ; 
GnlGetMaxTechnologyDepthFromNode (Gnl, Varl, Nodel) ; 
if (GnlMapNodelnfoDepth (Nodel) > MaxDepth) 

{ 

MaxDepth = GnlMapNodelnfoDepth (Nodel) ; 

} 

} 

return (MaxDepth) ; 



/* 

/* GnlComputeGnlGateArea 

/* 

/* Computes the active area of the GNL 'Gnl' . The active area is */ 
/* composed of the cells area (Dffs, Latches, Tristates, Buffers) . 
/* 

double GnlComputeGnlGateArea (Gnl) 
GNL Gnl ; 

{ 

int i ; 
double Area; 
GNL_COMPONENT Component ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_USER_COMPONENT UserCompo ; 

GNL GnlCompo; 
GNL_TRISTATE__COMPONENT TriStateCompo ; 

GNL_BUF_COMPONENT Bu f Compo ; 

LIBC_CELL Cell; 



Area = 0.0; 

for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 
{ 

Component = (GNL_C0MP0NENT) BListElt (GnlComponents (Gnl), i) ; 
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switch (Gnl Component Type (Component) ) { 
case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL__COMPONENT) Component; 
Cell = Gnl SeqCompo I nfoCe 11 (SeqCompo) ; 
Area += (double) LibCellArea (Cell) ; 
break; 



case GNL_TRISTATE_COMPO: 

TriStateCompo = (GNL_TRISTATE_COMPONENT) Component ; 
Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 
Area += (double) LibCellArea (Cell); 
break; 



case GNL_BUF_COMPO : 

BufCompo = ( GNL_BUF_COMPONENT ) Component; 
Cell = GnlBufCompoInf oCell (BufCompo) ; 
Area += (double) LibCellArea (Cell) ; 
break; 



case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) Component; 
GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 
if (GnlCompo) 
continue; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 
if (Cell) 

{ 

Area += (double) LibCellArea (Cell); 

} 

break; 

default : 

break; 

} 

} 

return (Area) ; 

} 



/* *z 

/* GnlGetNetworkAreaRec */ 
/* */ 

double GnlGetNetworkGateAreaRec (Gnl) 
GNL Gnl ; 

{ 

double Area; 

GNL TopGnl ; 

BL1ST Components; 

GNL_COMPONENT Component I ; 

GNL_USER_COMPONENT UserCompol ; 

int i ; 

GNL Gnl Compos- 



Area = GnlComputeGnlGateArea (Gnl) ; 
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Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components) ; i++) 
{ 

ComponentI = ( GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) 1= GNL_USER_COMPO) 
continue; 

UserCompol = ( GNL_USER_COMPONENT ) Component I ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ,- 

if (1 GnlCompol) 
continue; 

Area += GnlGetNetworkGateAreaRec (GnlCompol) ; 

} 

return (Area) ; 

} 



/* */ 

/* GnlGetNetworkGateArea */ 
/* */ 

/* This procedure computes the area estimation related to the global */ 
/* netlist ' GlobalNetwork ' using library cells of 'GnlLibc'. */ 
/* */ 

double GnlGetNetworkGateArea (Nw) 
GNL_NETWORK Nw; 

{ 

double Area; 



GNL TopGnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

Area = GnlGetNetworkGateAreaRec (TopGnl) ; 

return (Area) ; 

} 



/* */ 

/* GnlCreateLibraryHashTable */ 
/* */ 

/*■ This procedure scans the LIBC ? GnlLibc ' and stores each cell in a */ 

/* Hash table. Each cell is stored according to its name. */ 

/* */ 



#define LIB_HASH_TABLE_SIZE 100 

GNL_S TATUS GnlCreateLibraryHashTable (GnlLibc, LibHashTable) 
LIBC_LIB GnlLibc; 
BLIST *LibHashTable ; 

{ 

int i ; 

LIBC_CELL Celll; 
unsigned int Key; 
BLIST NewList; 
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if (BListCreateWithSize (LIB_HASH_TABLE_SIZE, LibHashTable) ) 
return ( GNL_MEMORY_FULL) ; 

for (i = 0; i < L I B__HAS H_TABLE_S I Z E ; i + + ) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL) ; 
if (BListAddElt ( *LibHashTable , (int ) NewList ) } 

return ( GNL_MEMORY_FULL ) ; 

} 

Celll = LibCells (GnlLibc) ; 

for (; Celll != NULL; Celll = LibCellNext (Celll)) 
{ 

Key = KeyOfName (LibCellName (Celll), LIB_HASH__TABLE_SIZE) ; 
NewList = (BLIST) BListElt ( *LibHashTable , Key); 
if (BListAddElt (NewList, (int) Celll)) 
return (GNL_MEMORY_FULL) ; 

} 



} 



return (GNL OK) ; 



/* 

/* GnlUpdateVarAssocList */ 
/* 

/* This procedure adds the association 'Assoc' in the list of assoc of 
/* the actual 'Actual 1 . If the actual is a GNL__VAR (a simple signal) 
/* then we add it simply in 'GnlVarTraversallnf oListAssoc (Actual) ' else 
/* the actual is a GNL_NODE corresponding to a concatenation of GNL_VAR . 
/* Then for each son GNL_VAR we add the association in their list assoc 

/* field. */ 

/* 

GNL_STATUS GnlUpdateVarAssocList (Actual, Assoc) 
GNL_VAR Actual; 
GNL_ASSOC Assoc; 

{ 

int i ; 

GNL_VAR Sp 1 i t Ac tual I ; 

BLIST ListSplitActuals ; 



if (! Actual) 

return (GNL_OK) ; 

/* If the var is VSS or VDD it is not useful to store the places 
/* where it is used. */ 
if (GnlVarlsVar (Actual)) 

if (GnlVarlsVss (Actual) || GnlVarlsVdd (Actual)) 
return (GNL_OK) ; 

if (GnlVarlsVar (Actual)) 

if (GnlVarlsVss (Actual) || GnlVarlsVdd (Actual)) 
return (GNL_OK) ; 
/* If 'Actual' is a GNL_VAR and not a GNL_NODE (GNL_CONCAT) 
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if (GnlVarlsVar (Actual)) 
{ 

if (GnlVarTraversallnfoAddAssoc (Actual, Assoc) ) 

return ( GNL_MEMORY_FULL) ; 
return (GNL_OK) / 

} 

ListSplitActuals = GnlNodeSons ( (GML_NODE) Actual ) ; 
for (i=0; i<BListSize (ListSplitActuals); i++) 
{ 

SplitActuall = (GNL_VAR) BListElt (ListSplitActuals, i) ; 
if (GnlVarTraversallnfoAddAssoc (SplitActuall, Assoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlAddAssocTraversallnf o */ 
/* */ 

/* This procedure scans all the GNL_ASSOC objects of the interface and */ 

/* creates a Timing Info structure and stores it on the hook field of */ 

/* the association. */ 

/* Moreover, for each actual var we add its corresponding GNL_ASSOC in */ 

/* its field ' GnlVarTraversallnf oListAssoc ' . */ 

/* */ 

GNL_STATUS GnlAddAssocTraversallnf o (Compo, Interface) 
GNL__COMPONENT Compo ; 
BLIST Interface; 

{ 

int i ; 

GNL_ASSOC AssocI; 

GNL_ASSOC__TRAVERSAL__INFO Ne wTr ave rsallnfo; 

GNL VAR Actual; 



for (i=0; i<BListSize (Interface) ; i++) 
{ 

AssocI = (GNL ASSOC) BListElt (Interface, i) ; 



if (!AssocI) 
continue ; 

Actual = GnlAssocActualPort (AssocI) ; 
if (! Actual) 
continue ; 

/* 

if (GnlVarlsVar (Actual)) 

if (GnlVarlsVss (Actual) || GnlVarlsVdd (Actual)) 
continue ; 

*/ 

if (GnlCreateAssocTraversallnf o (&NewTraversalInf o) ) 
return (GNL_MEMORY_FULL) ; 

/* we hook the field with this new structure. */ 
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SetGnlAssocHook (AssocI, NewTraversallnf o) ; 

SetGnlAssocTraversallnfoComponent (AssocI, Compo) ; 

if (GnlUpdateVarAssocList (Actual, AssocI)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 

/* */ 

/* GnlAddVarTraver sal Info */ 

/* */ 

/* This procedure creates and adds traversal info structure for each objec 
/* GNL__VAR of the current 'Gnl' on the Hook field of the vars. */ 

/* */ 

GNL_STATUS GnlAddVarTraversallnf o (Gnl) 
GNL Gnl ; 



{ 



BLIST HashTableNames / 

int i; 
BLIST Bucket I; 

int j ; 

GNL_VAR VarJ; 

GNL VAR TRAVERSAL INFO NewTraversallnf o ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL__VAR) BListElt (Bucketl, j); 
if (GnlCreateVarTraversallnf o (^NewTraversallnf o) ) 
return (GNL_MEM0RY_FULL) ; 

/* we hook the field with this new structure. 

SetGnlVarHook (VarJ, NewTraversallnf o) ; 



} 
} 

return (GNL OK) ; 



/* */ 

/* GnlUpdateListLef tAssignToVarlnGnl */ 
/* */ 

/* This procedure updates the list of Lef tVarAssign for each GNL__VAR */ 

/* 'Var' in any assignement. */ 

/* Ex: 'assign 01 = Var' */ 

/* -assign 02 = Var* */ 

/* 'assign 03 = Var' */ 

/* The list associated to 'Var' will be {'ol 1 , l o2', ' o3 ' } . This is */ 
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/* usefull for bottom-up traversal. */ 

/* */ 

GNL_STATUS GnlUpdateListLef tAssignToVarlnGnl (Gnl) 
{ 



GNL 


Gnl; 


BLIST 


Ha shTab 1 eName s / 


int 


i; 


BLIST 


Bucket I; 


int 


j; 


GNL_VAR 


Varl; 


GNL_NODE 


FunctionNode; 


GNL_VAR 


RightVar; 


GNL_FUNCT I ON 


Function; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Function = GnlVarFunction (Varl) ; 
if ( ! Function) 
continue; 

FunctionNode = GnlFunctionOnSet (Function) ; 

if (GnlNodeOp (FunctionNode) == GNL_C0NSTANTE ) 
continue; 

if (GnlNodeOp (FunctionNode) != GNL_VARIABLE) 
{ 

fprintf (stderr, 

" ERR0R1 : non simple Boolean equation detected\n" ) ; 

exit (1) ; 

} 

RightVar = (GNL_VAR) GnlNodeSons (FunctionNode); 

if (GnlVarTraversallnfoAddLeftVarAssign (RightVar, Varl) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL OK) ; 



/* */ 

/* GnlGetlnterf aceFromGnlCompo */ 

/* */ 

GNL_STATUS GnlGetlnterf aceFromGnlCompo ( GNL_COMPONENT Component, 

BLIST interface) 



{ 



GNL_USER_COMPONENT UserCompo ; 

GNL__SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_TRI STATE_COMPONENT TriStateCompo ; 

GNL BUF COMPONENT BufCompo; 



switch (GnlComponentType (Component)) { 
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case GNL_SEQUENTIAL_COMPO : 

SeqCompo = ( GNL_S EQUENT I AL_COMPONENT ) Component; 
*Interface = GnlSequentialCompoInterf ace (SeqCompo) ; 
break; 



case GNL_USER_COMPO : 

UserCompo = (GNL_USER__COMPONENT) Component ; 
♦Interface - GnlUserComponentlnterf ace (UserCompo) ; 
break ; 



case GNL_TRISTATE_COMPO: 

TriStateCompo - (GNL_TRISTATE_COMPONENT) Components- 
interface = GnlTriStatelnterf ace (TriStateCompo) ; 
break; 



case GNL_BUF_COMPO : 

BufCompo = ( GNL_BUF__COMPONENT ) Component; 
* Interface = GnlBuf Interface (BufCompo) ; 
break ; 



case GNL_MACRO_COMPO : 

♦Interface = NULL; 
break; 

default : 

* Interface = NULL; 

GnlError (12 /* Unknown component */) ; 
break; 

} 



return (GNL_OK) ; 

} 

/* */ 

/* GnlGetCellFromGnlCompo */ 

/* */ 

GNL_STATUS GnlGetCellFromGnlCompo (GNL_COMPONENT Component, 

LIBC__CELL *Cell) 

{ 

GNL_USER_COMPONENT UserCompo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNLJT R I S TATE_COMPONENT TriState Compo ; 

GNL BUF COMPONENT BufCompo; 



switch (GnlComponentType (Component) ) { 

case GNL__S EQUENT I AL_COMPO : 

SeqCompo = (GNL_S EQUENT I AL_COMPONENT) Component; 

*Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

break; 

case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) Component; 
*Cell = GnlUserComponentCellDef (UserCompo) ; 
break; 



C-GNL1-244 



gnlestim.c 



case GNL_TRISTATE_C0MPO: 

TriStateCompo = (GNL_TRISTATE_COMPONENT) Component; 
*Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 
break; 

case GNL_BUF_COMPO : 

BufCompo = (GNL_BUF_COMPONENT) Component ; 
*Cell = GnlBuf Compolnf oCell (BufCompo) ; 
break; 

case GNL__MACRO_COMPO : 
*Cell = NULL; 
break; 

default: 

*Cell = NULL; 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL_OK) ; 

} 



/* */ 

/* GnlAddNetlistlnf oForTraversallnComponentRec */ 

/* */ 

/* This procedure analyzes recursively the netlist *Gnl* and for each */ 
/* GNL_VAR we create its timing info structure and update its field */ 
/* 'GnlVarTraversallnfoListAssoc* which is the list of the GNL_ASSOC */ 
/* where this var appears in the Actual form. */ 

/* */ 

GNLJ3TATUS GnlAddNetlistlnf oForTraversallnComponentRec {Nw, Gnl) 

GNL_NETWORK Nw; 

GNL Gnl; 

{ 

GNL TopGnl ; 

BLIST Components; 
GNL_C0MP0NENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
int i ; 

int j ; 

GNL GnlCompol; 
unsigned int Key; 
BLIST NewList; 
LIBC_CELL CellJ; 
BLIST Interface; 



/* Already traversed and considered this 'Gnl'. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

/* we add timing info on each var of the 'Gnl'. */ 
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if (GnlAddVarTraversallnfo (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

/* Updating left assign var list for each Var. */ 
if (GnlUpdateListLeftAssignToVarlnGnl (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

/* We create timing info structures for each assoc of the 
/* component interface. */ 
GnlGet Inter f ace FromGnlCompo (ComponentI, winter face) ; 
if (GnlAddAssocTraversallnfo (ComponentI, Interface) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompol = {GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

/* If the component 'UserCompol' has no Gnl definition, 
if (! GnlCompol) 

{ 

if ( IGnlUserComponentCellDef (UserCompol) ) 

{ 

fprintf (stderr, 

" WARNING: component <%s> has no corresponding library cell\n", 
GnlUserComponentName (UserCompol) ) ; 

} 

cont inue ; 

} 

/* It is a user box and we scan recursively. */ 
if (GnlAddNetlistlnfoForTraversallnComponentRec (Nw, GnlCompol) ) 
return ( GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 



/* 

/* GnlAddNetlistlnfoForTraversallnComponent 

/* 

/* This procedure analyzes recursively the netlist 'Gnl' and for each 
/* GNL_VAR we create its timing info structure and update its field 
/* 'GnlVarTraversallnfoListAssoc 1 which is the list of the GNL_ASSOC 
/* where this var appears in the Actual form. */ 

/* 

GNL_STATUS GnlAddNet list Inf oForTraversallnComponent (Nw, Gnl, GnlLibc) 

GNLJSTETWORK Nw; 

GNL Gnl ; 

LIBC_LIB GnlLibc; 

{ 
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int i ; 

BLIST NewList; 



/* Resetting the Tag for recursive traversal. 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (GnlAddNetlistlnf oForTraversallnComponentRec (Nw, Gnl) ) 
return { GNL_MEMOR Y__FULL ) ; 

return (GNL OK) ; 



} 



/*#ifdef TIMING_ESTIMATION* / 

/* 

/* GnlGetSourcesOfVar */ 

/* 

GNL_STATUS GnlGetSourcesOfVar (Var, AssocSources , RightVarAssigneds) 

GNL_VAR Var; 

BLIST *AssocSources ; 

BLIST *RightVarAssigneds ; 

{ 

int i ; 

GNL_ASSOC Assoc I; 

LIBC_CELL Cell; 
GNL_COMPONENT Compo ; 

GNL_VAR Formal, Varl; 

GNL_VAR Targe tVar; 

LIBC_PIN Pin; 
BLIST ListAssoc; 
GNL_FXJNCTION Func t ion ; 

GNL_NODE Func t ionNode ; 

GNL STATUS GnlStatUS ; 



if (IVar) 

return (GNL_OK) ; 

ListAssoc = GnlVarTraversallnfoListAssoc (Var) ; 

if (BListCreateWithSize (1, AssocSources)) 
return (GNL_MEMORY__FULL) ; 

if (BListCreateWithSize (1, RightVarAssigneds)) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListAssoc); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (ListAssoc, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVar (Varl)) 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Compo = GnlAssocTraversallnf oComponent (AssocI) ; 
Formal = GnlAssocFormalPort (AssocI) ; 

if (GnlStatus = Gnl GetCellFromGnl Compo (Compo, &Cell) ) 
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return (GnlStatus) ; 

if (Gnl Component Type (Compo) == GNL_USER_COMPO 

IGnlUserComponentGnlDef ( (GNL_USER_COMPONENT) Compo) 
ICell) 
{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName ( (GNL_USER_COMPONENT) Compo) , 
GnlUserComponentlnstName ( (GNLJJSER_COMPONENT) Compo) ) ; 
continue; 

} 

if (Cell) 
{ 

if (!(Pin = LibGetPinFromNameAndCell (Cell, (char*) Formal))) 
continue; 

if ( (LibPinDirection(Pin) OUTPUT_E) || 
(LibPinDirection(Pin) == INOUT_E) ) 

{ 

if (BListAddElt ( *AssocSources , (int) AssocI) ) 
return (GNL_MEMORYJFULL) ; 

} 

continue; 

} 

if ( (GnlVarDir (Formal) GNL_VAR_OUTPUT ) j | 
(GnlVarDir (Formal) == GNL_VAR_INOUT ) ) 
if (BListAddElt (*AssocSources f (int) AssocI)) 
return ( GNL_MEMORY_FULL ) ; 

} 

Function = GnlVarFunction (Var) ; 
if (! Function) 

return (GNLJ3K) ; 

FunctionNode = GnlFunctionOnSet (Function) ; 
if (GnlNodeOp (FunctionNode) ! = GNL__VAR I ABLE ) 
return (GNL_OK) ; 

TargetVar = (GNL__VAR) Gnl Node Sons (FunctionNode); 

if (BListAddElt (*RightVarAssigneds , (int) TargetVar)) 
return (GNL_MEMORY_FULL) ; 

return (GNL__OK) ; 

} 

/* */ 

/* GnlGetDestinationsOfVar */ 

/* */ 

GNL_STATUS GnlGetDestinationsOfVar (Var, AssocDests, Lef tVarAssigneds) 
GNL_VAR Var; 
BLIST *AssocDests; 
BLIST *Lef tVarAssigneds ; 

{ 

int i ; 
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GNL_ASSOC 

GNL_COMPONENT 

GNLJ/AR 

LIBC_PIN 

BLIST 

LIBC_CELL 

GNL STATUS 



ASSOC I; 

Compo ; 
Formal , Varl ; 
Pin; 

ListAssoc; 

Cell; 

GnlStatus; 



if (!Var) 

return (GNL_OK) ; 

ListAssoc = GnlVarTraversallnfoListAssoc (Var) 
if (BListCreateWithSize (1, AssocDests) ) 
return (GNL MEMORY FULL) ; 



if (BListCreateWithSize (1, LeftVarAssigneds) ) 
return (GNL MEMORY FULL) ; 



for (i=0; i<BListSize (ListAssoc); i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (ListAssoc, i) ; 
Compo = GnlAssocTraversallnf oComponent (AssocI) ; 

Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVar (Varl)) 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = GnlAssocFormalPort (AssocI) ; 

if (GnlStatus = GnlGetCellFromGnlCompo (Compo, &Cell) ) 
return (GnlStatus) ; 



if (GnlComponentType (Compo) == GNL_USER_COMPO 

IGnlUserComponentGnlDef ( (GNL_USER_COMPONENT) Compo) && I Cell) 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n n , 
GnlUserComponentName ( (GNL_USER_COMPONENT) Compo) , 
GnlUserComponentlnstName ( (GNL_USER_COMPONENT) Compo) ) ; 
continue; 

} 

if (Cell) 
{ _ 

if (!(Pin = LibGetPinFromNameAndCell (Cell, (char*) Formal))) 
continue ; 

if (LibPinDirection (Pin) == INPUT E) 

{ 

if (BListAddElt ( *AssocDests , (int) AssocI)) 
return (GNL_MEMORY_FULL) ; 

} 

continue; 

} 



if (GnlVarDir (Formal) == GNL_VAR_INPUT | 
GnlVarDir (Formal) == GNL_VAR INOUT) 
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} 



if (BListAddElt (*AssocDests, (int) AssocI) ) 
return (GNL_MEMORY FULL) ; 



ListAssoc = GnlVarTraversallnfoListLeftAssign (Var) ; 
for <i=0; i<BListSize (ListAssoc); i++) 



{ 



if (BListAddElt (*Lef tVarAssigneds , BListElt (ListAssoc, i))) 
return (GNL_MEMORY_FULL) ; 



return (GNL_OK) ; 

} 

/*#endif */ 



/* 

/* GnlTraversalLibCelllnputs 

/* 

/* This procedure propagates thru the inputs and inouts pins of the 
/* current libc cell. We propagate tru all of them except the original 
/* pin 'Pins' (in the case of 'Pins' is an inout) 

/* 

GNL_STATUS GnlTopDownTraversalVar () ; 



-*/ 
*/ 

-*/ 
*/ 
*/ 
*/ 

■*/ 



GNL_US ER_COMPONENT 


UserCompo; 


LIBC_PIN 


Pins ; 


GNL 


Gnl; 


int 


i; 


GNL_ASSOC 


ASSOCI; 


LIBC_CELL 


Cell; 


LIBC_PIN 


ListPins; 


BLIST 


Interface; 


char 


* Formal ; 


GNL_VAR 


Actual; 


LIB C_NAME_L 1ST 


ListPinName; 


char 


*PinName; 



/* The libc cell. 

Cell = GnlUserComponentCellDef (UserCompo) ; 
Interface = GnlUserComponent Interface (UserCompo) ; 
ListPins = LibCellPins (Cell) ; 

for (;ListPins != NULL; ListPins = LibPinNext (ListPins) ) 

if ( (LibPinDirection (ListPins) INPUT_E) || 
( (LibPinDirection (ListPins) == INOUT_E) && 
(ListPins 1= Pins ) ) ) 

{ 

for |i=0; i<BListSize (Interface); i++) 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Formal = GnlAssocFormalPort (AssocI) ; 
ListPinName = LibPinName (ListPins) ; 
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/* if the pin has a complex name (bus or bundle or ...)*/ 
/* we continue. */ 
if ( IGnlSinglePinName {ListPinName) ) 

{ 

fprintf {stderr, 

" WARNING: cell with complex names in pin\n M ); 
continue ; 

} 

PinName = LibNameListName (ListPinName) ; 
if (Istrcmp (PinName; Formal)) 

{ 

Actual = GnlAssocActualPort (AssocI) / 

/* all the actual ports of an instance of a library*/ 
/* cell is a simple 1-bit signal. */ 
if {GnlTopDownTraversalVar (Actual, Gnl) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

} 

return { GNL_OK) ; 

} 



/* */ 

/* GnlTraversalLibCell */ 

/* */ 

/* This procedure treats the case where an association drives a libc */ 
/* cell and is connected to it thru an output or inout pin. If it is */ 
/* connected as an output or inout pin then we propagate recursively to */ 
/* all the inputs + inouts of the cell. This propagation thru the inputs*/ 
/* is done in ' GnlTraversalLibCelllnputs ' . */ 
/* */ 

GNL_ STATUS GnlTraversalLibCell (UserCompo, Assoc, Gnl) 

GNL_USER_COMPONENT UserCompo ; 

GNL_ASSOC Assoc; 

GNL Gnl ; 

{ 

LIBC_CELL Cell; 

char * Formal ; 

LIBC_PIN Pins; 

LIB C_N AME_L 1ST ListPinName; 

char *PinName; 



Formal = GnlAssocFormalPort (Assoc) ; 

Cell = GnlUserComponentCellDef (UserCompo) ; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins) ; 
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/* if the pin has a complex name (bus or bundle or . ..) we 
/* continue. 

if ( IGnlSinglePinName (ListPinName) ) 
continue; 

PinName = LibNameListName (ListPinName) ; 

if {istrcmp (PinName, Formal)) 
{ 

/* If the net connected to the gate is accociated to an 
/* input or inout pin. 

if ( (LibPinDirection (Pins) == OUTPUT E) j | 
^ (LibPinDirection (Pins) == IN0UTJ3) ) 

if (GnlTraversalLibCelllnputs (UserCompo, Pins, Gnl)) 
return ( GNL_MEMORY_FULL ) ; 

break; 

} 

} 



return (GNL OK) ; 

} 

/* 

/* GnlTopDownTraversalVar 

/* 

GNL_STATUS GnlTopDownTraversalVar (Var, Gnl) 



GNL_VAR 


Var; 


GNL 


Gnl; 


int 


i; 


int 


j ; 


BLIST 


ListAssoc; 


GNL_USER_COMPONENT UserCompo ; 


GNL_VAR 


Formal ; 


GNL_VAR 


Actual ; 


GNL__ASS0C 


AssocI ; 


GNL_VAR 


SplitActualJ; 


BLIST 


ListSplitActuals ; 


GNL__FUNCTION 


Function; 


GNL_NODE 


FunctionNode; 


GNL 


GnlDef Compo; 


GNL STATUS 


GnlStatus; 


GNL_VAR 


TargetVar; 


GNL_USER_C0MP0NENT InstOf Gnl ; 


int 


Lef tFormlndex; 


int 


Right Formlndex; 


int 


Index ; 


char 


IndexFormalName ,* 


GNL_VAR 


IndexFormal Var ; 



/* List of the associations where the Var is present. */ 

/* Warning: the var can be present as a simple var or belonging to * 

/* a bus: ex 'a 1 the GNL_VAR and the following verilog where • toto ' * 
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/* is a component, and 'ul 1 the instance name: */ 

/* toto ul ( .x(a) ) ; */ 

/* --> the GNL__ASSOC represents the couple f (x, a)' where 'x' is the 

/* formal and 'a 1 the actual parameter. */ 

/* case where 'a' is used in a bus ('a' is then a 1-bit signal) 

/* toto ul (.x({a,b,c}) ) ; */ 

/* 'x' is a [2:0] variable, {a,b,c} represents the bus formed of the 

/* concatenation of 'a', 'b' and 'c* variables. */ 

ListAssoc = GnlVarTraversallnfoListAssoc (Var) ; 

for (i=0; i<BListSize (ListAssoc); i++) 

{ 

Assocl = (GNL_ASS0C) BListElt (ListAssoc, i) ; 
UserCompo = (GNLJJSER_COMPONENT) 

GnlAssocTraversallnfoComponent (Assocl) ; 
Actual = GnlAssocActualPort (Assocl) ; 

/* actually the Formal parameter of the association is of type 
/* char * so it is a name. We cannot go thru because the user 
/* component should be a black box or a library cell. 
Formal = GnlAssoc Formal Port (Assocl) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR) 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

if (GnlTraversalLibCell (UserCompo, Assocl, Gnl) ) 
return (GNL_MEMORY FULL) ; 

} 

else 

/* It is a black box without any definition so we stop 

/* at its boundary. */ 

{ 

fprintf (stderr, 
" WARNING : black box <%s %s> may modify final estimation\n" 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

continue; 

} 

/* Gnl description of the user component. */ 
GnlDefCompo = GnlUserComponentGnlDef (UserCompo) ; 

/* If the actual var is the same as 'Var' then the formal var 
/* is a 1-bit variable and not a bus. */ 
if (GnlVarlsVar (Actual)) 
{ 

/* To propagate thru the component its associated Formal var 
/* must be an OUTPUT or an INOUT of this component, 
if ( (GnlVarDir (Formal) != GNL_VAR_OUTPUT) 
(GnlVarDir (Formal) != GNL_VAR_INOUT) ) 
continue; 

if (GnlStatus = GnlTopDownTr aver sal Var (Formal, Gnl)) 

return (GnlStatus) ; 
continue; 
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} 

/* Otherwise 'Actual' must be a concatanation of 1-bit variables*/ 
/* and 'Var' must be present among them. */ 
ListSplitActuals = GnlNodeSons ( (GNLJSTODE) Actual ) ; 
Lef tFormlndex = GnlVarMsb (Formal) ; 
Right Formlndex - GnlVarLsb (Formal) ; 



if (Lef tFormlndex < Right Formlndex) 

Index = Lef tFormlndex- 1; 
else 

Index = Lef tFormlndex+l; 



for (j=0; j<BListSize (ListSplitActuals); j++) 

if (Lef tFormlndex < RightFormlndex) 

Index++; 
else 

Index-- ; 

SplitActualJ = (GNL_VAR) BListElt (ListSplitActuals, j); 
if (SplitActualJ == Var) 
{ 

/* we need according to the index extract the formal */ 
/* signal corresponding to this index and call recursi.*/ 
/* 1 GnlTopDownTraversalVar 1 on this signal. */ 
/* with the example above we must call on: */ 
/* "GnlTopDownTraversalVar (x[2])' if 'a* is 'Var T . */ 

/* 'Index' is the value of the formal index bit */ 
/* that we expect. */ 

/* 1 IndexFormalName ' is a new string in memory. */ 
if (GnlVarlndexName (Formal, Index, & IndexFormalName) ) 
return ( GNL__MEMORY_FULL ) ; 

if ( (GnlStatus = GnlGetVarFromName (GnlDef Compo, 

IndexFormalName, &IndexFormalVar) ) ) 

if (GnlStatus == GNL VAR NOT EXISTS) 
{ 

fprintf (stderr, " ERROR: cannot find var\n"); 
return (GNL_VAR_NOT EXISTS) ; 

} 

return (GNL_MEMORY FULL) ; 

} 



if (GnlStatus = GnlTopDownTraversalVar (IndexFormalVar, 

Gnl) ) 

return (GnlStatus) ; 
break; 

} 

} 

} 



/* we traverse now the target Var of the current 'Var 1 . There is */ 
/* only 1 target var if not there is a multisource problem. */ 
/* if 'Var' is 'a 1 and we have the following verilog example: */ 
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/* assign a = x; */ 

/* then we need to propagate thru 'x 1 . */ 

/* We stay in the same Gnl . */ 

Function = GnlVarFunction (Var) ; 

if (! Function) 

return (GNL__OK) ; 

FunctionNode = GnlFunctionOnSet (Function) ; 
if (GnlNodeOp (FunctionNode) == GNL_CONSTANTE ) 
return (GNL_OK) ; 

if (GnlNodeOp (FunctionNode) ! = GNL_VARIABLE ) 
fprintf (stderr, 

" WARNING: the traversal passes thru a real boolean function on net <%s>\n 
GnlVarName (Var) ) ; 
return (GNL_OK) ; 

} 

/* So we have a function on 'Var f of the form : 'Var = TargetVar 1 . */ 
TargetVar = (GNL^VAR) Gnl Node Sons (FunctionNode); 

/* we propagate the traversal on the 'TargetVar'. */ 
if ((GnlStatus = Gnl TopDownTr aver sal Var (TargetVar, Gnl))) 
return (GnlStatus) ; 



return (GNL OK) ; 

} 

/* 

/* GnlTopDownTraversalGnl */ 
/* 1 



GNL_STATUS GnlTopDownTraversalGnl (Gnl) 
GNL Gnl; 

{ 



int 
int 



i; 
j ; 

GNL_STATUS GnlStatus ; 

BLIST Bucketl; 
GNL__VAR VarJ; 
BLIST HashTableNames ; 



/* we scan teh Hash tables of the current 'Gnl 1 to access all its 
/* variables (nets) . */ 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

VarJ - (GNL_VAR) BListElt (Bucketl, j); 

/* If the net is a primary output or inout then we start */ 



/ 



"I 
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/* to traverse in a top down manner. */ 
if { (GnlVarDir (VarJ) == GNL_VAR_OUTPUT) | | 
(GnlVarDir (VarJ) == GNL VAR INOUT) ) 
{ " " 

if { (GnlStatus = GnlTopDownTraversalVar (VarJ, Gnl) ) ) 
return (GnlStatus) ; 

} 



return (GNL OK) ; 



/* 

/* GnlTopDownTraversal 

/* 

GNL_STATUS GnlTopDownTraversalNw (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 

TopGnl = GnlNetworkTopGnl (Nw) / 

if ((GnlStatus = GnlTopDownTraversalGnl (TopGnl))) 
return (GnlStatus) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlSetListPathComponentlnGnl 

/* 

GNL_STATUS GnlSetListPathComponentlnGnl (Gnl, Previous PathCompo) 
GNL Gnl; 
GNL_PATH_COMPONENT Previous PathCompo; 



{ 



int j ; 

BLIST Components; 
GNL_COMPONENT Component J ; 
GNL_USER_COMPONENT UserCompo J ; 
GNL Gnldef; 
GNL_PATH_COMPONENT NewPathCompo ; 
GNL_USER_COMPONENT UserCompo ; 
char *InstanceName; 
BLIST SubList; 
unsigned int Key; 



if (PreviousPathCompo) 

{ 

UserCompo = Gnl Pat hComponent Component (PreviousPathCompo) ; 
InstanceName = GnlUs er Component Ins tName (UserCompo) ; 
Key = KeyOfName (InstanceName, 

BListSize (GnlListPathComponent (Gnl) ) ) ; 
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SubList = (BLIST) BListElt (GnlListPathComponent (Gnl), Key) * 
if (I SubList) 

{ 

if (BListCreateWithSize (1, &SubList) ) 
return ( GNL_MEMORY_FULL) ; 
^BListElt (GnlListPathComponent (Gnl), Key) = (int ) SubList ; 

if (BListAddElt (SubList, { int ) PreviousPathCompo) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

Components = GnlComponents (Gnl) ; 
if ( ! Component s ) 
return (GNL_OK) ; 

for (j=0; j<BListSize (Components); j++) 
{ 

Component J = (GNL_COMPONENT) BListElt (Components, j) ; 
if (GnlComponentType (Component J) != GNL_USER_COMPO) ' 
continue; 

UserCompoJ = (GNL_USER_COMPONENT) Component J; 

/* Apparently a black box or a LIBC cell */ 
if ( IGnlUserComponentGnlDef (UserCompoJ) ) 
continue; 

/* we create a new Path component storing the current component */ 
if (GnlCreatePathComponent (ScNewPathCompo) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlPathComponentComponent (NewPathCompo, UserCompoJ) ; 
/* We point on the previous Path component ' */ 

SetGnlPathComponentPrevious (NewPathCompo, PreviousPathCompo) ; 

Gnldef = GnlUserComponentGnlDef (UserCompoJ) ; 

if (GnlSetListPathComponentlnGnl (Gnldef, NewPathCompo)) 
return (GNL MEMORY FULL) ; 

} 

return (GNL_OK) ; 



/* GnlPrintPathComponent 

/* 

void GnlPrintPathComponent (PathCompo) 
GNL_PATH_COMPONENT PathCompo ,- 

GNL_PATH_COMPONENT Previous ; 
GNL_USER_COMPONENT Compol ; 

if (I PathCompo) 
return; 



*/ 
*/ 
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Previous = Gnl Pa thComponent Previous (PathCompo) ; 
GnlPrintPathComponent (Previous) ; 

Compol = GnlPathComponentComponent (PathCompo) ; 

fprintf (stderr, n %s. n , GnlUserComponentlnstName (Compol)}; 



/* 

/* GnlPrintListPathComponentlnGnl 

/* 

GNL_STATUS GnlPrintListPathComponentlnGnl (Nw, Gnl) 



GNL_ NETWORK 
GNL~ 



Nw; 
Gnl; 



int 
int 
BLIST 

GNL_COMPONENT 

GNL__USER_COMPONENT 

GNL 

GNL PATH COMPONENT 



i; 

j ; 

Components ; 
ComponentJ; 
UserCompoJ; 
Gnldef ; 
PathCompol; 



/* Already traversed and considered this 'Gnl'. 
if (GnlTag (Gnl) GnlNetworkTag (Nw) ) 
return (GNLjDK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

fprintf (stderr, » GNL = <%s>\n" # GnlName (Gnl)); 

for (i=0; i<BListSize (GnlListPathComponent (Gnl)); i++) 

fprintf (stderr, " ") ; 

PathCompol = ( GNL_PATH_COMPONENT ) BListElt ( 

GnlListPathComponent (Gnl) , i) ; 
GnlPrintPathComponent (PathCompol) ; 
fprintf (stderr, "\n") ; 

} 

fprintf (stderr, "\n") ; 

Components = Gnl Components (Gnl) ; 
if ( ! Component s ) 
return (GNL_OK) ; 

for (j=0; j<BListSize (Components); j++) 

ComponentJ = (GNL_COMPONENT) BListElt (Components, j); 
if (Gnl Component Type (ComponentJ) != GNL_USER_COMPO) 
continue; 

UserCompoJ = ( GNL__USER_COMPONENT ) ComponentJ ; 

/* Apparently a black box or a LIBC cell 
if ( iGnlUserComponentGnlDef (UserCompoJ) ) 
continue; 
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Gnldef = GnlUserComponentGnlDef (UserCompoJ) ; 

if (GnlPrintListPathComponentlnGnl (Nw, Gnldef)) 
return (GNL_MEMORY FULL) ; 

} 

return (GNL^OK) ; 

} 



/* 

/* GnlSetListPathComponent 

/* 

/* This procedure scans all the Gnl from the top gnl of the network 
/* and sets the list path components in each of them. */ 
/* 

GNL_STATUS GnlSetListPathComponent (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlSetListPathComponentlnGnl (TopGnl, NULL)) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlPrintListPathComponent 

/* 

void GnlPrintListPathComponent (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 



SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
TopGnl = GnlNetworkTopGnl (Nw) ; 
GnlPrintListPathComponentlnGnl (TopGnl) / 

} 

/* 

/* GnlResizeHashListPathComponentlnGnl 

/* 

#undef TRACE_RE S 1 Z ING 

GNL__STATUS GnlResizeHashListPathComponentlnGnl (Gnl) 
GNL Gnl; 

{ 

int i ; 

int Nblnstances; 

BLIST SubList; 
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int NewSize; 
BLIST MewHashList ; 

GNL_PATH_COMPONENT PathJ ; 
int j ; 

unsigned int Key; 
BLIST NewSubList; 
GNLJJSER_COMPONENT UserCompo J ; 
char *InstanceNameJ; 
int MaxSubList; 



Nblnstances = 0; 

for (i=0; i<BListSize {GnlListPathComponent (Gnl) ) ; i++) 
{ 

SubList = (BLIST) BListElt (GnlListPathComponent (Gnl), i) ; 
if (SubList) 

Nblnstances += BListSize (SubList) ; 

} 

#ifdef TRACE_RES I Z ING 
fprintf (stderr, 

" <%s> Nb.Inst=%d\n" , GnlName (Gnl), Nblnstances); 

#endif 

if (Nblnstances <= HASH_LISTJPATH_COMPO_SIZE) 
return (GNL_0K) ; 

#ifdef TRACE__RESIZING 
fprintf (stderr, 

11 Resizing Hash table path compo of <%s> [Nb . Inst = %d] \n" , 
GnlName (Gnl) , Nblnstances) ; 

#endif 

/* We want too have about not more than 1 elements in each sublist 
/* of the hash list. */ 
NewSize = Nblnstances+l ; 

if (BListCreateWithSize (NewSize, &NewHashList) ) 
return ( GNL_MEMORY_FULL ) ; 

BSize (NewHashList) = NewSize; 

for (i=0; i<BListSize (GnlListPathComponent (Gnl)); i++) 

{ 

SubList = (BLIST) BListElt (GnlListPathComponent (Gnl), i) ; 
if (! SubList) 
continue; 

for (j=0; j<BListSize (SubList); j++) 

{ 

PathJ = (GNL_PATH_COMPONENT) BListElt (SubList, j); 
UserCompoJ = Gnl Pa thComponent Component (PathJ) ,- 
InstanceNameJ = GnlUserComponentlnstName (UserCompoJ) ; 
Key = KeyOfName (InstanceNameJ, BListSize (NewHashList) ) ; 
NewSubList = (BLIST) BListElt (NewHashList, Key) ; 
if ( 'NewSubList) 

{ 
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if (BListCreateWithSize (l, ^NewSubList) ) 

return ( GNL_MEMORY_FULL ) ; 
BListElt (NewHashList, Key) = (int ) NewSubList ; 

} 

if (BListAddElt (NewSubList, (int ) PathJ) ) 
return (GNL_MEMORY_FULL) / 

} 

BListQuickDelete (&SubList) ; 

} 

BListQuickDelete UGnlListPathComponent (Gnl) ) ; 

SetGnlListPathComponent (Gnl, NewHashList) ; 

#ifdef TRACE_RES I Z ING 
MaxSubList = 0; 

for (i=0; i<BListSize (NewHashList); i++) 
{ 

SubList = (BLIST) BListElt (NewHashList, i) ; 
if (BListSize (SubList) > MaxSubList) 
MaxSubList = BListSize (SubList) ; 

} 

fprintf (stderr, ,f Max SubList = %d\n", MaxSubList); 
#endif 

return (GNLJDK) ; 

} 



/* */ 

/* GnlResizeHashListPathComponentlnGnlRec */ 
/* 

/* This procedure resize the hash list of path component depending on */ 
/* the number of path component in the hash list. If the number of path */ 
/* component is greater than HASH_LIST_PATH_COMPO_SIZE then we resize */ 
/* it in order to expect about 1 element in each sublist. */ 
/* ic/ 

GNL_STATUS GnlResizeHashListPathComponentlnGnlRec (Nw, Gnl) 
GNL_NETWORK Nw ; 
GNL Gnl ; 

{ 

int Nblnstances; 

int i ; 

int j ; 

GNL Gnldef; 

BLIST Components; 

GNL__C0MP0NENT Component J ; 

GNL_USER_COMPONENT UserCompoJ; 



/* If already done then we return. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNLJDK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 



C-GNL1-261 



gnlestim.c 



if (GnlResizeHashListPathComponentlnGnl (Gnl) ) 
return (GNL_MEMORY_FULL) ; 

/* We do this recursively ... */ 
Components = Gnl Components (Gnl) ; 
if (I Component s ) 
return (GNL_OK) ; 

for (j=0; j<BListSize (Components)/ j++) 

{ 

Component J = (GNL_COMPONENT) BListElt (Components, j ) ; 
if (GnlComponentType (Component J) != GNL_USER_COMPO) 
continue; 

UserCompoJ = (GNL__USER_COMPONENT) Component J; 

/* Apparently a black box or a LIBC cell 
if ( IGnlUserComponentGnlDef (UserCompoJ) ) 
continue ; 

Gnldef = GnlUser Component GnlDef (UserCompoJ) ; 

if (GnlResizeHashListPathComponentlnGnlRec (Nw, Gnldef) ) 
return (GNL_MEMORY FULL) ; 

} 

return (GNL_OK) ; 



/* * 

/* GnlResizeHashListPathComponent * 

/* *; 

/* we resize the hash list of path component depending on the number *, 
/* of instances leading to a current Gnl. */ 

z , 

GNL_S TATUS GnlResizeHashListPathComponent (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw) +1) ; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlResizeHashListPathComponent InGnlRec (Nw, TopGnl) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) / 

} 

/* #/ 

/* GnlTimingEstimate */ 

/*— v 

/* This procedure computes the timing estimations related to the global */ 
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/* netlist ' GlobalNetwork' using library cells of 'GnlLibc'. 



GNL_STATUS GnlTimingEstimate (Nw, GnlLibc) 
GNL__NETWORK Nw; 
LIBC_LIB GnlLibc; 

{ 

GNL TopGnl ; 

GNL__STATUS GnlStatus ; 

in t RespectLibConstraints ; 

int PrintClkDomain; 

in t PrintCritRegion; 



/* Set up the list of path components to avoid the brutal flattening */ 
/* during estimation. */ 
fprintf (stderr, " Performing Timing Analysis ... \n" ) ; 

if < IGnlEnvRespectLibConstraints () i GnlEnvPostOpt () 
(GnlEnvMode () ! * GNL_MODE_POST_OPTIMIZATION) ) 

if (GnlSetListPathComponent {Nw) ) 
return (GNL__MEMORY_FULL) ; 

/* we resize the hash list of path component depending on the number 

V 

/* of instances leading to a current Gnl . */ 
if (GnlResizeHashListPathComponent (Nw) ) 
return (GNL_MEMORY_FULL) ; 

ftifdef TRACE_PATH 

GnlPrintListPathComponent (Nw) ; 
#endif 

} 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw) +1) ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

PrintClkDomain = GnlEnvPrintClkDomain ( ) ; 
PrintCritRegion = GnlEnvPrintCritRegion ( ) ; 

if (TimeEstimate (Nw, GnlLibc, PrintClkDomain, PrintCritRegion)) 
return (GNL_MEMORY_FULL) ; 



return (GNL OK) ; 

} 

/* ^ 

/* GnlTimingEstimateAfterSynthesis */ 

/*— : J, 

/* This procedure computes the timing estimations related to the global */ 
/* netlist 'GlobalNetwork' using library cells of 'GnlLibc' */ 

z* v 

GNL_STATUS GnlTimingEstimateAf terSynthesis (Nw, GnlLibc) 
GNL_NETWORK Nw; 
LIBC_LIB GnlLibc; 

{ 
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GNL TopGnl ; 

GNL STATUS GnlStatus ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 
if (GnlLinkLib (Nw, TopGnl, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

if ( (GnlStatus = GnlTimingEstimate (Nw, GnlLibc) 
return (GnlStatus) ; 

return (GNL OK) ; 



/* */ 

/* GnlEstimate */ 
/* */ 

GNL_STATUS GnlEstimate () 

{ 

int i ; 

GNL Gnl ; 

GNL Gnll; 

BLIST ListGnlS; 

LIBC_LIB GnlLib; 

GNL_LIB HGnlLib; 

int Done ; 

FILE *OutFile; 

GNL_STATUS GnlStatus ; 

GNL TopGnl ; 

GNL NETWORK GlobalNetwork; 



if (GnlEnvOutput ( ) ) 
{ 

if ( {OutFile = fopen (GnlEnvOutput () , "w")) == NULL) 

{ 

fprintf (stderr, " ERROR: Cannot Open Output File • %s , \n lt , 

GnlEnvOutput ( ) ) ; 
return ( GNL__C ANNOT_0 P EN_OUT FILE) ; 

} 

fclose (OutFile) ; 

} 

if ((OutFile = fopen (GnlEnvLib ( ) , "r")) == NULL) 
{ 

fprintf (stderr, " ERROR : Cannot Open Library File 1 %s'\n", 

GnlEnvLib () ) ; 
return (GNL__CANNOT_OPEN__LIBRARY) ; 

} 

fclose (OutFile) ; 

if (GnlEnvInputFormat () GNL_INPUT__VLG) 
{ 

fprintf (stderr f "\n Reading Verilog file [%s] . . ,\n" , 

GnlEnvInput ( ) ) ; 
if (GnlRead (GnlEnvInput () , &ListGnls) ) 

{ 
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fprintf (stderr, " ERROR : Cannot Open Input File ' %s'\n" , 

GnlEnv Input ( ) ) ; 
return (GNL__CANNOT_OPEN_INPUTFILE) ; 

} 

fprintf (stderr, 11 Verilog Netlist Analyzed\n" ) ; 

} 

else 

{ 

fprintf (stderr, 

" ERROR: Estimation! must be done on Verilog netlist input\n H ); 
return (GNL_CANNOT_OPEN_INPUTFILE) ; 

} 

/* Sort and prints the list 'ListGnls 1 by putting first the top */ 
/* level modules */ 
SortTopLevelModules (ListGnls) ; 
GnlPrintTopLevels (ListGnls) ; 

if ( IGnlEnvTopO ) 
{ 

Gnll = (GNL) BListElt (ListGnls, 0); 
TopGnl = Gnll; 
fprintf (stderr, 

" WARNING: Top Level Module is [%s] by def ault\n" , 

GnlName (TopGnl) ) ; 

} 

else 

{ 

/* Taking the top level module from the user */ 
TopGnl = NULL; 

for (i-0; i<BListSize (ListGnls) ; i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
if (Istrcmp (GnlName (Gnll), GnlEnvTop ( ) ) ) 
{ 

TopGnl = Gnll; 
break; 

} 

} 

} 



if (TopGnl == NULL) 
{ 

fprintf (stderr, " ERROR: cannot find top-level module [%s]\n n , 

GnlEnvTop { ) ) ; 
return (GNL_CANNOT_FIND_TOP_LEVEL) ; 

} 

/* we create the Global network. */ 
if (GnlCreateNetwork (TopGnl, &GlobalNetwork) ) 
return (GNL_MEMORY_FULL) ; 

/* Reading and building the technology library */ 
fprintf (stderr, "\n Reading Library [%s] 

GnlEnvLib () ) ; 
if (LibRead (GnlEnvLib () , &GnlLib) ) 
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{ 

fprintf (stderr, " ERROR: Library analysis aborted\n") ; 
return (GNL_ERROR_LIBRARY_READING) ; 

} 

fprintf (stderr, " Library analyzed\n" ) ; 

/* Checking correctness of the network * GlobalNetwork ' . */ 
if { (GnlStatus = GnlCheckNetwork (GlobalNetwork) ) ) 
return (GnlStatus) ; 

fprintf (stderr, 

"\n Checking Hierachical interfaces from top module [%s]\n", 
GnlName (TopGnl) ) ; 

/* We verify the correct connection between user components and */ 
/* their definitions and update some fields (Ref Count) . */ 
if (GnlUpdateNCheckHierarchylnterf ace {GlobalNetwork, TopGnl, 

ListGnls) ) 

return (GNL_MEMORY_FULL) ; 

/* We link each component of all the Gnls in the network with the */ 
/* libc cells of same name. */ 
fprintf (stderr, " Linking Components With Libc Cells\n") ; 
if (GnlLinkLib (GlobalNetwork, TopGnl, GnlLib) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We modify the original GNL_USER_COMPONENT components according to */ 
/* to their linking libc cell. Only Predefined components like Dffs, */ 
/* latches, tristates are replaced. */ 
if (GnlReplacePredef Component sWithLinkLibCel Is (GlobalNetwork, TopGnl , 

GnlLib) ) 

return (GNL_MEMORY__FULL) ; 



if (GnlReportDataForEstimation (GlobalNetwork, GnlLib) ) 
return (GnlStatus) ; 

return (GNL OK) ; 
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*/ 




rile : 


ynj.estini . n 




/ 


Version: 


1.1 




*/ 


Modifications : 






*/ 


Documentation : 




*/ 

*/ 


*/ 



#ifndef GNLESTIM_H 
#define GNLESTIM H 



/* 

/* Info stored in GNL_ASSOC thru Hook field 
/* 

typedef Struct GNL_ASSOC_TRAVERSAL_INF0__STRUCT { 

GNL_COM PONENT Component; /* Component to which the assoc */ 

/* belongs to. */ 

void *Hook; 

} 

GNL_ASSOC_TRAVERSAL__INFO_REC , *GNL_ASSOC_TRAVERSAL_INFO ; 

#define GnlAssocTraversallnf oComponent (n) \ 

( ( (GNL_ASSOC__TRAVERSAL_INFO) ( (n) ->Hook) ) ->Component) 

#define GnlAssocTraversallnf oHook (n) \ 

( ( { GNL_AS SOC__TRAVERSAL__INFO ) { (n) ->Hook) ) ->Hook) 

#define SetGnlAssocTraversallnf oComponent (n,b) \ 

( ( (GNL_ASSOC_TRAVERSAL_INFO) ( (n) ->Hook) ) ->Component = b) 

#define SetGnlAssocTraversallnf oHook (n, b) \ 

( ( ( GNL_AS S 0 C_TRAVERS AL_ I NFO ) ( (n) ->Hook) ) - >Hook = b) 

/* 

/* Info stored in GNL_VAR thru Hook field 

/* 

typedef struct GNL_VAR_TRAVERSAL__I NFO_S TRUCT { 

BLIST ListAssoc; /* List of association where the var is */ 

/* present in the actual parameter. 
BLIST ListLef tAssign; /* List of GNL_VAR which are on the left*/ 

/* assignment of the current var. */ 
/* assign x = y; where , y t current var. */ 

void *Hook; 

} 

GNL_VAR_TRAVERSAL_INFO_REC , *GNL_VAR_TRAVERSAL_INFO ; 

#def ine GnlVarTraversallnf oListAssoc (n) \ 

( ( (GNL_VAR_TRAVERSAL_INFO) ( (n) ->Hook) ) ->ListAssoc) 

#define GnlVarTraversallnf oListLef tAssign (n) \ 

( ( (GNL_VAR_TRAVERSAL_INFO) ( (n) ->Hook) ) - >ListLef tAssign) 

#define GnlVarTraversallnf oHook (n) \ 

( ( (GNL_VAR_TRAVERSAL_INFO) ( (n) ->Hook) ) ->Hook) 

#define SetGnlVarTraversallnf oListAssoc (n, b) \ 

( ( (GNL_VAR__TRAVERSAL_INFO) ( (n) ->Hook) ) ->ListAssoc = b) 

#define SetGnlVarTraversallnf oListLef tAssign (n, b) \ 

( ( (GNL_VAR_TRAVERSAL_INFO) ( (n) ->Hook) )- >ListLef tAssign = b) 
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#define SetGnlVarTraversallnf oHook (n, b) \ 

{ ( (GNL_VAR_TRAVERSAL_INFO) ( (n) ->Hook) ) ->Hook = b) 

/* EOF */ 

#endif 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


gnlf sm. h 


Version: 


1.1 


Modifications : 




Documentation : 




Class: none 




Inheritance : 





/* 

/* DEFINES for Dead code detection 

/* 

#define DCD_Unknown_Region 

#define DCD_Architecture__Body 1 

#define DCD_Subprogram__Body 2 
#define DCD_Guarded_Assignment 

#define DCD_If_Region 4 

#define DCD_Elsif JRegion 5 

#define DCD_Else__Region 6 

#define DCD__CaseWhen_Region 7 

#define DCD_CaseWhenOthers_Region 8 

#define DCD_Loop_Region 9 

#define DCD_Next_Branchmnt 10 

#define DCD_Exit_Branchmnt 11 

ftdefine DCD_Af ter_Next 12 

#define DCD_Af ter_Exit 13 

#define DCD_Af ter__Return 14 

#define DCD_After_If 15 

#define DCD_Af ter_Case 16 

#define D CD_Af t e r_Wa i t 17 

#define DCD_Empty_Region 18 

#define DCD_Wavef orm 19 

#define DCD_Else_Wavef orm 21 

#define DCD Others Waveform 21 
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%{ 

/* ±i 

/* */ 

/* File: gnlfsm.l */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Class: none */ 

/* Inheritance: */ 

/* */ 

/* */ 



#include <string.h> 
#include <ctype.h> 
#include <string.h> 

#include "f smtokens . h" 
#include "gnlf sm . h" 



/* ie/ 

int yylex (void) ; 

int yylook (void) ; 

int yyreject (void) ; 

int yywinput (void) ; 

int yyinput (void) ; 

int yymbinput (void) ; 

char * mbsinvalid (const char *s) ; /* defined in mbstr.h */ 



/* Text Buffer in LEX */ 

# undef YYLMAX 

# define YYLMAX ( MAXNAMELENGTH + 512) 

# define YY_NO_UNTPUT /* to remove definition of yyunput */ 



extern int LineNumberReadFsm; 
extern FILE *yyin; 
extern int yydebug; 
extern int FsmVersion ; 

%} 

% START ATTR V3 V4 V5 

%p 7650 

%n 1300 

%a 9000 

%o 8500 

%e 1550 



/* Input Stream line counter */ 



/* Fsm version */ 



{ 



ifdef MYLEXDEBUG 

f print f (yyout, "\n%4d %s", 
LineNumberReadFsm, yytext) ; 
endif 
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REJECT ; 



. f smversion" [ ] + [0-9] + 



# 
# 



{ /* . f smversion 5 */ 
char *pc 



s t r r chr (yy t ext , 



) 



sscanf 



default 

} 



ifdef MYLEXDEBUG 

f print f (yyout, "FSMVERSION %s", yytext) 
endif 

(pc # "%d", ScFsmVersion) ; 

switch (FsmVersion) { 

case 3: BEGIN V3 ; break; 

case 4: BEGIN V4; break; 

case 5: BEGIN V5; break; 
: BEGIN V3; 



ifdef MYLEXDEBUG 
f print f (yyout, 
FsmVersion) ; 
endif 

return FSMVERSION; 



FsmVersion=%d\n" , 



tf, .date " 



# 
# 



ifdef MYLEXDEBUG 

fprintf (yyout, "DATE\n" ) ; 
endif 

if (FsmVersion =~ 3) BEGIN V3 ; 





return 


DATE; 


" . signature " 


{ return 


SIGNATURE; 


" .paramvalue " 


{ return 


PARAMVALUE; 


" . retumrange " 


{ return 


RETURNRANGE ; 


" .pragma " 


{ return 


PRAGMA ; 


".fsm » 


{ return 


FSM; 


".library " 


{ return 


LIBRARY; 


" . instances" 


{ return 


INSTANCES; 


" . clocks" 


{ return 


CLOCKS ; 


" . inputs " 


{ return 


INPUTS ; 


" .outbuses" 


{ return 


OUTBUSES ; 


" . inoutbuses" 


{ return 


INOUTBUSES; 


" . statevars" 


{ return 


STATEVARS ; 


" .breakpoints" 


{ return 


BREAKPOINTS; 


" .bb inputs " 


{ return 


BB INPUTS; 


" .bbinouts" 


{ return 


BBINOUTS; 


" .bboutputs" 


{ return 


BBOUTPUTS ; 


" .bbgenerics " 


{ return 


BBGENERICS; 


" . dontcares" 


{ return 


DONTCARES ; 


" .globals " 


{ return 


GLOBALS ; 


" . axioms " 


{ return 


AXIOMS; 


" . asserts" 


{ return 


ASSERTS ; 


".valid » 


{ return 


VALID; 


" .values" 


{ return 


VALUES ; 


" . functions" 


{ return 


FUNCTIONS ; 


" .end" 


{ return 


END; 


" .eoff " 


{ return 


EOFF; 


" .history" 


{ return 


HISTORY ; 


" .OriginLang" 


{ return 


ORIGINLANG; 
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A " . filenames " 

A " . deadcodedetects" 

" .loc" 

" . altname" 

" . not » 

" . type " 

* " . enumerations " 
" . enum_encoding" 
[(] 
[)] 

[:] 
[J 
["] 
[/] 

" @Unknown_Region " 



" ©Archi t ec ture_Body " 

" @Subprogram_Body " 

" @Gua r ded_As s i gnmen t " 

n @If_Region" 

" @E 1 s i f _Regi on " 

n @Else_Region" 

"@CaseWhen_Region" 

"©CaseWhenOthersJRegion" 

" @Loop_Reg ion" 

n @Next_Jump" 

"@Exit_Jump" 

n @After_Next " 

"©After Exit" 



{ return FILENAMES; 

{ return DEADCODEDETECT ; 

{ return LOC; 

{ return ALTNAME; 

{ return NOT; 

{ return TYPE; 

{ return ENUMERATIONS ; 

{ return ENUM_ENCOD ING ; 

{ return OPENPAR; 

{ return CLOSEPAR; 

{ BEGIN ATTR; return COLON; 

{ return COMMA; 

{ return DASH; 

{ return SLASH; 



{ yylval.integ = DCD_Unknown__Region; 
return DCD_REGION; 

} 

{ yylval.integ = DCD_Architecture_Body ; 
return DCD__REGION ; 

} 

{ yylval.integ = DCD_Subprogram_Body ; 
return DCD_REGION; 
} 

{ yylval.integ = DCD_Guarded_As si gnmen t; 
return DCD__REG I ON ; 

} 

{ yylval.integ = DCD__If_Region; 
return D CD_REG I ON ; 
} 

{ yylval.integ = DCD_Elsif_Region; 
return DCD_REG I ON ; 

} 

{ yylval.integ = DCD_Else_Region; 
return DCD_REG ION ; 
} 

{ yylval.integ = DCD_CaseWhen_Region; 
return DCD_REGION; 

} 

{ yylval.integ = DCD__CaseWhenOthers_Region; 
return DCD_REGION; 

} 

{ yylval.integ = DCD_Loop_Region; 
return DCD_REG I ON ; 

} 

{ yylval.integ = DCD_Next_Branchmnt ; 
return DCD_REG ION ; 

} 

{ yylval.integ = DCD_Exit_Branchmnt ; 
return DCD_REGION ; 

} 

{ yylval.integ = DCD__Af ter_Next ; 
return DCD_REGION; 

} 

{ yylval.integ = DCD_Af ter__Exit ; 
return DCD_REGION; 

} 
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"@Af ter_Return" 

,f @After_If " 

"@After_Case" 

"@Af ter_Wait" 

" @Empty_Region " 

"©Waveform" 

" @E 1 s e_Wave form" 

" @0 1 he r s_Wave f orm " 

< ATTR > " Enume r a t e " 

# 

# 



<ATTR> " Integer " 

# 

# 



"Options " 
".Options " 

[.] 

# 



return 

} 

return 

} 

return 

} 

return 



return 



return 

} 

return 

} 

return 

} 



yylval . integ 

DCDJREGION; 

yylval . integ 
DCD__REGION; 

yylval . integ 
DCD_REGION; 

yylval . integ 
DCD_REGION; 

yylval . integ 
DCDJU3GI0N; 

yylval . integ 
DCD_REGION; 

yylval. integ 
DCD_REGION; 

yylval . integ 

DCD_REGION; 



DCD_Af t e r_Re turn ; 
DCD_After_If ; 
DCD_Af ter_Case ; 
DCD_Af ter_Wait ,- 
DCD_Empty_Region ; 
DCD_Waveform; 
DCD_E 1 s e_Wave f orm ; 
DCD_Others_Waveform; 



yylval. string = strdup (yytext) ; 
ifdef MYLEXDEBUG 

fprintf (yyout, " E3STUMERATE %s\n" , yytext) 
endif 

switch (FsmVersion) { 

case 3: BEGIN V3 ; break; 

case 4: BEGIN V4 ; break; 

case 5: BEGIN V5; break; 
default: BEGIN V3 ; 
} 

return ENUMERATE ; 

} 
{ 

yylval. string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "KINTEGER %s\n", yytext); 
endif 

switch (FsmVersion) { 

case 3: BEGIN V3 break; 

case 4: BEGIN V4 ; break; 

case 5: BEGIN V5 ; break; 
default: BEGIN V3; 
} 



} 



return KINTEGER ; 



{ return OPTIONS; } 

{ /* hierarchical ' . » */ 

yylval . string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "HPOINT %s\n" / yytext); 
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["] ( ["] ["] I [""])*["] 



%s\n" ,yylval . string) 
# 



} 



endif 

return HPOINT; 



{ /* "abc""def H -> string abC'def */ 

char *str, *pc; 
int strlg = strlen (yytext) -2; 

yylval . string = (char*) malloc (strlg+1) ; 

str = yylval . string; 

pc = yytext + 1; /* sauter le ler */ 

while (*pc != *\0') { 
if (*pc == ' \n') LineNumberReadFsm ++; 
if (*pc == »»' *{pc+l) == pc ++; 

*str = *pc; 

Str + +; pc ++; 

} 

/* supprimer la derniere ' " ' */ 
* (-- str) = *\0» ; 
ifdef MYLEXDEBUG 

fprintf (yyout, "STRING 

endif 

return STRING; 



['] [\\] [\\] ['] 
[*J • [•] 

# 

# 



{ /* 'a' , , 'W */ 

yylval. string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "CHARACT %s\n" , yytext); 
endif 

return CHARACT; 

} 



<V4>vf [:] [0-9] + [{] [0-9] + [)] | 
<V5>vf [@] [0-9] + [(] [0-9] + [)] | 

[\\] (C\\] [\\] | t A \\])*[\\] ([(]-? [a-zA-ZO-9] + {[,]-? [a-zA-ZO-9] +)*[)])+ | 
[a-zA-Z] [a-zA-Z0-9_] *([(]-? [a-zA-ZO-9] + ([,]-? [a-zA-ZO-9] +)*[)])+ { 

/* ab(3,52) (2) , \ab\\nc\(3,52) (2) */ 
yylval . string = strdup (yytext); 

# ifdef MYLEXDEBUG 

fprintf (yyout, "BITIDENT %s\n" / yytext) 

# endif 

return BITIDENT; 



[*] [0-9] + 
# 

yytext, 
# 



} 



{ /* '12 '334 -> 12 334 */ 

sscanf (yytext+1, "%d M , &yylval . integ) ; 
ifdef MYLEXDEBUG 

fprintf (yyout, "TICKNUM %s, %d\n" , 

yylval . integ) ; 

endif 

return TICKNUM; 



[ ' ] stable 
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[ * ] event 
# 
# 



{ /* 'event or 'stable */ 

yylval . string = strdup (yytext) ; 
ifdef MYLEXDEBUG 

fprintf (yyout, "TICKEV %s\n" , yytext) ; 
endif 

return TICKEV; 

} 



( [ (] (-? [0-9] + (" downto 
9]+)*) [)])+ { 

*/ 

# 
# 



to ") -? [0-9] + <[,]-? [0-9] + (» downto 11 | " to ")-?[0- 

/* (5 downto -2,-7 to 10) (2 to 8) (13 downto 9) 

yylval .string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout; "RANGE %s\n ,r , yytext); 
endif 

return RANGE; 



<V4>( [:]rcfj + 
<V3 / V5>( [@]rcf ) + 



{ 



/* V3 for bpsubst, fsmr, has re-writen an fsmV3 into an fsmVS */ 

yylval . string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "RECORDFIELD %s\n" / 



yytext) ; 
# 



endif 

return RECORDFIELD ; 



<V4 >mod [crv] [:] 
<V5>mod[crv] [@] 
<V4 >mo [df prw] [ : ] 
<V5>mo [dfprw] [@] 
<V4>ano [ : ] 
<V5>ano [@] 
<V4>a[0-9]+o[:] 
<V5>a [0-9] +o [@] 
<V4>bp [0-9] + [ : ] 
<V5>bp[0-9] + [@] 
<V4>line [0-9] + [:] 
<V5>line [0-9] + [@] 

# 



yylval . string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "PREFIX %s\n", yytext) 
endif 

return PREFIX; 



mc [ :@ j ] [ ' ] event 
<V4>dc_line [0-9] + [ : ] [0-9] + 
<V5>dc_line [0-9] + [@] [0-9] + 
<V4>vf [:] [0-9] + 
<V5>vf [@] [0-9] + 

[\\] ([\\] [\\] | r\\])*[\\] 
<V3 , V4 # V5> [a-zA-Z] [a-zA-ZO- 



9_3* { /* \ab\\c25\, abc25 */ 
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# 
# 



-? [0-9] + 



yylval . string = strdup (yytext); 
ifdef MYLEXDEBUG 

fprintf (yyout, "ID %s\n n , yytext); 

endif 

return ID; 

} 

{ /* 10, -73 */ 

sscanf (yytext, "%d", &yylval . integ) 
ifdef MYLEXDEBUG 

fprintf (yyout, " INTEGER %s, %d\n" 
yytext, yylval . integ) ; 

endif 

switch (FsmVersion) { 
case 3: BEGIN V3 ; break; 
case 4: BEGIN V4; break; 
case 5: BEGIN V5 ; break; 
default: BEGIN V3 ; 

} 

return INTEGER; 

} 



» _ » * 

\n 



['J 

it n 

<<EOF>> 



{ 



} 



LineNumberReadFsm ++; 
return TNULL; 

7 

{ fprintf (stdout, "\n"); return 0; } 



\t 

/* Last LEX rule */ 
#if defined (FLEX_SCANNER) 

# ifdef CHECK_ALLOC 

/* Avoid trap malloc of internal flex- 2. 5. 2 code */ 

# undef malloc 

# undef calloc 

# undef realloc 

# undef strdup 

# undef free 

# endif 
#endif 



} 



%% 



#if defined (FLEX SCANNER) 



# 


ifdef CHECK_ALLOC 






/* Re-trap malloc 


for user 


# 


define malloc 


MALLOC 


# 


define calloc 


CALLOC 


# 


define realloc 


REALLOC 


# 


define strdup 


STRDUP 


# 


define free 


FREE 


# 


endif 





#endif 
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int yylexclearin (void) 

{ 

int token; 

while ((token = yylex ()) != END) { 
switch (token) { 
case STRING: 
case BITIDENT: 
case ID: 
case RANGE: 
case ENUMERATE: 
case KINTEGER: 
case HPOINT: 
case CHARACT: 
case TICKEV: 
case PREFIX: 
case RECORDFIELD: 

free (yylval . string) ; 

break; 
default: break; 

} 

} 

return 0; 

} 
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%{ 

/* */ 

/* */ 

/* File: gnlfsm.y */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Class: none */ 

/* Inheritance: */ 

/* */ 

/* */ 

#include <stdio.h> 
#include <ctype.h> 
#include <malloc.h> 
#include <string.h> 

#include "blist.h" 
#include "gnl.h" 

/* */ 

/* EXTERN */ 

/* */ 

extern BLIST G_ListOf Gnls ; 

extern GNL G_CurrentGnl ; 

/* */ 

/* GLOBAL */ 

/* */ 

GNL__STATUS G_GnlStatus ; 
GNL_VAR G _ Var ; 

char *G_NewName ; 

int G_NbBddNodes; 

BLIST G_HashListFsmVar; /* Hash list where fsm var. are */ 

/* hashed according to their Id */ 
BLIST G_ListFuncIdDontCare; /* List of Bitldent corresponding to 

*/ 

/* axioms that we will ignore. */ 
int G_MaxValueId; /* Max Bitldent found in the 1 .values' */ 

/* section of the fsm file. */ 
int G_ListLhsVar; /* List of couples : */ 

/* (Idl, Id2) where r Idl > is the Id */ 
/* of the output/ inout /breakpoint */ 
/* function * 162 1 value of the id */ 
/* Function. */ 
BLIST G_ListStateVar; /* List of couples : */ 

/* (Idl, 162) where 'Idl' is the Id */ 
/* of the output/ inout /breakpoint */ 
/* function ' Id2 ' value of the id */ 
/* Function. */ 
BLIST G__ListInstances,-/* List of triplets: (instance_name, */ 

/* GnlName, File) */ 

static int G_HierarchicalMode; /* 0 -> '-hierarchical' option */ 
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/* not used, 1 -> option used. 



static BLIST G_ListPorts; 
static BLIST G_ListLoc ; 

static char *NewStr; 

/* 

int yyparse (void) ; 

int yylex (void) ; 



int LineNumfoerReadFsm; 
int FsmVersion; 



/* 

/* DEFINE */ 

/* 

#define HASH_LIST_SIZE_FSM_VAR 5000 

#define TRANS LATE_V2_V3 1 

#define MASTER CLOCK_EVENT "mc | 1 event " /* also defined in type.h */ 

#define TICKEVENT '"event" /* also defined in fsm.h */ 



%} 

%union { 

int integ; 
char * string; 

} 

%start file 
%token TNULL 

%token FSM LIBRARY COLON OPENPAR CLOSEPAR COMMA DASH SLASH 

%token SIGNATURE PARAMVALUE RETURNRANGE OPTIONS 

%token AXIOMS ASSERTS CLOCKS DATE END EOFF FUNCTIONS 

% token INOUTBUSES INPUTS OUTBUSES 

%token PRAGMA STATEVARS VALID INIT INSTANCES 

%token BBINPUTS BBINOUTS BBOUTPUTS BBGENERICS 

%token GLOBALS DONTCARES BREAKPOINTS 

%token VALUES REFMODL DERMODL NAMEMATCH 

%token FILENAMES DEADCODEDETECT ALTNAME LOC NOT TYPE ENUMERATIONS 
%token ENUM_ENCODING HISTORY ORIGINLANG 

% token <integ> INTEGER TICKNUM FSMVERSION DCD_REGION 

% token <string> STRING BITIDENT ID RANGE TICKEV RECORDFIELD 

% token <string> ENUMERATE KINTEGER HPOINT CHARACT PREFIX 

%type <string> Bitldent SimpleBitldent filename FsmName 

%type <string> HBitldents HBitldent Id Attribut strings 

%type <string> typenum enum_en coding enumlit 

%type <string> id_records id_record 

%% 

file : 
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LineNumberReadFsm = 1; 
G_MaxValueId = 0; 
G_NbBddNodes - 0; 

if (GnlCreate (NULL, &G_CurrentGnl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (G_ListOf Gnls , (int ) G_CurrentGnl ) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (HASH_LIST_SIZE_FSM_VAR / 

&G_HashListFsmVar) ) 

return <GNL_MEMORY_FULL) ; 
BSize (G_HashListFsmVar) = HASH_LIST_SIZE_FSM_VAR; 

if (BListCreateWithSize (1, &G_ListFunddDontCare) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListCreateWithSize (1, &G_ListLhsVar) ) 
return (GNL__MEMORY_FULL) ; 

if (BListCreateWithSize (1, &G_ListStateVar) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlListStateVar (G_CurrentGnl , G_ListStateVar) / 

if (BListCreate ( &G_List Ports ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlListPorts (G_CurrentGnl , G_ListPorts) ; 

if (BListCreate ( &G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreate (&G_List Instances) ) 

return (GNL_MEMORY_FULL) ; 
G_HierarchicalMode = 0; 

} 

f smdecl 
Functions 

BListQuickDelete (&G_ListLoc) ; 

} 



fsmdecl : Header 

{ 
} 

Declarations 

{ 

} 

Values 

{ 

} 

Axioms Asserts Valid 

{ 
} 



/* The .fsmversion and the .date are mandatory at the beginning */ 
/* .date has the form: YYYY-MMM-DD HH:mn:ss.hh */ 
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Header : FSMVERSION 



} 



Controles 



Controles 



Controles Controle 



Con t role 



Signature 
ParamValue 
ReturnRange 
Pragma 
DATE STRING 

{ } 
FSM FsmName 

{ } 

Library 
OriginLang 
HISTORY histories 



Functions : Funs END 

{ YYACCEPT; } 



histories : histories STRING 

{ 



/* The Date is optional for non regression purposes */ 
/* It has the form: YYYY-MMM-DD HH:mn:ss.hh */ 

/* 

Pragma to store needed informations. It is optional. 
Trace options of fsmc. 

*/ 

Pragma : PRAGMA options 



options : OPTIONS string__options 



string_options : string_options STRING 

{ 

if (Istrcmp ($2, "-hierarchical")) 
G_HierarchicalMode = 1; 

} 



strings : strings STRING 
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{ 

char *st = realloc ($1, strlen ($1) + strlen ($2) + 1) ; 
$$ = strcat (st, $2) ; 
free ($2) ; 

} 

| STRING 
{ $$ = $1; } 



/* 

The signature in the case of a function or a procedure. 

*/ 

Signature : SIGNATURE strings 

{ } 

/* 
*/ 

ParamValue : PARAMVALUE strings 

{ } 

o /* 

yQ Function return value. 

*/ 

ReturnRange : RETURNRANGE strings 

{} 



N 



? = 5 



/* The name of the FSM is mandatory */ 

FsmName : FsmName DASH Bitldent 

{ 

if (GnlStrAppendStrCopy ($1, " - », &G_NewName) ) 

return (GNL_MEMORY_FULL) ; 
$$ = G_NewName ; 

if (GnlStrAppendStrCopy ($$, $3, &G_NewName) ) 

return <GNL_MEMORY_FULL) ; 
$$ = G_NewName; 

SetGnlName (G_CurrentGnl , $$) ; 

} 

| Bitldent 
{ $$ = $1; } 



/* The name of the logical LIBRARY */ 
Library : LIBRARY STRING 
{ } 



/* The original language among {VHDL, Verilog} */ 

OriginLang : ORIGINLANG ID 

{ } 

/* The clock definition is optional. If no clock is defined we suppose */ 
/* that the description is purely combinational. */ 
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: clocks clock 

I 

Bitldent COLON RANGE Attribut INTEGER typenum 
{ } 

Bitldent COLON Attribut INTEGER typenum 
{ } 

/* Variables are grouped in blocks of variables with the same types */ 
/* Variable blocks are optional. */ 

/* Note: All variables can have an specified initial value. */ 
Declarations : Declarations declaration 



clocks 
clock : 





declaration 


: ENUMERATIONS 


enumerations 






| CLOCKS 


clocks 






| INPUTS 


inputs 






| OUTBUSES 


outbuses 






| INOUTBUSES 


inoutbuses 


111 




| STATEVARS 


svars 






| BB INPUTS 


bb inputs 






| BBINOUTS 


bbinouts 






j BBOUTPUTS 


bboutputs 






| BBGENERICS 


bbgenerics 






| BREAKPOINTS 


breakpoints 






| DONT CARES 


dont cares 






| GLOBALS 


globals 






| INSTANCES 


string_instances 



/* If we have instances then we must have the option */ 
/* '-hierarchical' present. */ 
if (BListSize (G_ListInstances) && 
I G_HierarchicalMode) 

{ 

fprintf {stderr, 

"ERROR : Fsmc must be generated with '-hierarchical' option\n") / 
return (GNL_BAD_FSM_FOR_SYNTHESIS) ; 

} 

if (GnlCreateFsmComponents (G_CurrentGnl , 

G_ListInstances) ) 

return (GNL_MEMORY_FULL) ; 

} 

| FILENAMES filenames 

{ 
} 

| DEADCODEDETECT deadcodedetects 

{ 
} 



C-GNLl-283 



gnlfsm.y 



deadcodedetects : deadcodedetects deadcodedetect 

{ 
} 

{ } 



deadcodedetect 



{ 



INTEGER COLON INTEGER SLASH INTEGER INTEGER DCD REGION 



if U$6) 



f print f (stderr, 
WARNING: Dead Code has been detected in file 'Is^n", 

GnlGetShortFileName (GnlListSourceFiles (G_CurrentGnl) , 

$D) ; 

fprintf (stderr, " when entering line %d\n" / $3) 



} 



} 



filenames : filenames filename 

{ 



{ } 



filename 



Values 



{ 



INTEGER STRING 



{ 



if (GnlStrCopy ($2, &NewStr) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlListSourceFiles (G_CurrentGnl) , 
(int)NewStr) ) 
return (GNL_MEMORY_FULL) ; 



} 



if (GnlCreateAllSignals (G_CurrentGnl) ) 
return (GNL_MEMORY_FULL) ; 

} 

VALUES values 



values : values value 



value : fields alters 



BSize (G ListLoc) = 0; 



{ 
} 

locats 

{ 

if (GnlSetLocationlnVar (G_Var, G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

I field6 alters 
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BSize (G_ListLoc) = 0; 

} 

locats 

{ 

if (GnlSetLocationlnVar (G_Var, G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

| fields alters 

{ 

BSize (G_ListLoc) = 0; 

} 

locats 

{ 

if (GnlSetLocationlnVar (G_Var, G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

| field4 alters 

{ 

BSize (G_ListLoc) = 0; 

} 

locats 

{ 

if (GnlSetLocationlnVar (G_Var, G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

| field3 alters 
{ 

BSize (G_ListLoc) = 0; 

} 

locats 

{ 

if (GnlSetLocationlnVar (G__Var, G_ListLoc) ) 
return (GNL_MEMORY_FULL) ; 

} 



/* name boolvar boolZ value driving discon init initZ [.loc] (Out/lnout) 
*/ 

/* name boolvar boolZ value driving discon init initZ [.loc] (Breakpoint) 
*/ 

field8 : Bitldent INTEGER INTEGER INTEGER INTEGER INTEGER INTEGER INTEGER 
{ 

if ( <G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var) ) ) 

{ 

if (GjGnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus ) ; 

} 

/* Storing the FSM index of the variable on the Id field. */ 
SetGnlVarld (G_Var, $2) ; 
if ($2 > G_MaxValueId) 
G_MaxValueId = $2; 

GnlAddFsmVarlnHashTable (G_HashListFsmVar , G__Var) ; 

/* We add the triplet (name, value, drive_value) in the list */ 
/* 'G_ListLhsVar ■ . */ 
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if (BListAddElt (G_ListLhsVar , (int ) G_Var) ) 

return <GNL_MEMORY_FULL) ; 
if (BListAddElt (G_ListLhsVar , (int) $4)) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarDriveFuncId (G_Var, $5) ; 



field6 : Bitldent INTEGER INTEGER INTEGER INTEGER INTEGER 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

/* Storing the FSM index of the variable on the Id field. 
SetGnlVarld (G_Var, $2) ; 
if ($2 > G_MaxValueId) 
G_MaxValueId = $2; 

GnlAddFsmVarlnHashTable (G_HashListFsmVar , G_Var) ; 

SetGnlVarDriveFuncId (G Var, 1) ; 



fields : Bitldent INTEGER INTEGER INTEGER INTEGER 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G__Var ) ) ) 

{ 

if (G_GnlStatus 1= GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

/* Storing the FSM index of the variable on the Id field. 
SetGnlVarld (G_Var, $2) ; 
if ($2 > G_MaxValueId) 
G_MaxValueId = $2; 

GnlAddFsmVarlnHashTable (G_HashListFsmVar , G_Var) ; 

SetGnlVarDriveFuncId (G Var, 1) ; 



/* name boolvar value init [.altname] [.loc] (Statevar) 

*/ 

field4 : Bitldent INTEGER INTEGER INTEGER 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

/* Storing the FSM index of the variable on the Id field. 



C-GNL1-286 



gnlfsm.y 



SetGnlVarld (G_Var, $2) ; 
if ($2 > GJ4axValueId) 
G_MaxValueId = $2; 

GnlAddFsmVarlnHashTable {G_HashListFsmVar, G_Var) ; 

/* We add the couple (name, value) in the list ' G_ListStateVar ' . */ 
if (BListAddElt (G_ListStateVar , (int)G_Var)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (G_ListStateVar , (int)$3)) 

return (GNL_MEMORY_FULL) ; 

SetGnlVarDriveFuncId (G Var, 1) ; 



field3 : Bitldent INTEGER INTEGER 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G__GnlStatus i= GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

/* Storing the FSM index of the variable on the Id field. 
SetGnlVarld (G_Var, $2) ; 
if ($2 > G__MaxValueId) 
G_MaxValueId = $2; 

GnlAddFsmVarlnHashTable (G_HashListFsmVar , G_Var) ; 

SetGnlVarDriveFuncId (G_Var, 1) ; 

} 



locats : locats locat 

{ 
} 

i 

{ } 

locat : LOC INTEGER COLON INTEGER 

{ 

if (BListAddElt (G__ListLoc, (int)$2)) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt (G_ListLoc, (int)$4)) 
return (GNL_MEMORY_FULL) ; 

} 



alters : alters alter 



i 

{ } 
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alter : ALTNAME NOT Bitldent 

{ } 

| ALTNAME Bitldent 
{ } 



typenum: TYPE Bitldent 

{ } 



{ } 



enumerations: enumerations enumeration 

{ } 



enumeration: Bitldent OPENPAR enumlits CLOSEPAR enum_encoding 

{ 

} 



enumlits: enumlits COMMA enumlit 

{ 

} 

| enumlit 

{ 

} 



enumlit: STRING 

{ } 



enum_encoding : ENUM_ENCODING STRING 

{ } 

{ } 



/* Declaration of Inputs */ 
inputs : inputs input 



input : Bitldent COLON RANGE Attribut INTEGER typenum 
{ 

if (Lstrcmp ($4, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INPUT) ; 

if (BListAddElt (G_ListPorts, (int)G_Var)) 
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return ( GNL_MEMORY_FULL ) ; 
SetGnlVarLsb (G_Var, $5-1) ; 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" */ 

{ 

if ($5 != 1) 
{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n", 
$D; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus != GNL_VARJEXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INPUT) ; 
if (BListAddElt (G_ListPorts , (int)G_Var)) 
return (GNL_MEMORY_FULL) ; 

GnlUpdateVarBoundsWithRange (G_Var, $3) ; 

} 

} 

} 

Bitldent COLON Attribut INTEGER typenum 

{ 

if (istrcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $1 , &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INPUT) ; 

if (BListAddElt (G_ListPorts , (int)G_Var)) 

return ( GNL_MEMORY__FULL ) ; 
SetGnlVarLsb (G_Var, $4-1) ; 
SetGnlVarMsb (G_Var, 0); 

} 

else /* should be "enumerate" 

{ 

if ($4 != 1) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatUS != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INPUT) ; 
if (BListAddElt (G_ListPorts , (int)G_Var)) 
return (GNL MEMORY_FULL) ; 
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SetGnlVarMsb (G_Var, $4-1); 
SetGnlVarLsb (G_Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

( G__Curr ent Gnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus 1= GNL_VAR_EXISTS) 
return (G_Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INPUT) ; 
if (BListAddElt (G_ListPorts , (int)G_Var)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

} 



/* Declaration of Outbuses */ 
outbuses : outbuses outbus 

i 

/ 

outbus : Bitldent COLON RANGE Attribut INTEGER typenum 
{ 

if (istrcmp {$4, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus 1= GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G__Var, GNL_VAR_OUTPUT ) ; 
SetGnlVarLsb (G_Var, $5-1); 
SetGnlVarMsb (G_Var, 0) ; 

if (BListAddElt (G_ListPort s , ( int ) G__Var ) ) 
return (GNL_MEMORY_FULL) ; 

} 

else /* should be "enumerate" */ 

{ 

if ($5 != 1) 

{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type sigxial\n", 
$1) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus 1= GNL_VAR_EXISTS) 
return (G__GnlStatus) ; 

} 
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SetGnlVarDir (G_Var, GNL_VAR_OUTPUT) ; 
if (BListAddElt (G_ListPorts , (int)G_Var)) 
return ( GNL_MEMORY_FULL ) / 

GnlUpdateVarBoundsWithRange (G_Var, $3) ; 

} 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 
{ 

if (istrcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G__CurrentGnl , $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_OUTPUT) ; 
SetGnlVarLsb (G_Var # $4-1) ; 
SetGnlVarMsb (G_Var, 0} ; 

if (BListAddElt (G_ListPorts , (int)G_Var)) 
return (GNL__MEMORY_FULL) ; 

} 

else /* should be "enumerate" 

{ 

if ($4 != 1) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (Gj3nlStatus 1= GNL_VAR__EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir <G_Var, GNL_VAR_OUTPOT) ; 
if (BListAddElt (G_ListPorts, (int)G_Var)) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarMsb (G_Var, $4-1) ; 

SetGnlVarLsb (G_Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_OUTPUT) ; 
if (BListAddElt (G_ListPorts, (int)G_Var)) 
return (GNL_MEMORY_FULL) ; 

} 

} 
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/* Declaration of Inoutbuses */ 
inoutbuses : inoutbuses inoutbus 



inoutbus : Bitldent COLON RANGE Attribut INTEGER typenum 

if (Istrcmp ($4, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var) ) ) 

{ 

if (G_GnlStatus J = GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_ VAR_ I NOUT ) ; 
SetGnlVarLsb (G_Var, $5-1); 
SetGnlVarMsb (G_Var, 0) ; 

if (BListAddElt (G_ListPorts, (int)GJVar)) 
return (GNL_MEMORY FULL) ; 

} 

else /* should be "enumerate" */ 

{ 

if ($5 != 1) 

{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n", 
$1) ; 

} 

else 

{ 

if ( (GjGnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var))) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G__Var, GNL_VAR_ I NOUT ) ; 
if (BListAddElt (G_ListPorts, (int) G__Var) ) 
return (GNL_MEMORY_FULL) ; 

GnlUpdateVarBoundsWithRange (G Var, $3) ; 

} 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 

if (Istrcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G CurrentGnl, $1, &G Var))) 

{ 

if (G_GnlStatus ! = GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_INOUT) ; 
SetGnlVarLsb (G_Var, $4-1); 
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SetGnlVarMsb (G_Var, 0) ; 

if (BListAddElt (G_ListPorts , (int)G_Var)) 
return (GNL_MEMORY FULL) ; 

} 

else /* should be "enumerate" 

{ 

if ($4 != 1) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

{G_CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus != GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G__Var, GNL_VAR__INOUT) ; 
if (BListAddElt (G_ListPorts, (int)G_Var)) 
return { GNL_MEMORY_FULL ) ; 

SetGnlVarMsb (GJVar, $4-1); 
SetGnlVarLsb (G Var, 0) ; 

} 

else 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G_CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_Gnl Status) ; 

} 

SetGnlVarDir (GJVar, GNL_VAR_INOUT) ; 
if (BListAddElt (G_ListPorts , <int)G_Var)) 
return (GNL MEMORY FULL) ; 

} 

} 

} 



/* Declaration of State Variables */ 
svars : svars svar 



svar : Bitldent COLON RANGE Attribut INTEGER typenum 
if Ostrcmp ($4, "Integer")) 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G__CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus 1= GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_STATE_VAR) ; 
SetGnlVarLsb (G_Var, $5-1) ; 
SetGnlVarMsb (G Var, 0) ; 

} 

else /* should be "enumerate" */ 

{ 
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if ($5 != 1) 

{ 

f print f (stderr, 

" WARNING: <%s> is a complex type siqnal\n", 
SD; 

} 

else 

{ 

if { (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G_Var ) ) ) 

if (G_GnlStatus != GNLJVAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_STATE_VAR) ; 
GnlUpdateVarBoundsWithRange (G__Var, $3) ; 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 

if (Istrcmp ($3, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G_CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus 1 = GNL_VAR_EXISTS) 
return (G GnlStatus) ; 

} 

SetGnlVarDir (G__Var, GNL__STATE__VAR) ; 
SetGnlVarLsb (G_Var, $4-1) ; 
SetGnlVarMsb (G Var, 0) ; 

} 

else /* should be "enumerate" 
{ 

if ($4 1= l) 
{ t 

if ( (G__GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $1, &G__Var) ) ) 

if (G_GnlStatus != GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir <G_Var, GNL_S TATE__VAR ) ; 

SetGnlVarMsb (G_Var, $4-1) ; 
SetGnlVarLsb (G Var, 0); 

} 

else 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G__Var) ) ) 

if (G_GnlStatus != GNL_VAR__EXISTS) 
return (G GnlStatus) ; 

} 
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SetGnlVarDir (G_Var, GNL_STATE_VAR) ; 

} 

} 

} 



/* Declaration of BlackBox Inputs */ 
bbinputs : bbinputs bbinput 

i 

bbinput : Bit I dent COLON RANGE Attribut INTEGER typenum 
{ 

if {Istrcmp ($4, "Integer")) 

{ 

if ( (GjGnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus ! = GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VM_FSM_BLACK_BOX) ; 
SetGnlVarLsb (G_Var, $5-1) ; 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 
{ 

if ($5 != 1) 
{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n", 

$1) ; 

} 

else 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $1 , &G_Var) ) ) 

{ 

if (G__GnlStatus 1= GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX) ; 
GnlUpdateVarBoundsWithRange (G_Var, $3) ; 

} 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 
{ 

if (istrcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX) ,- 
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SetGnlVarLsb (G_Var, $4-1); 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 
{ 

if ($4 != 1) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus 1= GNL_VAR_EXISTS) 
return (G_Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX) ; 

SetGnlVarMsb (G_Var, $4-1); 

SetGnlVarLsb {G_Var, 0) ; 

} 

else 

{ 

if { (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX ) ; 

} 

} 

} 



/* Declaration of BlackBox Inouts */ 
bbinouts : bbinouts bbinout 



bbinout : Bitldent COLON RANGE Attribut INTEGER typenum 
{ 

if (istrcmp ($4, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G_Var) ) ) 

{ 

if (G_GnlStatus != GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX_INOUT) ; 
SetGnlVarLsb (G_Var, $5-1) ; 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 

{ 

if ($5 != 1) 
{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n" , 
$1) ; 
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} 

else 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX_INOUT) ; 
GnlUpdateVarBoundsWithRange (G Var, $3); 

} 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 

{ 

if ('strcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $1, &G Var))) 

{ 

if (GjSnlStatus != GNLJVARJSXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX_INOUT) ; 
SetGnlVarLsb (G_Var, $4-1) ; 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" */ 

if ($4 != 1) 
{ 

if ( (G_GnlStatus - GnlVarCreateAndAddlnHashTable 

(G Cur rent Gnl, $1, &G Var))) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX_INOUT) ; 

SetGnlVarMsb (G_Var, $4-1); 

SetGnlVarLsb (G_Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(GCurrentGnl , $1, &G Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR FSM BLACK BOX INOUT) ; 

} " " 

} 

} 
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/* Declaration of BlackBox Outputs */ 
bboutputs : bboutputs bboutput 



bboutput^: Bitldent COLON RANGE Attribut INTEGER typenum 

if (Istrcmp ($4, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G_CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus ! = GNL__VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACKJBOX) ; 
SetGnlVarLsb (G_Var, $5-1) ; 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 
{ 

if {$5 != 1) 

{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n", 
$D ; 

} 

else 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G_CurrentGnl , $1 , &G_Var) ) ) 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_FSM_BLACK_BOX) ; 
GnlUpdateVarBoundsWithRange (G_Var, $3) ; 

} } 

} 

| Bitldent COLON Attribut INTEGER typenum 
if (Istrcmp ($3, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 
^ (G_CurrentGnl, $1, &G_Var) ) ) 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir {G_Var, GNL_VAR_FSM_BLACK_BOX) ; 
SetGnlVarLsb (G_Var, $4-1); 
SetGnlVarMsb (G Var, 0) ; 

} 

else /* should be "enumerate" 

{ 
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if ($4 <= l) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR__FSM_BLACK_BOX) ; 

SetGnlVarMsb (G_Var, $4-1); 
SetGnlVarLsb (G_Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR__FSM_BLACK BOX) ; 

} 

} 



/* Declaration of BlackBox Generics */ 
bbgenerics : bbgenerics bbgeneric 



bbgeneric : Bitldent COLON RANGE Attribut INTEGER typenura 
{ 
} 

| Bitldent COLON Attribut INTEGER typenum 

{ 

} 



/* Declaration of Breakpoints */ 
breakpoints : breakpoints breakpoint 



breakpoint : Bitldent COLON RANGE Attribut INTEGER typenum 
{ 

if (Istrcmp ($4, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $i, &G Var) ) 

{ 

if (G_GnlStatus i= GNL_VAR_EXISTS) 
return (G__GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL__VAR_LOCAL) ; 
SetGnlVarLsb (G_Var, $5-1); 
SetGnlVarMsb (G_Var, 0) ; 

} 



C-GNL1-299 



else /* should be "enumerate" * 

{ 

if ($5 != 1) 

{ 

fprintf (stderr, 

" WARNING : <%s> is a complex type signal\n", 
$1) ; 

} 

else 

{ 

if { (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

( G_Cur rent Gnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus >= GNL_VAR_EXISTS) 
return (G_Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_LOCAL) ; 
GnlUpdateVarBoundsWithRange <G_Var, $3) ; 

} 

} 

| Bitldent COLON Attribut INTEGER typenum 

if (Istrcmp ($3, "Integer")) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G__Gnl Status) ; 

} 

SetGnlVarDir <G_Var, GNL_VAR_LOCAL) ; 
SetGnlVarLsb (G_Var, $4-1) ; 
SetGnlVarMsb <G_Var, 0) ; 

} 

else /* should be "enumerate" 

{ 

if ($4 != 1) 
{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G_Var ) ) ) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_LOCAL) ; 

SetGnlVarMsb (G_Var, $4-1); 

SetGnlVarLsb (G_Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl , $ 1 , &G__Var ) ) ) 

{ 

if (G GnlStatus != GNL VAR EXISTS) 
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return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL VAR LOCAL) ; 

} 

} 

} 

/* Declaration of Globals */ 
globals : globals global 



global : Bitldent COLON RANGE Attribut INTEGER typenum 

{ 

fprintf (stderr, 

" WARNING: global variable <%s> is ignored\n" , 
$1) ; 

} 

| Bitldent COLON Attribut INTEGER typenum 

{ 

fprintf (stderr, 

,T WARNING: global variable <%s> is ignored\n", 
$1) ; 



/* Declaration of Dont-cares */ 
dontcares : dontcares dontcare 



dontcare : Bitldent COLON RANGE Attribut INTEGER typenum 

if (Istrcmp ($4, "Integer")) 

{ 

if ( (GjGnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var) ) ) 

{ 

if (GjGnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) / 

} 

SetGnlVarDir (G_Var, GNL_VAR__LOCAL_DONTCARE) ; 
SetGnlVarLsb (G_Var, $5-1); 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 

{ 

if ($5 != 1) 

{ 

fprintf (stderr, 

" WARNING: <%s> is a complex type signal\n", 
$1) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

{GCurrentGnl , $1, &G Var) ) 

{ 

if (G GnlStatus != GNL VAR EXISTS) 
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} 



return (G_Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_LOCAL_DONTCARE ) ; 
GnlUpdateVarBoundsWithRange (G_Var, $3) ; 

} 



Bitldent COLON Attribut INTEGER typenum 



if (Istrcmp ($3, "Integer")) 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, &G Var))) 

{ 

if (G_GnlStatus != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_LOCAL_DONTCARE) ; 
SetGnlVarLsb (G_Var, $4-1); 
SetGnlVarMsb (G_Var, 0) ; 

} 

else /* should be "enumerate" 

{ 

if ($4 != 1) 
{ 

if { (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $1, 4G Var))) 

{ 

if (G_GnlStatUS != GNL_VAR_EXISTS) 
return (G_GnlStatus) ; 

} 

SetGnlVarDir (G_Var, GNL_VAR_LOCAL_DONTCARE ) ; 

SetGnlVarMsb (G_Var, $4-1) ; 

SetGnlVarLsb (G__Var, 0) ; 

} 

else 

{ 

if ( (G_GnlStatus = GnlVarCreateAndAddlnHashTable 

(G CurrentGnl, $1, &G Var) ) ) 

{ 

if <G_GnlStatus != GNL_VAR_EXISTS ) 
return (G__Gnl Status) ; 

} 

SetGnlVarDir (G_Var, GNL VAR LOCAL DONTCARE) ; 

} 

} 

} 

string_instances : string_instances STRING 

{ 

if (BListAddElt (G_ListInstances, (int)$2)) 
return (GNL_MEMORY_FULL) ; 

} 
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/* Axioms are optional. When given they are Boolean relations that */ 
/* hold statically between the variables of the machine. */ 

Axioms : AXIOMS axioms 

{ } 



axioms : axioms axiom 

{ } 



} 



/* An axiom is made of an identifier, a Boolean expression represented 
/* by its typed decision graph, and an optional string. */ 

axiom : ID TICKNUM INTEGER strings 
{ 

/* We store the axioms Id in a global list */ 
if (BListAddElt (G_ListFunddDontCare , $3)) 
return ( GNL_MEMORY_FULL ) ; 



/* Asserts are optional. When given they are Boolean relations that 
/* must be checked about the machine. */ 



Asserts : ASSERTS asserts 

{ } 



asserts : asserts assert 

{ 

} 

{ } 



/* An assert is made of an identifier, a Boolean expression represented 
/* by its typed decision graph, and an optional string. */ 

assert : ID TICKNUM INTEGER strings 

{ 

/* We store the assert Id in a global list */ 
if (BListAddElt (G_ListFuncIdDontCare, $3)) 
return ( GNL_MEMORY_FULL) ; 

GnlWarnWithAssert ($4) ; 

} 
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/* Valid is optional. When given, it is the characteristic function of */ 
/* the reachable or valid states of the machine. This function is */ 
/* represented by its typed decision graph. */ 

Valid : VALID INTEGER 
{ } 



/* The "funs" part of the description is the set of vertices that form */ 
/* the typed decision graphs of all the Boolean functions used by all */ 
/* the boolean functions of the machine. */ 

Funs : FUNCTIONS 
funs 

{ 

/* Once we generated the functions related to '.functions' */ 
/* we generate the functions related to '.values 1 . */ 
if (GnlCreateFsmFunctionFromValues (G_CurrentGnl , 

G_HashListFsmVar, G_ListLhsVar , 
G_ListStateVar, GJVIaxValueld) ) 
return (GNL_MEM0RY FULL) ; 

} 



funs : funs fun 

{ 

G_NbBddNodes++; 

} 



/* Each vertex is defined by a unique number > 2, the order of the variable 
*/ 

/* at the root of the vertex, and the numbers of the left and right */ 

/* vertices pointed to by the current vertex. Note that there are two */ 

/* predefined vertex numbers 0 and 1 that represent the boolean values */ 

/* false and true respectively. */ 



fun : INTEGER INTEGER INTEGER INTEGER 

{ 

if (GnlCreateFsmFunction (G_CurrentGnl , G_HashListFsmVar, 

G_ListFuncIdDontCare, G_MaxValueId, 
$1, $2, $3, $4)) 
return ( GNL_MEMORY FULL ) ; 

} 



Attribut : ENUMERATE | KINTEGER ; 

Bitldent : HBitldents SimpleBitldent TICKEV 



{ 



if {GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 
return (GNL_MEMORY FULL) ; 
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$$ = G_NewName; 

if (GnlStrAppendStrCopy ($$, $3, &G_NewName) ) 

return ( GNL_MEMORY_FULL ) ; 
$$ = G_NewName; 

} 

| HBitldents SimpleBitldent 

{ 

if (GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 

return ( GNL_MEMORY_FULL ) ; 
$$ = G_NewName; 

} 

/* Hierarchical bitident: "abc.def." */ 
HBitldents : HBitldents HBitldent 

{ 

if (GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 

return (GNL_MEMORY_FULL) ; 
$$ = G_NewName; 

} 

l 

{ $$ = strdup ("") ; } 



HBitldent : SimpleBitldent HPOINT 
{ 

if (GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 

return (GNL_MEMORY_FULL) ; 
$$ = G_NewName; 

} 



SimpleBitldent : PREFIX SimpleBitldent 

{ 

if (GnlStrAppendStrCopy ($1, $2, &G__NewName) ) 

return ( GNL_MEMOR Y_FULL) ; 
$$ = G_NewName; 

} 

| id_records Id 

{ 

if (GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 

return ( GNL_MEMORY_FULL ) ; 
$$ = G_NewName; 

} 

I Id 

{ $$ = $1; } 



id_records : id_records id_record 

{ 

if (GnlStrAppendStrCopy ($1, $2, &G__NewName) ) 

return ( GNL_MEMOR Y_FULL) ; 
$$ = G__NewName; 

} 

| id_record 
{ $$ = $1; } 
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idjrecord : Id RECORDFIELD 

{ 

if {GnlStrAppendStrCopy ($1, $2, &G_NewName) ) 

return (GNL_MEMORY_FULL) ; 
$$ = G_NewName; 

} 



Id : ID 

{ $$ = $1; } 
| BITIDENT 

{ $$ = $1; } 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 







*/ 




File: 


gnlf smread. c 




*/ 


Version : 


1.1 




*/ 


Modifications : 








Documentation : 




*/ 


*/ 


Class : none 






*/ 


Inheritance : 




*/ 


*/ 



#include <stdio.h> 

#include "blist.h" 
#include "gnl .h" 
#include "bbdd.h" 
#include "gnlopt ion . h" 

#include "bbdd.e" 



/* 

/* EXTERN */ 

/* 

extern GNL_ENV G_GnlEnv; 
extern int G_NbBddNodes; 

/* 

/* DEFINE */ 

/* 

#define GNL_MASTER_CLOCK_EVENT "mc@ ' event " 

/* 

/* GLOBAL VARIABLES */ 

/* 

extern GNL G_Cur rent Gnl; /* from gnlread.c */ 

extern BLIST G__ListOf Gnls ; /* from gnlread.c 

extern int Intldentical () ; 

/* 

/* yyerror 

/* 

void yyerror (char* s) 

{ 

^ fprintf (stderr, " ERROR : during FSM parsing. \n") ; 

/* 

/* yywrap 

/* 

int yywrap (void) 
{ 

return (1) ; 
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} 

/* */ 

/* GnlGetShortFileName */ 
/* */ 

char *GnlGetShortFileName (ListFileNames , Index) 
BLIST ListFileNames ; 
int Index; 



{ 



char *FileName; 

int L; 

char *c; 

int i ; 



FileName = (char* ) BListElt (ListFileNames, Index- 1) ; 
L = strlen (FileName) ; 
c = FileName; 
i = L-l; 

while ({c[i] != '/') && (i >= 0)) i--; 
if (i 0) 

return (FileName) ; 

i++; 

c = c+i; 
return (c) ; 

} 



/* */ 

/* GnlWarnWithAssert */ 
/* */ 

/* This procedure analyzes the Assert message found in the . fsm generated*/ 

/* by FSMC and prints out eventually a message in MAPIT. */ 

/* */ 



void GnlWarnWithAssert (String) 
char *String; 

{ 

int L; 
int i ; 

char *c; 



/* an axiom message is composed of 3 '=' ex: */ 

/* ORIGIN=FSMC_Message SEVERITY-ERROR REPORT=The different drivers */ 

/* of dataout (9) have incompatible values */ 

L = strlen (String) ; 

i = 0; 

c = String; 

while ({c[i] != ' = (i<L) ) i++; 

i4 + ; 

if (i >= L) 
return; 

while ((c[i] 1= ■ = ') (i<L) ) i++; 
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i + +; 

if (i >= L) 
return; 

while ((c[i] != ' = ') (i<L) ) i++; 
i++; 

if (i >= L) 
return; 

if (c[i] == '\n') 
return; 

fprintf (stderr, n WARNING: "); 
while ((c[i] != ' \n') && (i < L) ) 
{ 

fprintf (stderr, "%c M , c[i]); 
i++; 

} 

fprintf (stderr, »\n n ) ; 

} 



/* 

/* GnlAddFsmVarlnHashTable 

/* 

/* This procedure adds the Var 'Var' according to its Id value which */ 
corresponds to its fsm index in the . fsm file. If the Var is already 
in the Hash table then 1 GNL_VAR_EXISTS ' is returned. If a memory 
problem occurs then 1 GNL_MEMORY_FULL 1 is returned and ' GNL_OK T if 
everything is fine. 



/* 

h 
/* 
/* 

/* 

GNL_S TATUS GnlAddFsmVarlnHashTable {HashListFsmVar , Var) 
BLIST HashListFsmVar; 
GNL_VAR Var; 



mt 
int 
BLIST 
GNL VAR 



Key; 
i; 

Bucket ; 
Varl; 



Key = (int) GnlVarld (Var) % BListSize (HashListFsmVar); 
Bucket = (BLIST) BListElt (HashListFsmVar, Key) ; 
if (IBucket) 
{ 

if (BListCreateWithSize (1, ^Bucket)) 

return ( GNL_MEMORY_FULL ) ; 
BListElt (HashListFsmVar, Key) = (int) Bucket; 

} 

/* Does the var already exist ? 

for (i=0; i<BListSize (Bucket); i++) 

{ 
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Varl = (GNL_VAR) BListElt (Bucket, i) ; 
if (GnlVarld (Var) GnlVarld (Varl)) 
return (GNL_VAR_EXISTS) ; 

} 

if (BListAddElt (Bucket, (int)Var)) 
return ( GNL_MEMORY_FULL ) ; 

/* 

fprintf (stderr, " ADDING Var <%s> with Id [%d] \n" , 
GnlVarName (Var) , (int) GnlVarld (Var) ) ; 

*/ 

return (GNL_OK) ; 

} 



/* */ 

/* GnlGetFsmVarFromld */ 

/* */ 

/* This procedure updates the fields f Msb' and *Lsb' of the GNL_VAR */ 

/* 'Var' by extracting the values from the string 'Range'. */ 

/* */ 

void GnlUpdateVarBoundsWithRange (Var, Range) 
GNL_VAR Var; 
char * Range; 

{ 



int i; 

char MsbSt ring [12 8] ; / * we store an integer in this object 
*/ 

char LsbString [128] ; /* we store an integer in this object 
*/ 

int Index ; 

int Msb; 

int Lsb; 



i = l; 

while (i<strlen (Range) ) 

{ 

/* If the end of the integer we break. */ 
if (Range [i] == ' 1 ) 
break; 

MsbString [i-1] =Range [i] ; 
i++; 

} 

MsbString [i-1] = ' \0 ' ; 
i++; 

while ( (i<strlen (Range)) && (Range [i] != ' ')) 
i++; 

i++; 

Index = i; 

while (i<strlen (Range)) 

{ 

/* If the end of the integer we break. */ 
if (Range [i] == 1 ) 1 ) 
break; 
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LsbString [i- Index] =Range [i] ; 
i++; 

} 

LsbString [i-Index] = 1 \0'; 

Msb = atoi (MsbString) / 
Lsb = at oi (LsbString) ; 

SetGnlVarMsb (Var, Msb) ; 
SetGnlVarLsb (Var, Lsb) ; 

} 



/* it/ 

/* GnlGetFsmVarFromld */ 
/* *i 

/* This procedure returns the GNL_VAR having the fsm id 'Id'. If there */ 
/* is no such var then 'Var 1 is NULL. */ 
/* 



void GnlGetFsmVarFromld (HashListFsmVar , Id, Var) 



BLIST 


HashListFsmVar; 


int 


Id; 


GNL_VAR 


*Var ; 


int 


Key; 


int 


i; 


BLIST 


Bucket ; 


GNL_VAR 


Varl ; 



*Var = NULL; 

/* case of the 0 and 1 values, 
if ((Id ==0) || (Id l) ) 
return; 

Key = Id % BListSize (HashListFsmVar) ; 
Bucket = (BLIST) BListElt (HashListFsmVar, Key) 
if (! Bucket) 
return; 

/* Does the var already exist ? 
for (i=0; i<BListSize (Bucket) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Bucket, i) ; 
if ( (int)GnlVarld (Varl) == Id) 
{ 

*Var = Varl; 
return; 

} 

} 



z* ic/ 

I* GnlCreateNewFsmVar */ 
/* ic/ 

GNL_STATUS GnlCreateNewFsmVar (Gnl, HashListFsmVar, MaxValueld, 
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GNL 
BLIST 
int 
int 

GNL VAR 



Id, NewVar) 



Gnl; 

HashListFsmVar; 

MaxValueld; 
Id; 

*NewVar; 



GNL_STATUS 
char 



GnlStatus; 
*NewName ; 



if (GnlStrAppendlntCopy ( n \\f", Id, &NewName) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlVarCreateAndAddlnHashTable (Gnl, NewName, NewVar)) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarDir (*NewVar, GNL_VAR_FSM_FUNCTION) ; 
SetGnlVarld (*NewVar, Id+MaxValueld) ; 

/* If 1= 0 then it is a GNL_MEMORY_FULL 
if (GnlAddFsmVarlnHashTable (HashListFsmVar, * NewVar) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* 

/* GnlCreateFsmGnlNode 

/* 

GNL_STATUS GnlCreateFsmGnlNode (Gnl, VarTop, VarLeft, VarRight, 

Leftld, Rightld, LeftPol, RightPol, 

NewNode ) 



GNL 




Gnl; 


GNL_ 


_VAR 


VarTop ; 


gnl" 


_VAR 


VarLeft; 


gnl" 


_VAR 


VarRight ; 


int 




Leftld; 


int 




Rightld; 


int 




LeftPol ; 


int 




RightPol; 


GNL_ 


_NODE 


* NewNode ; 


gnl_ 


_NODE 


TempNode ; 


gnl" 


~NODE 


TempNode 1; 


gnl" 


_NODE 


TempNode2 ; 


GNL_ 


_NODE 


TempNode 3 ; 


GNL_ 


_NODE 


TempNode4 ; 


GNL~ 


_NODE 


TempNodeS ; 


GNL_ 


_NODE 


TempNode 6 ; 


GNL~ 


_NODE 


TempNode 7; 


BLIST 


NewList; 



/* If case of a simple bdd node 

/* Bdd of the form [x (0) (1)] --> x 
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/* Bdd of the form [x (1) (0)] --> !x 
/* forms [x (0) (0)] and [x (1) (1)] cannot happened, 
if (IVarLeft IVarRight) 
{ 

/* either (Leftld, Rightld) (0, 1) or (1, 0) 

if ((Leftld == 0) ScSc (Rightld == 1)) 
{ 

/* It is in normal form. 

if (GnlCreateNode (Gnl, GNL_VARIABLE, NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, (BLIST) VarTop) ; 

} 

else 

{ 

/* It is in complemented form. 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode) ) 

return ( GNL_MEMORY__FULL ) ; 
SetGnlNodeSons (TempNode, (BLIST) VarTop) ; 
if (GnlCreateNodeNot (Gnl, TempNode, NewNode)) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* Bdd of the form [x (1) y] --> Ix+y 
/* Bdd of the form [x (0) y] --> x.y 
if (IVarLeft) 

{ 

if (Leftld == 1) 

{ 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNodel) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNodel, (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode2)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode2, (BLIST) VarRight) ; 
if (RightPol) 

{ 

if (GnlCreateNodeNot (Gnl, TempNode2 , &TempNode7) ) 

return ( GNL_MEMORY__FULL ) ; 
TempNode2 = TempNode7; 

} 

if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode3)) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_OR, NewNode)) 

return { GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (2, &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (NewList, (int) TempNode3) ) 

return { GNL_MEMORY__FULL ) ; 
if (BListAddElt (NewList, ( int ) TempNode2 ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, NewList) ; 



{ 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNodel) ) 
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return ( GNL_MEMORY__FULL ) ; 
SetGnlNodeSons (TempNodel, (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL__VARIABLE , &TempNode2) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons {TempNode2 / (BLIST) VarRight) ; 
if (RightPol) 

{ 

if (GnlCreateNodeNot (Gnl, TempNode2 / &TempNode7)) 

return ( GNL_MEMORY_FULL } ; 
TempNode2 - TempNode7 ; 

} 

if (GnlCreateNode (Gnl, GNL_AND, NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (2, ScNewList) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (NewList, (int ) TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) TempNode2) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, NewList) ; 

} 

return (GNL_OK) ; 

} 

/* Bdd of the form [x y (1)] x+y 
/* Bdd of the form [x y (0)] --> !x.y 
if (! VarRight) 
{ 

if (Rightld == 0) 
{ 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel , (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode2) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode2, (BLIST) VarLeft) ; 
if (LeftPol) 

{ 

if (GnlCreateNodeNot (Gnl, TempNode2 , &TempNode7) ) 

return ( GNL_MEMORY_FULL ) ; 
TempNode2 = TempNode7; 

} 

if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode3 ) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_AND, NewNode)) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) TempNode3) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) TempNode2 ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, NewList); 

} 

else 

{ 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNodel) ) 
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return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode2) ) 

return ( GNL _MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode2, (BLIST) VarLeft) ; 
if (LeftPol) 

{ 

if (GnlCreateNodeNot {Gnl, TempNode2 , &TempNode7) ) 

return { GNL_MEMORY_FULL ) ; 
TempNode2 = TempNode7; 

} 

if (GnlCreateNode (Gnl, GNL_OR , NewNode) ) 

return (GNL_MEMORY__FULL) ; 
if (BListCreateWithSize (2, &NewList)) 

return ( GNL_MEMORY__FULL ) ; 
if (BListAddElt (NewList, (int) TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) TempNode2 ) ) 

return ( GNL_MEMORY__FULL ) ; 
SetGnlNodeSons (*NewNode, NewList) ; 

} 

return (GNL_OK) ; 

} 

/* Otherwise this is the general case: [x y z] --> Ix.y+x.z 
if (GnlCreateNode (Gnl, GNL__VARIABLE , STempNodel) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNodel, (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode2)) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode2, (BLIST) VarTop) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode3) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode3, (BLIST) VarLeft) ; 
if (LeftPol) 

{ 

if (GnlCreateNodeNot (Gnl, TempNode3, &TempNode7) ) 

return (GNL_MEMORY_FULL) ; 
TempNode3 = TempNode7; 

} 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode4 ) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode4, (BLIST) VarRight) ; 
if (RightPol) 

{ 

if (GnlCreateNodeNot (Gnl, TempNode4, &TempNode7) ) 

return ( GNL _MEMORY_FULL ) ; 
TempNode4 = TempNode7; 

} 

if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode5) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL__AND , &TempNode6) ) 

return (GNL_MEMORY__FULL) ; 
if (BListCreateWithSize (2, &NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (NewList, (int) TempNodeB) ) 
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return ( GNL_MEMOR Y_FULL) ; 
if (BListAddElt (NewList, (int ) TempNode3 ) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode6, NewList) ; 

if (GnlCreateNode (Gnl, GNL_AND, &TempNode7) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (2, SJSTewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, {int ) TempNode2 ) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, ( int ) TempNode4 ) } 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode7, NewList) / 

if (GnlCreateNode (Gnl, GNL_OR, NewNode) ) 

return ( GNL__MEMORY__FULL ) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) TempNode6) ) 

return ( GNL_MEMORY__FULL ) ; 
if (BListAddElt (NewList, (int) TempNode7 ) ) 

return ( GNL__MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, NewList) ; 



return (GNL_OK) ; 

} 

/* A/ 

/* GnlAddDriveFunction */ 
/* 

GNL_STATUS GnlAddDriveFunction (Gnl, HashListFsmVar , Function, 

IdDriveFunc , MaxValueld) 

GNL Gnl ; 

BLIST HashListFsmVar; 
GNL_FUNCT I ON Function; 
int IdDriveFunc; 
int MaxValueld; 

{ 

int FuncPol; 
GNL_VAR VarFunc; 
GNL_NODE NewNode; 
GNL_NODE TempNode; 



/* driving function is the tautology. */ 
if (IdDriveFunc == 1) 
return (GNL_OK) ; 

/* driving function is 0 --> always 'Z 1 */ 
if (IdDriveFunc == 0) 

{ 

fprintf (stderr, " WARNING : 'Z' signal . \n" ) ; 
exit (1) ; 

} 
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FuncPol = 0; 

if (IdDriveFunc < 0) 

{ 

FuncPol - 1; 

IdDriveFunc = -IdDriveFunc; 

} 

/* Id of the function must be incremented of 'MaxValueld' . 
GnlGetFsmVarFromld (HashListFsmVar , IdDriveFunc+MaxValueld, &VarFunc ) 

if (! VarFunc) 
{ 

fprintf (stderr, 

" ERROR: cannot find Id = %d in .values section\n" , 
IdDriveFunc) ; 

exit (1) ; 

} 



if (GnlCreateNode (Gnl, GNL__VARIABLE , &NewNode) ) 

return ( GNL _MEMORY_FULL ) / 
SetGnlNodeSons (NewNode, (BLIST) VarFunc) ; 
if (FuncPol) 

{ 

if (GnlCreateNodeNot (Gnl, NewNode, &TempNode) ) 

return (GNL_MEMORY_FULL) ; 
NewNode = TempNode; 

} 

SetGnlFunctionZSet (Function, NewNode) ; 
return (GNL_0K) ; 

} 



/* 

/ * GnlCreateFsmFunct ionFromValues 

/* 

/* This procedure creates the boolean functions for each variables 

/* defined in the 'values' part of the FSM file. */ 
/* 

GNL_STATUS GnlCreateFsmFunct ionFromValues (Gnl, HashListFsmVar, 

ListLhsVar 7 ListStateVar , 
MaxValueld) 

GNL Gnl ; 

BLIST HashListFsmVar; 
BLIST ListLhsVar; 
BLIST ListStateVar; 
int MaxValueld; 



int 

GNL_VAR 
GNL_VAR 
int 



i; 

VarLhs ; 
VarFunc ; 

IdFunc; 



GNL__NODE NewNode; 
GNL_FUNCTION NewFunction; 
int FuncPol; 
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GNL_NODE TempNode; 
int IdDriveFunc; 

/* 'ListLhsVar' is a list of couples (Bitldent, Functionld) . 
for (i=0; i<BListSize (ListLhsVar) -1; i = i+2) 
{ 

VarLhs = (GNL_VAR) BListElt (ListLhsVar, i) ; 
IdFunc = (int)BListElt (ListLhsVar, i+1) ; 
IdDriveFunc = GnlVarDriveFuncId (VarLhs) / 

FuncPol = 0; 

/* Actually function is 0. 
if (IdFunc == 0) 
{ 

if (GnlCreateNode (Gnl, GNL_CONSTANTE , 

return (GNL_MEMORY__FULL) ; 
SetGnlNodeSons (NewNode, (BLIST) 0) ; 

if (GnlFunctionCreate (Gnl, VarLhs, NULL, ^NewFunction) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

SetGnlVarFunction (VarLhs, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), (int ) VarLhs) ) 
return ( GNL__MEMORY__FULL ) / 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 

GnlAddDriveFunction (Gnl, HashListFsmVar , NewFunction, 

IdDriveFunc, MaxValueld) ; 

continue ; 

} 

/* Actually function is 1. */ 
if (IdFunc == 1) 
{ 

if (GnlCreateNode (Gnl, GNL_C0NSTANTE, &NewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NewNode, (BLIST) 1) ; 

if (GnlFunctionCreate (Gnl, VarLhs, NULL, ^NewFunction) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

SetGnlVarFunction (VarLhs, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), (int) VarLhs) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 

Gn 1 AddD r i ve Func t ion (Gnl, HashListF smVa r , Ne wFunc t i on , 

IdDriveFunc, MaxValueld) ; 



*/ 

&NewNode) ) 
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continue; 

} 



/* The var is pointed witha complement. */ 
if {IdFunc < 0) 

{ 

FuncPol = 1; 
IdFunc = - IdFunc ; 

} 

/* Id of the function must be incremented of ' Max Value I d' . */ 
GnlGetFsmVarFromld (HashListFsmVar , IdFunc+Max Value Id, &VarFunc) 
if (IVarFunc) 

{ 

f print f (stderr, 

" ERROR: cannot find Id = %d in .values section\n", 
IdFunc) ; 

continue ; 

} 

/* We create the new equation and adds it to the list of */ 
/* equations. */ 
if (GnlFunctionCreate {Gnl, VarLhs, NULL, ScNewFunction) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl , GnlNbLocal (Gnl ) +1 ) ; 

SetGnlVarFunction (VarLhs, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), ( int ) VarLhs) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &NewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NewNode, (BLIST) VarFunc ) ; 
if (FuncPol) 

{ 

if (GnlCreateNodeNot (Gnl, NewNode, &TempNode) ) 

return ( GNL__MEMORY_FULL ) ; 
NewNode = TempNode; 

} 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 

GnlAddDrive Function (Gnl, HashListFsmVar, NewFunction, 

IdDriveFunc, MaxValueld) ; 

} 

/* 'ListStateVar ' is a list of couples (Bitldent, Functionld) */ 
for (i=0; i<BListSize (ListStateVar) -1 ; i = i+2) 
{ 

VarLhs = (GNL_VAR) BListElt (ListStateVar, i) ; 
IdFunc = (int)BListElt (ListStateVar, i+1) ; 
FuncPol = 0 ; 

/* Actually no function for this var. */ 
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if (IdFunc == 0) 
continue ; 

if (IdFunc < 0) 
{ 

FuncPol = 1; 
IdFunc = -IdFunc; 

} 

/* Id of the function must be incremented of 'MaxValueld' . 
GnlGet FsmVarFromld (HashLis tFsmVar , IdFunc+MaxValueld , &VarFunc ) 
if (IVarFunc) 
{ 

fprintf (stderr, 

" ERROR: cannot find Id = %d in .values section\n fl , 
IdFunc) ; 

continue ; 

} 

if (GnlFunctionCreate (Gnl, VarLhs , NULL, &NewFunction) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlMbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

SetGnlVarFunction (VarLhs, NewFunction) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (NewNode, (BLIST) VarFunc) ; 
if (FuncPol) 

{ 

if (GnlCreateNodeNot (Gnl, NewNode, &TempNode) ) 

return (GNL__MEMORY_FULL) ; 
NewNode = TempNode; 

} 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 

} 



return (GNL_0K) ; 

} 

/* 

/* GnlCreateFsmFunction 

/* 

/* This procedure creates a new function in the current gnl 'Gnl'. If 

/* The index is related to an axiom index then we do not create it 
/* 

GNL_STATUS GnlCreateFsmFunction (Gnl, HashLis tFsmVar , ListAxiomsId, 

MaxValueld, Funcld, Topld, 
Leftld, Rightld) 

GNL Gnl ; 

BLIST HashLis tFsmVar; 
BLIST ListAxiomsId; 
int Funcld; 
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int Topld; 

int Leftld; 

int Rightld; 

{ 

GNL_VAR OutVar; 

GNL_VAR VarTop ; 

GNL_VAR VarLeft ; 

GNL_VAR VarRight ; 
GNL_FUNCT I ON NewFunction; 

GNL_NODE NewNode ; 

int LeftPol; 

int RightPol ; 



/* If the associated function is related to an axiom we do not */ 
/* consider it, */ 
if (BListMemberOf List (ListAxiomsId, Funcld, Intldentical) ) 
return (GNL_OK) ; 

/* Create a new var for the new fsm function. */ 
if (GnlCreateNewFsmVar (Gnl, HashListFsmVar , MaxValueld, Funcld, 

&OutVar) ) 
return (GNL_MEMORY_FULL) ; 

GnlGetFsmVarFromld (HashListFsmVar, Topld, ^VarTop) ; 
if (! VarTop) 

{ 

fprintf (stderr, » ERROR: cannot find Id = %d\n n , Topld); 
return (GNL_OK) ; 

} 

/* New fsm var which is not 0 nor 1. 
VarLeft = NULL; 
LeftPol = 0; 

if {(Leftld != 1) ScSc (Leftld 1= 0)) 

{ 

if (Leftld < 0) 
{ 

LeftPol = 1; 
Leftld = -Leftld; 

} 

GnlGetFsmVarFromld (HashListFsmVar , Lef t Id+MaxValueld , &VarLef t ) 
if (! VarLeft) 
{ 

fprintf (stderr, " ERROR: cannot find Id = %d\n" 7 Leftld); 
return (GNL_0K) ; 

} 

} 

/* New fsm var which is not 0 nor 1. 
VarRight = NULL; 
RightPol = 0; 

if ((Rightld != 1) (Rightld != 0)) 

{ 

if (Rightld < 0) 
{ 
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} 



RightPol = l; 
Right Id - -Right Id; 

} 

GnlGetFsmVarFromld (HashListFsmVar , Right Id+MaxValueld, &VarRight) 
if (!Var Right) 

{ 

fprintf (stderr, " ERROR: cannot find Id = %d\n" , Right Id) ; 
return (GNL_OK) ; 

} 

} 

if (GnlFunctionCreate (Gnl, OutVar, NULL, &NewFunction) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

SetGnlVarFunction (OutVar, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl ) , (int) OutVar) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateFsmGnlNode (Gnl, VarTop, VarLeft, VarRight, 

Leftld, Rightld, LeftPol, RightPol, &NewNode) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 

return (GNL OK) ; 



/* */ 

/* GnlGetGnlVarFromBddlndex */ 

/* */ 

GNL_VAR GnlGetGnlVarFromBddlndex (Bddlndex) 
int Bddlndex; 

{ 

return ( ( GNL_VAR ) BddVarHook ( (BDD_VAR) BListElt (GLOB_BDD_WS->Var , 

Bddlndex) ) ) ; 

} 

/* */ 

/* GnlBuildBddOnFsmVar Input */ 

/* */ 

BDD_STATUS GnlBuildBddOnFsmVar Input (Gnl) 
GNL Gnl ; 

{ 

int i ; 

int j ; 

GNL_VAR VarJ; 
BDD_STATUS Status ; 
BDD_VAR VarBdd; 
BLIST HashTableNames ; 
BLIST Bucketl; 



HashTableNames = GnlHashNames (Gnl) ; 
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for (i=0; i<BListSize (HashTableNames) ; i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j <BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

if (Status = CreateBddVar (GnlVarName (VarJ) , &VarBdd) ) 
return (Status) ; 

/* We store the associated Bdd of the GNL_VAR 'VarJ' */ 
/* on its Hook field. */ 
SetGnlVarHook (VarJ, UseBdd (VarBdd->Bdd) ) ; 

/* keeping the reference between the Bdd and the GNL_VAR 
SetBddVarHook (VarBdd, (int*)VarJ); 
} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlConcatListElt 

/* 

GNL_STATUS GnlConcatListElt (ListFct, Var) 
BLIST ListFct; 
GNL_VAR Var; 

{ 

if { IBListMemberOfList (ListFct, Var, Intldentical) ) 
{ 

if (BListAddElt (ListFct, (int)Var)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlConcatList 

/* 

GNL_STATUS GnlConcatList (ListFct, ListFctl) 
BLIST ListFct; 
BLIST ListFctl; 

{ 

int i ; 

GNL VAR Varl; 



for (i=0; i<BListSize (ListFctl); i++) 
{ 

Varl = (GNL_VAR) BListElt (ListFctl, i) ; 
if (GnlConcatListElt (ListFct, Varl)) 
return ( GNL_MEMORY_FULL ) ; 

} 
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return (GNLJDK) ; 

} 

/* */ 

/* GnlBuildBddFsmExprOnNode */ 
/* */ 

/* This procedure buils teh corresponding Bdd of the GNL_NODE associated*/ 
/* to 'OutVar'. We stop the recursion when the state var is encountered */ 
/* the second time (Lvl=l) . The recusrion work only on the variables of */ 
/* type GNL_VAR_FSM_FUNCTION. */ 
/* */ 

BDD_STATUS GnlBuildBddFsmExprOnNode (OutVar, StateVar, Node, Lvl, 

Mode, VarMode, ListFct, ListFctMode, 
Bdd) 

GNL_VAR OutVar; 
GNL_VAR StateVar; 
GNLJSTODE Node; 
int Lvl; 
int Mode; 
GNL_VAR VarMode ; 
BLIST ListFct; 
BLIST ListFctMode; 
BDD *Bdd; 

{ 

int i ; 

GNL_VAR Var; 
BLIST Sons; 
GNL_FUNCTION Function ; 
GNL__NODE NodeFunction; 
GNL_NODE SonI; 
BDD BddRes ; 

BDD BddTemp ; 

BDD Bdd I ; 

int NewLvl; 
int NewMode; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 

{ 

if (GnlNodeSons (Node) ) 
{ 

*Bdd = bdd^one () ; 
return (BDD_OK) ; 

} 

*Bdd = bdd_zero {) ; 
return (BDD_OK) ; 

} 

if (GnlNodeOp (Node) == GNL_VARIABLE ) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node); 

/* No function associated or it is the 'StateVar' or the direction*/ 

/* is not 1 GNL_VAR_FSM_FUNCTION ' . */ 

/* If 'ListFct' is NULL we come from the processing of tri-state */ 

/* input and enable functions. */ 

if ( I Gnl Var Function (Var) II ! ListFct) 
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{ 

*Bdd = UseBdd { (BDD) GnlVarHook (Var)); 
if (Mode) 
{ 

if (GnlConcatList (ListFct, ListFctMode) ) 
return ( BDD_MEMORY_FULL ) ; 

} 

return (BDD_OK) ; 

} 

if ( (GnlVarDir (Var) GNL_VAR_INPUT ) | | 
(GnlVarDir (Var) == GNL_VAR_OUTPUT) j | 
(GnlVarDir (Var) == GNL_VAR_INOUT) | | 
(GnlVarDir (Var) == GNL_OUT_S TATE_VAR ) ) 

{ 

*Bdd = UseBdd ( (BDD) GnlVarHook (Var)); 
if (Mode) 
{ 

if (GnlConcatList (ListFct, ListFctMode)) 
return ( BDD_MEMOR Y_FULL ) ; 

} 

return (BDD_OK) ; 

} 

Function = GnlVarFunction (Var) ; 
NodeFunction = GnlFunctionOnSet (Function) ; 

NewLvl = Lvl; 
NewMode = Mode; 

if (StateVar == Var) 
{ 

/* second time we pass thru 'StateVar 1 in the rec. call 
if (Lvl == 1) 

{ 

if (Mode) 

{ 

if (GnlConcatList (ListFct, ListFctMode)) 
return (BDD_MEMORY_FULL) ; 

} 

*Bdd = UseBdd ( (BDD) GnlVarHook (Var) ) ; 
return (BDD_OK) ; 

} 

NewLvl - Lvl+1; 

} 

else if (GnlVarDir (Var) 1= GNL_VAR_FSM_FUNCTION) 

{ 

if (GnlVarDir (Var) != GNL_VAR_LOCAL) 
{ 

if (Mode) 
{ 

if (GnlConcatList (ListFct, ListFctMode)) 
return (BDD_MEMORY_FULL) ; 

} 

*Bdd - UseBdd ( (BDD) GnlVarHook (Var) ) ; 
return (BDD__OK) ; 

} 
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if (GnlNodeOp (Node Function) ! = GNL__VARI ABLE ) 
{ 

if (Mode) 
{ 

if (GnlConcatList (ListFct, ListFctMode) ) 
return ( BDD_MEMORY_FULL) ; 

} 

*Bdd = UseBdd ( (BDD) GnlVarHook (Var)); 
return (BDD_OK) ; 

} 

VarMode = Var; 
NewMode = 1; 

} 

else 

{ 

if (Mode ScSl (GnlNodeOp (NodeFunction) != GNL VARIABLE) ) 
{ 

*Bdd = UseBdd ( (BDD) GnlVarHook (VarMode)); 
return (BDD__OK) ; 

} 

} 

if (NewMode) 

{ 

if (BListAddElt (ListFctMode, (int)Var)) 
return (GNL_MEMORY_FULL) ; 

} 

else if (ListFct) 
{ 

if (GnlConcatListElt (ListFct, (int)Var)) 
return ( GNL_MEMORY_FULL ) ; 

} 

if (GnlBuildBddFsmExprOnNode (OutVar, StateVar, NodeFunction, 

NewLvl , NewMode , VarMode , 
ListFct, ListFctMode, Bdd) ) 

return (BDD_MEMORY_FULL) ; 
if (NewMode) 

{ 

BSize (ListFctMode) = BSize (ListFctMode) -1; 

} 

return (BDD_OK) ; 

} 

Sons = GnlNodeSons (Node) ; 

if (GnlNodeOp (Node) == GNL_NOT) 

{ 

SonI = (GNL_NODE) BListElt (Sons, 0) ; 

if (GnlBuildBddFsmExprOnNode (OutVar, StateVar, SonI, Lvl, 

Mode, VarMode, ListFct, ListFctMode, 
&BddRes) ) 

return (BDD_MEMORY_FULL) ; 
if (bdd_not (BddRes, Bdd)) 

return (BDD_MEMORY_FULL) ; 
return (BDD_0K) ; 
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} 

if (GnlNodeOp (Node) GNL_AND) 

BddRes = bdd_one (); 
else 

/* else GNL_OR. */ 
BddRes = bdd_zero () ; 

for (i = 0; i<BListSize (Sons) ; i++) 

{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 

if (GnlBuildBddFsmExprOnNode (OutVar, StateVar, SonI, Lvl, 

Mode, VarMode, ListFct, ListFctMode, 
&BddI ) ) 

return ( BDD_MEMOR Y_FULL) ; 

switch (GnlNodeOp (Node)) { 
case GNL__A3STD: 

if (bdd_and (Bddl, BddRes, ScBddTemp) ) 

return { BDD__MEMORY_FULL) ; 
break ; 

case GNL_OR: 

if (bdd_or (Bddl, BddRes, ScBddTemp) ) 

return (BDD_MEMORY__FULL) ; 
break; 

default : 

fprintf (stderr, "ERROR: unknown operator\n !t ) ; 
exit (l) ; 

} 

BddRes = BddTemp; 

} 

*Bdd = BddRes; 
return (BDD_OK) ; 

} 



/* */ 

/* GnlBuildBddFsmExpr */ 
/* */ 

BDD_STATUS GnlBuildBddFsmExpr (OutVar, StateVar, ListFct, Bdd) 
GNL_VAR OutVar; 
GNLJVAR StateVar; 
BLIST *ListFct; 
BDD *Bdd; 

{ 

GNL_FUNCT ION Func t i on ; 

BLIST ListFctMode ; 



Function = GnlVarFunction (OutVar) ; 
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if (BListCreateWithSize (1, ListFct) ) 
return (BDD_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &ListFctMode) ) 
return ( BDD_MEMORY_FULL ) ; 

if (BListAddElt (*ListFct / OutVar) ) 
return (BDD_MEMORY_FULL) ; 

if (GnlBuildBddFsmExprOnNode (OutVar, StateVar, 

GnlFunctionOnSet (Function), 0, 0, NULL, 
*ListFct, ListFctMode, Bdd) ) 
return (BDD_MEMORY_FULL) ; 



BListQuickDelete (&ListFctMode) ; 



return (BDD OK) ; 

} 



/* GnlGetSupportOfFsmBddRec 



BLIST G_BddFsmSupport ; 

GNL_STATUS GnlGetSupportOfFsmBddRec (Bdd) 
BDD Bdd; 

{ 

BDD_PTR BddPtr; 
int Index; 



if (ConstantBdd (Bdd) ) 
return (GNL_OK) ; 



BddPtr = (BDD_PTR) GetBddPtrFromBdd (Bdd) ; 
Index = GetBddPtrlndex (BddPtr) ; 

if ( JBListMemberOfList (GJBddFsmSupport , Index, Intldentical) ) 

if (BListAddElt (GJBddFsmSupport, Index)) 
return (GNL MEMORY FULL) ; 

} 

if (GnlGetSupportOfFsmBddRec (GetBddPtrEdgel (BddPtr) ) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlGetSupportOfFsmBddRec (GetBddPtrEdgeO (BddPtr) ) ) 

return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* 

f ^ 

/* GnlGetSupportOfFsmBdd */ 

/* 1 

{ ^ 

/* Computes the support list of GNL_VAR belonging to the bdd 'Bdd'. */ 
/* ^ ^ 

GNL_STATUS GnlGetSupportOfFsmBdd (Bdd, Support) 
BDD Bdd; 
BLIST ^Support; 
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{ 

if {BListCreateWithSize (3; &G_BddFsmSupport ) ) 
return (GNLJ4EM0RY_FULL) ; 

if (GnlGetSupportOfFsmBddRec (Bdd) ) 
return (GNL__MEMORY__FULL) ; 

*Support = G_BddFsmSupport; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlGetClockCondition */ 
/* */ 

/* This procedure verifies that the 'clock expression' 1 BddClockExpr 1 is*/ 

/* of the form: */ 

/* (clock 1 event . [clkj iclk]) . <input__expr> */ 

/* or (0) */ 

/* */ 

/* */ 

GNL_STATUS GnlGetClockCondition (Bdd, BddStateVar, 



ClockEventVar , BddClockEvent Id , 
ClockVar, BddClockld, ClockPol, Error) 



BDD 


Bdd; 


BDD 


BddStateVar; 


GNL__VAR 


*ClockEventVar ; 


int 


* BddCl ockEvent Id ; 


GNL_VAR 


*ClockVar; 


int 


*BddClockId; 


int 


*ClockPol; 


int 


*Error; 


BLIST 


Support ; 


int 


SizeEvent ; 


int 


Bddldl ; 


GNL_VAR 


Varl ; 


int 


L; 


BDD 


BddClkNotEvent ; 


BDD 


BddClkEvent ; 


BDD 


BddClkEventClkl; 


BDD 


BddClkEventClkO ; 


int 


i; 


*Error = 


0; 



if (GnlGetSupportOf FsmBdd (Bdd, ^Support) ) 
return (GNL_MEMORY_FULL) ; 

SizeEvent = strlen ('"event") ; 

*ClockEventVar = NULL; 

for (i=0; i<BListSize (Support) ; i++) 

{ 

Bddldl = (int)BListElt (Support, i) ,- 
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Varl = GnlGetGnlVarFromBddlndex (Bddldl) ; 

if (strlen (GnlVarName (Varl) ) SizeEvent) 
continue; 

L = strlen (GnlVarName (Varl)); 

/* not elegant but it works i */ 
if ((GnlVarName (Varl) [L-l] == 't') && 

(GnlVarName (Varl) [L-2] == 'n') && 

(GnlVarName (Varl) [L-3] »e*) && 

(GnlVarName (Varl) [L-4] 'v*) && 

(GnlVarName (Varl) [L-5] == 'e') && 

(GnlVarName (Varl) [L-6] == 'V')) 

{ 

*BddClockEventId = Bddldl ; 
*ClockEventVar = Varl; 
BListDellnsert (Support, i+1); 
break; 

} 

} 



/* Not clock 1 event found, 
if ( I (*ClockEventVar) ) 
{ 

BListQuickDelete (^Support) ; 
* Error - 1; 
return (GNL_OK) ; 

} 



*/ 



/* temporary side effect on 'GnlVarName { *ClockEventVar) ' . 
GnlVarName (*ClockEventVar) [L-6] = 1 \0'; 

*ClockVar = NULL; 

for (i = 0; i<BListSize (Support) ; i++) 
{ 

Bddldl = (int)BListElt (Support, i) ; 
Varl = GnlGetGnlVarFromBddlndex (Bddldl) ; 

if (Jstrcmp (GnlVarName (Varl), GnlVarName ( *ClockEventVar) ) ) 

*BddClockId = Bddldl; 
*ClockVar = Varl; 
BListDellnsert (Support, i+1); 
break; 

} 

} 

/* Not clock found. */ 
if ( ! (*ClockVar) ) 

{ 

BListQuickDelete (^Support) ; 
GnlVarName (*ClockEventVar) [L-6] = ! \'*; 
*Error = 1; 
return (GNLJDK) ; 
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/* Restoring the 'GnlVarName { *ClockEventVar) ' original name. */ 
GnlVarName < *ClockEventVar ) [L-6] = ' 



BListQuickDelete (^Support) ; 



if (fodd_cofacO (Bdd, *BddClockEventId, &BddClkNotEvent) ) 
return { GNL_MEMORY_FULL ) ; 

/* It is the statevar expression if no clock' event */ 
if (BddClkNotEvent 1= BddStateVar) 
{ 

*Error = 1; 
return (GNL_OK) ; 

} 

if (bdd_cof acl (Bdd, *BddClockEventId, ScBddClkEvent) ) 
return (GNL_MEMORY_FULL) ; 

if (bdd^cofacl (BddClkEvent , *BddClockId, ScBddClkEventClkl) ) 

return ( GNL_MEMORY_FULL ) ; 
if (bdd_cofacO (BddClkEvent, *BddClockId, &BddClkEventClkO) ) 

return ( GNL_MEMORY_FULL) ; 

/* At least one of both must be diffrent of 'BddStateVar' 
if ( (BddClkEventClkl != BddStateVar) && 
(BddClkEventClkO 1= BddStateVar)) 

{ 

* Error = 1; 
return (GNL_OK) ; 

} 



if (BddClkEventClkl != BddStateVar) 
{ 

*Cl0CkP0l = 1; 

return (GNL JDK) ; 

} 



*ClockPol = 0; 



return (GNL OK) ; 



/* 

/ * GnlExt ractClockFromBddClockCondi t ion 

/* 

GNL_STATUS GnlExtractClockFromBddClockCondition (BddClockCond, 

ClockVar, ClockPol, Error) 



BDD 



BddClockCond; 



GNL VAR *ClockVar; 



int 
int 



♦ClockPol; 
*Error; 



BLIST Support; 

int SizeEvent; 

GNL_VAR ClockEventVar ; 

int i ; 

int Bddldl; 
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GNL_VAR Varl ; 



int L; 

BDD Bddl; 

BDD Bdd2 ; 

BDD Bdd3 ; 

int BddClockEventld; 

int BddClockld; 



if (GnlGetSupportOf FsmBdd (BddClockCond, ^Support) ) 
return ( GNL_MEMORY_FULL ) ; 

/* The expression must have two variables which are the elk 'event and*/ 
/* the clock. If not we return an error. */ 
if (BListSize (Support) != 2) 

{ 

BListQuickDelete (^Support) ; 
*Error = 1; 
return (GNL_OK) ; 

} 

SizeEvent = strlen ("'event"); 
ClockEventVar = NULL; 

for (i=0; i<BListSize (Support) ; i++) 
{ 

Bddldl = (int)BListElt (Support, i) ; 
Varl = GnlGetGnlVarFromBddlndex (Bddldl) ; 

if (strlen (GnlVarName (Varl) ) <= SizeEvent) 
continue; 

L = strlen (GnlVarName (Varl)); 



not elegant but it works ! 








( (GnlVarName 


(Varl) [L- 


-1] == 


* t 


) 


&& 


(GnlVarName 


(Varl) [L- 


-2] == 


'n 


) 


ScSc 


(GnlVarName 


(Varl) [L- 


-3] == 


"e 


) 


ScSc 


(GnlVarName 


(Varl) [L- 


-4] = = 


'V 


) 


Sc& 


(GnlVarName 


(Varl) [L- 


-5] == 


'e 


) 


Sc&l 


(GnlVarName 


(Varl) [L- 


■61 


*\ 


i 1 


) 



{ 

BddClockEventld = Bddldl; 
ClockEventVar = Varl; 
BListDellnsert (Support, i+1) ; 
break; 

} 

} 

/* Not clock 'event found, 
if ( ! ClockEventVar) 

{ 

BListQuickDelete (^Support) ; 
*Error = 1; 
return (GNL_OK) ; 

} 
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BddClockld = (int)BListElt {Support, 0) ; 
*ClockVar = GnlGetGnlVarFromBddlndex (BddClockld) ; 

/* temporary side effect on 'GnlVarName (ClockEventVar ) ' . 
GnlVarName (ClockEventVar) [L- 6] = ' \0 T ; 

/* Clock event and clock do not have the same name * 
if (strcmp (GnlVarName (ClockEventVar), GnlVarName ( *ClockVar) ) ) 
{ 

GnlVarName (ClockEventVar) [L-6] = '\ ! '; 
*Error = 1; 
return (GNL_0K) ; 

} 

GnlVarName (ClockEventVar) [L-6] = ' V'; 

/* We try to extract the expression : 
/* ! (elk 1 event. [clk| I elk] ) 

if (bdd^cofacO (BddClockCond, BddClockEventld, &Bddl) ) 
return ( GNL _MEMORY_FULjL ) ; 

if (Bddl 1= bdd_one ()) 

{ 

BListQuickDelete (&Support) ; 
*Error = 1; 
return (GNL_OK) ; 

} 

/* We must have the expression : */ 
/* ! { [elk | iclk] ) */ 

if (bdd_cofacl (BddClockCond, BddClockEventld, &Bddl) ) 
return (GNL_MEMORY_FULL) ; 

if (bdd^cofacO (Bddl, BddClockld, &Bdd2) ) 

return (GNL_MEMORY_FULL) ; 
if (bdd_cofacl (Bddl, BddClockld, &Bdd3) ) 

return (GNL_MEMORY_FULL) ; 

if ( (Bdd2 == bdd_one () ) (Bdd3 == bdd_zero ())) 
{ 

*ClockPol = 1; 

*Error = 0; 
return (GNL_0K) ; 

} 

if ((Bdd2 == bdd_zero () ) (Bdd3 == bdd_one ())) 
{ 

*ClockPol = 0; 
* Error = 0; 
return (GNL_OK) ; 

} 



*/ 

* 



*Error = 1; 
return (GNL_0K) ; 

} 
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/* */ 

/* GnlBuildNodeFromBdd */ 
/* */ 

GNL_STATUS Gnl Create Input SeqCompoVar () ; 

GNL_STATUS GnlBuildNodeFromBdd (Gnl, Bddlnput, StateVar, Out Var, 

InputNode) 

GNL Gnl ; 

BDD Bddlnput; 
GNL_VAR StateVar ; 
GNL_VAR OutVar; 



GNLJSTODE * InputNode; 

{ 

int Index; 

BDD_PTR BddPtr ; 

GNL_VAR Var; 
BDD Bddl; 
BDD BddO; 





GNL_ 


_VAR 


BddlVar; 




GNL~ 


_VAR 


BddOVar; 




GNL_ 


_NODE 


TempNode 1 




GNL_ 


_NODE 


TempNode2 




gnl] 


_NODE 


TempNode3 




gnl" 


_NODE 


TempNode4 




GNL_ 


_NODE 


TempNode5 




GNL_ 


_NODE 


TempNode6 




GNL_ 


_NODE 


TempNode7 




BLIST 


NewList ; 



if (Bddlnput — bdd_zero () ) 
{ 

if {GnlCreateNode (Gnl, GNL_CONSTANTE , InputNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*InputNode, (BLIST) 0) ; 

return (GNL_OK) ; 

} 

if (Bddlnput == bdd_one ()) 
{ 

if (GnlCreateNode (Gnl, GNL_CONSTANTE , InputNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*InputNode, (BLIST) 1) ; 

return (GNL_OK) ; 

} 



BddPtr = (BDD__PTR) GetBddPtrFromBdd (Bddlnput); 

Index = GetBddPtrlndex ( (BDD_PTR) GetBddPtrFromBdd (BddPtr)); 

Var = GnlGetGnlVarFromBddlndex (Index) ; 

/* We substitute the State var by the outvar */ 
if (Var StateVar) 
Var = OutVar; 
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Bddl = GetBddPtrEdgel (BddPtr) ; 
BddO = GetBddPtrEdgeO (BddPtr) ; 

/* !var */ 
if ((BddO == bdd_one ()) && (Bddl == bdd_zero () ) ) 

{ 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNodel) ) 

return ( GNL JVIEMOR Y_FULL ) ; 
SetGnlNodeSons (TempNodel, (BLIST)Var) ; 
if (GnlCreateNodeNot (Gnl, TempNodel, InputNode) ) 

return (GNL_MEMORY_FULL) ; 

} 

/* [var (0) x] --> var.x */ 
else if (BddO == bdd_zero ()) 

{ 

if (GnlCreatelnputSeqCompoVar (Gnl, Bddl, "$b" , 

StateVar, OutVar, &BddlVar) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode6) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode6, (BLIST) BddlVar) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) Var) ; 

if (GnlCreateNode (Gnl, GNL_AND, InputNode)) 

return ( GNL_MEMOR Y_FULL ) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (* InputNode, NewList) ; 
if {BListAddElt (NewList, (int) TempNodel) ) 

return (GNL_MEMORY_FULL) ; 

if (BListAddElt (NewList, (int ) TempNode6) ) 
return (GNL_MEMORY_FULL) ; 

} 

/* [var x (1)] --> x+var */ 
else if (Bddl == bdd_one ()) 

{ 

if (GnlCreatelnputSeqCompoVar (Gnl, BddO, "$b", 

StateVar, OutVar, &BddOVar) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode6) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode6, (BLIST) BddOVar) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, ^TempNodel) ) 

return <GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) Var) ; 

if (GnlCreateNode (Gnl, GNL_OR, InputNode)) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
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SetGnlNodeSons (*InputNode, NewList) ; 

if (BListAddElt (NewList, (int ) TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) TempNodeS) ) 

return (GNL_MEMORY_FULL) ; 

} 

/* [var x (0)] --> Ivar.x 
else if (Bddl == bdd_zero ()) 
{ 

if {GnlCreatelnputSeqCompoVar (Gnl, BddO, "$b" / 

StateVar, OutVar, &BddOVar) ) 

return (GNL_MEMORY_FULL) ; 
if {GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode6) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode6 , (BL1ST) BddOVar) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE , ScTempNodel) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) Var) ; 
if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode2) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_AND, InputNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &NewList) ) 

return ( GNL _MEMORY_FULL ) ; 
SetGnlNodeSons (*InputNode, NewList) ; 
if (BListAddElt (NewList, ( int ) TempNode2 ) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) TempNode6) ) 

return (GNL_MEMORY_FULL) ; 

} 

/* [var (1) x] --> Ivar+x 
else if (BddO == bdd_one ()) 

{ 

if (GnlCreatelnputSeqCompoVar (Gnl, Bddl, "$b", 

StateVar, OutVar, &BddlVar) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNode6) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNode6, (BLIST) BddlVar) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, ScTempNodel) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) Var) ; 
if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode2) ) 

return (GNLJVJEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNLjDR, InputNode)) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (* InputNode, NewList) ; 
if (BListAddElt (NewList, { int ) TempNode2) ) 

return (GNL_MEMORY FULL) ; 
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if (BListAddElt (NewList, (int) TempNode6) ) 
return (GNLJVIEMORY_FULL) ; 

} 

else 

{ 

/* [var x y] --> Ivar.x+var.y */ 
if (GnlCreatelnputSeqCompoVar (Gnl, BddO, "$b", 

StateVar, OutVar, &BddOVar) ) /* x */ 

return ( GNLJYIEMOR Y_FULL ) ; 
if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode6) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons {TempNode6, (BLIST) BddOVar) ; 

if (GnlCreatelnputSeqCompoVar (Gnl, Bddl, "$b", 

StateVar, OutVar, &BddlVar) ) /* y */ 

return ( GNLJ4EM0R Y_FULL) ; 
if (GnlCreateNode {Gnl, GNL_VARIABLE, &TempNode7) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode7 , (BLIST) BddlVar ) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE, &TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (TempNodel, (BLIST) Var) ; 

if (GnlCreateNodeNot (Gnl, TempNodel, &TempNode2) ) /* !var */ 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE , &TempNode3)) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (TempNode3 , (BLIST) Var) ; /* var */ 

if (GnlCreateNode (Gnl, GNL_AND, &TempNode4)) /* ivar.x */ 

return ( GNL_MEMOR Y__FULL ) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL_MEMORY_FULL> ; 
SetGnlNodeSons (TempNode4 , NewList) ; 
if (BListAddElt (NewList, ( int ) TempNode2 ) ) 

return (GNL_MEMORY_FULL) / 
if (BListAddElt (NewList, ( int ) TempNode6) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_AND, &TempNode5) ) /* var.y */ 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &NewList) ) 

return (GNL__MEMORY_FULL) / 
SetGnlNodeSons (TempNodeS, NewList) ; 
if (BListAddElt (NewList, (int) TempNode3) ) 

return (GNL_MEMORY__FULL) ; 
if (BListAddElt (NewList, (int) TempNode7) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_OR, InputNode) ) /* var.y */ 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &NewList)) 

return (GNL__MEMORY_FULL) ; 
SetGnlNodeSons {* InputNode, NewList); 
if (BListAddElt (NewList, (int) TempNode4) ) 
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return (GNLJ4EM0RY_FULL) ; 
if (BListAddElt (NewList, (int ) TempNodeS) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

if (Bddlnput ! = (BDD)BddPtr) 
{ 

if (GnlCreateNodeNot (Gnl, *InputNode, &TempNodel) ) 

return (GNL_MEMORY_FULL) ; 
*InputNode - TempNodel; 

} 

return (GNL_OK) ; 

} 



/* */ 

/* GnlCreatelnputSeqCompoVar */ 
/* */ 

/* This procedure creates a new GNL_NODE tree corresponding to bdd */ 
/* 'Bddlnput' and a new Var and new function and adds in the list of */ 
/* functions of 'Gnl'. The new var created is returned thru f *InputVar' */ 
/* and will constitute the input of the seq. component. */ 
/* */ 

GNL__STATUS GnlCreatelnputSeqCompoVar (Gnl, Bddlnput, BaseName , 

StateVar, OutVar, InputVar) 

GNL Gnl ; 

BDD Bddlnput ; 

char *BaseName; 
GNLJ/AR StateVar ; 
GNL_VAR OutVar; 
GNL_VAR * InputVar; 

{ 

BDDJPTR BddPtr; 
int Indexlnput ; 

GNL_STATUS GnlStatus ; 

GNL_NODE Input Node; 
GNL_VAR NewVar; 
GNL_FUNCTION NewFunction; 



/* If the 'Bddlnput' corresponds to a simple signal. */ 
BddPtr = {BDD_PTR)GetBddPtrFromBdd (Bddlnput); 
if ( (GetBddPtrEdgeO (BddPtr) bdd_zero ()) && 
(GetBddPtrEdgel (BddPtr) == bdd_one () ) ) 

{ 

Indexlnput = GetBddPtrlndex (BddPtr) ; 

* InputVar = GnlGetGnlVarFromBddlndex (Indexlnput) ; 

if (* InputVar == StateVar) 

* InputVar = OutVar ; 
return (GNL_OK) ; 

} 

/* If not we extract the complex node expression from it. */ 
if (GnlBuildNodeFromBdd (Gnl, Bddlnput, StateVar, OutVar, klnputNode) ) 
return (GNL_MEMORY_FULL) ; 
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/* we create a new variable and function storing this new node */ 
/* expression and adds it in the current 'Gnl'. Then we return this */ 
/* as the actual var used in the port association with the input pin.*/ 
if (GnlCreateUniqueVar (Gnl, BaseName, &NewVar) ) 

return ( GNL__MEMORY_FULL ) ; 
if (BListAddElt {GnlLocals (Gnl) , (int)NewVar) ) 

return (GNL_MEMORY__FULL) / 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) + 1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return ( GNL_MEMORY__FULL ) ; 

SetGnlVarFunction (NewVar, NewFunction) / 
SetGnlFunctionOnSet (NewFunction, InputNode) ; 

if (BListAddElt { Gnl Functions (Gnl ) , (int) NewVar) ) 
return (GNL_MEMORY_FULL) ; 

* Input Var = NewVar; 

return (GNLJ3K) ; 

} 



/* */ 

/* GnlResetNodeTagRec */ 
/* */ 

void GnlResetNodeTagRec (Node) 
GNL_NODE Node; 

{ 

int i ; 

GNL_NODE SonI; 
GNL VAR Var; 



} 



if (GnlNodeOp (Node) GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) GNL_VARIABLE ) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 

SetGnlVarTag (Var, 0) ; 

return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
GnlResetNodeTagRec (SonI) ; 

} 



/* */ 

/* GnlVarlsEvent */ 

/* */ 

int GnlVarlsEvent (Var) 
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GNL_VAR Var; 

int L ; 

char *Name; 



L = strlen (GnlVarName (Var) ) ; 
if (L <= strlen ("'event")) 
return (0) ; 

Name = GnlVarName (Var) +L-strlen ('"event") ; 

if (Istrcmp (Name, '"event")) 
return (1) ; 

return (0) ; 



/*■ 

/* 
/*■ 
/* 


GnlCopyGnlNode 




*/ 


This procedure make a copy of the logic cone and instantiate 


special 


/* 


signals like 'ClockVar 1 , 'SetVar' , 'ResetVar' . 




*/ 


/* 


*/ 






/* 


pecerror =$f41 */ 






/* 


$f41 =mop@pecerror 


*/ 




/* 


mop@pecerror =$fl66 


*/ 




/* 


$fl66 = (mc@' event. $f 165) 


*/ 




/* 


$fl65 =((! (elk 'event) . $f 41) + (elk 1 event . $f 164) ) 




*/ 


/* 


$fl64 =( (! (bp0@cx(9) ) .$f 163) + (bp0@cx(9) .$fl54) ) 




*/ 


/* 


$fl63 = ( ( ! (bp0@cx(8) ) .$f 162) + (bp0@cx(8) . $fl54) ) 




*/ 


/* 


$f 162 =( ( ! (bp0@cx(7) ) .$f 161) +(bp0@cx(7) .$fl54) ) 




*/ 


/* 


$f 161 = ( ( ! (bp0@cx(6) ) .$f 160) + (bp0@cx(6) . $f 154) ) 




*/ 


/* 


$fl60 =((! (bp0@cx(5)) .$fl59)+(bp0@cx(5) .$fl54)) 




*/ 


/* 


$f 159 =( ( ! (bpO@CX(4) ) .$fl58)+ (bp0@cx(4) .$fl54) ) 




*/ 


/* 


$fl58 =((! (bp0@cx(3)) .$fl57)+(bp0@cx(3) .$fl54)) 




*/ 


/* 


$fl57 =( ( ! (bp0@cx(2) ) .$fl56)+(bp0@cx(2) .$fl54) ) 




*/ 


/* 


$fl56 =( ( ! (bp0@cx(l) ) . $fl55)+(bp0@cx(l) .$fl54) ) 




*/ 


/* 


$fl55 = ( ( ! (bp0@cx(0) ) . ! ($fl52) ) + (bpO@cx(0) .$fl54) ) 




*/ 


/* 


$fl52 =((! (elk) . ! ($f41) )+(clk.$fl51) ) 


*/ 




/* 


$fl51 = (cnt2+ ! ($f41) ) 


*/ 




/* 


$fl54 =( ( ! (elk) .$f41)+(clk.$fl53) ) 




*/ 


/* 


$fl53 =(cnt2+$f41) 


*/ 




/* 


*/ 






/* 


into: */ 






/* 


*/ 






/* 


dl74 =$f41175 */ 






/* 


$f41175 =mop@pecerrorl76 


*/ 




/* 


mop@pecerrorl76 =$fl66177 


*/ 




/* 


$fl66177 =$fl65178 


*/ 




/* 


$fl65178 =$fl64179 


*/ 




/* 


$fl64179 =( ( ! (bp0@cx(9) ) .$fl63180) + (bp0@cx(9) .$fl54191) ) 




*/ 


/* 


$fl63180 =( (! (bp0@cx{8)) . $f 162181) + (bp0@cx ( 8) .$fl54191)) 




*/ 


/* 


$fl62181 =( (! (bp0@cx(7)) .$fl61182) + (bp0@cx(7) .$fl54191)) 




*/ 


/* 


$fl61182 =( (! (bp0@cx(6)) .$fl60183) + (bp0@cx(6) .$fl54191)) 




*/ 


/* 


$f 160183 = ( ( ! (bp0@cx(5) ) . $f 159184 ) + (bp0@cx(5) . $f 154191) ) 




*/ 
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/* 


?f 159184 


— ( ( I (bpO@cx (4 ) ) 


. $f 15 8185) + (bp0@cx (4) 


. $f 154191) ) 


*/ 


/* 


$1158185 


= ( ( I (bp0@cx(3) ) 


.$fl57186)+(bp0@cx(3) 


.$£154191) ) 


/ 


/* 


$1157186 


= ( ( ! (bp0@cx(2) ) 


.$fl56187)+(bp0@cx(2) 


. $f 154191) ) 


*/ 


/* 


$f 156187 


= ( { ! (bp0@cx(l) ) 


,$fl55188)+(bp0@cx(l) 


. $f 154191) ) 


*/ 


/* 


$f 155188 


= ( ( ! (bp0@cx(0) ) 


. 1 ($f 152189) ) + (bp0@cx(0) .$f 154191) ) 




/* 


$f 152189 


=$f 151190 




*/ 




/* 


$f 151190 


= (cnt2+! ($f 41175) ) 




*/ 


/* 


$f 154191 


=$f 153192 




*/ 




/* 


$f 153192 


= (cnt2+$f41175) 




*/ 




/* 

/*- 








*/ 





GNL_S TATUS GnlCopyGnlNode (Gnl, Node, OutVar, ClockVar, ClockPol, 

SetVar, AsyncSetPol, ResetVar, AsyncResetPol , 
NewNode ) 



GNL 




Gnl; 


GNL_ 


_N0DE 


Node ; 


gnl" 


_VAR 


OutVar; 


GNL_ 


~VAR 


ClockVar; 


int 




ClockPol ; 


GNL_ 


_VAR 


SetVar; 


int 




AsyncSetPol / 


GNL_ 


_VAR 


ResetVar; 


int" 




AsyncResetPol ; 


GNL_ 


_NODE 


* NewNode ; 


int 




i; 


BLIST 


TempList ; 


GNL_ 


_VAR 


Var; 


GNL_ 


_N0DE 


SonI ; 


gnl" 


_NODE 


NewSonI; 


int 




Value; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
{ 

if (GnlNodeSons (Node) ) 

{ 

if (GnlCreateNodeVdd (Gnl, NewNode)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlCreateNodeVss (Gnl, NewNode)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_pK) ; 

} 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

{ 

Var = (GNL VAR) GnlNodeSons (Node) ; 



if (Var == ClockVar) 
{ 

*NewNode = (GNL_NODE) ClockPol ; 
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return (GNL_OK) ; 

} 

if (Var == OutVar) 
{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (Var == SetVar) 
{ 

*NewNode = (GNL_NODE) ( ! AsyncSetPol) ; 
return (GNL_OK) ; 

} 

if (Var == ResetVar) 

{ 

*NewNode = (GNL_NODE) ( ! AsyncResetPol ) ; 
return (GNL_OK) ; 

} 

if (GnlVarlsEvent (Var) ) 
{ 

*NewNode = (GNL_N0DE) 1 ; 
return (GNLJDK) ; 

} 

if (GnlCreateNode (Gnl, GNL_VARIABLE , NewNode) ) 
return (GNL_MEMORY_FULL) ; 

if (IGnlVarTag (Var)) 

SetGnlNodeSons (*NewNode, (BLIST) Var) ; 
else 

SetGnlNodeSons (*NewNode, (BLIST) GnlVarTag (Var) ) ; 
return (GNL_OK) ; 

} 

if (BListCreateWithSize (BListSize (GnlNodeSons (Node) ) , &TempList ) ) 
return (GNL_MEMORY_FULL) / 

Value = -1; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

if (GnlCopyGnlNode (Gnl 7 SonI, OutVar, ClockVar, ClockPol, 

SetVar, AsyncSetPol, ResetVar, AsyncResetPol, 

ScNewSonI) ) 
return ( GNL_MEMORY_FULL ) ; 

if (NewSonI == (GNL_NODE)0) 

{ 

if (GnlNodeOp (Node) == GNL_AND) 
{ 

Value = 0; 
break; 

} 
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else if (GnlNodeOp (Node) == GNLJSTOT) 
{ 

Value = 1; 
break; 

} 

} 

else if (NewSonl == (GNL_NODE)l) 

{ 

if (GnlNodeOp (Node) == GNL_OR) 

{ 

Value = 1; 
break; 

} 

else if (GnlNodeOp (Node) == GNL_NOT) 
{ 

Value = 0; 
break; 

} 

} 

else 

{ 

if (BListAddElt (TempList, (int) NewSonl) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

if (Value != -1) 

{ 

BListQuickDelete (ScTempList) ; 
*NewNode = (GNL_NODE) Value ; 
return (GNL_0K) ; 

} 

if ((BListSize (TempList) — 1) && (GnlNodeOp (Node) != GNL_NOT) ) 
{ 

*NewNode = (GNL_N0DE) BListElt (TempList, 0); 
BListQuickDelete (&TempList) ; 
return (GNL_OK) ; 

} 

if (GnlCreateNode (Gnl, GnlNodeOp (Node), NewNode) ) 
return ( GNL_MEMORY_FULL) ; 

SetGnlNodeSons (*NewNode 7 TempList) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlPrintListFct */ 
/* */ 

void GnlPrintListFct (ListFct) 
BLIST ListFct; 

{ 

int i ; 

GNL_VAR Varl; 

GNL FUNCTION FunctionI; 
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GNL_NODE Node I; 



for (i=0; i<BListSize {ListFct) ; i++) 
{ 

Varl = (GNL_VAR)BListElt (ListFct, i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 
fprintf (stderr, " %s = GnlVarName (Varl) ) ; 
GnlPrintNodeRec (stderr, Nodel, 0) ; 
fprintf (stderr, n \n") ; 

} 



/* 

/* GnlCreateNewLovallnListFct 

/* 

GNL_STATUS GnlCreateNewLovallnListFct (Gnl, ListFct, Var, NextNode, 

NewVar) 

GNL Gnl ; 

BLIST ListFct; 
GNL_VAR Var; 
GNL_N0DE NextNode; 
GNL_VAR *NewVar; 

{ 

int i ; 

GNL_VAR Varl ; 
GNL_N0DE Nodel; 
GNLJFUNCTION NewFunct ion ; 



for (i=0; i<BListSize (ListFct); i++) 
{ 

Varl = (GNL_VAR) BListElt (ListFct, i) ; 

Nodel = GnlFunctionOnSet (GnlVarFunction (Varl) ) ; 

if (GnlEqualNode (Nodel, NextNode)) 
{ 

*NewVar = Varl; 
retum (GNL_0K) ; 

} 

} 

if (GnlCreateUniqueVar (Gnl, GnlVarName (Var), NewVar)) 
return (GNL__MEMORY__FULL) ; 

if (GnlFunctionCreate (Gnl, *NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY__FULL) ; 

SetGnlVarFunction (*NewVar, NewFunction) ; 

SetGnlFunctionOnSet (NewFunction, NextNode) ; 

if (BListAddElt (ListFct, (int) (*NewVar) } ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_0K) ; 
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} 



/* 

/* GnlCopySubHierarchy w 

/* 1 

i ^ ^ 

/* We copy physically the subtree starting from 'Node' to break the loop*/ 
/* and replace the state var leaves by the corresponding output variable*/ 
/* The new tree is returned thru 'NewNode' */ 
/* ' 

GNL__STATUS GnlCopySubHierarchy (Gnl, NewList, OutVar, StateVar, 

Node , NewNode ) 

GNL Gnl ; 

BLIST NewList ; 
GNL_VAR OutVar; 
GNL__VAR StateVar; 
GNL_NODE Node; 
GNLJSfODE *NewNode; 

{ 

BLIST NewList; 
GNL_VAR Var; 
GNL_VAR NewVar; 
GNL__FUNCT I ON Function ; 
GNL_NODE NextNode; 
GNL_NODE NewNode I; 
int i ; 

GNL_NODE SonI; 

if (GnlNodeOp (Node) GNL_CONSTANTE) 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Node); 

if (GnlVarTag (Var) (int) StateVar) 

{_ 

if (GnlCreateNode (Gnl, GNL_VAR I AB LE , NewNode)) 

return ( GNL _MEMORY_FULL ) ; 
SetGnlNodeSons (*NewNode, (BLIST) OutVar) ; 
return (GNL OK) ; 

} 

if ((GnlVarTag (Var) ==0) || t GnlVarFunction (Var)) 

*NewNode = Node; 
return (GNL OK) ; 

} 

Function = GnlVarFunction (Var) ; 
NextNode - GnlFunctionOnSet (Function) ; 

if (GnlCopySubHierarchy (Gnl, NewList, OutVar, StateVar, 
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NextNode , NewNode ) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlCreateNewLovallnListFct (Gnl, NewList, Var, 

* NewNode, &NewVar) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, GNL_VARIABLE , NewNode}) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, (BLIST) NewVar) ; 

return (GNL_OK) ; 

} 

if (BListCreateWithSize (BListSize (GnlNodeSons (Node) ) , 

ficNewLIst) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BLiistSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCopySubHierarchy (Gnl, NewList, OutVar, 

StateVar, SonI, &NewNodeI) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) NewNodel) ) 

return (GNL_MEMORY_FULL) ; 

} 

if (GnlCreateNode (Gnl, GnlNodeOp (Node), NewNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, NewList) ; 



return (GNL OK) ; 



/* */ 

/* GnlCutStateVarLoop */ 
/* */ 

/* Loops can occur because of re-using state var (cf example below */ 

/* where ' $f 41175' is reused in ' $f 151190' and '$f 153192' */ 

/* */ 

/* dl74 =$£41175 */ 

/* $f41175 -mop@pecerrorl76 */ 

/* mop@pecerrorl76 =$f!66177 */ 

/* $£166177 =$fl65178 */ 

/* $fl65178 =$fl64179 */ 

/* $fl64179 =((! (bp0@cx (9) ) . $f 163180) + (bp0@cx(9) .$fl54191)) */ 

/* $fl63180 =((! (bp0@cx(8)) .$fl62181)+(bp0@cx{8) .$fl54191)) */ 

/* $fl62181 =((! (bp0@cx(7) ) .$f 161182) + (bp0@cx(7) .$fl54191)) */ 

/* $fl61182 =((! (bp0@cx(6)) .$fl60183)+(bp0@cx(6) .$fl54191)) */ 

/* $£160183 =((! (bp0@cx(5)) .$f!59184)+(bp0@cx(5) .$fl54191)) */ 

/* $fl59184 =((t (bp0@cx(4)) .$fl58185)+(bp0@cx{4) .$fl54191)) */ 

/* $fl58185 =( (! (bp0@cx(3)) . $f 157186) + (bp0@cx (3 } .$f!54191)) */ 

/* $f!57186 =( ( J (bp0@cx(2) ) .$fl56187) + (bp0@cx(2) .$f!54191) ) */ 

/* $f!56187 =( ( I (bp0@cx(l) ) .$f 155188) +(bp0@cx(l) .$fl54191)) */ 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

* _ 



$f 155188 
$f 152189 
$f 151190 
$f 154191 
$f 153192 

into: 



= ( { ! (bp0@cx(0) ) . I ($fl52189) )+(bp0@cx(0) .$fl54191) ) 
=$f 151190 

= (cnt2+l ($f41175) ) 
=$fl53192 
= (cnt2+$f 41175) 



dl74 =$f41175 
$f 41175 =mop@pecerrorl76 
mop@pecerrorl7 6 =$£166177 
$fl66177 =$fl65178 
$f 164179 

(bp0@cx(9) ) 





*/ 




*/ 




*/ 


*/ 




*/ 




*/ 




*/ 





$f 165178 
$f 164179 
$fl63180 
$f 162181 
$fl61182 
$£160183 
$f 159184 
$f 158185 
$f 157186 
$f 156187 
$f 155188 
$f 152189 
$f 151190 
$f 154191 
$f 153192 



(bp0@cx(8) ) 
(bp0@cx(7) ) 
(bp0@cx(6) ) 
(bp0@cx(5) ) 
(bp0@cx{4) ) 
(bp0@cx (3) ) 
(bp0@cx(2) ) 
(bp0@cx(l) ) 
(bp0@cx(0) ) 
f 151190 

cnt2+l (pecerror) ) 
=$f 153192 

cnt2 + pecerror ) 



-$fl63180)+ 
-$f 162181) + 
.$£161182) + 
.$f 160183)+ 
.$fl59184)+ 
•$f!58185)+ 
.$fl57186)+ 
.$£156187)+ 
. $f 155188)+ 
. ! ($f 152189; 



(bp0@cx (9) 
(bp0@cx (8) 
(bp0@cx (7) 
(bp0@cx (6) 
(bp0@cx (5) 
(bp0@cx(4) 
(bp0@cx (3) 
(bp0@cx (2) 
(bp0@cx (1) 
} ) + (bp0@cx 



.$fl54 
.$f 154 
.$f!54 
.$fl54 
.$f 154 
.$fl54 
. $fl54 
.$f 154 
.$fl54 
(0) .$f 



*/ 
*/ 
*/ 
*/ 

191) ) 
191)) 
191)) 
19D) 
191) ) 
191)) 
191)) 
191)) 
191)) 
154191) ) 
*/ 

*/ 
*/ 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



/ 

GNL_STATUS GnlCutStateVarLoop (Gnl, ListFct, NewList, Node, OutVar, 

StateVar, Stack, NewNode) 

GNL Gnl ; 

BLIST ListFct; 
BLIST NewList; 
GNL_NODE Node; 
GNL_VAR OutVar ; 
GNL_VAR StateVar; 
BLIST Stack; 
GNL_NODE *NewNode; 



int i ; 

GNL_VAR Var; 
GNL_NODE NextNode; 
int NewLvl; 
GNL_NODE SonI; 
GNL_NODE NewNodel; 
GNL_VAR Next Var ; 



if (GnlNodeOp (Node) == GNL CONSTANTE ) 
{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
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/* This is the first point of the loop. We then copy physically */ 
/* the subtree to break the loop and replace the state var leaves*/ 
/* by the corresponding output variable */ 
if {BListMemberOfList (Stack, Var, Intldentical) ) 
{ 

if (GnlCopySubHierarchy (Gnl, NewList, OutVar, StateVar, Node, 

NewNode) ) 
return (GNL_MEMORY_FULL) / 
return (GML_OK) ; 

} 

if ( I Gnl Var Function (Var) ) 

{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (IGnlVarTag (Var)) 
{ 

*NewNode = Node; 
return (GNL__OK) ; 

} 

if (BListAddElt (Stack, (int)Var) ) 
return ( GNL_MEMORY_FULL ) ; 

NextNode = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 

if (GnlCutStateVarLoop (Gnl, ListFct, NewList, NextNode, OutVar, 

StateVar, Stack, NewNode)) 
return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (GnlVarFunction (Var) , *NewNode) ; 

BSize (Stack) =BSize (Stack) -1; 

*NewNode - Node; 

return (GNL_0K) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlCutStateVarLoop (Gnl, ListFct, NewList, SonI, OutVar, 

StateVar, Stack, &NewNodeI) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node), i) = (int) NewNode I; 

} 

*NewNode = Node; 
return (GNL_OK) ; 

} 



C-GNL1-348 



gnlfsmread.c 



GnlBuildListFctlnput * / 

*/ 

This procedure extracts the cone of logic implementing the input of */ 
the sequential component. We duplicate this cone of logic and */ 
instantiate signals like 1 ClockVar', 'SetVar', ... by the value which*/ 
is the clock value and the not set/reset values. */ 
In this cone of logic loops can occur when re-using State vars so we */ 
need to break the loops. 'InputVar 1 will be the input attached to the*/ 
input port of the sequential component. */ 

*/ 



/*■ 
/* 
/*■ 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/*- 

GNL_STATUS GnlBuildListFctlnput (Gnl, OutVar, StateVar, 

ClockVar, ClockPol, 
SetVar, AsyncSetPol, 
ResetVar , AsyncResetPol , 
ListFct , InputVar) 

GNL Gnl ; 

GNL_VAR OutVar; 

GNL_VAR StateVar; 

GNL_VAR ClockVar ; 

int ClockPol; 

GNL_VAR SetVar; 

int AsyncSetPol ; 

GNL_VAR ResetVar; 

int AsyncResetPol; 

BLIST ListFct; 

GNL_VAR * InputVar ; 



int 

GNL_VAR 

GNL_FUNCTION 

GNL_NODE 

GNL_VAR 

GNL_FUNCT I ON 

GNL_NODE 

BLIST 

BLIST 



Varl ; 

FunctionI; 

Nodel; 
NewVarl ; 

NewFunctionI; 
NewNode ; 
Stack; 
NewList ; 



#ifdef TRACE_EXTRACT_SEQ 

f print f (stderr, "*****************************************★*****★ \n" ) ; 

GnlPrintListFct (ListFct) ; 

#endif 

for (i=0; i<BListSize (ListFct); i++) 
{ 

Varl = (GNL__VAR) BListElt (ListFct, i) ; 
FunctionI - GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 

GnlResetNodeTagRec (Nodel) ; 

} 

for (i=0; i<BListSize (ListFct); i++) 
{ 

Varl - (GNL_VAR) BListElt (ListFct, i) ; 
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if (Varl == OutVar) 
{ 

if (GnlCreateUniqueVar (Gnl, "d" , &NewVarI) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 
{ 

if (GnlCreateUniqueVar (Gnl, GnlVarName (Varl), &NewVarI) ) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlVarTag (Varl, (int) NewVarl) ; 
SetGnlVarTag (NewVarl, ( int) Varl ) ; 

} 

for (i=0; i<BListSize (ListFct) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (ListFct, i) ; 
NewVarl = (GNL_VAR) GnlVarTag (Varl) ; 

Nodel = GnlFunctionOnSet (GnlVarFunction (Varl) ) ,- 

if (GnlCopyGnlNode (Gnl, Nodel, OutVar, ClockVar, ClockPol, 

SetVar, AsyncSetPol , ResetVar, AsyncResetPol , 
&NewNode) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlFunctionCreate (Gnl, NewVarl, NULL, &NewFunctionI) ) 
return (GNL_MEMORY_FULL) ; 

if (NewNode == (GNL__NODE) 0) 
{ 

if (GnlCreateNodeVss (Gnl, ScNewNode) ) 
return { GNL_MEMORY__FULL ) ; 

} 

else if (NewNode == (GNL_NODE)l) 
{ 

if (GnlCreateNodeVdd (Gnl, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlVarFunction (NewVarl, NewFunctionI) • 
SetGnlFunctionOnSet (NewFunctionI, NewNode) ; 

BListElt (ListFct, i) = (int) NewVarl ; 

} 



#ifdef TRACE_EXTRACT_SEQ 
fprintf (stderr, n \n n ); 
GnlPrintListFct (ListFct) ; 
#endif 

*InputVar = (GNL_VAR) GnlVarTag (OutVar); 
GnlResetVarFunction (OutVar) ; 
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/* We pick up the Boolean tree functions and will cut eventually */ 
/* loops created by using state var 'StateVar' . */ 
Nodel = GnlFunctionOnSet (GnlVarFunction (*InputVar) ) ; 
if (BListCreate (tStack) ) 

return { GNL _MEMORY_FULL ) ; 
if {BListCreate (&NewList) ) 

return ( GNL _MEMORY_FULL ) ; 
if (GnlCutStateVarLoop (Gnl, ListFct, NewList, Nodel, OutVar, 

StateVar, Stack, &NewNode) ) 

return { GNL_MEMORY_FULL ) ; 
if (BListAppend (ListFct, &NewList) ) 

return ( GNL__MEMORY_FULL ) ; 
BListQuickDelete (&Stack) ; 

SetGnlFunctionOnSet (GnlVarFunction (*InputVar) , NewNode) ; 



#ifdef TRACE_EXTRACT_SEQ 
fprintf (stderr, "\n"); 
GnlPrintListFct (ListFct) ; 

fprintf (stderr, " **************************************************\ n »i ) . 
#endif 

for (i=0; i<BListSize (ListFct) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListFct, i) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int)Varl)) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (GnlLocals (Gnl), (int)Varl)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl)+1); 

} 

BListQuickDelete (&ListFct) ; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlBddlsSimpleBddRec */ 
/* */ 

int GnlBddlsSimpleBddRec (Bdd, Lvl) 

BDD Bdd; 

int Lvl ; 

{ 

BDD_PTR BddPtr; 
BDD Bddl; 
BDD BddO ; 



if (ConstantBdd (Bdd) ) 
return (1) ; 

if (Lvl) 

return (0) ; 

BddPtr = (BDD_PTR)GetBddPtrFromBdd (Bdd) ; 
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Bddl = GetBddPtrEdgel (BddPtr) ; 
BddO = GetBddPtrEdgeO (BddPtr) ; 

if ( IGnlBddlsSimpleBddRec (Bddl, 1) ) 
return (0) ; 

if (IGnlBddlsSimpleBddRec (BddO, 1) ) 
return (0) ; 

return (1) ; 



/* 

/* GnlBddlsSimpleBdd 

/* 

int GnlBddlsSimpleBdd (Bdd) 
BDD Bdd; 

{ 

return (GnlBddlsSimpleBddRec (Bdd, 0) ) ; 



/* 

/* GnlCreateFsmSeqComponent 
/* 



/* This procedure creates a new GNL_S EQUENT I AL_COMPONENT (and 

/* GNL_COMPONENT then) and adds it in the list of Components of the 

/* *Gnl f . */ 

/* 

GNL_S TATUS GnlCreateFsmSeqComponent (Gnl, TypeSeqElem, OutVar, StateVar, 

Bddlnput, ListFct, 
ClockVar , ClockPol , 
AsyncSet , AsyncSetPol , 
AsyncReset , AsyncResetPol , 
SetPriorReset ) 



GNL 
int 

GNL_VAR OutVar; 
GNL_VAR StateVar; 
BDD 
BLIST 
GNL_VAR 
int 
int 
int 
int 
int 
int 



Gnl; 

TypeSeqElem; 



/* 0 --> latch, 1 --> Dff 



Bddlnput ; 
ListFct; 
ClockVar; 

ClockPol ; 
AsyncSet ; 
AsyncSetPol; 
AsyncReset; 
AsyncResetPol; 
SetPriorReset; 



BLIST Components ; 

GNL_VAR SetVar; 

GNL_VAR ResetVar; 
GNL_S EQUENT I AL_COMPONENT Ne wCompo ; 

char *InstName ; 

BLIST NewList; 

GNL_VAR I npu t Va r ; 
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/* Creating eventually the list of components. */ 
if ( !Gnl Components (Gnl)) 
{ 

if (BListCreate (ScNewList) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlComponents (Gnl, NewList) ; 

} 

Components = GnlComponents (Gnl) ; 

SetVar - NULL; 
if (AsyncSet > 0) 

SetVar = GnlGetGnlVarFromBddlndex (AsyncSet) ; 

ResetVar = NULL; 
if (AsyncReset > 0 ) 

ResetVar = GnlGetGnlVarFromBddlndex (AsyncReset) ; 

/* If the bdd input expression is a simple Bdd (either a constante */ 
/* or a simple variable) then we generates equations from this Bdd */ 
/* otherwise we generate equations by instantiating the original cone*/ 
/* of logic. */ 
if (GnlBddlsSimpleBdd (Bddlnput) ) 
{ 

if (GnlCreatelnputSeqCompoVar (Gnl, Bddlnput, "d" , StateVar, 

OutVar, SdnputVar) ) 
return ( GNL_MEMORY FULL) ; 

} 

else 
{ 

if (GnlBuildListFctlnput (Gnl, OutVar, StateVar, ClockVar, ClockPol, 

SetVar, AsyncSetPol, ResetVar, AsyncResetPol , 
ListFct, ScInputVar) ) 
return ( GNL_MEMORY_FULL ) ; 

} 



if (SetVar) 
{ 

/* if the set var direction can be erased. */ 
if { IGnlVarlsPrimary (SetVar)) 

SetGnlVarDir (SetVar, GNL VAR LOCAL WIRING) ; 
} " " 

if (ResetVar) 

{ 

/* if the reset var direction can be erased. */ 
if (IGnlVarlsPrimary (ResetVar)) 

SetGnlVarDir (ResetVar, GNL__VAR__L0 C AL_W I R I NG ) ; 



if (ClockVar) 
{ 

/* if the clock var direction can be erased, 
if (IGnlVarlsPrimary (ClockVar)) 

SetGnlVarDir (ClockVar, GNL_VAR_L0 CAL__W I R I NG ) ; 
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if (InputVar) 
{ 

/* if the input var direction can be erased. */ 
if ( ! GnlVarlsPrimary ( InputVar) ) 

SetGnlVarDir (InputVar, GNL VAR LOCAL WIRING); 
} " ~ 

if (OutVar) 

{ 

/* if the output var direction can be erased. */ 
if ( ! GnlVarlsPrimary (OutVar) ) 

SetGnlVarDir (OutVar, GNL_VAR_LOCAL WIRING) ; 

} 

/* Flip-Flop with Async. Set/Reset. */ 
if (SetVar && ResetVar) 
{ 

/* 

if (TypeSeqElem) 

fprintf (stderr, " Generate a DFF Reset/Set/%d for <%s>\n", 
SetPriorReset , GnlVarName (OutVar) ) ; 

else 

fprintf (stderr, " Generate a LATCH Reset/Set/%d for <%s>\n" 
SetPriorReset, GnlVarName (OutVar)); 

*/ 

if (GnlCreateSequentialComponent (GNL_DFF, ScNewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Components, (int) NewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (GnlVarName (OutVar) , &InstName) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlSequentialCompoInstName (NewCompo, InstName) ; 

SetGnlSequentialCompoInput (NewCompo, InputVar) ; 
SetGnlSequentialCompoOutput (NewCompo, OutVar) ; 
SetGnlSequentialCompoClock (NewCompo, ClockVar) ; 
SetGnlSequentialCompoClockPol (NewCompo, ClockPol) ; 
SetGnlSequentialCompoReset (NewCompo, ResetVar) ; 
SetGnlSequentialCompoResetPol (NewCompo, AsyncResetPol) ; 
SetGnlSequentialCompoSet (NewCompo, SetVar) ; 
SetGnlSequentialCompoSetPol (NewCompo, AsyncSetPol) ; 

switch (SetPriorReset) { 
case 0: 

if (TypeSeqElem) 

SetGnlSequentialCompoOp (NewCompo, GNL_DFF0) ; 
else 

S e t Gnl S e quent i a 1 CompoOp ( NewCompo , GNL_LATCH 0 ) 
break; 

case 1 : 

if (TypeSeqElem) 

SetGnlSequentialCompoOp (NewCompo, GNL_DFF1) ; 
else 

SetGnlSequentialCompoOp (NewCompo, GNL_LATCH1) 
break; 
default : 

if (TypeSeqElem) 
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SetGnlSequentialCompoOp (NewCompo, GNL__DFFX) ; 
else 

SetGnlSequentialCompoOp (NewCompo, GNL_LATCHX) 

} 

return (GNL_OK) ; 

} 

/* Flip -Flop with Async. Set */ 
if (SetVar) 
{ 

/* 

if (TypeSeqElem) 

fprintf (stderr, " Generate a DFF Set for <%s>\n", 
GnlVarName (OutVar) ) ; 

else 

fprintf (stderr, " Generate a LATCH Set for <%s>\n", 
GnlVarName (OutVar) ) ; 

*/ 

if (GnlCreateSequentialComponent (GNL_DFF, &NewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if ( 1 TypeSeqElem) 

SetGnlSequentialCompoOp (NewCompo, GNL_LATCH) ; 
if (BListAddElt (Components, (int) NewCompo) ) 

return (GNL_MEMORY_FULL) / 
if (GnlStrCopy (GnlVarName (OutVar) , &InstName) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlSequentialCompoInstName (NewCompo, InstName) ; 

SetGnlSequentialCompoInput (NewCompo, InputVar) ; 
SetGnlSequentialCompoOutput (NewCompo, OutVar) ; 
SetGnlSequentialCompoClock (NewCompo, ClockVar) ; 
SetGnlSequentialCompoClockPol (NewCompo, ClockPol) ; 
SetGnlSequentialCompoSet (NewCompo, SetVar) ; 
SetGnlSequentialCompoSetPol (NewCompo, AsyncSetPol) ; 

return (GNL_OK) ; 

} 



Flip-Flop with Async. Reset 

(ResetVar) 

{ 



*/ 



if (TypeSeqElem) 

fprintf (stderr, " Generate a DFF Reset for <%s>\n", 
GnlVarName (OutVar) ) ; 

else 

fprintf (stderr, " Generate a LATCH Reset for <%s>\n" 
GnlVarName (OutVar) ) ; 

if (GnlCreateSequentialComponent (GNL_DFF, &NewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if ( i TypeSeqElem) 

SetGnlSequentialCompoOp (NewCompo, GNL_LATCH) ; 
if (BListAddElt (Components, (int) NewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (GnlVarName (OutVar), &InstName) ) 
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return ( GNL_MEMORY_FULL ) ; 
SetGnlSequentialCompoInstName (NewCompo, InstName) ; 

SetGnlSequentialCompoInput (NewCompo, InputVar) ; 
SetGnlSequentialCompoOutput (NewCompo, OutVar) ; 
SetGnlSequentialCompoClock (NewCompo, ClockVar) ; 
SetGnlSequentialCompoClockPol (NewCompo, ClockPol) ; 
SetGnlSequentialCompoReset (NewCompo, ResetVar) ; 
SetGnlSequentialCompoResetPol (NewCompo, AsyncResetPol) ; 

return (GNL_OK) ; 

} 

/* Basic Flip-Flop */ 

/* 

if (TypeSeqElem) 

fprintf (stderr, " Generate a DFF for <%s>\n", 
GnlVarName (OutVar) ) ; 

else 

fprintf (stderr, " Generate a LATCH for <%s>\n", 
GnlVarName (OutVar) ) ; 

*/ 

if (GnlCreateSequentialComponent (GNL_DFF, &NewCompo) ) 

return ( GNL_MEMORY_FULL) ; 
if ( ! TypeSeqElem) 

SetGnlSequentialCompoOp (NewCompo, GNL_LATCH) ; 
if (BListAddElt (Components, ( in t) NewCompo) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (GnlVarName (OutVar) , &InstName) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlSequentialCompoInstName (NewCompo, InstName) ; 

SetGnlSequentialCompoInput (NewCompo, InputVar) ; 
SetGnlSequentialCompoOutput (NewCompo, OutVar) ; 
SetGnlSequentialCompoClock (NewCompo, ClockVar) ; 
SetGnlSequentialCompoClockPol (NewCompo, ClockPol) ; 



return (GNL_OK) ; 

} 

/* 

/* GnlClockEventVar 

/* 

int GnlClockEventVar (Var) 
GNL_VAR Var; 

{ 

int L; 

int SizeEvent; 



SizeEvent = strlen ('"event"); 
L = strlen (GnlVarName (Var) ) ; 

if (strlen (GnlVarName (Var)) <= SizeEvent) 
return (0) ; 
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} 



/* not elegant but it works ! 

if { (GnlVarName (Var) [L-l] == ! t') && 
(GnlVarName (Var) [L-2] == 'n') 
(GnlVarName (Var) [L-3] « 'e') && 
(GnlVarName (Var) [L-4] == 'v') && 
(GnlVarName (Var) [L-5] == f e ! ) && 
(GnlVarName (Var) [L-6] == ' V')) 

{ 

return (1) ; 

} 

return (0) ; 



/* ie/ 

/* GnlExtractDf f SeqCompo */ 
/* ir/ 

/* This procedure checks if we can infer a Dff from the bdd expression */ 

/* in 'Bdd' . */ 

/* it/ 

GNL_STATUS GnlExtractDf f SeqCompo (Gnl, OutVar, StateVar, Bdd, Support, 

Bddlnput, ClockVar, ClockPol, AsyncSet, 
AsyncSetPol, AsyncReset, AsyncResetPol, 
SetPriorReset , Error) 



GNL 




Gnl; 


GNL_ 


_VAR 


OutVar; 


GNL_ 


_VAR 


StateVar; 


bdd" 




Bdd; 


BDD 




* Bddlnput ; 


BLIST 


Support; 


GNL_ 


_VAR 


*ClockVar; 


int 




*ClockPol; 


int 




*AsyncSet ; 


int 




*AsyncSetPol ; 


int 




*AsyncReset ; 


int 




* AsyncResetPol ; 


int 




*SetPriorReset ; 


int 




*Error; 


int 




i; 


BDD 




RealBdd; 


int 




IndexBddl ; 


GNL_ 


_VAR 


CofVar; 


BDD 




Bddl ; 


BDD 




Bdd2 ; 


BDD 




Bdd3 ; 


BDD 




Bdd4 ; 


BDD 




BddStateVar; 


int 




I ndexB ddS t a t e Va r ; 


BDD 




BddClockExpr; 


GNL_ 


VAR 


ClockEventVar; 


int 




BddClockEvent Id ; 


int 




BddClockld; 


BDD 




BddStateVarExpr; 



* Error = 0; 
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/* Now we analyze the 'RealBdd' expression and extract in the */ 
/* following steps: */ 

/* - extraction of asynchronous signals (Set/Reset) */ 

/* cases are: */ 

/* Cof actor (RealBddjx = 1) = 0 X Async . Reset, Polarity 1 */ 

/* Cof actor {RealBdd|x = 1) = 1 ==> x Async. Set, Polarity 1 */ 

/* Cofactor (RealBddjx = 0) = 0 ==> X Async. Reset, Polarity 0 */ 

/* Cofactor (RealBddjx = 0) = 1 ==> X Async. Set, Polarity 0 */ 

/* For now, no asynchronous reset/set extracted. */ 
*AsyncSet = -1; 
*AsyncReset = -1; 

/* We extract the priotary asynchronous signal which is either a */ 
/* Set or a Reset. */ 
for (i=0; i<BListSize (Support); i++) 

{ 

IndexBddl = (int) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (CofVar == StateVar) 
continue; 

if (GnlClockEventVar (CofVar) ) 
continue; 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We extracted an asynchronous Set */ 
if (RealBdd == bdd_one ()) 

{ 

*AsyncSet = IndexBddl; 
*AsyncSetPol = 1; 
BListDellnsert (Support, i+1) ; 

/* We remove the asynchronous Set */ 
if (bdd_cofac0 (Bdd, IndexBddl, &RealBdd) ) 

return <GNL_MEMORY_FULIj) ; 
*SetPriorReset = 1; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd zero ()) 

{ 

/* We extracted an asynchronous Reset. */ 
*AsyncReset = IndexBddl; 
*AsyncResetPol = 1; 
BListDellnsert (Support, i+1) ; 

/* We remove the asynchronous Reset */ 
if (bdd__cofac0 (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset = 0; 
Bdd = RealBdd; 
break; 

} 
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if {bdd_cofacO (Bdd, IndexBddl, &RealBdd) ) 
return ( GNL_MEMORY_FULL) ; 

/* We extracted an asynchronous Set */ 
if (RealBdd == bdd_one ()) 
{ 

*AsyncSet = IndexBddl; 
*AsyncSetPol = 0; 
BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Set */ 
if (bdd__cofacl (Bdd, IndexBddl, fcRealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset = 1; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd_zero {)) 

{ 

/* We extracted an asynchronous Reset. */ 
*AsyncReset = IndexBddl; 
*AsyncResetPol = 0; 
BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Reset */ 
if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset = 0; 
Bdd = RealBdd ; 
break; 

} 

} 

/* 'Bdd' is the current bdd expression and may have been modified. */ 

/* We previously extracted an 'AsyncSet* or an 'AsyncReset' and then */ 
/* we look for the second one (in case we have both Set and Reset) . */ 
if |(*AsyncSet > 0) | | (*AsyncReset > 0)) 

for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = ( int ) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl); 
if (CofVar == StateVar) 
continue; 

if (GnlClockEventVar (CofVar) ) 
continue; 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 
return (GNL_MEMORY_FULL) ; 

/* We extracted an asynchronous Set */ 
if (RealBdd bdd_one ()) 
{ 

*AsyncSet = IndexBddl; 
*AsyncSetPol = 1; 
BListDellnsert (Support, i+l) ; 
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/* We remove the asynchronous Set */ 
if (bdd_cofacO (Bdd, IndexBddl, ScRealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd ; 
break; 

} 

else if (RealBdd == bdd_zero {) ) 

{ 

/* We extracted an asynchronous Reset. 
*AsyncReset = IndexBddl; 
*AsyncResetPol = 1; 
BListDellnsert (Support, i + l) ; 

/* We remove the asynchronous Reset */ 
if (bdd_cofacO (Bdd, IndexBddl, &RealBdd) ) 

return ( GNL_MEMORY_FULL) ; 
Bdd = RealBdd; 
break; 

} 

if (bdd_cofacO (Bdd, IndexBddl, fcRealBdd) ) 
return (GNL__MEMORY_FULL) ; 

/* We extracted an asynchronous Set 
if (RealBdd bdd_one () ) 

{ 

*AsyncSet = IndexBddl; 

*AsyncSetPol - 0; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Set 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GML_MEMORY_FULL) ; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd_zero ()) 
{ 

/* We extracted an asynchronous Reset. 

*AsyncReset = IndexBddl; 

*AsyncResetPol = 0; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Reset 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd; 
break; 

} 



} 

} 

/* 'Bdd' is the current bdd expression and may have been modified. 

/* We have extracted the Asynchronous signals. Now we should analyze 
/* a Bdd expression of the form: */ 
/* StateVar <= ! <clk__cond> . StateVar+<clk_cond> . <input_expr> */ 
/* where <clk_cond> = (elk 1 event . [elk | I elk] ) and <input_expr> any 
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/* Boolean expression. */ 
/* */ 

BddStateVar = (BDD) GnlVarHook (StateVar); 

/* we extract the clock condition which is of the form: */ 
/* <clk_cond> = (elk 1 event. [elk | ! elk] ) */ 

if (GnlGetClockCondition (Bdd, BddStateVar, 

&ClockEventVar , &BddClockEvent Id , 
ClockVar, ScBddClockld, ClockPol , Error)) 
return (GNL_MEMORY_FULL) ; 

/* we were not able to extract any clock */ 
if (*Error) 

{ 

BListQuickDelete (^Support) ; 
return (GNL_OK) ; 

} 

/* Now we get the expression: i <clk_cond>+<clk_cond> . <input_expr> 
/* by cofactoring the Bdd expression by 'StateVar =1' */ 
if (bdd__cofacl (Bdd, BddClockEventld, &Bddl) ) 

return ( GNL_MEMOR Y_FULL ) ; 
if (*ClockPol) 

{ 

if (bdd_cofacl (Bddl, BddClockld, Bddlnput) ) 
return (GNL_MEMORY__FULL) ; 

} 

else 

{ 

if (bdd_cofacO (Bddl, BddClockld, Bddlnput)) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (^Support) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlExtractLatchSeqCompo */ 
/* */ 

/* This procedure checks if we can infer a Latch from the bdd expression*/ 
/* in 'Bdd T . */ 
/* */ 

GNL_STATUS GnlExtractLatchSeqCompo (Gnl, OutVar, StateVar, Bdd, 

Bddlnput, ClockVar, ClockPol, AsyncSet, 
AsyncSetPol , AsyncReset , AsyncResetPol , 
SetPriorReset , Error) 

GNL Gnl ; 

GNL__VAR OutVar; 
GNL_VAR StateVar; 
BDD Bdd; 
BDD *BddInput; 
GNL_VAR *ClockVar; 
int *ClockPol; 
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int 


*AsyncSet ; 


int 


*AsyncSetPol; 


int 


*AsyncReset ; 


int 


*AsyncResetPol ; 


int 


*SetPriorReset ; 


int 


*Error; 


int 


i; 


BDD 


RealBdd; 


int 


IndexBddl ; 


GNL_VAR 


CofVar; 


BDD 


Baal ; 


BDD 


Bdd2 ; 


BDD 


Bdd3 ; 


BDD 


Bdd4 ; 


BDD 


BddStateVar ; 


BDD 


BddClockExpr / 


int 


BddClockld; 


BDD 


BddStateVarExpr ; 


BLIST 


Support ; 


int 


IndexStateVar; 


GNL_STATUS 


GnlStatus; 



if (GnlGetSupportOfFsmBdd (Bdd, ^Support) ) 
return ( GNL__MEMORY_FULL) ; 

*Error = 0; 

/* No clock 'event variable here */ 
for (i=0; i<BListSize (Support); i++) 

{ 

IndexBddl = (int ) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (GnlClockEventVar (CofVar) ) 
{ 

* Error = 1; 

BListQuickDelete (^Support) ; 
return (GNL_0K) ; 

} 

} 



/* Now we analyze the 'RealBdd' expression and extract in the */ 

/* following steps: */ 

/* - extraction of asynchronous signals (Set/Reset) */ 

/* cases are: */ 

/* Cofactor (RealBdd|x = 1) = 0 ==> X Async . Reset, Polarity 1 */ 

/* Cofactor (RealBdd |x = 1) = 1 ==> x Async. Set, Polarity 1 */ 

/* Cofactor (RealBdd |x = 0) = 0 ==> X Async. Reset, Polarity 0 */ 

/* Cofactor (RealBdd|x = 0) = 1 ==> X Async. Set, Polarity 0 */ 

/* For now, no asynchronous reset/set extracted. */ 
*AsyncSet = -1; 
*AsyncReset = -1; 

/* We extract the priotary asynchronous signal which is either a */ 
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/* Set or a Reset. 

for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = (int) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl); 
if (CofVar == StateVar) 
continue; 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 
return ( GNL__MEMORY_FULL ) ; 

/* We extracted an asynchronous Set 
if (RealBdd == bdd_one () ) 

{ 

*AsyncSet = IndexBddl; 

*AsyncSetPol = 1; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Set 

if (bdd__cofacO (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset - 1; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd_zero ()) 

{ 

/* We extracted an asynchronous Reset. 

*AsyncReset = IndexBddl; 

*AsyncResetPol = 1; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Reset 

if (bdd_cofacO (Bdd, IndexBddl, &RealBdd) ) 

return ( GNL_MEMORY_FULL ) ; 
*SetPriorReset = 0; 
Bdd = RealBdd; 
break; 

} 

if (bdd_cofac0 (Bdd, IndexBddl, &RealBdd) ) 
return (GNL_MEMORY_FULL) ; 

/* We extracted an asynchronous Set 
if (RealBdd bdd_one ()) 
{ 

*AsyncSet - IndexBddl; 

*AsyncSetPol = 0; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Set 

if (bdd_cofacl (Bdd, IndexBddl, ScRealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset = 1; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd_zero ()) 

{ 
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/* We extracted an asynchronous Reset. 

*AsyncReset = IndexBddl; 

*AsyncResetPol = 0; 

BListDellnsert (Support, i+1) ; 

/* We remove the asynchronous Reset 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
*SetPriorReset = 0; 
Bdd = RealBdd; 
break; 

} 

} 

/* 'Bdd' is the current bdd expression and may have been modified. 

/* We previously extracted an 'AsyncSet' or an 'AsyncReset' and then 
/ * we look for the second one (in case we have both Set and Reset) . 
if <(*AsyncSet > 0) || (*AsyncReset > 0)) 

{ 

for (i=0; i<BListSize (Support); i++) 

{ 

IndexBddl = (int) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (CofVar == StateVar) 
continue; 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 
return (GNL_MEMORY_FULL) ; 

/* We extracted an asynchronous Set 
if (RealBdd ™ bdd_one ()) 

{ 

*AsyncSet = IndexBddl; 

*AsyncSetPol = 1; 

BListDellnsert (Support, i+1) ; 

/* We remove the asynchronous Set 

if (bdd_cofac0 (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd ; 
break; 

} 

else if (RealBdd == bdd_zero () ) 

{ 

/* We extracted an asynchronous Reset. 

*AsyncReset = IndexBddl; 

*AsyncResetPol = 1; 

BListDellnsert (Support, i+1) ; 

/* We remove the asynchronous Reset 

if (bdd__cofac0 (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd; 
break ; 

} 

if (bdd_cofac0 (Bdd, IndexBddl, &RealBdd) ) 
return (GNL_MEMORY_FULL) ; 
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/* We extracted an asynchronous Set 
if (RealBdd bdd_one () ) 

{ 

*AsyncSet = IndexBddl; 

*AsyncSetPol = 0; 

BListDellnsert (Support, i+l) ; 

/* We remove the asynchronous Set 

if (bdd_cofacl (Bdd f IndexBddl, &RealBdd) ) 

return ( GNL_MEMORY_FULL ) ; 
Bdd = RealBdd; 
break; 

} 

else if (RealBdd == bdd zero ()) 

{ 

/* We extracted an asynchronous Reset. 

*AsyncReset = IndexBddl; 

*AsyncResetPol = 0; 

BListDellnsert (Support, i+l); 

/* We remove the asynchronous Reset 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd; 
break ; 

} 



} 

} 

/* *Bdd' is the current bdd expression and may have been modified. 

/* We have extracted the Asynchronous signals. Now we should analyze 
/* a Bdd expression of the form: 

/* StateVar <= ! <clk_cond> . StateVar+<clk_cond> . <input expr> 

/* where <clk_cond> = ([clk|»clk]) and <input_expr> any ~ 
/* Boolean expression. 
/* 

BddStateVar = (BDD) GnlVarHook (StateVar); 

/* We look for the signal which by cofatoring it to 1 or 0 gives the 
/* expression of <StateVar> . */ 
*ClockVar = NULL; 

for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = (int) BListElt (Support, i) ; 

CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (CofVar == StateVar) 
continue; 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 
return ( GNL_MEMORY_FULL ) ; 

/* This is the clock with a low level polarity 
if (RealBdd == BddStateVar) 
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{ 

*ClockVar = CofVar; 
*ClockPol = 0; 

/* We remove the clock 

if (bdd_cofacO (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
Bdd = RealBdd; 
break; 

} 

if (bdd_cofac0 (Bdd, IndexBddl, &RealBdd) ) 
return (GNL_MEMORY_FULL) ; 

/* This is the clock with a High level polarity 
if (RealBdd == BddStateVar) 

{ 

*ClockVar = CofVar; 
*ClockPol = 1; 

/* We remove the clock 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return ( GNL_MEMOR Y_FULL) ; 
Bdd = RealBdd; 
break; 

} 

} 

/* we did not find any clock 
if (*ClockVar == NULL) 

{ 

IndexStateVar = -1; 

for (i=0; i<BListSize (Support) ; i++) 

{ 

IndexBddl = (int) BListElt (Support, i) ; 
CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) 
if (CofVar == StateVar) 
{ 

IndexStateVar = IndexBddl; 
break; 

} 

} 

if (IndexStateVar == 

{ 

* Error = 1; 
BListQuickDelete 
return (GNLJDK) ; 

} 

if (bdd_cofacl (Bdd, IndexStateVar, &RealBdd) ) 
return ( GNL_MEMORY_FULL ) ; 

if (RealBdd ! = bdd_one ()) 
{ 

*Error = 1; 

BListQuickDelete (^Support) ; 



-1) 

(ScSupport) ; 
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return (GNL_OK) ; 

} 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable (Gnl, "0", 

ClockVar) ) ) 

{ 

if {GnlStatus == GNL_MEMORY_FULL) 
return (GNLJVIEMORY_FULL) ; 

} 

*ClOCkPol = 1; 

*BddInput = RealBdd; 
BListQuickDelete (^Support) ; 
return (GNL_0K) ; 

} 

*BddInput = Bdd; 
BListQuickDelete (^Support) ; 
return <GNL_0K) ; 

} 



/* */ 

/* GnlExtractSeqCompoFromBdd */ 
/* */ 

/* This procedure analyzes the bdd 'Bdd' and extracts all the relative */ 

/* expression to the universal seq. element like 'clock', ' Set ' , ... */ 

/* The bdd must be of the form: */ 

/ * mc ' event . [RealBdd] * / 

/* */ 



GNL_STATUS GnlExtractSeqCompoFromBdd (Gnl, OutVar, StateVar, Bdd, ListFct) 



GNL 


Gnl; 


GNL_VAR 


OutVar; 


GNL_VAR 


StateVar; 


BDD 


Bdd; 


BLIST 


ListFct; 


BLIST 


Support ; 


int 


i ; 


int 


AsyncSet ; 


int 


AsyncSetl; 


int 


AsyncSet 2 ; 


int 


AsyncReset ; 


int 


AsyncResetl ; 


int 


AsyncReset 2 ; 


int 


IndexBddl ; 


GNL_VAR 


CofVar; 


int 


IndexBddS tateVar ; 


BDD 


BddClockExpr; 


BDD 


BddStateVar; 


GNL_VAR 


ClockVar; 


int 


ClockPol; 


GNL_VAR 


ClockVarl; 


int 


ClockPoll; 


GNL_VAR 


ClockVar2 ; 
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int 




ClockPol2 ; 


BDD 




BddStateVarExpr,- 


BDD 




Bdd Input; 


BDD 




RealBdd; 


GNL_ 


_VAR 


ClockEventVar ; 


int 




B ddC 1 o c kE ven 1 1 d ; 


int 




BddClockld; 


int 




SetPriorReset ; 


int 




SetPriorReset 1 ; 


int 




SetPriorReset2 ; 


int 




Error ; 


int 




AsyncSetPol ; 


int 




AsyncResetPol ; 


int 




AsyncSetPoll; 


int 




AsyncResetPoll; 


int 




AsyncSetPol2 ; 


int 




AsyncResetPol2 ; 


int 




NbDontcare; 


GNL_ 


_VAR 


Dont CareVar ; 


int 




DontCareld; 


BDD 




Bddlnputl; 


BDD 




Bddlnput2; 


BDD 




Bddl ; 


BDD 




Bdd2 ; 


GNL_ 


STATUS Status; 



if (GnlGetSupportOfFsmBdd (Bdd, ^Support) ) 
return (GNL_MEMORY_FULL) ; 

/* First we scan the support in order to remove the master clock of 
/* name GNL_MASTER_CLOCK_EVENT . We get then the Bdd 'RealBdd*. */ 
for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = (int) BListElt (Support, i) ; 
CofVar = GnlGetGnlVarFromBddlndex (IndexBddl); 
if (Istrcmp (GnlVarName (CofVar), GNL MASTER CLOCK EVENT) ) 
{ 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY__FULL) ; 
BListDellnsert (Support, i+1) ; 
Bdd = RealBdd; 
break; 

} 

} 

/* We scan the support in order to extract dontcare. 
NbDontcare = 0; 

for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = (int ) BListElt (Support, i) ; 
CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (GnlVarDir (CofVar) == GNL_VAR_LOCAL DONTCARE) 
{ 

/* we accept only 1 single dont care in the expression 
if (NbDontcare) 
{ 
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fprintf (stderr, 

" ERROR: state variable <%s> cannot be synthesized\n n , 

GnlVarName (OutVar) ) ; 
return ( GNL__B AD_FSM_FOR_S YNTHE SIS) ; 

} 

NbDontcare++ ; 

DontCareVar = CofVar; 
DontCareld = IndexBddl; 

} 

} 

if (NbDontcare) 
{ 

BListQuickDelete (^Support) ; 

/* we set dontcare to 1 and extract the sequential component */ 
if (bdd_cofacl (Bdd, DontCareld, &Bddl) ) 
return ( GNL_MEMORY_FULL) ; 

if (GnlGetSupportOf FsmBdd (Bddl, ScSupport) ) 

return (GNL_MEMORY_FULL) ; 
if {(Status = GnlExtractDf fSeqCompo (Gnl, OutVar, StateVar, Bddl, 
Support, &BddInputl, &ClockVarl, &ClockPoll, 
ScAsyncSetl, &AsyncSetPoll, &AsyncResetl , 
ScAsyncResetPoll, &SetPriorResetl , &Error) ) ) 
return (Status) ; 
BListQuickDelete (^Support) ; 

if (lError) 

{ 

/* we set dontcare to 0 and extract the sequential component */ 
if (bdd_cofacO (Bdd, DontCareld, &Bdd2) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlGetSupportOf FsmBdd (Bdd2, ^Support) ) 

return ( GNL_MEMORY_FULL ) ; 
if ((Status = GnlExtractDf fSeqCompo (Gnl, OutVar, StateVar, Bdd2, 
Support , &BddInput2 , &ClockVar2 , &ClockPol2 , 
&AsyncSet2 , &AsyncSetPol2 , &AsyncReset2 , 
&AsyncResetPol2 , &SetPriorReset2 , &Error) ) ) 
return (Status) ; 
BListQuickDelete (^Support) ; 

if ( ! Error && 

(Bddlnputl == Bddlnput2) && 
(ClockVarl ClockVar2) && 
(ClockPoll == ClockPol2) ScSc 
(AsyncSetl == AsyncSet2) && 
(AsyncSetPoll == AsyncSetPol2 ) && 
(AsyncResetl == AsyncReset2) && 
(AsyncResetPoll == AsyncResetPol2 ) && 
(SetPriorResetl != SetPriorReset2) ) 

{ 

/* Actually there is no real priority between Set and */ 
/* Reset. The priority depends on the dontcare value. */ 
SetPriorReset = 2; 
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/* Now we create physically a new GNL_SEQUENTTAL_COMPONENT* / 
/* in the list of components of the current 'Gnl'. */ 
if (GnlCreateFsmSeqComponent (Gnl, l, OutVar, StateVar, 

Bddlnputl, ListFct, 
ClockVarl, ClockPoll, 
AsyncSetl , AsyncSetPoll , 
AsyncResetl, AsyncResetPoll , 
SetPriorReset) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL__OK) ; 

} 

} 

/* If it is not good we try to extract a latch */ 

/* we set dontcare to 1 and extract the sequential component */ 
if (bdd_cofacl (Bdd, DontCareld, &Bddl) ) 
return (GNL_MEMORY_FULL) ; 

if ((Status = GnlExtractLatchSeqCompo (Gnl, OutVar, StateVar, Bddl, 
fcBddlnputl, &ClockVarl, &ClockPoll, 
SAsyncSetl, ^AsyncSetPoll , SAsyncReset 1 , 
&AsyncResetPoll , &SetPriorReset 1 , &Error ) ) ) 
return (Status) ; 

BListQuickDelete (^Support) ; 

if (Error) 

{ 

fprintf (stderr, 

" ERROR: state variable <%s> cannot be synthesized\n" , 
GnlVarName (OutVar) ) ; 
return (GNL_BAD FSM FOR SYNTHESIS) ; 
} ~ ~ 

/* we set dontcare to 0 and extract the sequential component */ 
if (bdd_cofacO (Bdd, DontCareld, &Bdd2) ) 
return (GNL_MEMORY_FULL) ; 

if ((Status - GnlExtractLatchSeqCompo (Gnl, OutVar, StateVar, Bdd2, 
&BddInput2, &ClockVar2 , &ClockPol2, 
&AsyncSet2 , &AsyncSetPol2 , &AsyncReset2 , 
&AsyncResetPol2 , &SetPriorReset2 , ScError) ) ) 
return (Status) ; 

BListQuickDelete (^Support) ; 

if (Error | | 

(Bddlnputl != Bddlnput2) |j 
(ClockVarl 1= ClockVar2) j| 
(ClockPoll != ClockPol2) | | 
(AsyncSetl 1= AsyncSet2) | | 
(AsyncSetPoll i= AsyncSetPol2 ) | | 
(AsyncResetl != AsyncReset2) | | 
(AsyncResetPoll != AsyncResetPol2 ) | | 
(SetPriorResetl == SetPriorReset2) ) 

{ 
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fprintf (stderr, 

" ERROR: state variable <%s> cannot be synthesized\n" , 

GnlVarName (OutVar) ) ; 
return (GNL_BAD_FSM_FOR_SYNTHESIS) ; 



/* Actually there is no real priority between Set and Reset. */ 
/* The priority depends on the dontcare value. */ 
SetPriorReset = 2; 

/* Now we create physically a new GNL_S EQUENT I AL_COMPONENT in */ 
/* the list of components of the current 'Gnl'. */ 
if (GnlCreateFsmSeqComponent (Gnl, 0, OutVar, StateVar, 

Bddlnputl, ListFct, 
ClockVarl, ClockPoll, 
AsyncSetl, AsyncSetPoll , 
AsyncRe s e 1 1 , AsyncRe s e t Po 1 1 , 
SetPriorReset) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if {(Status = GnlExtractDffSeqCompo (Gnl, OutVar, StateVar, Bdd, Support, 

SiBddlnput, &ClockVar, &ClockPol, &AsyncSet, 
SAsyncSetPol , SAsyncReset , &AsyncResetPol , 
^SetPriorReset, tError) ) ) 

return (Status) ; 

if {! Error) 
{ 

/* Now we create physically a new GNL__S E QUENT I AL_COM PONENT in */ 
/* the list of components of the current *Gnl'. */ 
if (GnlCreateFsmSeqComponent (Gnl, 1, OutVar, StateVar, Bddlnput, 

ListFct, ClockVar, ClockPol, 
AsyncSet, AsyncSetPol, 
AsyncReset, AsyncResetPol , 
SetPriorReset) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

} 

if ((Status = GnlExtractLatchSeqCompo (Gnl, OutVar, StateVar, Bdd, 

&BddInput, ScClockVar, &ClockPol, &AsyncSet, ' 
SAsyncSetPol , SAsyncReset , &Async Reset Pol , 
SiSetPriorReset , iError) ) ) 

return (Status) ; 



if (Error) 
{ 

fprintf (stderr, 

" ERROR: state variable <%s> cannot be synthesized\n" , 

GnlVarName (OutVar) ) ; 
return (GNL_BAD_FSM_FOR_SYNTHESIS) ; 
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} 



/* Now we create physically a new GNL_SEQUENTIAL_COMPONENT in */ 
/* the list of components of the current ■Gnl'. */ 
if (GnlCreateFsmSeqComponent (Gnl, 0, OutVar, StateVar, Bddlnput, 

ListFct, ClockVar, ClockPol, 
AsyncSet , AsyncSetPol , 
AsyncReset, AsyncResetPol , 
SetPriorReset) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL OK) / 



/*. 

/ * GnlNamelncluded 

/* 

/* This procedures verifies in Namel is included in Name 2 . Actually 
/* Namel is at the end of Name2 if is is the case. */ 
/* Name2 = ???@Namel */ 
/* 

int GnlNamelncluded (Namel, Name2) 

char * Namel; 

char * Name 2 ; 

{ 

int LI; 

int L2 ; 

int Diff; 

int i ; 



LI ~ strlen (Namel) ; 
L2 = strlen (Name2) ; 
Diff = L2-L1; 

for (i=0; i<Ll; i++) 
{ 

if (Namel [i] ! = Name2 [Dif f +i] ) 
return (0) ; 

} 

if (Name2 [Dif f-1] ! = '©*) 
return (0) ; 

return (1) ; 

} 



/* 

/* GnlCorrespondingOutVar 

/* 

int GnlCorrespondingOutVar (StateVar, Var) 

GNL_VAR StateVar ; 

GNL_VAR Var; 

{ 

int SI; 
int 1 ; 
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SI = strlen (GnlVarName (StateVar)); 
1 = strlen (GnlVarName (Var) ) ; 

if (SI = = 1) 
return (0) ; 

if (SI > 1) 

return (GnlNamelncluded (GnlVarName (Var), GnlVarName (StateVar))); 

else 

return (GnlNamelncluded (GnlVarName (StateVar) , GnlVarName (Var) ) ) ; 

} 

/* */ 

/* GnlGetOutVarFromStateVar */ 

/* */ 

GNLJSTATUS GnlGetOutVarFromStateVar (Gnl, StateVar, OutVar) 

GNL Gnl ; 

GNL_VAR Stat e Var / 

GNL_VAR *0utVar; 

{ 

int i ; 

int j ; 

BLIST HashTableNames ; 

BLIST Bucketl; 

GNL VAR VarJ; 



HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames) ; i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
if (VarJ == StateVar) 
continue; 

if (GnlCorrespondingOutVar (StateVar, VarJ) ) 

{ 

*OutVar = VarJ; 
return (GNL_OK) ; 

} 

} 

} 

fprintf (stderr, 

"ERROR: did not find corresponding output var of state var <%s>\n", 
GnlVarName (StateVar) ) ; 
exit (1); 

*OutVar = NULL; 

return (GNL_OK) ; 

} 
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/* 

/* GnlDecreaseDads 

/* 

void GnlDecreaseDads {Gnl, Node) 
GNL Gnl ; 

GNL_NODE Node; 

{ 

int i ; 

GNL_VAR Var; 
GNL_NODE Node I ; 
GNL_FUNCT I ON Function ; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) GNL_VAR I ABLE ) 
{ 

Var- (GNL_VAR) GnlNodeSons (Node) ; 
Function = GnlVarFunction (Var) ; 
if (! Function) 
return; 

SetGnlVarDads (Var, (int) GnlVarDads (Var) -1) ; 
Nodel = GnlFunctionOnSet (Function) ; 
if ((GnlVarDads (Var) == 0) && 

( (GnlVarDir (Var) == GNL_VAR_LOCAL ) | | 
(GnlVarDir (Var) GNL VAR FSM FUNCTION) ) ) 

{ 

GnlFunctionFree (Function) ; 
GnlResetVarFunction (Var) ; 
GnlDecreaseDads (Gnl 7 Nodel) ; 

} 

return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL__NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlDecreaseDads (Gnl, Nodel) ; 

} 

} 



z* 

/* GnlRemoveUnusedVarlnGnl 

/* 

/* This procedure removes function varaibles which are not used. */ 

/* 

void GnlRemoveUnusedVarlnGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl ; 
GNL_FUNCT I ON FunctionI ; 
GNL_NODE Nodel; 
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/* Resetting the Dads field of each functiona var. */ 
for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
SetGnlVarDads (Varl, NULL) ; 

} 

/* we compute the number of Dads for Variable. 
GnlGetNumberDadsFromGnl (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl - (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if ( 1 FunctionI) 
continue; 

if ( (GnlVarDads (Varl) 1= 0) || 

( (GnlVarDir (Varl) 1= GNL_VAR_LOCAL) 

(GnlVarDir (Varl) 1= GNL_VAR_FSM_FUNCTION) ) ) 
continue ; 



Nodel = GnlFunctionOnSet (FunctionI) ; 
GnlFunctionFree (FunctionI) ; 
GnlResetVarFunction (Varl) ; 

GnlDecreaseDads (Gnl, Nodel) ; 

} 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if (! FunctionI) 

{ 

BListDellnsert (GnlFunctions (Gnl) , i+i) ; 
i--; 

} 

} 

} 

/* 

/* GnlReplaceStateVarByOutVarlnNode 

/* 

void GnlReplaceStateVarByOutVarlnNode (Node, StateVar, OutVar) 

GNL_NODE Node ; 

GNL_VAR StateVar; 

GNL_VAR OutVar; 

{ 

int i ; 

GNL_N0DE Sonl; 

GNL__VAR Var; 
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if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Node) ; 
if (Var == StateVar) 

SetGnlNodeSons (Node, (BLIST) OutVar ) ; 
return ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlReplaceStateVarByOutVarlnNode (SonI, StateVar, OutVar) ; 

} 



/* ic/ 

/* GnlReplaceStateVarByOutVar */ 
/* ic/ 

void GnlReplaceStateVarByOutVar (Gnl, StateVar, OutVar) 
GNL Gnl ; 

GNL_VAR StateVar; 
GNL VAR OutVar ; 



{ 



int i ; 

GNL_VAR Varl; 
GNL_FUNCTION FunctionI ; 

GNL_NODE Node I; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if {'FunctionI) 
continue; 

Nodel - GnlFunctionOnSet (FunctionI) ; 

GnlReplaceStateVarByOutVarlnNode (Nodel, StateVar, OutVar) ; 

} 



/* it/ 

/* GnlPrintBadSequentialExpression */ 
/* ft/ 

GNL_STATUS GnlPrintBadSequentialExpression (Bdd) 

BDD Bdd; 

{ 

BLIST Support; 

int i ; 

int IndexBddl; 

GNL_VAR Co f Var; 
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BDD RealBdd; 
int ClockEdge; 



ClockEdge = 0; 

if (GnlGetSupportOfFsmBdd (Bdd, ^Support) ) 
return (GNL_MEMORY_FULL) ; 

/* First we scan the support in order to remove the master clock of */ 
/* name GNL_MASTER_CLOCK_EVENT . We get then the Bdd 'RealBdd'. */ 
for (i=0; i<BListSize (Support); i++) 

{ 

IndexBddl = (int) BListElt (Support, i) ; 
CofVar = GnlGetGnlVarFromBddlndex (IndexBddl); 
if (Istrcmp (GnlVarName (CofVar), GNL MASTER CLOCK EVENT) ) 
{ " 
if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
BListDellnsert (Support, i + 1); 
Bdd = RealBdd; 
break; 

} 

} 

for (i=0; i<BListSize (Support); i++) 
{ 

IndexBddl = (int ) BListElt (Support, i) ; 
CofVar = GnlGetGnlVarFromBddlndex (IndexBddl) ; 
if (GnlClockEventVar (CofVar)) 
{ 

if (bdd_cofacl (Bdd, IndexBddl, &RealBdd) ) 

return (GNL_MEMORY_FULL) ; 
BListDellnsert (Support, i+1) ; 
Bdd = RealBdd; 
i- - ; 

ClockEdge++; 

} 

} 



switch (ClockEdge) { 
case 1: 

fprintf (stderr, 
Expression depends on one clock signal. Make sure that\n n ); 

fprintf (stderr, 
sensitivity list is correctly def ined. \n" ) ; 

fprintf (stderr, n \n"); 

break; 

case 0 : 

fprintf (stderr, 

Expecting a Latch inference but some signals are not sensitive\n" ) 

fprintf (stderr, 
Make sure that sensitivity list is correctly def ined. \n") ; 

break; 
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default : 

fprintf (stderr, 
Expression depends on several clocks. Make sure that\n"); 
fprintf (stderr, 
" sensitivity list is correctly def ined . \n" ) ; 

break; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlExtractFsmSequentialCompo 

/* 

GNL_STATUS GnlExtractFsmSequentialCompo (Gnl) 



GNL 


Gnl; 


BLIST 


HashListFsmVar; 


BLIST 


ListStateVar; 


int 


i; 


GNL_VAR 


StateVarl; 


BDD_S TATUS 


Status ; 


BDD_WS 


Ws; 


BDD 


BddExpr; 


GNL__S TATUS 


GnlStatus; 


GNL_VAR 


OutVarl; 


GNL_VAR 


Varl ; 


BLIST 


HashTableNames ; 


BLIST 


Bucketl; 


int 


j t 


GNL_VAR 


VarJ; 


BLIST 


ListFct ; 


BLIST 


ListStateOutVar; 



GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. 
GnlGetNumberDadsFromGnl (Gnl) ; 

HashListFsmVar = GnlHashListFsmVar (Gnl) ; 
ListStateVar = GnlListStateVar (Gnl) ; 

/* no state variables */ 
if (BListSize (ListStateVar) == 0) 
return (GNL_0K) ; 

if ((Status = InitBddWorkSpace (50, &Ws) ) ) 
return ( GNL_MEMORY_FULL ) ; 

if ({Status = GnlBuildBddOnFsmVarlnput (Gnl))) 
return (GNL_MEMORY_FULL) ; 

/* we identify specific signals */ 
if (BListCreate ( &ListStateOutVar) ) 
return (GNL_MEMORY_FULL) ; 
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for (i=0; i<BListSize (ListStateVar) -1 ; i = i+2) 
{ 

StateVarl = (GNL_VAR) BListElt (ListStateVar, i) ; 

if (GnlGetOutVarFromStateVar (Gnl, StateVarl, &OutVarI) ) 
return (GNL_MEMORY_FULL) ; 

if ( IGnlVarlsPrimary (StateVarl)) 

SetGnlVarDir (StateVarl, GNL_STATE_VAR) ; 

if ( IGnlVarlsPrimary (OutVarl) ) 

SetGnlVarDir (OutVarl, GNL_OUT_STATE_VAR) ; 

if (BListAddElt (ListStateOutVar , (int) StateVarl) ) 

return ( GNL_MEMORY_FULL) ; 
if (BListAddElt (ListStateOutVar, (int) OutVarl) ) 

return (GNL_MEMORY_FULL) ; 

} 



/* 'ListStateOutVar' is a list of couples (statevar, OutVar) 
for (i=0; i<BListSize (ListStateOutVar) -1; i = i+2) 
{ 

StateVarl = (GNL_VAR) BListElt (ListStateOutVar, i) ; 
OutVarl = (GNL_VAR) BListElt (ListStateOutVar, i+1) ; 

if (GnlVarDriveFuncId (OutVarl) != 1) 

{ 

/* There is a driving condition on this signal. */ 
fprintf (stderr, 
" WARNING: driving condition on a stored variable <%s>\n", 
GnlVarName (OutVarl) ) ; 

exit (1); 

} 

if (GnlBuildBddFsmExpr (OutVarl, StateVarl, &ListFct, &BddExpr) ) 
return ( GNL_MEMOR Y__FULL ) ; 

/* The bdd expression of the output is a simple constante */ 
if ((BddExpr bdd_one ()) || 
(BddExpr == bdd_zero ())) 
continue ; 

if ( (GnlStatus = GnlExtractSeqCompoFromBdd (Gnl, OutVarl, 

^ StateVarl, BddExpr, ListFct) ) ) 

if (GnlPrintBadSequentialExpression (BddExpr) ) 

return (GNL_MEMORY_FULL) ; 
return (GnlStatus) ; 

} 

GnlResetVarFunction (OutVarl) ; 

} 

for (i=0; i<BListSize (ListStateOutVar) -1 ; i = i+2) 
{ 

StateVarl = (GNL_VAR) BListElt (ListStateOutVar, i) ; 
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OutVarl = (GNL_VAR) BListElt (ListStateOutVar , i+1) ; 

/* We replace all 'state var' ocurrences by the corresponding 
/ * ' out var 1 . * / 

GnlReplaceStateVarByOutVar (Gnl, StateVarl, OutVarl); 

if ( IGnlVarlsPrimary (OutVarl)) 

SetGnlVarDir (OutVarl, GNL VAR LOCAL); 
} ~ " 

BListQuickDelete (&ListStateOutVar) ; 

HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ - (GNL_VAR) BListElt (Bucketl, j); 
if (GnlVarDir (VarJ) == GNL STATE VAR) 
{ 

BListDellnsert (Bucketl, j+1) ; 
j--; 

} 

} 

} 



} 



FreeBddWorkSpace (Ws) ; 
return (GNL OK) ; 



/* 

/* GnlUpdateVarDirlnGnl 

/* 

/* We update the var direction of all the variables */ 
/* 

void GnlUpdateVarDirlnGnl (Gnl) 

GNL Gnl ; 

{ 

BLIST HashTableNames ; 
int i ; 

int j ; 

GNL_VAR VarJ; 

BLIST Bucketl; 



HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
if (GnlVarDir (VarJ) == GNL_VAR_LOCAL_DONTCARE ) 
SetGnlVarDir (VarJ, GNL_VAR_LOCAL) ; 
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if (GnlVarDir (VarJ) = = GNL_VAR_FSM_FUNCTION) 
SetGnlVarDir (VarJ, GNL VAR LOCAL) ; 



/* 

/* GnlExtractFsmTriStateCompo 

/* 

GNL_STATUS GnlExtractFsmTriStateCompo (Gnl) 
GNL Gnl; 

{ 



int 

GNL_VAR 
GNL_FUNCTION 
GNL_NODE 
GNL_VAR 
GNL_VAR 
GNL_FUNCTION 
GNL_NODE 
char 

GNL_TRI S TATE_COMPONENT 
BDD 
BDD 
BDD 

BDD_STATUS 
BDD_WS Ws 
int 
int 



BDD_PTR 
BDD PTR 



Out Var ; 

FunctionI; 
DriveFuncNode ; 
InputVar ; 
Enable Var ; 

NewFunction; 
InputFuncNode ; 

*NewName ; 
NewTristate; 
Bddlnput ; 
BddDrive; 
NewBddlnput; 
Status; 



SelectPol; 
InputPol ; 



BddlnputPtr; 
BddDrivePtr; 



if ((Status = InitBddWorkSpace (50, &Ws) ) ) 
return ( GNL_MEMORY__FULL ) ; 

if ((Status = GnlBuildBddOnFsmVar Input (Gnl))) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

OutVar = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = Gnl Var Function (OutVar) ; 
if (! FunctionI) 
continue; 

if ( IGnlFunctionZSet (FunctionI)) 
continue ; 

/* Defining the input var of the tri -state */ 
InputFuncNode = GnlFunctionOnSet (FunctionI) ; 
if (GnlBuildBddFsmExprOnNode (OutVar, OutVar, 

InputFuncNode, 0, 0, NULL, NULL, 

NULL, &BddInput)) 
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return { BDD _MEM0RY_FULL ) ; 

/* Defining the var for the enable of the tri-state */ 
DriveFuncNode = GnlFunctionZSet (FunctionI) ,- 
if (GnlBuildBddFsmExprOnNode (OutVar, OutVar, 

DriveFuncNode, 0, 0, NULL, NULL, 

NULL, &BddDrive) ) 
return (BDD_MEMORY_FULL) ; 



#ifdef BUG 

/* We AND the Input with the selector function to get the new 
/* input. */ 
if (bdd_restrict (Bddlnput, BddDrive, &NewBdd Input) ) 
return (BDD_MEMORY_FULL) ; 

#else 

NewBddlnput = Bddlnput; 

#endif 



InputPol = l; /* Function of tristate is direct */ 

BddlnputPtr = (BDD__PTR) GetBddPtrFromBdd (NewBddlnput); 
if (NewBddlnput != (BDD) BddlnputPtr) 

{ 

InputPol = 0; 

if (GnlCreatelnputSeqCompoVar (Gnl, (BDD) BddlnputPtr , n d", 

NULL, NULL, &InputVar) ) 

return ( BDD__MEM0R Y_FULL ) ; 

} 

else 

{ 

if (GnlCreatelnputSeqCompoVar (Gnl, NewBddlnput, "d", 

NULL, NULL, & Input Var ) ) 

return (BDD_MEMORY_FULL) ; 

} 



SelectPol =1; /* transparent at high level */ 

BddDrivePtr = (BDD_PTR) GetBddPtrFromBdd (BddDrive); 
if (BddDrive ]= (BDD) BddDrivePtr) 
{ 

SelectPol = 0; 

if (GnlCreatelnputSeqCompoVar (Gnl, (BDD) BddDrivePtr, "en", 

NULL, NULL, &EnableVar) ) 

return ( BDD _MEMORY_FULL ) ; 

} 

else 

{. 

if (GnlCreatelnputSeqCompoVar (Gnl, BddDrive, "en", 

NULL, NULL, &EnableVar) ) 

return ( BDD_MEMORY FULL) ; 

} 

if (GnlCreateTristateComponent (&NewTri state) ) 
return (GNL MEMORY FULL) ; 
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if (GnlStrCopy (GnlVarName (CutVar) , &NewName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlTriStatelnstName (NewTristate, NewName) ; 

SetGnlTriStateOutput (NewTristate, OutVar) ; 
SetGnlTriStatelnput (NewTristate, InputVar) ; 
SetGnlTriStatelnputPol {NewTristate, InputPol) ; 
SetGnlTriStateSelect (NewTristate, EnableVar) ; 
SetGnlTriStateSelectPol (NewTristate, SelectPol) ; 

if (IGnlVarlsPrimary (OutVar)) 

SetGnlVarDir (OutVar, GNL_VAR_LOCAL__WI RING ) ; 
if (IGnlVarlsPrimary (InputVar)) 

SetGnlVarDir (InputVar, GNL_VAR__LOCAL_WIRING) ; 
if (IGnlVarlsPrimary (EnableVar)) 

SetGnlVarDir (EnableVar, GNL_VAR_LOCAL_W I R I NG ) ; 

if (BListAddElt (Gnl Components (Gnl) , (int) NewTristate) ) 
return ( GNL_MEMORY_FULL) ; 

GnlResetVarFunction (OutVar) ; 



FreeBddWorkSpace (Ws) ; 
return (GNL OK) ; 



/* 

/* GnNameFromSeqOp 

/* 

char * GnNameFromSeqOp 
GN L_S E QUENT I AL_0 P 

{ 



(Op) 
Op; 



*/ 
■*/ 



switch (Op) { 

case GNL__DFF: 
case GNL_DFF0 
case GNL_DFF1 
case GNL_DFFX 
return 



Dff ») ; 



case GNL_LATCH: 
case GNL_LATCH1 
case GNL_LATCHO 
case GNL_LATCHX : 

return ("Latch") ; 



/* 

/* GnlConf lictValueFromOp 

/* 

char GnlConf lictValueFromOp (Op) 
GNL_SEQUENTIAL_OP Op ; 



*/ 

-V 
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{ 

switch (Op) { 

case GNLJDFF: 
case GNL_LATCH: 

return ( 1 r ) ; 
case GNL_DFF0 : 
case GNL_LATCHO : 

return ( ' R ' ) ; 
case GNL_DFF1 : 
case GNL_LATCH1 : 

return < * S ' ) ; 
case GNL_DFFX: 
case GNL_LATCHX : 

return ( T X' ) ; 

} 

} 



/* 

/* GnlPrintTriStateCompoInf o 

/* 

GnlPrintTriStateCompoInf o (TriStateCompo) 

GNL_TR I STATE_COMPONENT TriStateCompo ; 

int i ; 

char *OutVarName; 

fprintf (stderr, 

OutVarName = GnlVarName (GnlTriStateOutput (TriStateCompo) ) ; 
GnlPrintFormatSignalName (stderr, OutVarName, 20); 

fprintf (stderr, " TriState "); 

if (GnlTriStateSelectPol (TriStateCompo) ) 

fprintf (stderr, " H lf ) ; 
else 

fprintf (stderr, " L ") ; 

if (GnlTriStatelnputPol (TriStateCompo) ) 

fprintf (stderr, " H \n") ; 
else 

fprintf (stderr, " L \n" ) ; 



} 

/* 

/* GnlPrintSeqCompoInfo 

/* 

void GnlPrintSeqCompoInfo (SeqCompo, NbDffs, NbResets, NbSets, NbRSs) 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
int *NbDffs; 
int *NbResets; 
int *NbSets; 
int *NbRSs; 

{ 
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int i ; 

char *OutVarName; 

char ValueConf lict ; 

GNL_VAR Input; 

GNL_NODE Node; 

int Value; 



*NbDffs = 1; 

*NbResets = *NbSets = *NbRSs = 0; 
f print f (stderr, 
">; 

OutVarName = GnlVarName (GnlSequentialCompoOutput (SeqCompo) ) 
GnlPrintFormatSignalName (stderr, OutVarName, 20); 

fprintf (stderr, " %s" , 

GnNameFromSeqOp (Gnl Sequent ialCompoOp (SeqCompo) ) ) ; 

if (GnlVarlsVdd (Gnl Sequent ialCompoClock (SeqCompo)) || 
GnlVarlsVss (GnlSequentialCompoClock (SeqCompo))) 

fprintf (stderr, 

[%s] » # 

GnlVarName (GnlSequentialCompoClock (SeqCompo) ) ) 

else if (GnlSequentialCompoClockPol (SeqCompo)) 
fprintf (stderr, " H "); 

else 

fprintf (stderr, " L " ) ; 

if (GnlSequentialCompoReset (SeqCompo) ) 

if (GnlSequentialCompoResetPol (SeqCompo) ) 

fprintf (stderr, » H ") ; 
else 

fprintf (stderr, » L ») ; 
*NbResets = 1; 

} 

else 

fprintf (stderr, " . "); 

if (GnlSequentialCompoSet (SeqCompo) ) 

if (GnlSequentialCompoSetPol (SeqCompo) ) 

fprintf (stderr, " H ") ; 
else 

fprintf (stderr, " L ") ; 
*NbSets = l; 

} 

else 

fprintf (stderr, " . ») ; 

if (GnlSequentialCompoReset (SeqCompo) && 
GnlSequentialCompoSet (SeqCompo) ) 

ValueConflict - GnlConf lictValueFromOp ( 

GnlSequentialCompoOp (SeqCompo) ) 
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fprintf (stderr, " %c ValueConf lict) ; 

*NbRSs = 1; 

} 

else 

fprintf (stderr, " . "); 

Input = GnlSequentialCompoInput (SeqCompo) ; 
if (GnlVarFunction (Input)) 

{ 

Node = GnlFunctionOnSet (GnlVarFunction (Input) 
if (GnlNodeOp (Node) GNL_CONSTANTE ) 
{ 

Value = (int)GnlNodeSons (Node); 
fprintf (stderr, «--> d = [%d] n , Value) ; 

} 

} 

fprintf (stderr, "\n") ; 



} 



/* 

/* GnlPrintDff Infos 

/* 

void GnlPrintDff Infos (Components, NbDffs, NfoResets, NbSets, NbRSs) 
BLIST Components; 
int *NbDffs; 
int *NbResets; 
int *NbSets; 
int *NbRSs; 



{ 



int i ; 

GNL_COMPONENT Component I ; 
GNL_SEQUENTIAL_COMPONENT SeqCompol ; 

int NbDff ; 

int NbReset; 

int NbSet; 

int NbRS ; 



*NbDffs = *NbResets = *NbSets = *NbRSs = 0; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (Gnl Component Type (ComponentI) != GNL_S EQUENT I AL_COMPO ) 
continue; 

SeqCompol = (GNL__S EQUENT I AL_C0MP0NENT) ComponentI ; 

if ( (GnlSequentialCompoOp (SeqCompol) != GNLJDFF) && 
(GnlSequentialCompoOp (SeqCompol) != GNL_DFF0) && 
(GnlSequentialCompoOp (SeqCompol) 1= GNLJDFF1) && 
(GnlSequentialCompoOp (SeqCompol) 1= GNLJDFFX) ) 
continue; 

GnlPrintSeqCompoInf o ( (GNL_S EQUENT I AL_COMPONENT) ComponentI , 

&NbDff, &NbReset, &NbSet, &NbRS) ; 

*NbDffs += NbDff; 
*NbResets += NbReset; 
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} 



*NbSets += NbSet; 
*NbRSs + = NbRS; 



/* 

/* GnlPrintLatchlnfos 



/* 

void GnlPrintLatchlnfos (Components, NbDffs, NbResets, NbSet s, NbRSs) 
BLIST Components; 



int 
int 
int 
int 



*NbDf f s; 
*NbResets; 
*NbSets; 
* NbRSs ; 



int 

GNL_COMPONENT 

GNL_SEQUENTIAL_COMPONENT 

int 

int 

int 

int 



i; 

ComponentI; 

SeqCompol ; 
NbDf f ; 
NbReset; 
NbSet ; 
NbRS ; 



*NbDffs = *NbResets = *NbSets - *NbRSs = 0; 
for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL__S EQUENT I AL_COMPO ) 
continue; 

SeqCompol = ( GNL_S EQUENT I AL_COMPONENT) ComponentI ; 



if ( (Gnl Sequent ialCompoOp (SeqCompol) 

(GnlSequentialCompoOp (SeqCompol) 

(GnlSequentialCompoOp (SeqCompol) 

(GnlSequentialCompoOp (SeqCompol) 
continue; 



GNL_LATCH) && 
GNL_LATCHO) && 
GNL_LATCH1) ScSc 
GNL LATCHX) ) 



GnlPrintSeqCompoInf o ( (GNL_S EQUENT I AL_COMPONENT) ComponentI , 

&NbDff, ScNbReset, ScNbSet, &NbRS) ; 

*NbDffs += NbDff; 
*NbResets += NbReset; 
*NbSets += NbSet; 
*NbRSs += NbRS; 

} 



/* 

/* GnlPrintTriStatelnf os 

/* 

void GnlPrintTriStatelnf os (Components) 
BLIST Components; 

{ 

int i ; 

GNL_COMPONENT Component I ; 

int NbTriState; 
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fprintf (stderr, "\n") ; 
fprintf (stderr, 

Signal Type Select Input \n") ; 

fprintf (stderr, 

.. Xn , 1); 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI (GNL__COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_TR I S TATE__COMPO ) 
continue; 

^GnlPrintTriStateCompoInfo ( (GNL_TRISTATE_COMPONENT) ComponentI) ; 
fprintf (stderr, 

.. Xn , r) 

} 



/* i!/ 

I* Gnl Print Component Infos */ 
/* 1/ 

void GnlPrintComponentlnfos (Gnl) 





GNL 


Gnl; 




nl 


{ 








int 




i; 




BLIST 




Components ; 




GNL_COMPONENT 


ComponentI ; 




int 




NfoSeq; 




int 




NbTriState; 




int 




NbDff si; 




int 




NbResetl; 




int 




NbSetl; 




int 




NbRSl; 




int 




NbDf fs2; 




int 




NbReset2; 




int 




NbSet2; 




int 




NbRS2; 



fprintf (stderr, "\n =============::===:=:======:=== » ) ; 

for (i=0; i<strlen (GnlName (Gnl) ) -1; i++) 

fprintf (stderr, " = "); 
fprintf (stderr, " ") ; 

fprintf (stderr, M \n Components of module [%s] \n", GnlName (Gnl)); 
fprintf (stderr, " ====================—====»); 

for (i=0; i<strlen (GnlName (Gnl))-1; i++) 

fprintf (stderr, "=") ; 
fprintf (stderr, " \n n ); 

Components = GnlComponents (Gnl) ; 

if (IComponents || (BListSize (Components) == 0)) 

{ 

fprintf (stderr, " None . \n\n" ) ; 
return; 
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} 

NbSeq = 0; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_S E QUENT I AL_C0M PO ) 

continue ; 
NbSeq-f+; 

} 

if (NbSeq) 
{ 

fprintf (stderr, An"); 
fprintf (stderr, 

Signal Type Clock Reset Set R/S \n ,( ) ; 

fprintf (stderr, 

M \ n „ ); 

GnlPrintDff Infos (Components, &NbDffsl, &NbResetl, &NbSetl, 
ScNbRSl) ; 

Q GnlPrintLatchlnf os (Components, &NbDffs2, &NbReset2, &NbSet2, 

3 &NbRS2) ; 

^ fprintf (stderr, 



if (NbDffsl) 

fprintf (stderr, 
Nb. Dffs %6d %6d %6d %6d\n" , 

NbDffsl, NbResetl, NbSetl, NbRSl) ; 

if (NbDffs2) 

fprintf (stderr, 
Nb. Latches %6d %6d %6d %6d\n n , 

NbDffs2, NbReset2, NbSet2, NbRS2) ; 
fprintf (stderr, 



An") ; 



} 



An") ; 



NbTriState = 0; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_C0MP0NENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) 1= GNL_TRISTATE_COMPO) 

continue; 
NbTriState++; 

} 

if (NbTriState) 

{ 

GnlPrintTriSt ate Infos (Components) ; 
fprintf (stderr, 

Nb. TriStates %6d\n", NbTriState); 

fprintf (stderr, 

, Xn „ ); 

} 
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if (INbSeq INbTriState) 

fprintf (stderr, " Only user components . \n\n") ; 
else 

fprintf (stderr, "\n M ); 

} 

/* 

/* GnlAddVarlnFsmCompoInterf ace 

/* 

/* Name of the var is of the form: instance__name . var_name */ 

/* */ 

/* we extract then: instance_name and var__name. */ 

/* From ■ instance_name ' we look for the components of same name and 

/* updates its interface. */ 

/* 

GNLJ3TATUS GnlAddVarlnFsmCompoInterf ace (Gnl, Var) 
GNL Gnl ; 

GNL_VAR Var; 

{ 

char *Name; 

int Index; 

int i ; 

int L; 

GNL_USER_COMPONENT TheComponent ; 

GNL_USER__COMPONENT Component I ; 

char *VarName; 

GNL_FUWCTI ON Func t i on ; 
GNL_NODE Node ; 

GNL_ASSOC NewAssoc ; 
GNL_VAR LeftVar; 



Name = GnlVarName (Var) ; 
Index = 0; 

while {Name[Index] != ' .») Index++; /* there is a f .' for sure 
Name [Index] = 1 \0 1 ; 

TheComponent = NULL; 

for (i=0; i<BListSize (Gnl Components (Gnl)); i++) 

{ 

/* Component is here a USER component */ 
ComponentI = (GNL_USER_COMPONENT) 

BListElt (GnlComponents (Gnl), i) ; 
if (istrcmp (GnlUserComponentlnstName (ComponentI), Name)) 

TheComponent = ComponentI; 
break; 

} 

} 

Name [Index] = ' . ' ; 

/* 'TheComponent' is the component */ 
if (! TheComponent) 
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{ 

fprintf (stderr, 

" ERROR: cannot find FSM instance <%s>\n" / Name); 
return (GNL_OK) ; 

} 

L = strlen (Name) ; 

if { (VarName = (char*) 

calloc (L-Index+1, sizeof (char))) == NULL) 
return ( GNL_MEMORY_FULL ) ; 

Index++ ; 
i = Index; 
while (i < L) 

{ 

VarName [i- Index] = Name[i]; 
i++; 

} 

VarName [ i - Index] = ' \ 0 1 ; 

/* If the var is a black box inout then there is a loop. The Inout */ 
/* var must recursively leads to an other inout var. It can be of 

the*/ 

/* form: al = il.a AND i2.a and */ 

/* il.a = al */ 

/* i2.a = al */ 

/* */ 

/* Ex VHDL leading this situation: */ 

/* entity hierio is */ 

/* port (bl, b2: in bit_vector (0 to 1); al, a2 , cl, c2 , dl, d2 : */ 

/* inout std_logic; zl, z2 : out bit_vector (0 to 1)); */ 

/* end hierio; */ 

/* */ 

/* architecture archl of hierio is */ 

/* */ 

/* component hierio2 */ 

/* port (b: in bit_vector (0 to 1); */ 

/* a, c, d: inout std_logic; z : out bit_vector {0 to 1)); */ 

/* end component; */ 

/* component hierio3 */ 

/* port (b: in bit_vector (0 to 1); */ 

/* a, c, d: in bit; z : out bit_vector (0 to 1)); */ 

/ * end component ; * / 

/* */ 

/* begin */ 

/* */ 

/* ii: hierio2 port map (a => al, b => b2, c => c2, d => d2, z=>z2); */ 
/* i2: hierio2 port map (a => al, b => bl, c => cl, d => dl, z=>zl) ; */ 
/* */ 
/* end archl; */ 

/* There is a loop we must cut. We create a predefined component */ 
/* GNLJBIDIR_COMPONENT for each equations il.a = al and i2.a = al */ 
if (GnlVarDir (Var) == GNL_VAR FSM BLACK BOX INOUT) 
{ - - - - 

Function = GnlVarFunction (Var) ; 
Node = GnlFunctionOnSet (Function) ; 



C-GNL1-391 



gnlfsmread.c 



/* we should never enter this if condition. */ 
if (GnlNodeOp (Node) != GNL_VAR I ABLE ) 

{ 

fprintf (stderr, 

11 ERROR: Mapit cannot handle such INOUT usage for signal <%s>\n", 
GnlVarName (Var) ) ; 

exit (1); 

} 

/* we remove the equation and create a GNL_BIDIR_COMPONENT */ 
free (Function) ; 
SetGnlVarFunction (Var, NULL) ; 
GnlRemoveFunctionFromGnl (Gnl, Var) ; 



LeftVar = (GNL_VAR) GnlNodeSons (Node); 

} 

if (GnlCreateAssoc (&NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

if ( IGnlVarlsPrimary (Var)) 

SetGnlVarDir (Var, GNL_VAR_LO C AL_W I R I NG ) ; 

SetGnlAssocFormalPort (NewAssoc, VarName) ; 
SetGnlAssocActualPort (NewAssoc, Var) ; 

if (BListAddElt (GnlUserComponentlnterf ace ( The Component ) , 
(int) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* 

/* GnlUpdateUserCompoInterf ace */ 
/* 

GNL_S TATUS GnlUpdateUserCompoInterf ace (Gnl) 
GNL Gnl ; 

{ 

BLIST HashTableNames ; 
int i ; 

BLIST Bucketl; 
int j ; 

GNL_VAR VarJ; 



GNL_NODE Node; 
GNL_VAR Var; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ,- 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

if ( (GnlVarDir (VarJ) == GNL_VAR_FSM_BLACK_BOX) | | 

(GnlVarDir (VarJ) GNL__VAR_FSM_BLACK_BOX_ INOUT) ) 
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if ( 1 Gnl VarRangeUnde fined (VarJ) ) 
{ 

GnlFreeVar (VarJ) ; 
BListDellnsert (Bucketl, j+1) ; 
j--; 

continue ; 

} 

if (GnlAddVarlnFsmCompoInterface (Gnl, VarJ)) 

return (GNL_MEMORY_FULL) ; 
continue ; 

} 

} 

} 



return (GNLJDK) ,- 

} 



/* 

/* GnlFileNamelsGeneric 

/* 

/* A file corresponding to the generic elaboration of a Gnl has a post 
/* fix number 'index' generated by FSMC of the form: 
/* entity_name (archi) . f sm. index 

/* If there is such a number then the function returns 1 and 'Index' 
/* will point on string "index". 

/* 

int GnlFileNamelsGeneric (FileName, Index) 
char *FileName; 
char ** Index; 

{ 

int i; 
int L; 



* Index = NULL; 

i = 0; 

L = strlen (FileName) ; 
while (i < L) 

{ 

if (FileName [i] == ' . ' ) 

break; 
i++ ; 

} 

if (i L) 
return (0) ; 

i + +; 

while (i < L) /* actually we pass 'fsm' 

if (FileName [i] == '.') 

break; 
i + +; 

} 

if (i == L) 



C-GNL1-393 



gnlfsmread.c 

return {0} ; 



/* It is then the case of a generic fsm file. */ 
* Index = FileName+i; 

return ( 1) ; 

} 

/* */ 

/* GnlAnalyzeFsmFiles */ 
/* 



GNL_STATUS GnlAnalyzeFsmFiles (Gnl) 



GNL 


Gnl; 




int 


Status ; 


BLIST 


Components ; 


int 




i; 


GNL_USER_ 


_COMPONENT 


Component I ; 


int 




Exists; 


int 




j; 


GNL 




GnlJ; 


char 




*FileName; 


FILE 




*GnlFile; 


char 




FileNameWithDir [528] 


char 




*GenIndex; 


char 




*GnlName; 


char 




*NewGnlName ; 



Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_USER_COMP0NENT) BListElt (Components, i) ; 

/* Gnl definition of 1 Component I T does not exist */ 
Exists = 0; 

for (j=0; j<BListSize (G_ListOf Gnls) ; j++) 

{ 

GnlJ = (GNL) BListElt (G_ListOf Gnls , j); 
if ( I strcmp (GnlName (GnlJ) , 

GnlUserComponentName (ComponentI) ) ) 

{ 

Exists = 1; 
break; 

} 

} 

if (Exists) 
continue; 

FileName = (char*) GnlUserComponentHook (ComponentI) ; 

if ( IGnlEnvFsmDir () ) 

sprintf (FileNameWithDir, n %s ,f , FileName); 
else 
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sprintf (FileNameWithDir, "%s/%s" f GnlEnvFsmDir ( ) , 
FileName) ; 

if ( (GnlFile = f reopen (FileNameWithDir ,»r", stdin) ) == NULL) 

{ 

fprintf (stderr, 

" WARNING: File »%s' not found:\n", FileNameWithDir); 
fprintf (stderr, 

" [%s] considered as black box\n", 

GnlUserComponentName {Component I) ) ; 

continue; 

} 

/* We analyze the sub-fsm. ' G_ListOf Gnls ' may be modified */ 
fprintf (stderr, » Analyzing sub-fsm '^'..An", 

FileNameWithDir) ; 
if ((Status = yyparse {))) 

{ 

f close (GnlFile) ; 

return (GNL_FSM_PARSE_ERROR) ; 

} 

fclose (GnlFile) ; 

/* We modify the name of the Gnl if it corresponds to a generic */ 
/* fsm file. */ 
if (GnlFileNamelsGeneric (FileName, &GenIndex) ) 
{ 

GnlName = GnlName (G__CurrentGnl) ; 

if (GnlStrAppendStrCopy (GnlName, Genlndex, &NewGnlName) ) 

return (GNL__MEMORY_FULL) ; 
free (GnlName) ; 

SetGnlName (G_CurrentGnl , NewGnlName) ; 

} 

} 

return (GNLJDK) ; 

} 



/* 

/* GnlSubstituteFsmLocalVariableRec 



/* 

void GnlSubstituteFsmLocalVariableRec (Node, NewNode) 
GNL_NODE Node; 
GNL_NODE *NewNode; 



.*/ 
*/ 



{ 



int 

GNL_NODE 
GNL_NODE 
GNL_NODE 
GNL_NODE 
GNL_FUNCT I ON 
GNL VAR 



i; 

OnSet; 
NewOnSet ; 
NewS on I ; 
SonI ; 

Function ; 

Var; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
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{ 

*NewNode = Node; 
return; 

} 



if (GnlNodeOp (Node) == GNL_VAR I ABLE ) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
Function = GnlVarFunction (Var) ; 
if ( (GnlVarDir (Var) != GNL__VAR_FSM_FUNCT I ON ) 
! Function) 

{ 

*NewNode = Node; 
return; 

} 



if (GnlVarDads (Var) != (BLIST) 1) 

{ 

*NewNode = Node; 
return; 

} 

OnSet = GnlFunctionOnSet (Function) ; 



GnlSubstituteFsmLocalVariableRec (OnSet, &NewOnSet) ; 
SetGnlFunctionOnSet (Function, NewOnSet) ; 



*NewNode = NewOnSet; 
return; 

} 



for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlSubstituteFsmLocalVariableRec (SonI, &NewSonI) ; 
BListElt (GnlNodeSons (Node), i) = ( int) NewSonI ; 

} 



*NewNode = Node; 

} 



z* 

/* GnlSubstituteFsmLocalVariable 

/* 

/* Procedure which removes all the 'f$<index>' fsra variables which are 

/* not user variables. */ 

/* 

void GnlSubstituteFsmLocalVariable (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_FUNCT I ON Func t i on ; 

GNL_NODE OnSet; 
GNL_NODE NewNode ; 
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for (i=0; i<BListSize (Gnl Functions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if ( IGnlVarFunction (Varl)) 
continue; 

/* This is a ' $f<index> ! variable that we can remove from the 
/* equations. */ 
if ( (GnlVarDir (Varl) == GNL_VAR__FSM_FUNCTION) && 
(GnlVarDads (Varl) (BLIST) 1) ) 

{ 

BListDellnsert (GnlFunctions (Gnl), i+1) ; 
i--; 

} 

Function = GnlVarFunction (Varl) ; 
OnSet = GnlFunctionOnSet (Function) ; 

GnlSubstituteFsmLocalVariableRec (OnSet, &NewNode) ; 

SetGnlFunctionOnSet (Function, NewNode) ; 

} 

return; 

} 



/* 

/* GnlDumpEquationFileForNova 

/* 

GNL_STATUS GnlDumpEquationFileForNova (Gnl) 
GNL Gnl ; 

{ 

FILE *OutFile; 



/* we sort the functions from the deepest to the highets ones. 
GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. 
GnlGetNumberDadsFromGnl (Gnl) ; 

/* We substitute all the '$f<index>' local variables which are not 
/* user defined variables so that the outputs uses only user-defined 
/* variables */ 
GnlSubstituteFsmLocalVariable (Gnl) ; 

if ( (OutFile = fopen (GnlEnvOutput ( ) , "w")) NULL) 
{ 

fprintf (stderr, " ERROR: Cannot Open Output File 1 %s , \n", 

GnlEnvOutput ( ) ) ; 
return (GNL__CANNOT_OPEN__OUTFILE) ; 

} 

GnlPrintGnl (OutFile, Gnl) ; 
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f close (OutFile) ; 

fprintf (stderr, " File ' %s ' has been generated !\n", 
GnlEnvOutput ( ) ) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlFsmRead 

/* 

/* Main procedure which reads a '.fsm' file and returns a list of Gnls 
/* 

GNL_STATUS GnlFsmRead (FileName, ListGnls) 



char 


*FileName; 


BLIST * 


ListGnls ; 


FILE 


*GnlFile; 


char 


*CopyName; 


int 


Status ; 


int 


i; 


GNL 


Gnll; 


GNL_STATUS 


GnlStatus; 


char 


FileNameWithDir [528] ; 


char 


*GnlName; 


char 


*GenIndex; 


char 


*NewGnlName; 



if ( IGnlEnvFsmDir () ) 

sprintf (FileNameWithDir, "%s", FileName); 
else 

sprintf (FileNameWithDir, "%s/%s n / GnlEnvFsmDir ( ) , 
FileName) ; 

fprintf (stderr, «\n Reading FSM file [%s] ..An", 
FileNameWithDir) ; 

if ( (GnlFile = f reopen (FileNameWithDir , n r", stdin) ) NULL) 
{ 

fprintf (stderr, " ERROR: cannot find file »%s , \n M , 

FileNameWithDir) ; 
return (GNL_CANNOT_OPEN_INPUTFILE) ; 

} 

if ((Status = yyparse ())) 
{ 

fclose (GnlFile) / 

return (GNL_FSM_PARSE ERROR) ; 

} 

fclose (GnlFile) ; 

/* We modify the name of the Gnl if it corresponds to a generic 
/* fsm file. */ 
if (GnlFileNamelsGeneric (FileName, &GenIndex) ) 

{ 
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GnlName = GnlName (G_CurrentGnl) ; 

if (GnlStrAppendStrCopy (GnlName, Genlndex, &NewGnlName) ) 

return (GML_MEMORY__FULL) ; 
free (GnlName) ; 

SetGnlName (G_CurrentGnl , NewGnlName) ; 



Gnll = (GNL) BListElt (GJListOf Gnls , i) ; 

if (GnlStrCopy (FileName, ScCopyName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSourceFileName (Gnll, CopyName) ; 

/* we analyze the sub-fsm files from the components of 'Gnll' */ 
/* There is a side-effect on r G_ListOfGnls ' . */ 
if ( (GnlStatus = GnlAnalyzeFsmFiles (Gnll))) 
return (GnlStatus) ; 

/* Update Interface of user components */ 
if ((GnlStatus = GnlUpdateUserCompoInterf ace (Gnll))) 
return (GnlStatus) ; 

if (GnlEnvModeO GNL __MODE_TRANSLATE ) 
GnlPrintGnl (stderr, Gnll) ; 

if ( (GnlStatus = GnlExtractFsmSequentialCompo (Gnll) ) ) 
return (GnlStatus) ; 

if ((GnlStatus = GnlExtractFsmTriStateCompo (Gnll))) 
return (GnlStatus) ; 

/* We remove the unused functions from the Gnl . */ 
GnlRemoveUnusedVarlnGnl (Gnll) ; 

/* We update the var direction of all the variables */ 
GnlUpdateVarDirlnGnl (Gnll) ; 

Gnl Print Component Infos (Gnll) ; 



fprintf (stderr, 



"\n FSM File Analyzed [%d] ! \n\n" , 



G_NbBddNodes) ; 




*ListGnls = G__ListOfGnls; 



return (GNLJDK) ; 



/* 

/* GnlSetLocationlnVar 

/* 

/* This procedure updates the field 'Location' of GNL_VAR 'Var' by 
/* analyzing the list 'ListLoc 1 which is a list of couples: 



*/ 



*/ 
*/ 
*/ 
*/ 
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/* (idl, id2) --> Idl = # source file, Id2 = line number in file 

/* We create a string corresponding to this information because it is 

/* more compact for file with number of lines - 999999 (6 digits) . 

/* ex: list = {l, 1233, 1, 1433, 2, 2333, 1, 6777, 3, 99999} gives the 

/* string: '1233 1433 6777 :2333 :99999'. */ 

/* 

GNL_STATUS GnlSetLocationlnVar (Var, ListLoc) 



GNL_VAR 


Var; 


BLIST 


ListLoc; 


int 


N; 


char 


LineString [128] ; 


char 


*LocString; 


int 


LocStringI ; 


char 


*CompactLocString; 


int 


MaxFile; 


int 


i; 


int 


j ; 


int 


k; 


int 


FileJ; 


int 


Line J; 



if (BListSize (ListLoc) == 0) 
return (GNL_0K) ; 

N = BListSize (ListLoc) /2; 

if ( (LocString = (char*) calloc (N*64, sizeof (char) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 

MaxFile = 1; 

for (i=0; i<BListSize (ListLoc) -1; i = i+2) 
{ 

if (MaxFile > (int) BListElt (ListLoc, i) ) 
MaxFile = (int) BListElt (ListLoc, i) ; 

} 

LocStringI = 0; 
i = 1; 
while (1) 

{ 

for (j=0; j<BListSize (ListLoc) -1; j = j+2) 

{ 

FileJ- (int) BListElt (ListLoc, j); 

if (FileJ != i) 
continue; 

LineJ = (int) BListElt (ListLoc, j+1) ; 
sprintf (LineString, "%d", LineJ); 
for (k=0; k<strlen (LineString); k++) 
{ 

LocString [LocStringI] = LineString [k] ; 
LocStringI++ ; 

} 

LocString [LocStringI] = 1 ' ; 
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LocStringI++ ; 

} 

if (i == MaxFile) 
break ; 

LocString [LocStringI] = ' : 1 ; 
LocStringI++; 

i++; 

} 

LocString [LocStringI] = 1 \0'; 

if ( (CompactLocString = (char*) 

calloc {strlen (LocString) +1, sizeof (char) ) ) == NULL) 
return ( GNL_MEMORY_FULL ) ; 

sprintf (CompactLocString, "%s", LocString) ; 

free (LocString) ; 

SetGnlVarLocation (Var, CompactLocString) ; 
return (GNL_OK) ; 

} 



/* 

/* GnlUpperToLowerChar 

/* 

char GnlUpperToLowerChar (c) 
char c ; 

{ 

if (c < 65) 
return (c) ; 

if (c > 90) 
return (c) ; 

c = c+32; 

return (c) ; 

} 

/* 

/* GnlUpperToLowerCase 

/* 

GnlUpperToLowerCase (Name) 
char *Name ; 

{ 

int L ; 

int i ; 

L - strlen (Name) ; 

for (i=0; i<L; i++) 
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Name[i] = GnlUpperToLowerChar (Name[i]); 

} 

/* GnlAnalyzelnstanceString 

/* 

/* This procedure analyzes a string of the form : */ 
/* "<instance_name> <library: entity (arch) > <file_name>" */ 

/* */ 

/* 'InstanceName 1 becomes: <instance_name> */ 
/* ' GnlName' becomes: <entity-arch> */ 
/* 'FileName' becomes: <f ile_name-arch> */ 
/* 

GNL_STATUS GnlAnalyzelnstanceString (InstanceString, InstanceName, 

GnlName, FileName) 

char * InstanceString; 

char ** InstanceName ; 

char **GnlName; 
char **FileName; 

{ 

char TempString [528] ; 

int i ; 

int Index; 
char *GenIndex; 
char *NewGnlName ; 



i=0; 

while (InstanceString [i] != ' ') 

{ 

TempString [i] = InstanceString [i] ; 
i++; 

} 

TempString [i] = ' \0'; 

if ( (* InstanceName = (char*) calloc (strlen (TempString) +1 , 

sizeof (char) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 
sprintf (* InstanceName, "%s", TempString); 



while (InstanceString [i] != 1 :') i++; 
i++; 

Index = i; 

while (InstanceString [i] 1= ')') 

{ 

if (InstanceString [i] == 1 (') 
TempString [i -Index] = ' - ' ; 
else 

TempString [i- Index] = InstanceString [i] ; 

} 

TempString [i- Index] = '\0'; 

if ((*GnlName = (char*) calloc (strlen (TempString) +1 , 
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sizeof (char))) == NULL) 

return <GNL_MEMORY_FULL) / 
sprintf (*GnlName, n %s", TempString) ; 
GnlUpperToLowerCase (*GnlName) ; 

i++; /* skip ' ) ' */ 

i++; /* skip ■ ' */ 

Index = i; 

while (InstanceString [i] != '\0') 

{ 

TempString [i- Index] = InstanceString [i] ; 
i++; 

} 

TempString [i-Index] = 1 \0 1 ; 

if ( (*FileName = (char* ) calloc (strlen (TempString) +1 , 

sizeof (char))) == NULL) 

return (GNL_MEMORY_FULL) ; 
sprintf (*FileName, "%s", TempString); 



/* If the fsm file is a generic fsm file ' ent (arch) . fsm. index ' then */ 
/* we change the name 'GnlName' of the Gnl by appending 'index' */ 
if (GnlFileNamelsGeneric (*FileName, &GenIndex) ) 

{ 

if (GnlStrAppendStrCopy (*GnlName / Genlndex, &NewGnlName) ) 

return (GNL_MEMORY_FULL) ; 
free (*GnlName) ; 
*GnlName = NewGnlName; 

} 

return (GNL_OK) ; 



/* */ 

/* GnlCreateFsmComponents */ 
/* */ 

/* This procedure analyzes the list of instances (string of triplets) */ 
/* and creates the corresponding USER components and store them in the */ 
/* current 'Gnl * . */ 

/* */ 

GNL_S TATUS GnlCreateFsmComponents (Gnl, List Instances) 

GNL Gnl ; 

BLIST List Instances ; 

{ 

int i ; 

BLIST Components ; 

char *InstanceStringI ; 

GNL_USER_COMPONENT NewCompo ; 

char *InstanceName; 

char *GnlName ; 

char *FileName; 

BLIST NewList; 
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if ( 1 Gnl Components (Gnl) ) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlComponents (Gnl, NewList) ; 

} 

Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Listlnstances) ; i++) 
{ 

InstanceStringI = (char*) BListElt (Listlnstances, i) ; 

if (GnlAnalyzelnstanceString (InstanceStringI , 

SdnstanceName, &GnlName, &FileName) ) 

return ( GNL_MEMOR Y_FULL ) ; 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateUserComponent (GnlName, InstanceName , NULL, NewList, 

&NewCompo) ) 

return (GNL_MEMORY_FULL) ; 

/* We attach to the hook of this component the file where we can*/ 
/* find its definition (we will parse it too) . */ 
SetGnlUserComponentHook (NewCompo, FileName) ; 

if (BListAddElt (Components, (int) NewCompo) ) 
return <GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

702890 vl 
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/*- - 


/* 






/* File: anlhi pr n 






/ veirsjLOii: x.i 






/* Modifications: 






/* Documentation: 






/* 






/* Description: 


*/ 




/* 











*/ 

*/ 



#include <stdio.h> 



#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 



#include "blist.h" 
# include "gnl .h" 
#include "gnlmint .h" 
#include "gnloption.h 

#include "blist . e " 



/* ic/ 

/* EXTERN */ 

/* if/ 

extern GNL_ENV G_GnlEnv; 

/* GnlGetGnlFromUserCompoName */ 

/* ie/ 

/* returns the Gnl in list 'ListGnls' which name correspond to 'GnlName 1 */ 

/. v 

GNL GnlGetGnlFromUserCompoName (ListGnls, GnlName) 
BLIST ListGnls; 
char *GnlName; 



{ 



int i ; 
GNL Gnll; 



for (i=0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
if (istrcmp (GnlName (Gnll), GnlName)) 
return (Gnll) ; 

} 

return (NULL) ; 

} 



/* it/ 

/* SortTopLevelModules */ 

/* ^ 

GNL_STATUS SortTopLevelModules (ListGnls) 
BLIST ListGnls; 
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int i ; 

int j ; 

GNL Gnll; 

BLIST Components ; 

GNL_COMPONENT Component J ; 
GNL_USER_COMPONENT UserCompoJ ; 
GNL GnlCompo; 

BLIST ListAux; 



if (BListCreate (&ListAux) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListGnls) ; i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
Components = Gnl Components (Gnll) ; 
if (I Component s ) 
continue; 

for (j=0; j<BListSize (Components); j++) 

{ 

Component J = (GNL_COMPONENT) BListElt (Components, j); 
if (Gnl Component Type (Component J) != GNL_USER_COMPO) 
continue; 

UserCompoJ = (GNL_USER_COMPONENT) Component J; 
GnlCompo = GnlGetGnlFromUserCompoName (ListGnls, 

GnlUserComponentName (UserCompoJ) ) ; 

if (! GnlCompo) 
continue; 

SetGnlRefCount (GnlCompo, GnlRef Count (GnlCompo) +1 ) ; 

} 

/* We remove the non-top level modules from 'ListGnls' 
/* level module are kept in 'ListGnls 1 . 
for (i=0; i<BListSize (ListGnls); i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

/* If the Gnl is used then it is not a top level module. */ 
if (GnlRefCount (Gnll)) 

{ 

if (BListAddElt (ListAux, (int) Gnll)) 
return ( GNL_MEMOR Y_FULL ) ; 
BListDellnsert (ListGnls, i + 1) ; 
i--; 

} 

} 

/* Adding the non-top level modules after the op ones in the list 
/* 'ListGnls * . */ 
for (i=0; i<BListSize (ListAux) ; i++) 

{ 

Gnll = (GNL) BListElt (ListAux, i) ; 



. Only top 
*/ 
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if (BListAddElt (ListGnls, (int)Gnll)) 
return (GNL_MEMORY FULL) ; 

} 

BListQuickDelete (&ListAux) ; 
return (GNL_OK) ; 

} 

/* v 

/* GnlCheckSamePortWidth */ 

/*—---- v 

/* Verifies that the formal port and the actual port have the same width*/ 
/* The actual port can be a GNL_NODE with op. GNL_CONCAT. */ 

/ v 

mt GnlCheckSamePortWidth (Formal, Actual) 
GNL_VAR Formal ; 
GNL_VAR Actual ; 

{ 

BLIST Sons; 



} 



if (GnlVarlsVar (Actual)) 

return (GnlVarRangeSize (Formal) == GnlVarRangeSize (Actual)); 

Sons = GnlNodeSons ( (GNL_NODE) Actual ) ; 

return (GnlVarRangeSize (Formal) == (BListSize (Sons))); 



z v 

/* GnlCheckCorrectPortDir */ 

/* v 

mt GnlCheckCorrectPortDir (Formal, Actual) 

GNL_VAR Formal; 

GNL_VAR Actual; 

{ 

BLIST Sons; 
int i ; 

GNL_VAR SonI ; 



if (GnlVarlsVar (Actual)) 

{ 

if ( (GnlVarDir (Actual) == GNL_VAR_ INPUT) && 
(GnlVarDir (Formal) == GNL VAR OUTPUT)) 
{ ~ " 

fprintf (stderr, 

" ERROR: conflict directions between actual <%s> and formal <%s>\n'\ 
GnlVarName (Actual), GnlVarName (Formal)); 

exit (1) ; 

} 

return (1) ; 

} 

Sons = GnlNodeSons ( (GNL NODE) Actual) ; 
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} 



for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL__VAR)BListElt (Sons, i) ; 
if ( IGnlCheckCorrectPortDir (Formal, SonI)) 
return (0) ; 

} 

return (1) ; 



/* */ 

/* GnlCheckNUpdateComponent Interface */ 

/* */ 

/* This procedure replaces each * GnlAssocFormalPort ' in the associations*/ 

/* in the interface of 'UserCompo' by the corresponding GNL_VAR in the */ 

/* corresponding 'Gnl'. */ 

/* At the same time, checks are performed: */ 

/* - verify that the formal var exists in the Gnl */ 

/* - verify that both formal and actual ports have the same*/ 

/* widths. */ 

/* */ 

GNL_STATUS GnlCheckNUpdateComponent Interface (UserCompo, Gnl) 
GNL_USER_COMPONENT UserCompo ; 
GNL Gnl ; 



{ 



BLIST Interface; 
int i; 
GNL_ASSOC ASSOCI; 
char * FormalPort; 

GNL VAR Var; 



/* Already processed. Formal Objects have been already substituted */ 
if (GnlUserComponentFormalType (UserCompo) == GNL__F0RMAL_VAR) 
return (GNL_0K) ; 

Interface - GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i<BListSize (Interface) ; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( IGnlAssocFormalPort (AssocI) ) 

{ 

f print f (stderr, 

" ERROR (l.%d): formal signal #%d missing in [%s]\n ,r , 
GnlUserComponentLineNumber (UserCompo) , i+1, 
GnlName (Gnl) ) ; 
return <GNL_BAD_INSTANCE_ INTERFACE) ; 

} 



FormalPort = (char*) GnlAssocFormalPort (AssocI) ; 
if (GnlGetVarFromName (Gnl, FormalPort, &Var) ) 

{ 

fprintf (stderr, 

" ERROR (l.%d): cannot find formal signal <%s> in [%s]\n", 
GnlUserComponentLineNumber (UserCompo) , 
FormalPort , 
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GnlName(Gnl) ) ; 
i f (GNL_VAR_NOT_EXISTS ) 

return (GNL_BAD_ INS TANCE_INTER FACE) ; 
return ( GNL_MEMORY_FULL ) / 

} 

/* We free the physical name of ' FormalPort ' and replace it */ 
/* directly by its corresponding var in 'Gnl 1 . */ 
free (FormalPort) ; 

SetGnlAssocFormalPort (AssocI, Var) ; 

if ( IGnlCheckSamePortWidth (Var, GnlAssocActualPort (AssocI) ) ) 

{ 

fprintf (stderr, 

ERROR (l.%d): Instance <%s> has different formal and actual widths\n" 
GnlUserComponentLineNumber (UserCompo) , 
Gn lUs e r Component Ins tName (UserCompo) ) ; 
return (GNL_BAD_INSTANCE_INTERFACE) ; 

} 

if ( IGnlCheckCorrectPortDir (Var, GnlAssocActualPort (AssocI) ) ) 
return (GNL_BAD_INSTANCE_INTERFACE ) ; 

} 

/* We indicate now that the formal objects are GNL_VAR and not char* 
SetGnlUserComponentFormalType (UserCompo, GNL_FORMAL_VAR) ; 

return (GNL OK) ; 



/* 

/* GnlUpdateNCheckHierarchylnterf aceRec */ 
/* 

/* Verify each component connection recursively. */ 
/* 

GNL_STATUS GnlUpdateNCheckHierarchylnterf aceRec (Nw, Gnl, ListGnls) 
GNL_NETWORK Nw; 
GNL Gnl ; 

BLIST ListGnls; 

{ 

BLIST Components; 

int j ; 

GNL_COMPONENT Component J; 

GNL_USER_COMPONENT UserCompo J ; 

GNL GnlCompo; 

GNL_S T ATUS Status ; 

BLIST AuxList; 

char CellPath[2 56] ; 

BLIST ListCells; 

int k; 

GNL GnlCellK; 

FILE *File; 
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/* This Gnl has been already processed. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNLJDK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

Components = Gnl Components (Gnl) ; 
if (I Component s ) 
return (GNL_OK) ; 

for (j=0; j<BListSize (Components); j++) 

{ 

Component J = (GNL_COMPONENT) BListElt (Components, j ) ; 
if (GnlComponentType (Component J) \= GNL_USER_COMPO) 
continue ; 



UserCompoJ = ( GNL__US ER_COMPONENT ) Component J ; 

/* Looking for the Gnl definition of 'UserCompoJ' . */ 
GnlCompo = GnlGetGnlFromUserCompoName (ListGnls, 

GnlUserComponentName (UserCompoJ) ) ; 

if ( I GnlCompo) 
continue; 



SetGnlRefCount (GnlCompo, GnlRef Count (GnlCompo) +1) ; 

SetGnlUserComponentGnlDef (UserCompoJ, GnlCompo) ; 

if (GnlCheckNUpdateComponentlnterface (UserCompoJ, GnlCompo) ) 
return (GNL_BAE)_INSTANCE_INTERFACE) ; 

if ( (Status = GnlUpdateNCheckHierarchylnterf aceRec (Nw, GnlCompo, 

ListGnls) ) ) 

return (Status) ; 

} 



return (GNL_OK) ; 

} 



/* 

/* GnlUpdateNCheckHierarchylnterf ace */ 
/* 

GNL_STATUS GnlUpdateNCheckHierarchylnterf ace (Nw, Gnl, ListGnls) 

GNL_NETWORK Nw; 

GNL Gnl ; 

BLIST ListGnls; 

{ 

int i ; 

GNL Gnll; 



SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

/* Resetting Ref count for each Gnl. */ 
for (i=0; i<BListSize (ListGnls); i++) 
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{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
if (GnlResizeHashNames (Gnll)) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlRefCount (Gnll, 0) ; 
} 



if (GnlUpdateNCheckHierarchylnterfaceRec (Nw, Gnl # ListGnls)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlReadBlackBoxCellsRec */ 

/* 

static BLIST GnlFileNotFound; / * to store names of files not found 

GNL_STATUS GnlReadBlackBoxCellsRec (Nw, Gnl, ListGnls, PathDir, 

Extension) 

GNL_NETWORK Nw ; 

GNL Gnl ; 

BLIST ListGnls; 

char *PathDir; 

char * Extension; 



{ 



BLIST Components; 

int j ; 

GNL_C0MP0NENT Component J ; 

GNL_USER_COMPONENT UserCompoJ; 

GNL GnlCompo; 

GNL_STATUS Status; 

BLIST AuxList; 

char CellPath [256] ; 

BLIST ListCells; 

int k; 

GNL GnlCellK; 

FILE *File; 

char *NewPath; 



/* This Gnl has been already processed. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

Components = GnlComponents (Gnl) ; 
if (! Components) 

return (GNL_0K) ; 

for (j-0; j<BListSize (Components); j++) 

{ 

Component J = (GNL_COMPONENT) BListElt (Components, j ) ; 
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if (GnlComponentType (Component J) 1= GNL_USER__COMPO) 
continue; 

UserCompoJ = (GNL_USER_COMPONENT) Component J; 

/* Looking for the Gnl definition of 'UserCompoJ* . */ 
GnlCompo - GnlGetGnlFromUserCompoName (ListGnls, 

GnlUserComponentName (UserCompoJ) ) ; 

/* If we do not find the Gnl definition then we will analyze the*/ 
/* file having the name n Pa t hDi r / ComponentName . Extension" . */ 
if ( ! GnlCompo) 
{ 

sprintf (CellPath, "%s/%s.%s", PathDir, 

GnlUserComponentName (UserCompoJ) , Extension) ; 

/* If we already know that this file does not exist we */ 
/* continue. */ 
if (BListMemberOfList ( Gnl FileNot Found, CellPath, 

Stringldentical) ) 

continue; 

if ((File = fopen (CellPath, »r")) == NULL) 
{ 

fprintf (stderr, " WARNING: cannot find file '%s'\n'\ 

CellPath) ; 
if (GnlStrCopy (CellPath, &NewPath) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlFileNotFound, (int) NewPath) ) 

return (GNL_MEMORY_FULL) ; 
continue; 
} 

fclose (File) ; 

fprintf (stderr, " Analyzing cell [%s] in file 1 %s , \n" , 
GnlUserComponentName (UserCompoJ) , 
CellPath) ; 

/* we expect to read small descriptions ... */ 
if (GnlReadSmall (CellPath, &ListCells) ) 
return (GNL_MEMORY_FULL) ; 

/* Looking for the Gnl definition of 'UserCompoJ 1 in the */ 
/* new list 'ListCells'. */ 
GnlCompo = GnlGetGnlFromUserCompoName (ListCells, 

GnlUserComponentName (UserCompoJ) ) ; 

/* We append 'ListCells' to list 'ListGnls'. */ 
for (k=0; k<BListSize (ListCells); k++) 

{ 

GnlCellK = (GNL) BListElt (ListCells, k) ; 
if (BListAddElt (ListGnls, (int ) GnlCellK) ) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&ListCells) ; 

/* even after reading the new cells we do not find the Gnl */ 
/* definition. */ 
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if (IGnlCompo) 

{ 

continue; 

} 

} 

SetGnlUserComponentGnlDef (UserCompoJ, GnlCompo) ; 

if (GnlReadBlackBoxCellsRec (Nw, GnlCompo, ListGnls, PathDir, 

Extension) ) 

return (Status) ; 

} 

return (GNL OK) ; 



} 



/* */ 

/* GnlReadBlackBoxCells */ 

/* */ 

GNL_STATUS GnlReadBlackBoxCells (Nw, TopGnl, ListGnls, PathDir, Extension) 

GNL_NETWORK Nw; 

GNL TopGnl ; 

BLIST ListGnls; 

char *PathDir; 

char * Ext ens ion; 

{ 

char *FileNameI; 
int i ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (BListCreate (&GnlFileNot Found) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlReadBlackBoxCellsRec (Nw, TopGnl, ListGnls, PathDir, Extension)) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFileNotFound) ; i++) 
{ 

FileNamel = (char*) BListElt (GnlFileNotFound, i) ; 
free (FileNamel) ; 
} 

BListQuickDelete (&GnlFileNot Found) ; 
return (GNL_OK) ; 

} 

/* */ 

/* GnlPrintTopLevels */ 

/* */ 

/* Must call previously 1 SortTopLevelModules 1 to print out the correct */ 

/* Top level modules. */ 

/* */ 

void GnlPrintTopLevels (ListGnls) 
BLIST ListGnls; 
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int 
GNL 



Gnll; 



fprintf (stderr, "\n Top Module (s) : \n"); 
for (i=0; i<BListSize (ListGnls) ; i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
if ( IGnlRefCount (Gnll)) 

fprintf (stderr, " o [%s]\n", GnlName (Gnll) 

} 

fprintf (stderr, "\n") ; 



/* 

/* GnlPrintHierarchyRec */ 
/* 

void GnlPrintHierarchyRec (File, TopGnl, ListGnls, Trace, Last) 



■*/ 



FILE 

GNL 

BLIST 

char 

int 



*File; 
TopGnl ; 
ListGnls; 

*Trace; 

Last ; 



int 
int 
int 
int 
int 
BLIST 

GNL_C0MP0NENT 
GNL 

GNL_USER_C0MP0NENT 
int 



j ; 
k; 

LengthStrl; 

LengthStr2; 
Components ; 
Component I ; 

GnlJ; 

UserCompol ; 
Lastl; 



GNL S EQUENT I AL_COMPONENT SeqCompo; 



Components = GnlComponents (TopGnl) ; 
if ({Components || (BListSize (Components) =- 0)) 
return; 

LengthStrl = strlen (Trace) ; 
Trace [LengthStrl] = * | ' ; 

Trace [LengthStrl+1] = '\0'; 

for (i=0; i<BListSize (Components); i++) 

{ 

fprintf (File, Trace) ; 
fprintf (File, "\n") ; 
Trace [LengthStrl] = 'o 1 ; 
fprintf (File, Trace) ; 
Trace [LengthStrl] = ! | r ; 

ComponentI = (GNL_COMP0NENT) BListElt (Components, i) ; 
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if (Last && (i == BListSize (Components) -1) ) 

{ 

k = strlen (Trace) -1; 
while (k >= 0) 

{ 

if (Trace [k] == ' | ' ) 
{ 

Trace [k] = f r ; 
break; 

} 

} 

} 

Lastl = (i == BListSize (Components) -1) ; 

switch {Gnl Component Type (ComponentI) ) { 
case GNL_USER_C0MP0 : 
UserCompol = { GNL_USER_COMPONENT ) Component I ; 

fprintf (File, " o[%s] %s", 

GnlUserComponentName (UserCompol) , 

GnlUserComponentlnstName (UserCompol) ) ; 
for (j=0; j<BListSize (ListGnls) ; j++) 
{ 

GnlJ = (GNL) BListElt (ListGnls, j ) ; 
if (tstrcmp (GnlName (Gnl J) , 

GnlUserComponentName (UserCompol) ) ) 

break; 

} 

if (j != BListSize (ListGnls)) 
{ 

fprintf (File, n \n"); 
LengthStr2 = strlen (Trace) ; 
for (k=0; k<6; k++) 

Trace [Lengths tr2+k] = ' '; 
Trace [LengthStr2-f-k] = 1 \ 0 ' ; 

GnlPrintHierarchyRec (File, GnlJ, ListGnls, Trace, 
Lastl) ; 

Trace [LengthStr2] - ' \0 ' ; 

} 

else 

{ 

fprintf (File, " (black box) \n" ) ; 

} 

break; 

case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENT1AL_C0MP0NENT) ComponentI ; 

fprintf (File, " o[%s] %s\n", 

GnlSeqName (GnlSequentialCompoOp (SeqCompo) ) , 
GnlSequentialCompoInstName (SeqCompo) ) ; 

break; 

case GNL_TRISTATE_COMPO: 

fprintf (File, » o [TRISTATE] \n" ) ; 

break; 
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case GNL_MACRO_COMPO : 

fprintf (File, » o [MACRO] \n" ) ; 

break; 

case GNL_BUF_COMPO : 

fprintf (File, » o[BUF]\n"); 

break; 

default : 
break; 

} 

} 

Trace [LengthStrl] = ' \0\- 

} 

/* */ 

/* GnlPrintHierarchy */ 

/* */ 

void GnlPrintHierarchy (File, TopGnl, ListGnls) 
FILE *File; 
GNL TopGnl ; 

BLIST ListGnls; 

{ 

char Trace [2000] ; 

Trace [0] = ' 1 ; 
Traced] = 1 
Trace [2] = »\0«; 

fprintf (File, " [%s] \n" , GnlName (TopGnl)); 
GnlPrintHierarchyRec (File, TopGnl, ListGnls, Trace, 1) ; 

} 

/* */ 

/* GnlCreateNetwork */ 

/* */ 

/* 'TopGnl 1 is the the top level module of the network */ 

/* */ 

GNL_STATUS GnlCreateNetwork (TopGnl, NewNetwork) 

GNL TopGnl ; 

GNL_NETWORK *NewNetwork; 

{ 

BLIST NewList; 



if ( ( (*NewNetwork) = (GNL_NETWORK) 

calloc (1, sizeof (GNL_NETWORK_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlNetworkTopGnl ( (*NewNetwork) , TopGnl) ; 

if (BListCreate (ScNewList) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL OK) ; 
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/* */ 

/* GnlBindVarHook */ 

/* */ 

void GnlBindVarHook (Formal, Actual) 

GNL_VAR Formal ; 

GNL_VAR Actual ; 

{ 

if (Actual == NULL) 
{ 

fprintf (stderr, " ERROR : hook to bind is NULL\n n ); 
exit (1); 

} 

SetGnlVarHook (Formal, Actual) ; 

} 

/* */ 

/* GnlBindAssoc */ 

/* */ 

/* Binds the Hook field of the 1 GnlAssocFormalPort ' of 'Assoc' with the */ 
/* 'GnlAssocActualPort ' of Assoc. In case of buses we bind the sub-var */ 
/* beetwen the formal and the actual. */ 

/* */ 

GNL_STATUS GnlBindAssoc (Gnl # Assoc, UserCompo) 

GNL Gnl ; 

GNL_ASSOC ASSOC; 

GNL_USER_COMPONENT UserCompo ; 

{ 

GNL_VAR Formal; 

GNL_VAR Actual; 

BLIST ListSplitActuals ; 

int Lef tFormlndex; 

int Right Formlndex ; 

int Lef t Act Index; 

int RightAct Index ; 

int i ; 

GNL_VAR Split Actual I ; 

GNL_STATUS GnlStatus ; 

char * IndexFormalName ; 

char *IndexActualName ; 

GNL_VAR IndexForma 1 Var ; 

GNL_VAR IndexAc tualVar ; 

GNL Gnl Comp o ; 



Formal = GnlAssocFormalPort (Assoc) ; 
Actual = GnlAssocActualPort (Assoc) ; 

/* We hook the global formal which can be a Bus or a single bit */ 
/* signal. */ 
GnlBindVarHook (Formal, Actual) ; 

/* If var is a GNL_VAR and not a GNL_NODE (GNL_CONCAT) */ 
if (GnlVarlsVar (Actual)) 
{ 
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/* If single bit signals */ 
if (GnlVarRangeSize (Formal) ~ 1) 

{ 

GnlBindVarHook (Formal, Actual); 
return (GNL__OK) ; 

} 

GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 

Lef tFormlndex = GnlVarMsb (Formal) ; 
Right Formlndex = GnlVarLsb (Formal) / 
Lef tAct Index = GnlVarMsb (Actual) ; 
Right Act Index = GnlVarLsb (Actual) ; 
if (Lef tFormlndex > RightFormlndex) 

{ 

Lef tFormlndex = GnlVarLsb (Formal) ; 
RightFormlndex = GnlVarMsb (Formal) ; 
Lef tAct Index = GnlVarLsb (Actual) ; 
Right Act Index = GnlVarMsb (Actual) ; 

} 

/* We bind each bus bit per bit. */ 
/* we have always 1 Lef tFormlndex ' >= 'RightFormlndex' 
for (i=Lef tFormlndex; i<=RightFormIndex; i++) 

{ 

if (GnlVarlndexName (Formal, i, 

& IndexFormalName) ) 
return (GNL MEMORY_FULL) ; 



if ( (GnlStatus = GnlGetVarFromName (GnlCompo, 

IndexFormalName, &IndexFormalVar) ) ) 

{ 

if (GnlStatus == GNL_VAR_NOT_EXISTS) 
{ 

fprintf (stderr, 
" ERROR (l.%d): Formal index <%s> not defined in [%s] \n 
GnlUserComponentLineNumber (UserCompo) , 
IndexFormalName, GnlName (GnlCompo) ) ; 
free (IndexFormalName) ; 
return (GNL_VAR_NOT_EXISTS) ; 

} 

return (GNL_MEMORY_FULL) ; 

} 

free (IndexFormalName) ; 

if (GnlVarlndexName (Actual, Lef tActlndex, 
&IndexActualName) ) 
return (GNL_MEMORY_FULL) ; 

if ({GnlStatus = GnlGetVarFromName (Gnl, 

IndexActualName, &IndexActualVar) ) ) 

{ 

if (GnlStatus == GNL_VAR_NOT_EXISTS) 
{ 

fprintf (stderr, 
" ERROR (l.%d): Actual index <%s> not defined in [%s]\n 
GnlUserComponentLineNumber (UserCompo) , 
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IndexActualName, GnlName (GnlCompo) ) ; 
free (IndexActualName) ; 
return (GNL_VAR_NOT_EXISTS) ; 

} 

return ( GNL_MEMORY_FULL ) ; 

} 

free (IndexActualName) ; 

GnlBindVarHook ( IndexFormalVar , IndexActualVar) ; 

if (Lef tActlndex > RightAct Index) 

Lef tActlndex- - ; 
else 

Lef tActIndex++ ; 

} 

return (GNL_OK) ,- 

} 

GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 

/* It is then a Formal Bus and a GNL_CONCAT expression. We know that */ 

/* both have the same width. */ 

ListSplitActuals = GnlNodeSons ( (GNL__NODE) Actual) ; 

LeftFormlndex = GnlVarMsb (Formal) ; 

Right Formlndex = GnlVarLsb (Formal) ; 

for (i=0; i<BListSize (ListSplitActuals); i++) 

{ 

SplitActuall = (GNL_VAR) BListElt (ListSplitActuals, i) ; 

/* 1 IndexFormalName ' is a new string in memory. */ 
if (GnlVarlndexName (Formal, LeftFormlndex, SdndexFormalName) ) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlGetVarFromName (GnlCompo, 

IndexFormalName, &IndexFormalVar) ) ) 

{ 

if (GnlStatus == GNL_VAR_NOT_EXISTS) 

{ 

f print f (stderr, 
" ERROR (l.%d): Formal index <%s> not defined in [%s]\n n , 
GnlUserComponentLineNumber (UserCompo) , 
IndexFormalName, GnlName (GnlCompo) ) ; 
free (IndexFormalName) ; 
return (GNL_VAR_NOT_EXISTS) ; 

} 

return (GNL_MEMORY_FULL) ; 

} 

free (IndexFormalName) ; 

GnlBindVarHook (IndexFormalVar, SplitActuall) ; 

if (LeftFormlndex > Right Formlndex) 

LeftFormlndex- - ; 
else 
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Lef tFormIndex++ ; 

} 

return (GNL_OK) ; 

} 



{ 



int i; 
GNL_ASSOC AssocI; 
GNL STATUS Status; 



*/ 



/* y 

/* GnlBindActualVarOf Interface */ 

z* */ 

/* We bind the actual variable thru the Hook field. This field will */ 
/* point on the corresponding formal var. */ 

z* */ 

GNL__STATUS GnlBindActualVarOf Interface (Gnl, Interface, UserCorapo) 
GNL Gnl / 

BLIST Interface; 
GNL USER COMPONENT UserCompo; 



for (i=0; i<BListSize (Interface) ; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ((Status = GnlBindAssoc (Gnl, AssocI, UserCompo))) 
return (Status) ; 

} 

return (GNL OK) ,- 



} 



/* */ 

/* GnlSplitNewLocalAndBind */ 

/* *> 

/* Both 'FormVar 1 and 'ActVar' are buses and local variables. *y 
/* This procedure split the bus 'NewVar' into spli signals and bind */ 
/* these split signals with the split of 'Var 1 . */ 

/* */ 

GNL_STATUS GnlSplitNewLocalAndBind (Gnl, GnlCompo, FormVar, ActVar) 



GNL 


Gnl; 


GNL 


GnlCompo; 


GNL_VAR 


FormVar; 


GNL__VAR 


ActVar; 


int 


Left Formlndex ; 


int 


Right Formlndex ; 


int 


Lef t Act Index ; 


int 


RightAct Index ; 


int 


i; 


char 


*IndexFormalName ,- 


char 


* IndexActualName ; 


GNL_VAR 


IndexFormalVar; 


GNL VAR 


IndexActualVar ; 


GNL STATUS GnlStatus; 
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Lef tFormlndex = GnlVarMsb (FormVar) ; 
RightFormlndex = GnlVarLsb (FormVar) ; 
Lef tActlndex = GnlVarMsb (ActVar) ; 
RightActlndex = GnlVarLsb (ActVar) ; 

if (Lef tFormlndex > RightFormlndex) 
{ 

Lef tFormlndex = GnlVarLsb (FormVar) ; 
RightFormlndex = GnlVarMsb (FormVar) ; 
Lef tActlndex = GnlVarLsb (ActVar) ; 
RightActlndex = GnlVarMsb (ActVar) ; 

} 

/* We bind each bus bit per bit. */ 

/* we have always ' Lef tFormlndex ■ >= 'RightFormlndex 1 */ 

for (i^Lef tFormlndex; i<=RightFormIndex; i++) 

{ 

if (GnlVarlndexName (FormVar, i, SdndexFormalName) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCreateUniqueVar (Gnl, IndexFormalName, &IndexFormalVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarDir (IndexFormalVar , GnlVarDir (FormVar)) ; 

/* This var is the result of a Bus expansion and is not original*/ 
SetGnlVarType (IndexFormalVar, GNL_VAR_EXPANSED) ; 

if (BListAddElt (GnlLocals (Gnl), (int) IndexFormalVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) + 1); 

/* Extracting the corresponding split bus actual signal */ 
if (GnlVarlndexName (ActVar, Lef tActlndex, &IndexActualName) ) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlGetVarFromName (GnlCompo, IndexActualName , 

&IndexActualVar) ) ) 

{ 

if (GnlStatus « GNL_VAR_NOT_EXISTS) 

{ 

fprintf (stderr, 
" ERROR (l.%d) : Actual index <%s> not defined in [%s]\n M , 
GnlName (GnlCompo) , 
IndexActualName, GnlName (GnlCompo) ) ; 
free (IndexActualName) ; 
return (GNL_VAR_NOT_EXISTS) ; 

} 

return ( GNL_MEMORY_FULL ) ; 

} 

free (IndexActualName) ; 

GnlBindVarHook { IndexActualVar , IndexFormalVar) ; 
if (LeftActlndex > RightActlndex) 
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Left Act Index- - ; 
else 

Le f t Ac t Index++ ; 

} 

return (GNL_OK) / 

} 



/* */ 

/* GnlBindAndCreateLocalVar */ 

/* */ 

/* This procedure takes each local variable of 'GnlCompo' and creates */ 
/* equivalent variables in 'Gnl'. Then it binds these new variable of */ 
/* 'Gnl' with the ones of 'GnlCompo'. */ 

/* */ 

GNL_STATUS GnlBindAndCreateLocalVar (Gnl, GnlCompo) 

GNL Gnl ; 

GNL GnlCompo; 

{ 

BLIST HashTableNames ; 
int i ; 

int j ; 

BLIST Bucket I; 

GNL_VAR VarJ; 

GNL_VAR NewVar; 
char *NewLoc ; 



/* we reset the hook field of all the Vars in the hash table name of */ 
/* 'GnlCompo*. */ 
HashTableNames = GnlHashNames (GnlCompo) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
SetGnlVarHook (VarJ, NULL) ; 

} 

} 



HashTableNames = GnlHashNames (GnlCompo) ; 

/* First of all we bind the local buses and then we bind the single */ 
/* variables. For instance if B is a bus [2:0] then we build a new */ 
/* local variable L of same size and then split both into bits and */ 
/* bind each bits: b[2] -> L[2], B[l] -> L[l], ... */ 
/* If we do not do that we may loose the bus relation between the */ 
/* signals: b[2] -> x, b[l] -> y, . . . */ 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl) ; j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j ) ; 
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/* If 'VarJ' is a bus. */ 

/* If 'VarJ' has a hook then this is because it is a split */ 

/* bus variable which has been previously binded and then */ 

/* the job is done. */ 

if ( (GnlVarHook (VarJ) == NULL) 

(GnlVarRangeSize (VarJ) > 1) && 
(GnlVarDir (VarJ) != GNL_VAR_INPUT) && 
(GnlVarDir (VarJ) != GNL_VAR_OUTPUT) 
(GnlVarDir (VarJ) I- GNL_VAR_INOUT) ) 

{ 

/* It is a local var. */ 
if (GnlCreateUniqueVar (Gnl, GnlVarName (VarJ), 
&NewVar) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl ) , (int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl , GnlNbLocal (Gnl) +1) ; 



SetGnlVarDir (NewVar, GnlVarDir {VarJ)); 
SetGnlVarType (NewVar, GnlVarType (VarJ) ) ; 
SetGnlVarMsb (NewVar, GnlVarMsb (VarJ)); 
SetGnlVarLsb (NewVar, GnlVarLsb (VarJ)); 

if (GnlVarLocation (VarJ) ) 

{ 

if (GnlStrCopy (GnlVarLocation (VarJ) , &NewLoc) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlVarLocation (NewVar, NewLoc) ; 
} 

/* We bind the hook field of this newvar to the 'VarJ' */ 
GnlBindVarHook (VarJ, NewVar) ; 



if (GnlSplitNewLocalAndBind (Gnl, GnlCompo, NewVar, 

VarJ) ) 

return (GNL_MEMORY_FULL) ; 

} 

} 

} 

for (i-0; i<BListSize (HashTableNames ) ; i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

/* If the local var has no Hook yet then it is not a bus */ 
/* variable nor a split bus variable but a single bit var. */ 
if ( (GnlVarHook (VarJ) == NULL) && 

(GnlVarDir (VarJ) != GNL_VAR_INPUT) && 
(GnlVarDir (VarJ) != GNL_VAR_OUTPUT) ScSc 

(GnlVarDir (VarJ) ! = GNL_VAR_INOUT) ) 

/* It is a local var. */ 
if (GnlCreateUniqueVar (Gnl, GnlVarName (VarJ), 
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&NewVar) ) 

return ( GNL_MEMOR Y_FULL ) / 
if (BListAddElt (GnlLocals (Gnl) , (int ) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

SetGnlVarDir (NewVar, GnlVarDir (VarJ)); 
SetGnlVarType (NewVar, GnlVarType (VarJ)); 
SetGnlVarMsb (NewVar, GnlVarMsb (VarJ) ) ; 
SetGnlVarLsb (NewVar, GnlVarLsb (VarJ)); 

if (GnlVarLocation (VarJ) ) 

{ 

if (GnlStrCopy (GnlVarLocation (VarJ) , &NewLoc) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlVarLocation (NewVar, NewLoc) ; 

} 

/* We bind the hook field of this newvar to the 'VarJ' 
GnlBindVarHook (VarJ, NewVar) ; 

} 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlDuplicateNodeForNewGnl */ 

/* 

GNL_STATUS GnlDuplicateNodeForNewGnl {NewGnl, GnlNode, NewNode) 
GNL NewGnl ; 

GNL_NODE GnlNode; 
GNL_NODE *NewNode; 

{ 

int i ; 

GNL_VAR Var; 
GNL_VAR ActualVar; 
BLIST Sons; 
GNL_NODE SonI; 
BLIST NewList; 
GNL NODE NewSonI; 



switch (GnlNodeOp (GnlNode) ) { 

case GNL_CONSTANTE: 

if {GnlCreateNode (NewGnl, GNL__CONSTANTE, NewNode)) 

return (GNL_MEMORY_FULL) / 
SetGnlNodeSons ( (*NewNode) , GnlNodeSons (GnlNode) ) ; 
SetGnlNodeLineNumber ( (*NewNode) , 

GnlNodeLineNumber (GnlNode) ) / 

return (GNL_OK) ; 

case GNL_VARIABLE : 

Var = (GNL_VAR) GnlNodeSons (GnlNode); 
if (GnlVarlsVss (Var) ) 
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{ 

if ( Gnl Great eNodeVss (NewGnl, NewNode) ) 
return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 

} 

if (GnlVarlsVdd (Var) ) 
{ 

if (GnlCreateNodeVdd (NewGnl, NewNode)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

/* we pick up the corresponding Actual var of 'Var' */ 
ActualVar = (GNL_VAR) GnlVarHook (Var); 
if (! ActualVar) 

{ 

/* If already replaced in the GNL_N0DE tree 
if (GnlGetVarFromName (NewGnl, GnlVarName (Var) , 

&ActualVar) ) 

{ 

fprintf (stderr, 
"ERROR: <%s> has no associated var during flattening\ 
GnlVarName (Var) ) ; 
exit (1) ; 

} 

} 

if (GnlCreateNodeForVar (NewGnl, ActualVar, NewNode)) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_0K) ; 

default : 

Sons = GnlNodeSons (GnlNode) ; 

if (GnlCreateNode (NewGnl, GnlNodeOp (GnlNode), NewNode)) 

return ( GNL_MEMOR Y_FULL ) ; 
if (BListCreateWithSize (BListSize (Sons) , &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons ( (*NewNode) , NewList) ; 

for (i=0; i<BListSize (Sons); i++) 

{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
if (GnlDuplicateNodeForNewGnl (NewGnl, SonI, &NewSonI) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlNodeSons ( (*NewNode) ) , 

(int)NewSonl) ) 
return ( GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

} 

/* 

/* GnlSubstituteNodeForNewGnl */ 

/* 

GNL_STATUS GnlSubstituteNodeForNewGnl (NewGnl, GnlNode, NewNode) 

GNL NewGnl ; 

GNL NODE GnlNode; 
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GNL_NODE 

{ 

int 

GML__VAR 

GNL_VAR 

BLIST 

GNL_NODE 

BLIST 

GNL_NODE 

GNL VAR 



*NewNode ; 
i; 

Var; 

ActualVar ; 
Sons ; 
SonI; 
NewList ; 
NewSonI ; 
NewVar ; 



switch (GnlNodeOp (GnlNode) ) { 

case GNL_CONSTANTE: 

*NewNode = GnlNode ; 
return (GNL_OK) ; 

case GNL_VARIABLE: 

Var = (GNL_VAR) GnlNode Sons (GnlNode); 
if (GnlVarlsVss (Var) ) 

{ 

*NewNode = GnlNode; 
return (GNL_OK) ; 

} 

if (GnlVarlsVdd (Var) ) 
{ 

*NewNode = GnlNode; 
return (GNL_OK) ; 

} 

/* we pick up the corresponding new var of *Var' */ 
NewVar = (GNL_VAR) GnlVarHook (Var) ; 
if (1 NewVar) 
{ 

/* If already replaced in the GNL_NODE tree */ 
if (GnlGetVarFromName (NewGnl, GnlVarNatne (Var), &NewVar) ) 

{ 

fprintf (stderr, 
"ERROR: <%s> has no associated var during f lattening\n n 
GnlVarName (Var) ) ; 
exit (1); 

} 

} 

SetGnlNodeSons (GnlNode, (BLIST) NewVar) ; 
*NewNode = GnlNode; 

return (GNL_OK) ; 

default : 

Sons = GnlNodeSons (GnlNode) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL__NODE) BListElt (Sons, i) ; 
if (GnlSubstituteNodeForNewGnl (NewGnl, SonI, &NewSonI)) 

return (GNL_MEMORY_FULL) ; 
BListElt (Sons, i) = (int) NewSonI ; 
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} 

*NewNode = GnlNode; 
return (GNL_OK) ; 

} 

} 



/* */ 

/* GnlDuplicateAssoc */ 

/* */ 

GNL_STATUS GnlDuplicateAssoc (Gnl, Assoc, NewAssoc) 
GNL Gnl ; 

GNL_ASSOC Assoc; 
GNL_ASSOC *NewAssoc; 

{ 

int i ; 



GNL_VAR Formal ; 

GNL_VAR Actual; 

GNL__VAR SplitActuall; 

GNL_VAR SubstituteActuall; 

BLIST Li stSpl it Actuals ; 

BLIST NewList; 

GNL NODE NewNode; 



Formal = GnlAssocFormalPort (Assoc) ; 
Actual = GnlAssocActualPort (Assoc) ; 

/* If it is an open port */ 
if ('Actual) 
{ 

if (GnlCreateAssoc (NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort ( (*NewAssoc) , Formal) ; 

return (GNL_OK) ; 

} 

/* both Formal and Actual are 1-bit width signals */ 
if (GnlVarlsVar (Actual)) 

{ 

if (GnlCreateAssoc (NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort ( (*NewAssoc) , Formal) ; 

/* we substitute the actual signal in the component instanciation*/ 
if (GnlVarHook (Actual) == NULL) 
{ 

fprintf (stderr, " ERROR: signal has no hook\n") ; 
exit (1); 

} 

SetGnlAssocActualPort ( (*NewAssoc) , 

(GNL_VAR) GnlVarHook (Actual) ) ; 

return (GNL_OK) ; 

} 

if (GnlCreateAssoc (NewAssoc) ) 
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return (GNL_MEMORY_FULL) ; 
SetGnlAssocFormalPort ( (*NewAssoc) , Formal) ; 

/* It is then a Formal Bus and a GNL_CONCAT expression. We know that */ 
/* both have the same width. */ 
ListSplitActuals = GnlNodeSons ( (GNLJSTODE) Actual) ; 

/* creating the CONCAT node */ 
if (GnlCreateConcatNode (ScNewNode) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (ListSplitActuals) , &NewList) ) 

return (GNL_MEMORY_JFULL) ; 
SetGnlNodeSons (NewNode, NewList) ; 

for (i=0; i<BListSize (ListSplitActuals) ; i++) 
{ 

SplitActuall = (GNL_VAR) BListElt (ListSplitActuals, i) ; 

SubstituteActuall = (GNL_VAR) GnlVarHook (SplitActuall); 
if (BListAddElt (NewList, (int) SubstituteActuall ) ) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlAssocActualPort ( (*NewAssoc) , (GNL_VAR) NewNode) ; 
return (GNL OK) ; 



/* 

/* GnlDuplicateUserComponent */ 

/* 

GNL_STATUS GnlDuplicateUserComponent (Gnl, FatherCompo, UserCompo, 

NewCompo ) 

GNL Gnl ; 

GNL_USER_COMPONENT FatherCompo ; 
GNL_USER_COMPONENT Us er Compo ; 
GNL_COMPONENT *NewCompo ; 



{ 



GNL_USER_COMPONENT Ne wUs er Compo ; 

BLIST Newlnterf ace ; 

BLIST NewList; 

BLIST Interface; 
int i ; 

GNL__ASSOC Assocl; 
GNL_AS SOC Ne wAs soc ; 

char *AuxName ; 

char *NewName ; 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 
if (BListCreateWithSize (BListSize (Interface), ScNewList) ) 
return (GNL_MEMORY__FULL) ; 

for (i=0; i<BListSize (Interface); i++) 

{ 

Assocl = (GNL_ASSOC) BListElt (Interface, i) ; 
if (GnlDuplicateAssoc (Gnl, Assocl, &NewAssoc) ) 
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return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int ) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

if (GnlCreateUserComponent (GnlUserComponentName (UserCompo) , 

GnlUserComponentlnstName (UserCompo) , 
NULL, 

NewList, ScNewUserCompo) ) 
return (GNL MEMORY FULL) ; 



if (GnlEnvFlattenlnstanceName () == GNL_FL AT_H I ERARCH I CAL_NAME ) 

{ 

if ( ! GnlUserComponentlnstName (UserCompo) ) 

{ 

if (GnlStrCopy (GnlUserComponentlnstName (FatherCompo) , 
&NewName) ) 
return (GNL_MEM0RY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponentlnstName (FatherCompo) , 
GnlEnvFlattenStr () , &AuxName) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlUserComponentlnstName (UserCompo) , 
&NewName) ) 

return ( GNL_MEMORY_FULL) ; 
free (AuxName) ; 

} 

SetGnlUserComponentlnstName (NewUserCompo, NewName) ; 

} 



SetGnlUserComponentFormalType (NewUserCompo , 

GnlUserComponentFormalType (UserCompo) ) ; 

*NewCompo = (GNL_C0MP0NENT) NewUserCompo; 

return (GNL OK) ; 



/* */ 

/* GnlDuplicateSeqComponent */ 

/* */ 

GNL_STATUS GnlDuplicateSeqComponent (Gnl, FatherCompo, SeqCompo, 

NewCompo) 

GNL Gnl ; 

GNL_US ER_COM PONENT FatherCompo ; 

GNL_SEQUENT I AL__C0MP0NENT SeqCompo ; 
GNL_C0MP0NENT *NewCompo ; 

{ 

GNL_SEQUENTIAL__COMPONENT NewSeqCompo ; 
char * AuxName ; 

char *NewName ; 
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if (GnlCreateSequentialComponent (Gnl Sequent ialCompoType (SeqCompo) , 

&NewSeqCompo) ) 

return (GNL_MEMORY_FULL) / 

SetGnlSequent ialCompoOp (NewSeqCompo , 

GnlSequentialCompoOp (SeqCompo) ) ; 

/* Replacing each signal by its hook signal. */ 
if (IGnlVarlsVss ( Gnl Sequent ialCompo Input (SeqCompo)) && 
IGnlVarlsVdd (Gnl Sequent ialCompo Input (SeqCompo) ) ) 
SetGnlSequent ialCompoInput (NewSeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoInput (SeqCompo) ) ) ; 

else 

SetGnlSequent ialCompoInput (NewSeqCompo, 

GnlSequentialCompoInput (SeqCompo) ) ; 

if (IGnlVarlsVss (GnlSequentialCompoOutput (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoOutput (SeqCompo) ) ) 
SetGnlSequent ialCompoOutput (NewSeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoOutput (SeqCompo) ) ) ; 

else 

SetGnlSequentialCompoOutput (NewSeqCompo , 

GnlSequentialCompoOutput (SeqCompo) ) ; 

if (IGnlVarlsVss (GnlSequentialCompoClock (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoClock (SeqCompo) ) ) 
SetGnlSequent ialCompoClock (NewSeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoClock (SeqCompo) ) ) ; 

else 

SetGnlSequent ialCompoClock (NewSeqCompo , 

GnlSequentialCompoClock (SeqCompo) ) ; 

SetGnlSequent ialCompoClockPol (NewSeqCompo, 

GnlSequentialCompoClockPol (SeqCompo) ) 

if (GnlSequentialCompoReset (SeqCompo) && 

IGnlVarlsVss (GnlSequentialCompoReset (SeqCompo) ) && 
IGnlVarlsVdd (GnlSequentialCompoReset (SeqCompo) ) ) 
SetGnlSequentialCompoReset (NewSeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoReset (SeqCompo) ) ) ; 

else 

SetGnlSequentialCompoReset (NewSeqCompo, 

GnlSequentialCompoReset (SeqCompo) ) ; 

if (GnlSequentialCompoSet (SeqCompo) && 

IGnlVarlsVss (GnlSequentialCompoSet (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoSet (SeqCompo) ) ) 
SetGnlSequent ialCompoSet (NewSeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoSet (SeqCompo) ) ) ; 

else 

SetGnlSequent ialCompoSet (NewSeqCompo, 

GnlSequentialCompoSet (SeqCompo) ) ; 

SetGnlSequent ialCompoSet Pol (NewSeqCompo, 

GnlSequentialCompoSetPol (SeqCompo) ) ; 
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SetGnlSequentialCompoResetPol (NewSeqCompo , 

GnlSequentialCompoResetPol (SeqCompo) ) ; 



if (GnlEnvFlattenlnstanceName () == GNL_FLAT_H I ERARCHI CAL__NAME ) 
{ 

if ( IGnlSequentialCompoInstName (SeqCompo) ) 

{ 

if (GnlStrCopy (GnlUserComponentlnstName (FatherCompo) , 
&NewName) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlS trAppendStrCopy ( 

GnlUserComponentlnstName (FatherCompo) , 
GnlEnvFlattenStr () , SAuxName) ) 
return ( GNL_MEMORY_FULL ) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlSequentialCompoInstName (SeqCompo) , 
&NewName) ) 
return ( GNL_MEMORY_FULL) ; 
free (AuxName) ; 

} 

SetGnlSequentialCompoInstName (NewSeqCompo, NewName) ; 

} 



*NewCompo = (GNL_COMPONENT) NewSeqCompo ,- 
return (GNL OK) ; 



/* */ 

/* GnlDuplicateBuf Component */ 
/* */ 

GNL__S TATUS GnlDuplicateBuf Component (Gnl, FatherCompo, BufCompo, 

NewCompo) 

GNL Gnl ; 

GNL__USER__COMPONENT FatherCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

GNL__COMPONENT * NewCompo ; 

{ 

GNL_BUF_COMPONENT NewBuf Compo ; 

char * AuxName ; 

char *NewName; 



if (GnlCreateBuf Component (&NewBuf Compo) ) 
return (GNL_MEMORY_FULL) ; 

/* Replacing each signal by its hook signal. */ 
if ( IGnlVarlsVss (GnlBuf Input (Buf Compo) ) 
IGnlVarlsVdd (GnlBuf Input ( Buf Compo) ) ) 
SetGnlBuf Input (NewBuf Compo 7 (GNL_VAR) GnlVarHook ( 

GnlBuf Input (Buf Compo) ) ) ; 
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else 

SetGnlBuf Input (NewBuf Compo, GnlBuf Input (BufCompo) ) ; 

if ( IGnlVarlsVss (GnlBuf Output (BufCompo)) && 
IGnlVarlsVdd (GnlBuf Output (BufCompo) ) ) 
SetGnlBufOutput (NewBuf Compo, (GNL_VAR) GnlVarHook ( 

GnlBufOutput (BufCompo) ) ) ; 

else 

SetGnlBufOutput (NewBuf Compo, GnlBufOutput (BufCompo)) ; 

if (GnlEnvFlattenlnstanceName () == GNL_FLAT_H I ERARCH I CAL_NAME ) 
{ 

if ( ! GnlBuf Ins tName (BufCompo) ) 

{ 

if (GnlStrCopy (GnlUserComponent Ins tName (FatherCompo) , 
&NewName) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponent Ins tName (FatherCompo) , 
GnlEnvFlattenStr () , ScAuxName) ) 
return ( GNL_MEMORY_FULL ) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlBuf Ins tName (BufCompo) , 
&NewName) ) 
return ( GNL_MEMORY_FULL ) ; 
free (AuxName) ; 

} 

SetGnlTriStatelnstName (NewBuf Compo, NewName) ; 

} 



*NewCompo = (GNL_COMPONENT) NewBuf Compo ; 
return (GNL_OK) ; 



/* 

/* GnlDuplicateTristateComponent 
/* 



GNL_STATUS GnlDuplicateTristateComponent (Gnl, FatherCompo, TriCompo, 

NewCompo ) 

Gnl; 

FatherCompo; 
Tr i Compo; 
*NewCompo ; 



{ 



GNL 

GNL_US ER_COMPONENT 
GNLJTRI STATE^COMPONENT 
GNL COMPONENT 



GNL_TRISTATE_COMPONENT 

char 

char 



NewTriCompo; 
* AuxName ; 
* NewName ; 



if (GnlCreateTristateComponent (&NewTri Compo) ) 
return (GNL_MEMORY_FULL) ; 
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/* Replacing each signal by its hook signal. */ 
if (IGnlVarlsVss (GnlTriStatelnput (TriCompo) ) &6c 
IGnlVarlsVdd (GnlTriStatelnput (TriCompo))) 
SetGnlTriStatelnput (NewTriCompo, (GNL_VAR) GnlVarHook ( 

GnlTriStatelnput (TriCompo) ) ) ; 

else 

SetGnlTriStatelnput (NewTriCompo, GnlTriStatelnput (TriCompo) ) ; 

if (IGnlVarlsVss (GnlTriStateOutput (TriCompo)) && 
IGnlVarlsVdd (GnlTriStateOutput (TriCompo))) 
SetGnlTriStateOutput (NewTriCompo, (GNL_VAR) GnlVarHook ( 

GnlTriStateOutput (TriCompo) ) ) ; 

else 

SetGnlTriStateOutput {NewTriCompo, GnlTriStateOutput (TriCompo) ) ; 

if (IGnlVarlsVss (GnlTriStateSelect (TriCompo)) && 
IGnlVarlsVdd (GnlTriStateSelect (TriCompo) ) ) 
SetGnlTriStateSelect (NewTriCompo, (GNL_VAR) GnlVarHook ( 

GnlTriStateSelect (TriCompo) ) ) ; 

else 

SetGnlTriStateSelect (NewTriCompo, GnlTriStateSelect (TriCompo) ) ; 

SetGnlTriStateSelectPol (NewTriCompo, GnlTriStateSelectPol (TriCompo)) ; 
SetGnlTriStatelnputPol (NewTriCompo, GnlTriStatelnputPol (TriCompo)) ; 

if (GnlEnvFlattenlnstanceName () == GNL__FLAT_HI ERARCHI CAL_NAME ) 

{ 

if ( IGnlTriStatelnstName (TriCompo) ) 

{ 

if (GnlStrCopy ( GnlUs er Component Ins tName (FatherCompo) , 
&NewName ) ) 
return ( GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponent Ins tName (FatherCompo) , 
GnlEnvFlattenStr () , ScAuxName) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlTriStatelnstName (TriCompo) , 
&NewName) ) 
return ( GNL_MEMORY_FULL) / 
free (AuxName) ; 

} 

SetGnlTriStatelns tName (NewTriCompo, NewName) ; 

} 



} 



*NewCompo = (GNL_COMPONENT) NewTriCompo; 
return (GNL OK) ; 



/* */ 

/* GnlDuplicateComponentForNewGnl */ 

/* */ 
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GNL_STATUS Gnl Duplicate Component ForNewGnl (Gnl, FatherCompo, Component, 

NewCompo) 

GNL Gnl ; 

GNL_USER_COMPONENT FatherCompo ; 
GNL_COMPONENT Component ; 
GNL_COMPONENT *NewCompo ; 



switch (Gnl Component Type (Component) ) { 
case GNL_SEQUENTIAL_COMPO : 

if (GnlDuplicateSeqComponent (Gnl, FatherCompo, 

( GNL__S EQUENT I AL_COMPONENT ) Component , 
NewCompo) ) 
return ( GNL__MEMOR Y_FULL ) ; 
return (GNL_OK) ; 

case GNL_TRISTATE_COMPO: 

if (GnlDuplicateTristateComponent (Gnl, FatherCompo, 

( GNL_TR I S TATE_COMPONENT ) Component , 
NewCompo) ) 
return ( GNL_MEMOR Y_FULL) ; 
return (GNL_OK) ; 

case GNL__BUF_COMPO : 

if (GnlDuplicateBuf Component (Gnl, FatherCompo, 

(GNL_BUF_COMPONENT) Component , 
NewCompo) ) 

return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

case GNL_MACRO_COMPO : 
return (GNL_OK) ; 

case GNL_USER_COMPO : 

if (GnlDuplicateUserComponent (Gnl, FatherCompo, 

(GNL_USER_COMPONENT) Component , 
NewCompo) ) 
return ( GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

default : 

GnlError (20 /* component unknown */) ; 

return (GNL_MEMORY_FULL) ; /* to change */ 

} 

} 



/* */ 

/* GnlSubstituteAssoc */ 

/* */ 

GNL_S TATUS GnlSubstituteAssoc (Gnl, Assoc, NewAssoc) 
GNL Gnl ; 

GNL_AS SOC As S O c ; 

GNL_ASSOC *NewAssoc ; 

{ 

int i ; 
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} 



GNL_VAR Formal ; 

GNL__VAR Actual ; 

GNL_VAR SplitActuall ; 

GNL_VAR SubstituteActuall ; 

BLIST ListSplitActuals ; 



Formal = GnlAssocFormalPort (Assoc) ; 
Actual = GnlAssocActualPort (Assoc) ; 

if (! Actual) 

{ 

return (GNL_OK) ; 

} 

/* both Formal and Actual are 1-bit width signals */ 
if (GnlVarlsVar (Actual)) 
{ 

/* we substitute the actual signal in the component instanciation*/ 
if (GnlVarHook (Actual) == NULL) 

{ 

fprintf (stderr, " ERROR: signal has no hook\n"); 
exit (1); 

} 

SetGnlAssocActualPort (Assoc, (GNL_VAR) GnlVarHook (Actual)) ; 
return (GNL_OK) ; 

} 

/* It is then a Formal Bus and a GNL__CONCAT expression. We know that */ 
/* both have the same width. */ 
ListSplitActuals = GnlNodeSons ( (GNL_NODE) Actual ) ; 

for (i=0; i<BListSize (ListSplitActuals); i++) 

{ 

SplitActuall = (GNL_VAR) BListElt (ListSplitActuals, i) ; 

SubstituteActuall = (GNL_VAR) GnlVarHook (SplitActuall); 
BListElt (ListSplitActuals, i) = (int ) Subst ituteActuall ; 
} 

return (GNL OK) ; 



/* */ 

/* GnlSubstituteUserComponent */ 

/* */ 

GNL__STATUS GnlSubstituteUserComponent (Gnl, FatherCompo, UserCompo, 

NewCompo) 

GNL Gnl ; 

GNL_JUSER_COMPONENT FatherCompo ; 
GNL__USER_COMPONENT UserCompo ; 
GNL_COMPONENT *NewCompo ; 

{ 

BLIST Interface; 

int i ; 

GNL ASSOC AssocI; 
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char *AuxName ; 

char * Ne wName ; 



Interface = GnlUserComponent Inter f ace (UserCompo) ; 

for (i=0; i<BListSize (Interface) ; i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (GnlSubstituteAssoc (Gnl, AssocI)) 
return (GNL_MEMORY_FULL) ; 

} 

if (GnlEnvFlattenlnstanceNameO == GNL_FLAT_H I ERARCH I CAL_NAME ) 
{ 

if ( ] GnlUser Component Ins tName (UserCompo)) 

{ 

if (GnlStrCopy (GnlUserComponent Ins tName (FatherCompo) , 
&NewName) ) 
return ( GNL__MEMORY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponent InstName (FatherCompo) , 
GnlEnvFlattenStr () , &AuxName) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlUserComponent InstName (UserCompo) 
&NewName) ) 
return (GNL_MEMORY_FULL) ; 
free (AuxName) ; 

free (GnlUserComponent Ins tName (UserCompo) ) ; 

} 

SetGnlUserComponentlnstName (UserCompo, NewName) ; 

} 

*NewCompo = (GNL_COMPONENT) UserCompo ; 
return (GNLJOK) ; 

} 

/* 

/* GnlSubstituteSeqComponent 

/* 

GNL_STATUS GnlSubstituteSeqComponent (Gnl, FatherCompo, SeqCompo, 

NewCompo) 

GNL Gnl ; 

GNL__USER_COMPONENT FatherCompo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_COMPONENT *NewCompo ; 

{ 

char *AuxName; 
char *NewName ; 
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} 



/* Replacing each signal by its hook signal. */ 
if ( IGnlVarlsVss (GnlSequentialCompo Input (SeqCompo) ) 
IGnlVarlsVdd (GnlSequentialCompo Input (SeqCompo) ) ) 
SetGnlSequentialCompoInput (SeqCompo, (GNL_VAR) GnlVarHook ( 

Gnl Sequent ialCompoInput (SeqCompo) ) ) ; 
if (IGnlVarlsVss (GnlSequentialCompoOutput (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoOutput (SeqCompo) ) ) 
SetGnlSequentialCompoOutput (SeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoOutput (SeqCompo) ) ) ; 
if (IGnlVarlsVss (GnlSequentialCompoClock (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoClock (SeqCompo) ) ) 
SetGnlSequentialCompoClock (SeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoClock (SeqCompo) ) ) ; 
if (GnlSequentialCompoReset (SeqCompo) && 

IGnlVarlsVss (GnlSequentialCompoReset (SeqCompo)) 
IGnlVarlsVdd (GnlSequentialCompoReset (SeqCompo) ) ) 
SetGnlSequentialCompoReset (SeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoReset (SeqCompo) ) ) ; 
if (GnlSequentialCompoSet (SeqCompo) && 

IGnlVarlsVss (GnlSequentialCompoSet (SeqCompo)) && 
IGnlVarlsVdd (GnlSequentialCompoSet (SeqCompo) ) ) 
SetGnlSequentialCompoSet (SeqCompo, (GNL_VAR) GnlVarHook ( 

GnlSequentialCompoSet (SeqCompo) ) ) ; 

if (GnlEnvFlattenlnstanceNameO == GNL_FLAT_H I ERARCH I CAL NAME) 
{ 

if ( IGnlSequentialCompoInstName (SeqCompo) ) 

{ 

if (GnlStrCopy ( GnlUs e r Component I nstName (FatherCompo) , 
&NewName) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponentlnstName (FatherCompo) , 
GnlEnvFlattenStr () , &AuxName) ) 
return ( GNL_MEMORY_FULL ) ; 
if (GnlStrAppendStrCopy (AuxName, 

Gnl Sequent ialCompo In stName (SeqCompo) , 
&NewName) ) 
return (GNL_MEMORY_FULL) ; 
free (AuxName) ; 

free (GnlSequentialCompoInstName (SeqCompo) ) ; 

} 

SetGnlSequentialCompoInstName (SeqCompo, NewName) ; 

} 

*NewCompo = (GNL_COMPONENT) SeqCompo; 
return (GNL_OK) ; 



/* */ 

/* GnlSubstituteBuf Component */ 
/* */ 
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GNL_STATUS GnlSubs t i tuteBuf Component (Gnl, FatherCompo, Buf Compo, 

NewCompo ) 

GNL Gnl ; 

GNL_USER_COMPONENT FatherCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

GNL_COMPONENT *NewCompo ; 

{ 

char *AuxName ; 

char *NewName; 



/* Replacing each signal by its hook signal, 
if ( IGnlVarlsVss (GnlBuf Input ( Bu f Compo ) ) && 
IGnlVarlsVdd (GnlBuflnput ( Buf Compo) ) ) 
SetGnlBuf Input (Buf Compo, { GNL_VAR ) Gnl VarHook ( 

GnlBuflnput (Buf Compo) ) ) ; 
if ( IGnlVarlsVss (GnlBuf Output (Buf Compo) ) && 
IGnlVarlsVdd (GnlBuf Output (Buf Compo) ) ) 
SetGnlTriStateOutput (Buf Compo, (GNL_VAR) Gnl VarHook ( 

GnlBuf Output (Buf Compo) ) ) ; 

if (GnlEnvFlattenlnstanceName () == GNL_FLAT HIERARCHICAL NAME) 

{ 

if (! GnlBuf Ins tName (Buf Compo) ) 

{ 

if (GnlStrCopy (GnlUser Component Ins tName (FatherCompo) , 
&NewName) ) 
return ( GNL_MEMOR Y_FULL ) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponentlnstName (FatherCompo) , 
GnlEnvFlattenStr () , &AuxName) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlBuf Ins tName (Buf Compo) , 
&NewName) ) 
return ( GNL__MEMORY_FULL) ; 
free (AuxName) ; 

free (GnlBuf InstName (Buf Compo) ) ; 

} 

SetGnlBuf InstName (Buf Compo, NewName) ; 

} 

*NewCompo = (GNL_COMPONENT) Buf Compo ; 
return (GNL_OK) ; 

} 

/* 

/* GnlSubstituteTristateComponent 

/* 

GNL_STATUS GnlSubstituteTristateComponent (Gnl, FatherCompo, TriCompo, 

NewCompo) 

GNL Gnl ; 
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GNL_US ER_COMPONENT Fa t he r Compo ; 

GNL_TRISTATE_COMPONENT TriCompo ; 

GNL_COM PONENT *NewCompo ; 

char * AuxName ; 

char *NewName ; 



/* Replacing each signal by its hook signal. */ 
if (IGnlVarlsVss (GnlTriStatelnput (TriCompo)) && 
IGnlVarlsVdd (GnlTriStatelnput (TriCompo) ) ) 
SetGnlTriStatelnput (TriCompo, (GNL_VAR) GnlVarHook ( 

GnlTriStatelnput (TriCompo) ) ) ; 
if (IGnlVarlsVss (GnlTriStateOutput (TriCompo)) && 
IGnlVarlsVdd (GnlTriStateOutput (TriCompo) ) ) 
SetGnlTriStateOutput (TriCompo, (GNL__VAR) GnlVarHook ( 

GnlTriStateOutput (TriCompo) ) ) ; 
if (IGnlVarlsVss (GnlTriStateSelect (TriCompo)) && 
IGnlVarlsVdd (GnlTriStateSelect (TriCompo))) 
SetGnlTriStateSelect (TriCompo, (GNL_VAR) GnlVarHook ( 

GnlTriStateSelect (TriCompo) ) ) ,- 

if (GnlEnvFlattenlnstanceName () == GNL_FLAT_H I ERARCH I CAL NAME) 

{ 

if ( IGnlTriStatelnstName (TriCompo) ) 

{ 

if (GnlStrCopy ( GnlUs erComponent Ins tName (FatherCompo) , 
&NewName ) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlStrAppendStrCopy ( 

GnlUserComponentlnstName (FatherCompo) , 
GnlEnvFlattenStr () , StAuxName) ) 
return ( GNL_MEMORY_FULL) ; 
if (GnlStrAppendStrCopy (AuxName, 

GnlTriStatelns tName (TriCompo) , 
ScNewName) ) 
return (GNL_MEMORY_FULL) ; 
free (AuxName) ; 

free (GnlTriStatelnstName (TriCompo) ) ; 

} 

SetGnlTriStatelnstName (TriCompo, NewName) ; 

} 

*NewCompo = (GNL_COMPONENT) TriCompo; 
return (GNL OK) ; 



/* */ 

/* GnlSubstituteComponentForNewGnl */ 

/* */ 

GNL_STATUS GnlSubst ituteComponentForNewGnl (Gnl, FatherCompo, Component, 

NewCompo) 
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GNL Gnl ; 

GNL_USER_COMPONENT FatherCompo ; 
GNL_COMPONENT Component ; 
GNL_COMPONENT *NewCompo ; 



switch (GnlComponentType (Component) ) { 
case GNL JSEQUENTIAL_COMPO : 

if (GnlSubstituteSeqComponent (Gnl, FatherCompo, 

( GNL_SEQUENTI AL_COMPONENT ) Component , Ne wCompo ) ) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

case GNL_TRISTATE_COMPO: 

if (GnlSubstituteTristateComponent (Gnl , FatherCompo, 

( GNL JTRISTATE_COMPONENT) Component, NewCompo) ) 
return (GNL_MEMORY_FULL) ; 
return (GNLjDK) ; 

case GNL_BUF__COMPO : 

if (GnlSubstituteBuf Component (Gnl, FatherCompo, 

(GNL_BUF_COMPONENT) Component, NewCompo) ) 
return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

case GNLJVEACRO_COMPO : 
return (GNL_OK) ; 

case GNL_USER_COMPO : 

if (GnlSubstituteUserComponent (Gnl, FatherCompo, 

(GNL_USER_COMPONENT) Component, 
NewCompo) ) 
return ( GNL__MEM0RY__FULL ) ; 
return (GNL_OK) ; 

default : 

GnlError (20 /* component unknown */) ; 
return (GNL_MEMORY_FULL) ; /* to change 

} 



/* 

/* GnlReplaceSubstituteComponentlnGnl */ 

/* */ 

/* This procedure substitutes variables of gnl corresponding to */ 
/* ! UserCompo» and adds this new gnl in the gnl 'Gnl'. */ 
/* This procedure is invoked when 'UserCompo' is the last instance to */ 
/* be processed. */ 

/* This procedure makes a side effect on the list 'ListGnls' by removing*/ 

/* the element 'Gnl' present in 'ListGnls 1 . */ 

/* */ 

GNL_STATUS GnlReplaceSubstituteComponentlnGnl (Gnl, UserCompo, ListGnls) 
GNL Gnl ; 

GNL_USER_COMPONENT UserCompo / 
BLIST ListGnls; 
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BLIST 

GNL_STATUS 

GNL 

int 

GNL_VAR 

GNL_VAR 

GNL_FUNCTION 

GNL__FUNCTION 

GNL_NODE 

GNL_COM PONENT 

GNL_COMPONENT 

BLIST 

BLIST 

GNL_NODE 

GNL 



Interface; 
Status; 

GnlCompo; 

i; 

Varl ; 

ActualVarl ; 

FunctionI; 

NewFunction; 
NewNode ; 
Component I ; 
NewCompo ; 
HashTableNames ; 
Buckets- 
Segment I ; 

Gnl I; 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 
GnlCompo = GnlUser Component GnlDef (UserCompo) ; 

BListQuickDelete (& (Gnllnputs (GnlCompo) ) ) ; 
BListQuickDelete (& (GnlOutputs (GnlCompo) ) ) ; 
BListQuickDelete (&(GnlLocals (GnlCompo) ) ) ; 
BListQuickDelete (& (GnlClocks (GnlCompo) ) ) ; 

/* Create new local var corresponding to the ones in 'GnlCompo' and */ 
/* add them in 'Gnl'. Then bind these 'GnlCompo' local vars with the */ 
/* new created 'Gnl' local vars. */ 
if ((Status = GnlBindAndCreateLocalVar (Gnl, GnlCompo))) 
return (Status) ; 

/* We bind the actual variables thru the Hook field. This field will */ 
/* point on the corresponding formal var. */ 
if ((Status = GnlBindActualVarOf Interface (Gnl, Interface, 

UserCompo) ) ) 

return (Status) ; 

/* In this case we use the boolean function and replace the actual */ 
/* variables by formal variables. */ 
for (i=0; i<BListSize (GnlFunctions (GnlCompo) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (GnlCompo), i) ; 
ActualVarl = (GNL_VAR) GnlVarHook (Varl) ; 

FunctionI = GnlVarFunction (Varl) ; 

/* We do not duplicate ! the function but re-use it and replaces*/ 
/* the actual variables by formal variables. */ 
if (GnlSubstituteNodeForNewGnl (Gnl, GnlFunctionOnSet (FunctionI), 

&NewNode) ) 
return ( GNL_MEMORY_FULL ) ; 

free (FunctionI) ; 

/* If we already created a function for 'ActualVarl' then it is */ 
/* a multi-source signal. */ 
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if (GnlVarFunction (ActualVarl) ) 

{ 

fprintf (stderr, " ERROR : multi-source signal for <%s>\n Tt , 

GnlVarName (ActualVarl) ) ; 
exit (1) ; 

} 

if (GnlFunctionCreate (Gnl, ActualVarl, NewNode, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (ActualVarl, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl), ActualVarl)) 
return (GNLJflEMORYJFULL) ; 

} 

BListQuickDelete (&Gnl Functions (GnlCompo) ) ; 

/* Now we add the segments of 'GnlCompo' to 'Gnl' since we reuse the */ 
/* GNL_NODE . */ 
/* Actually we will append teh segments of 'Gnl' to the segments of */ 
/* 'GnlCompo' so that the next call to the creation of GNLNODE will */ 
/* be done in a 'Gnl' segment. So ' FirstNode' and 'LastNode' keep the*/ 
/* same. */ 
for (i=0; i<BListSize (GnlNodesSegments (Gnl) ) ; i++) 
{ 

SegmentI = (GNL_NODE) BListElt (GnlNodesSegments (Gnl) , i) ; 
if (BListAddElt (GnlNodesSegments (GnlCompo) , (int) SegmentI) ) 
return ( GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&GnlNodes Segments (Gnl) ) ; 
SetGnlNodesSegments (Gnl, GnlNodesSegments (GnlCompo) ) ; 
SetGnlNodesSegments (GnlCompo, NULL) ; 

for (i=0; i<BListSize (Gnl Components (GnlCompo) ) ,- i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (GnlCompo), i) ; 
if (GnlSubstituteComponentForNewGnl (Gnl, UserCompo, ComponentI, 

&NewCompo) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (GnlComponents (Gnl), (int) NewCompo) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

BListQuickDelete (&Gnl Components (GnlCompo) ) ; 
GnlFreeHashNames (GnlCompo) ; 

for (i=0; i<BListSize (GnlHashCompoNames (GnlCompo) ) ; i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashCompoNames (GnlCompo) , i) ; 
if (Bucketl) 

BListQuickDelete (&BucketI) ; 

} 

BListQuickDelete (&GnlHashCompoNames (GnlCompo) ) ; 

/* Finally we remove the current Gnl from the top list 'ListGnls' */ 
for (i=0; i<BListSize (ListGnls) ; i++) 

{ 
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Gnl I = (GNL) BListElt (ListGnls, i) ; 
if (Grill == GnlCompo) 

{ 

BListDellnsert (ListGnls, i+1) ; 
break; 

} 

} 

free (GnlName (GnlCompo) ) ; 
free ( (char* ) GnlCompo) ,- 

return (GNL_OK) ; 



/* 

/* GnlReplaceDuplicateComponentlnGnl 



I 



/* This procedure makes a copy of the gnl corresponding to 'UserCompo 1 */ 
/* and adds this new gnl in the gnl 'Gnl'. */ 



h 

GNL_STATUS GnlReplaceDuplicateComponentlnGnl (Gnl, UserCompo) 
GNL Gnl ; 

GNL USER COMPONENT UserCompo; 
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{ 



BLIST 

GNL_STATUS 

GNL 

int 

GNL_VAR 

GNL_VAR 

GNL_FUNCTION 

GNL_FUNCT I ON 

GNL_NODE 

GNL COMPONENT 



Interface; 
Status; 

GnlCompo; 

i; 

Varl; 

ActualVarl; 

FunctionI; 

NewFun c t i on ; 
NewNode ; 
Component I; 



GNL_COMPONENT NewCompo ; 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 
GnlCompo = GnlUserComponentGnlDef (UserCompo) ; 

/* Create new local var corresponding to the ones in 'GnlCompo' and */ 
/* add them in 'Gnl 1 . Then bind these 'GnlCompo' local vars with the */ 
/* new created 'Gnl 1 local vars. */ 
if {(Status = GnlBindAndCreateLocalVar (Gnl, GnlCompo))) 
return (Status) ; 

/* We bind the actual variables thru the Hook field. This field will */ 
/* point on the corresponding formal var. */ 
if ({Status = GnlBindActualVarOf Interface (Gnl, Interface, 

UserCompo) ) ) 

return (Status) ; 

/* First we duplicate the boolean function and replace the actual */ 
/* variables by formal variables. */ 
for (i=0; i<BListSize (GnlFunctions (GnlCompo)); i++) 

{ 
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Varl = (GNL__VAR) BListElt (Gnl Functions (GnlCompo) , i) ; 
ActualVarl = (GNL_VAR) Gnl Var Hook (Varl); 

FunctionI = Gnl Var Function (Varl) ; 

if (GnlDuplicateNodeForNewGnl (Gnl, GnlFunctionOnSet (FunctionI) , 

ScNewNode) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlFunctionCreate (Gnl, ActualVarl, NewNode, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (ActualVarl, NewFunction) ; 

if (BListAddElt (GnlFunctions (Gnl) , ActualVarl) ) 
return (GNL_MEMORY_FULL) ; 

} 

for (i=0; i<BListSize (Gnl Components (GnlCompo)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (GnlCompo), i) ; 

if (GnlDuplicateComponentForNewGnl (Gnl, UserCompo, 

ComponentI, &NewCompo) ) 

return (GNL_MEMORY__FULL) ; 

if (BListAddElt (GnlComponents (Gnl), (int) NewCompo) ) 
return (GNLJVIEMORY_FULL) ; 

} 

return (GNLJDK) ; 

} 



/* */ 

/* GnlFlattenFullGnlComponentsRec */ 

/* 

/* This procedure flattens all the User components of 'Gnl' (and */ 

/* recursively the components of the components) and replace them by */ 

/* their corresponding Gnl representant . */ 

/* This procedure makes a side effect on the list 'ListGnls' by removing*/ 

/* the element 'Gnl' present in 'ListGnls'. */ 

/* */ 



GNL_STATUS GnlFlattenFullGnlComponentsRec (Nw, Gnl, ListGnls) 
GNL_NETWORK Nw; 
GNL Gnl ; 

BLIST ListGnls; 

{ 

BLIST Components; 
int i ; 

GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
GNL_STATUS Status; 
GNL GnlCorapol; 
BLIST ListFlatten; 
int ModulePresent ; 
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Components = GnlComponents (Gnl) ; 
if ([Components) 
return (GNL_OK) ; 

/* If the 'Gnl' has been already processed it is not necessary to 
/* re-flatten its user components */ 
if (GnlTag (Gnl) GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL__COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

Use r Compo I = ( GNL_US ER_COMPONENT ) Component I ; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

/* If we did not find any Gnl definition then it is a black box 
/* that we preserve. */ 
if (! GnlCompol) 
continue; 

/* Doing recursively the flattening of the Gnl definition of 

/* 'UserCompol'. */ 
if ((Status = GnlFlattenFullGnlComponentsRec (Nw, GnlCompol, 

ListGnls) ) ) 

return (Status) ; 



/* we are doing selective flattening ... */ 
if ( (GnlEnvFlatten () == GNL_EXCEPT_FLATTEN) || 
(GnlEnvFlatten () == GNL_ONLY_FLATTEN) ) 

{ 

ListFlatten = GnlEnvFlatListModules () ; 
ModulePresent = BListMemberOf List (ListFlatten, 

GnlName (GnlCompol) , Stringldentical ) ; 

if ( (ModulePresent && 

(GnlEnvFlatten () == GNL_EXCEPT_FLATTEN) ) || 
( ! ModulePresent 
(GnlEnvFlatten () GNL_ONLY__FLATTEN) ) ) 

continue ; 

} 

/* If the user wants to flatten the leaf cells, 
if {GnlEnvFlatten {) == GNL_LEAF_FL ATTEN ) 
{ 

/* If the Gnl of the component is not of type GNL_CELL then 
/* we do not flatten it. */ 
if (GnlType (GnlCompol) != GNL_CELL) 
continue; 

} 



D-GNL2-41 



gnlhier.c 



BListDel Insert (Components, i+1) ; 
i-- ; 

if (GnlRefCount (GnlCompol) == 1) 

{ 

/* This is the last Gnl to collapse so we take it directly */ 
/* instead of duplicating it and freeing it afterwards. */ 
if ((Status = GnlReplaceSubstituteComponentlnGnl (Gnl, 

UserCompol, ListGnls) ) ) 

return (Status) ; 

} 

else 

{ 

/* There are still some replacements to perform. We replace*/ 
/* physically the component by its Gnl definition duplicate*/ 
if (( Status = GnlReplaceDuplicateComponentlnGnl (Gnl, 

UserCompol) ) ) 

return (Status) ; 

} 

SetGnlRef Count (GnlCompol, GnlRefCount (GnlCompol) -1) ; 

GnlFreeComponent (ComponentI) ; 
} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlUpdateLocalVarDirSeqCompo */ 

/* */ 

/* Updates the Direction of the ports of the Sequential component */ 

/* * SeqCompo' . */ 

/* */ 

void GnlUpdateLocalVarDirSeqCompo (SeqCompo) 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

{ 

if ( IGnlVarlsPrimary (GnlSequentialCompoInput (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoInput (SeqCompo) , 
GNL_VAR_LOCAL_WIRING) ; 

if (Gnl Sequent ialCompoOutput (SeqCompo) && 

IGnlVarlsPrimary (GnlSequent ialCompoOutput (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoOutput (SeqCompo) , 
GNL__VAR_LOCAL_W I R I NG ) ; 

if (GnlSequentialCompoOutputBar (SeqCompo) && 

IGnlVarlsPrimary (GnlSequentialCompoOutputBar (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoOutputBar (SeqCompo) , 

GNL_VAR_LOCAL_WIRING) ; 

if ( IGnlVarlsPrimary (GnlSequentialCompoClock (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoClock (SeqCompo) , 
GNL VAR LOCAL WIRING) ; 
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if (GnlSequentialCompoReset (SeqCompo) && 

IGnlVarlsPrimary (GnlSequentialCompoReset (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoReset (SeqCompo) , 
GNL__VAR_LOCAL_WIRING) ; 

if (GnlSequentialCompoSet (SeqCompo) && 

IGnlVar Is Primary (GnlSequentialCompoSet (SeqCompo) ) ) 
SetGnlVarDir (GnlSequentialCompoSet (SeqCompo) , 
GNL_VAR_LOCAL_WIRING) ; 



} 



/* */ 

/* GnlUpdateLocalVarDirTristateCompo */ 

/* ic/ 

/* Updates the Direction of the ports of the tri state 'TriCompo'. */ 
/* *i 

void GnlUpdateLocalVarDirTristateCompo (TriCompo) 
GNL__TRISTATE_COMP0NENT TriCompo ; 

{ 

if (IGnlVarlsPrimary (GnlTriStatelnput (TriCompo))) 
SetGnlVarDir (GnlTriStatelnput (TriCompo) , 
GNL_VARJLOCAL_WIRING) ; 

if (IGnlVarlsPrimary (GnlTriStateOutput (TriCompo))) 
SetGnlVarDir (GnlTriStateOutput (TriCompo) , 
GNL_VAR_LOCAL_WIRING) ; 

if (IGnlVarlsPrimary (GnlTriStateSelect (TriCompo)) ) 
SetGnlVarDir (GnlTriStateSelect (TriCompo) , 
GNL_VAR_LOCAL_WIRING) ; 

} 

/* ic/ 

/* GnlUpdateLocalVarDirBuf Compo */ 
/* ± i 

/* Updates the Direction of the ports of the buffer 'BufCompo'. */ 
/* + J 

void GnlUpdateLocalVarDirBufCompo (BufCompo) 
GNL_BUF_COMPONENT Buf Compo ; 

{ 

if (IGnlVarlsPrimary (GnlBuf Input (BufCompo))) 
SetGnlVarDir (GnlBuf Input (BufCompo) , 
GNL_VAR_LOCAL_WIRING) ; 

if ( IGnlVarlsPrimary (GnlBuf Output (BufCompo) ) ) 
SetGnlVarDir (GnlBufOutput (BufCompo) , 
GNL_VAR__LOCAL_WIRING) ; 

} 

/* ie/ 

/* GnlUpdateLocalVarDirUserCompo */ 

/* *i 
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/* Scans the interface of 1 UserCompol ' and updates the direction of each*/ 

/* actual variable by giving the GNL_VAR_LOCAL_WIRING direction. */ 

/* */ 

GNL_STATUS GnlUpdateLocalVarDirUserCompo (Gnl, UserCompol) 
GNL Gnl; 
GNL_USER__COMPONENT UserCompol ; 

{ 

int j ; 

BLIST Interface; 
int k; 

BLIST ListSplitActuals ; 

GNL__VAR VarK; 

GNL_ASSOC AssocJ; 

GNL_VAR Actual; 

GNL_STATUS GnlStatus ; 

int i ; 

int Lef t Act Index; 

int R i gh t Ac t Index; 

char *IndexActualName; 

GNL_VAR IndexAc tual Var ; 



Interface = GnlUser Component Interface (UserCompol) ; 

for (j=0; j<BListSize (Interface); j++) 

{ 

AssocJ = (GNL_ASSOC) BListElt (Interface, j); 

Actual = GnlAssocActualPort (AssocJ) ; 

/* case of an open port, 
if (!Actual) 
continue; 



if (GnlVarlsVar (Actual)) 
{ 

if (GnlVarRangeSize (Actual) == 1) 

{ 

if ( IGnlVarlsPrimary (Actual)) 

SetGnlVarDir (Actual, GNL_VAR_LOCAL_WIRING) ; 
continue; 

} 

/* if not it is a bus and we need also to change the */ 

/* direction of the expansed bit variables associated to it */ 

Lef tAct Index = GnlVarMsb (Actual) ; 

RightAct Index = GnlVarLsb (Actual); 

if (Lef tActlndex > RightActlndex) 

{ 

Lef tAct Index = GnlVarLsb (Actual) ; 
RightActlndex = GnlVarMsb (Actual) ; 
} 

for (i=Lef tAct Index; i<=RightActIndex; i++) 
{ 

if (GnlVarlndexName (Actual, i, &IndexActualName) ) 
return (GNL_MEMORY_FULL) ; 
if ((GnlStatus = GnlGetVarFromName (Gnl, 
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IndexActualName, &IndexActualVar) ) ) 

{ 

if (GnlStatus GNL_VAR_NOT_EXISTS) 

continue ; 
return (GNL__MEMORY_FULL) ; 

} 

free (IndexActualName) ; 

if ( IGnlVarlsPrimary (IndexActualVar) ) 
SetGnlVarDir (IndexActualVar, GNL VAR_LOCAL WIRING) ; 

} 

} 

else 

{ 

/* This is a C0NCATJ3P with a list of Vars. */ 
ListSplitActuals = GnlNodeSons ( (GNL_NODE) Actual) ; 
for (k=0; k<BListSize (ListSplitActuals); k++) 
{ 

VarK = (GNL_VAR) BListElt (ListSplitActuals, k) ; 
if ( IGnlVarlsPrimary (VarK)) 

SetGnlVarDir (VarK, GNL_VAR_LOCAL WIRING) ; 

} 

} 



return (GNL OK) 



/* 

/* GnlUpdateVarDir 
/* 
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*/ 

/* Some Var directions may have changed after the full fltatening phase */ 
/* For instance an original GNL_VAR_LO C AL_W I R ING variable may become a */ 
/* simple GNL_VAR_LOCAL . This procedure updates then the field GnlVarDir*/ 
/* of each var. GnlVarDir is GNL_VAR_LOCAL_W I R ING only if this var */ 
/* appears in one of the components interfaces. */ 
/* */ 



GNL_STATUS GnlUpdateLocalVarDirRec 
GNL_NE TWORK Nw; 
GNL Gnl ; 



(Nw, Gnl) 



int 
BLIST 
int 

GNL_VAR 
GNL_COMPONENT 
GNL_USER_COMPONENT 
BLIST 
BLIST 

GNL__SEQUENTIAL_COMPONENT 
GNL_TRI STATE_COMPONENT 
GNL__BUF_COMPONENT 
GNL 



i; 

Bucket I ; 
j ; 

VarJ; 

ComponentI; 

UserCompol; 
Components; 
Has hTab 1 eName s ; 

SeqCompo; 
TriCompo; 
Buf Compo; 
GnlCompol; 



if (GnlTag (Gnl) GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 
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SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

/* First we change all the non IOs signals ( INPUT, OUTPUT, INOUT) , into*/ 
/* GNL_VAR_LOCAL . This means we modify the GNL_VAR_LOCAL_WIRING */ 
/* signals into GNL_VAR__LOCAL . */ 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i); 
for (j=0; j<BListSize (Bucketl); j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

if (IGnlVarlsIO (VarJ)) 
SetGnlVarDir (VarJ, GNL_VAR_LOCAL) ,- 

} 

} 

Components = GnlComponents (Gnl) ; 
if ( ! Component s ) 
return (GNL_OK) ; 

/* Now we scan the components in order to re -update the variables */ 
/* which are still GNL_VAR_LOCAL_WIRING. */ 
for (i=0; i<BListSize (Components) ; i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

switch (Gnl Component Type (ComponentI)) { 
case GNL__SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI; 
GnlUpdateLocalVarDirSeqCompo (SeqCompo) ; 
break; 

case GNL_TRISTATE_COMPO: 

TriCompo = (GNL_TRISTATE__COMPONENT) ComponentI ; 
GnlUpdateLocalVarDirTristateCompo (TriCompo) ; 
break; 

case GNL_BUF_COMPO : 

Buf Compo = ( GNL_BUF__COMPONENT ) Component I ; 
GnlUpdateLocalVarDirBuf Compo (Buf Compo) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

case GNL_USER_COMPO : 

UserCompol = (GNL_USER_C0MPONENT) ComponentI; 
if (GnlUpdateLocalVarDirUserCompo (Gnl, UserCompol)) 
return (GNL_MEMORY_FULL) ; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 
if (GnlCompol) 

{ 

if (GnlUpdateLocalVarDirRec (Nw # GnlCompol) ) 
return ( GNL _MEM0RY_FULL ) ; 
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*/ 
*/ 



} 

break; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlFlattenFullGnlComponents */ 
/* '__ 

/* This procedure flattens all the User components of 'Gnl» (and */ 

/* recursively the components of the components) and replace them by */ 

/* their corresponding Gnl representant . */ 

/* The flattening can be limited by User Options which are: */ 
/* GnlEnvFlatten () = GNL_EXCEPT_FLATTEN */ 

/* GnlEnvFlatten () = GNL ONLY FLATTEN */ 

/* This procedure makes a side effect on the list 'ListGnls' by removing*/ 
/* the Gnl elements which will be completly flattened (e.g not used */ 
/* anywhere) . * / 

GNL_STATUS GnlFlattenFullGnlComponents (Nw, Gnl, ListGnls) 
GNL_NETWORK Nw; 
GNL Gnl ; 

BLIST ListGnls; 



/ 



{ 



int i ; 

GNL_VAR Varl ; 
GNL_FUNCT I ON Function ; 
GNL_NODE Node; 



SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+l) ; 

if (GnlFlattenFullGnlComponentsRec (Nw, Gnl, ListGnls)) 
return (GNL_MEMORY_FULL) ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

/* Updates the direction of local variables after the collapsing */ 
/* phase. Indeed, a GNL_LO CAL__W I R ING can become a GNL_LOCAL since it */ 
/* does not drive a USER component anymore. */ 
if (GnlUpdateLocalVarDirRec (Nw, Gnl)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* EOF */ 
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/* 








/* 

f 


File : 


yil.LJ.llJ L. L . C 




/ 


veirs ion : 


1 . 1 




/* 


Modifications : 






/* 


Documentation : 






/* 








/* 


Description: 




*/ 


/* 















#include <stdio.h> 

ttifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist .h" 
#include "gnl.h" 
#include "gnlmint . h" 
#include "bbdd.h" 
#include "libcjnem.h" 
#include " libc_api . h" 
#include "gnllibc.h" 
#include "gnlmap.h" 

#include "blist. e" 



z* 

/* GnlNodeNbLitt */ 

/* 

mt GnlNodeNbLitt (Node) 



{ 



GNL_NODE Node; 

int i ; 

int NbLitt; 

GNL_NODE SonI; 



if (GnlNodeOp (Node) — GNL__CONSTANTE ) 
return (0) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE ) 
return (1) ; 

NbLitt = 0; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE)BListElt (GnlNodeSons (Node), i) ; 
NbLitt += GnlNodeNbLitt (SonI) ; 

} 

return (NbLitt) ; 
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/* 

/* GnlVarNbOccurlnNode 

/* 

static BLIST G_List Functions ; 

int GnlVarNbOccurlnNode (Node, Var) 
GNL_NODE Node; 
GNL_VAR Var; 



{ 



int i ; 

GNL_VAR VarSon; 

int NbOccur ; 

BLIST Sons; 

GNL NODE Sonl; 



} 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (0) ; 

if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

VarSon = (GNL_VAR) Gnl Node Sons (Node) ; 
if (Var VarSon) 

return (1) ; 
return (0) ; 

} 

NbOccur = 0; 

Sons = GnlNodeSons (Node) ; 
for (i=0; i<BListSize (Sons); i++) 
{ 

SonI = (GNL_NODE) BListElt (Sons, i) ; 
NbOccur += GnlVarNbOccurlnNode (SonI, Var) ; 

return (NbOccur) ; 



/* 

/* GnlVarNbOccur */ 

/* 

GNL_STATUS GnlVarNbOccur (Gnl, Var, MaxOccur, ListFunctions , NbOccur) 
GNL Gnl ; 

GNL_VAR Var; 
float MaxOccur; 
BLIST *ListFunctions ; 
int *NbOccur; 



{ 



int i ; 
GNL_VAR Varl; 

GNL_FUNCTION FunctionI ; 

int NbOccurl; 



if (BListCreate (&G_List Functions) ) 
return ( GNL_MEMORY_FULL ) ; 
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*NbOccur = 0; 

for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl) , i) ; 
FunctionI = GnlVarFunction (Varl) ; 
NbOccurl = GnlVarNbOccurlnNode (GnlFunctionOnSet (FunctionI), 

Var) ; 

if (NbOccurl) 
{ 

*NbOccur +- NbOccurl; 
if (BListAddElt (G_ListFunctions , (int)i)) 
return (GNL_MEMORY_FULL) ; 

if (MaxOccur < (f loat) (*NbOccur) ) 
{ 

♦NbOccur = 0; 

*ListFunctions = G_ListFunctions; 
return (GNL_OK) ; 

} 

} 

} 

*ListFunctions - G_List Functions ; 
return (GNL_OK) ; 

} 

/* 

/* GnllncrementDadsFromNode */ 

/* 

void GnllncrementDadsFromNode (Node) 
GNL_N0DE Node; 

{ 

GNL_VAR Var; 
int i ; 
GNL_NODE SonI; 



if (GnlNodeOp (Node) GNL VARIABLE) 

{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 

SetGnlVarDads (Var, (BLIST) ( (int ) GnlVarDads (Var) +1) ) ; 
return; 

} 

if (GnlNodeOp (Node) GNL_CONSTANTE) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnllncrementDadsFromNode (SonI) ; 

} 
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/* GnllnjectNodelnNode */ 



/* 

/* Scan recursively node 'Nodel 1 in order to replace occurence of 'Var' */ 

/* by 'Node2 1 . */ 

/* */ 

void GnllnjectNodelnNode (Nodel, Var, Node 2 , NewNode, NbOccur) 

GNL_NODE Nodel; 

GNL_VAR Var; 

GNL__NODE Node 2 ; 

GNLJTODE * NewNode ; 
int *NbOccur; 

{ 

int i ; 

GNLJTODE SonI ; 



if (GnlNodeOp (Nodel) == GNL_VARIABLE) 

{ 

if (Var == (GNL_VAR) Gnl Node Sons (Nodel)) 

{ 

(*NbOccur) --; 

*NewNode = Node2; 
/* Since this node is substituted, all its expression is */ 
/* used one more time. */ 

GnllncrementDadsFromNode (*NewNode) ; 
return; 

} 

*NewNode = Nodel; 
return; 

} 

if (GnlNodeOp (Nodel) == GNL_CONS T ANTE ) 

{ 

*NewNode = Nodel; 
return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 
{ 

SonI = ( GNL_NODE ) BLi s t E 1 1 (GnlNodeSons (Nodel), i) ; 
GnllnjectNodelnNode (SonI, Var, Node2 , NewNode, NbOccur) ; 
BListElt (GnlNodeSons (Nodel), i) = (int) (*NewNode) ; 

} 

* NewNode = Nodel; 



/* *i 

/* GnlDecrementNumberDadsFromNode */ 
/* 

void GnlDecrementNumberDadsFromNode (Node) 
GNL_NODE Node; 

{ 

GNL__VAR Var; 
int i ; 

GNL_NODE SonI; 
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} 



if (GnlNodeOp (Node) == GNL VARIABLE) 

{ 

Var = (GNL_VAR) Gnl Node Sons (Node); 

SetGnlVarDads (Var, (BLIST) ( (int ) GnlVarDads (Var) -1) 
return; 

} 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlDecrementNumberDadsFromNode (SonI) ; 

} 



/* # 

/* GnllnjectLocalVar */ 

/* ^ 

void GnllnjectLocalVar (Gnl, Function, NbOccur) 
GNL Gnl ; 

GNL_FUNCTI ON Function; 
int * NbOccur; 



{ 



GNL_VAR Var; 

GNL_NODE NodeExpression; 

int i; 

GNL_VAR Varl; 

GNL_FUNCT I ON FunctionI ; 

GNL_NODE Node I ; 

GNL__NODE NewNode; 

int IndexFunction; 



Var = GnlFunctionVar (Function) ; 
NodeExpression = GnlFunctionOnSet (Function) ; 

/* We decrement of one use each var in this expression that we will */ 
/* substitute. */ 
GnlDecrementNumberDadsFromNode (NodeExpression) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

if (1 (*NbOccur) ) 
return; 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 

GnllnjectNodelnNode (Nodel, Var, NodeExpression, &NewNode, 
NbOccur) ; 

SetGnlFunctionOnSet (FunctionI, NewNode) ; 

} 
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/* */ 

/* GnlResetDadsInVar */ 

/* */ 

/* This procedure scans all the variables of 1 Gnl 1 thru the hash table */ 
/* names and reset to NULL the field 'GnlVarDads' of each var. */ 
/* */ 

void GnlResetDadsInVar (Gnl) 

GNL Gnl ; 

{ 

int i ; 

GNL_VAR Var J; 

BLIST HashTableNames ; 

BLIST Bucket I; 

int j ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames) ; i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

{ 

Var J = (GNL_VAR) BListElt (Bucketl, j); 
SetGnlVarDads (VarJ, NULL) ; 



} 



/* */ 

/* GnlGetNumberDadsFromGnl */ 

/* */ 

/* This procedure uses the Field 'GnlVarDads' of each variables of the */ 
/* T Gnl ' . It uses as in Integer to store number of times a Var is refe- */ 
/* renced (e.g number of dads) . */ 
/* */ 

void GnlGetNumberDadsFromGnl (Gnl) 
GNL Gnl ; 



{ 



int i; 

GNL_VAR Varl ; 

GNL_NODE Node I ; 

GNL FUNCTION FunctionI; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 
if (I FunctionI) 
continue; 
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Nodel = GnlFunctionOnSet (FunctionI) ; 
GnllncrementDadsFromNode (Nodel) ; 

} 

} 

/* 

/* GnlGetDadsFromNode 

/* 

GNL_STATUS GnlGetDadsFromNode (Node, Dad) 
GNL_NODE Node; 
GNL_NODE Dad; 

{ 

GNL_VAR Var; 
BLIST NewList; 
int i ; 
GNL_NODE SonI; 



if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node); 
if (GnlVarDir (Var) != GNL_VAR_LOCAL) 
return (GNLJDK) ; 

if (GnlVarlsVss (Var) ) 
return (GNL_OK) ; 

if (GnlVarlsVdd (Var) ) 
return (GNL_OK) ; 

if (GnlVarDads (Var) == NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlVarDads (Var, NewList) / 

if (BListAddElt (GnlVarDads (Var), (int) Dad)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) =~ GNL_CONSTANTE) 
return (GNL__OK) ; 

for (i=0; i<BListSise (GnlNodeSons (Node)); i++) 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlGetDadsFromNode (SonI, Node)) 
return (GNL MEMORY FULL) ; 

} 



return (GNL OK) ; 

} 



/* GnlGetDadsFromGnl 
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/* This procedure computes for each var the list of its fathers */ 
/* 

/ 

GNL_STATUS GnlGetDadsFromGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 
GNL_VAR Varl; 
GNL_NODE Nodel; 
GNL_FUNCTION FunctionI ; 



for |i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR)BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 
if (FunctionI == NULL) 
continue; 

Nodel = GnlFunctionOnSet (FunctionI) ; 

if (GnlGetDadsFromNode (Nodel, Varl)) 
return (GNL_MEMORY_FULL) ; 



return (GNL OK) ; 

} 



/* 

/* GnllnjectQuick */ 
/* ' 

/ ^ 

I* This procedure re-injects local Funtions such that the relation */ 
/* below is verified: */ 

/* F reinjected <=> {NbOccur (F) * (NbLitt (F) -1) - NbLitt (F) < Limit) */ 

7 * */ 

/* 1 

/ 

GNL_STATUS GnllnjectQuick (Gnl, Limit) 
GNL Gnl; 
int Limit; 

{ 

int i ; 

int NbLitt; 

int NbOccur; 

GNL_FUNCTION FunctionI ; 

GNL_VAR Varl ; 

float MaxOccur; 

int j ; 

int k; 

GNL_NODE DadJ; 

GNL_FUNCTION Func t ion J ; 

GNL_NODE NodeK; 

GNL_NODE Nodel; 

BLIST NewList; 

int MaxNbLitt; 
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/* we sort the functions from the deepest to the highets ones. */ 
GnlSortFunctionsOnlnvertLevel (Gnl) ; 

GnlResetDadsInVar (Gnl) ; 

/* we compute the Dads for each Variable. */ 
GnlGetDadsFromGnl (Gnl) ; 

/* We process first the deepest functions and go up in the circuit. */ 
/* This is usefull so that by reinjecting a sub-function we do not */ 
/* change the list of the fathers of the higher vars . */ 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

fprintf (stderr, "%c Reinjecting glue logic (size = %d) [%d/%d]" / 
13, Limit, i, 

BListSize (GnlFunctions (Gnl) ) ) ; 
f flush (stderr) ; 

Varl = (GNL__VAR)BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

/* we substitute only LOCAL variables */ 
if (GnlVarDir (Varl) 1= GNL_VAR_LOCAL) 
continue; 

NbOccur = BListSize (GnlVarDads (Varl)); 

/* We compute a necessary condition to verify the condition. */ 
/* If the necessary condition is not true then it is not */ 
/* necessary to continue. */ 
if (NbOccur != 1) 
{ 

MaxNbLitt = (Limit -NbOccur) / (NbOccur-1) ; 
if (MaxNbLitt < 1) 

{ 

BListQuickDelete (&GnlVarDads (Varl)) ; 
SetGnlVarDads (Varl, NULL) ; 
continue; 

} 

} 

NbLitt = GnlNodeNbLitt (GnlFunctionOnSet (FunctionI)); 
if ^(NbOccur && ( (NbOccur* (NbLitt -1) -NbLitt) < Limit)) 
Nodel = GnlFunctionOnSet (FunctionI) ; 

/* We replace all occurences of 'Varl' by its expression */ 
/* Nodel. This variable 'Varl' is then removed from the Gnl. */ 
for (j=0; j<BListSize (GnlVarDads (Varl)); j++) 
{ 

DadJ = (GNL_NODE) BListElt (GnlVarDads (Varl), j); 
if (GnlVarlsVar ( (GNL_VAR) DadJ) ) 
{ 
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/* Actually 'DadJ' is a GNL_VAR */ 
FunctionJ = GnlVarFunction ( (GNL_VAR) DadJ) ; 
SetGnlFunctionOnSet (FunctionJ, Node I) ; 

else 

{ 

for (k=0; k<BListSize (GnlNodeSons (DadJ)); k++) 

NodeK = { GNL_NODE ) BLi s tEl t (GnlNodeSons (DadJ), 

k) ; 

if ( (GnlNodeOp (NodeK) == GNL_VARI ABLE ) && 
(Varl^== (GNL_VAR) GnlNodeSons (NodeK))) 

BListElt (GnlNodeSons (DadJ) , k) = (int) 
Node I ; 

} 

} 

} 
} 

BListQuickDelete (&GnlVarDads (Varl) ) ; 
SetGnlVarDads (Varl, NULL) ; 

/* We remove 'Varl' from the list locals of 'Gnl'. 
GnlRemoveVarFromGnlLocals (Gnl, Varl); 
BListElt (GnlFunctions (Gnl), i) = (int)NULL; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) -1) ; 

/* We remove 'Varl' from the hash table names of 'Gnl'. */ 
GnlRemoveVarFromGnlHashTableName (Gnl, Varl); 

GnlFunctionFree (GnlVarFunction (Varl)); 
GnlFreeVar (Varl) / 

} 

else if (GnlVarDads (Varl)) 
{ 

BListQuickDelete (&GnlVarDads (Varl) ) ; 
SetGnlVarDads (Varl, NULL) ; 

} 

} 

if (BListSize (GnlFunctions (Gnl))) 

{ 

fprintf (stderr, "%c Reinjecting glue logic (size = %d) [%d/%d] 

13, Limit, i, BListSize (GnlFunctions (Gnl))); 
f flush (stderr) ; 
fprintf (stderr, n \n ,f ) ; 

} 

if (BListCreate (&NewList) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

if (BListElt (GnlFunctions (Gnl), i) ) 

if (BListAddElt (NewList, 
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BListElt (GnlFunctions (Gnl) , i))) 
return (GNL MEMORY FULL) ; 

} 

} 

BListQuickDelete (&GnlFunctions (Gnl)) ; 
SetGnlFunctions (Gnl, NewList) ; 

GnlResetDacislnVar (Gnl) ; 

return (GNL_OK) ; 



} 

/ 



z* # 



/ 



/* Gnl Inject * 
/*--; */ 

/* This procedure re-injects local Funtions such that the relation */ 
/* below is verified: */ 

*/ 

/* F reinjected <=> (NbOccur (F) * (NbLitt (F) -1) - NbLitt(F) < Limit) */ 

*/ 

/* 

GNL_STATUS Gnllnject (Gnl, Limit) 
GNL Gnl ; 

int Limit; 

{ 

int i ; 

int NbLitt; 

int NbOccur; 

GNL_FUNCT I ON FunctionI ; 

GNL_VAR Varl; 

float MaxOccur; 

/* we sort the functions from the deepest to the highets ones. */ 
GnlSortFunctionsOnLevel (Gnl) ; 

GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. */ 
GnlGetNumberDadsFromGnl (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if (GnlVarDir (Varl) != GNL_VAR_LOCAL) 
continue; 

/* we substitute only LOCAL variables */ 
NbLitt = GnlNodeNbLitt (GnlFunctionOnSet (FunctionI)); 

NbOccur = (int)GnlVarDads (Varl) ; 

if ^(NbOccur && { (NbOccur* (NbLitt -1) -NbLitt) < Limit)) 

/* We replace all occurences of 'Varl' by its expression */ 
/* Node. This variable 'Varl' is then removed from the Gnl. */ 
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GnllnjectLocalVar (Gnl, FunctionI, &NbOccur) ; 

BListDelShif t (Gnl Functions (Gnl) , i+i) / 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) -1) ; 

GnlRemoveVarFromGnlLocals (Gnl, Varl) ; 
i--; 

} 

} 

GnlResetDadsInVar (Gnl) ; 
return (GNLJDK) ; 

} 



/* GnlGetSingleVarNode 



void GnlGetSingleVarNode (Nodel, Node2) 
GNL__NODE Nodel; 
GNLJSIODE *Node2; 

{ 

GNL_VAR Var; 

int i; 

GNL_NODE Nodel; 
GNL_NODE NewNodel; 



if (GnlNodeOp (Nodel) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Nodel); 
if (GnlVarDir (Var) != GNL VAR LOCAL) 
{ " " 

*Node2 = Nodel; 

return; 

} 

if (GnlVarDads (Var) != (BLIST)l) 

{ 

*Node2 = Nodel; 
return; 

} 

if (GnlVarFunction (Var) == NULL) 
{ 

*Node2 = Nodel; 
return; 

} 

*Node2 = GnlFunctionOnSet (GnlVarFunction (Var) ) ; 

/* if extra info stored on this node we do not collapse it */ 

if (GnlNodeHook (*Node2) (GnlMapNodelnf oOriginalCompo (*Node2))) 

*Node2 = Nodel; 
return; 

} 
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return; 

} 

if {GnlNodeOp (Nodel) == GNL CONSTANTE) 

{ 

*Node2 = Nodel; 
return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Nodel), i) ; 
GnlGetSingleVarNode (Nodel, &NewNodeI) ; 
BListElt (GnlNodeSons (Nodel), i) = (int) NewNodel ; 
} 

*Node2 = Nodel; 



/* GnlGetSingleVarNodeWithMaxLitt */ 



void GnlGetSingleVarNodeWithMaxLitt (Nodel, Node2 , MaxLitt) 
GNL_NODE Nodel; 
GNL_NODE *Node2; 
int MaxLitt; 

{ 

GNL_VAR Var; 
int i ; 

GNL_NODE Nodel; 
GNL_NODE NewNodel; 



if (GnlNodeOp (Nodel) == GNL CONSTANTE) 
{ 

*Node2 = Nodel; 
return; 

} 

if (GnlNodeOp (Nodel) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Nodel); 
if (GnlVarDir (Var) != GNL VAR LOCAL) 

{ ~ " 

*Node2 = Nodel; 
return; 

} 

if (GnlVarDads (Var) 1= (BLIST) 1) 
{ 

*Node2 = Nodel; 
return; 

} 

if (GnlVarFunction (Var) == NULL) 

{ 

*Node2 = Nodel; 
return; 
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} 

if (GnlNodeNbLitt (GnlFunctionOnSet ( 

GnlVarFunction (Var) ) ) >= MaxLitt) 

{ 

*Node2 = Nodel; 
return; 

} 

*Node2 = GnlFunctionOnSet (GnlVarFunction (Var) ) / 
return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 

{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Nodel), i) ; 
GnlGetSingleVarNodeWithMaxLitt (Nodel, &NewNodeI, MaxLitt) ; 
BListElt (GnlNodeSons (Nodel), i) = (int ) NewNode I; 
} 

* Node 2 = Nodel; 

} 

/* 

/* GnllnjectVarWithUniqueDad */ 
/* 

void GnllnjectVarWithUniqueDad (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_NODE NewNode; 
GNL_VAR Varl; 
GNL_FUNCT I ON FunctionI ; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI - GnlVarFunction (Varl) ; 
GnlGetSingleVarNode (GnlFunctionOnSet (FunctionI) , &NewNode) ; 
SetGnlFunctionOnSet (FunctionI, NewNode) ; 

} 

} 

/* 

/* GnllnjectVarWithUniqueDadWithMaxLitt */ 
/* 

void GnllnjectVarWithUniqueDadWithMaxLitt (Gnl, MaxLitt) 
GNL Gnl ; 

int MaxLitt; 

{ 

int i ; 

GNL_NODE NewNode; 
GNL_VAR Varl ; 
GNL_FUNCTION FunctionI ; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
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{ 

Varl = (GNL_JVAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
GnlGetSingleVarNodeWithMaxLitt (GnlFunctionOnSet (FunctionI) , 

&NewNode, MaxLitt) ; 
SetGnlFunctionOnSet (FunctionI, NewNode) ; 
} 

} 

/* 

/* GnlRemoveVarFromLocals */ 

/* 

void GnlRemoveVarFromLocals (Gnl, Var) 

GNL Gnl ; 

GNL_VAR Var; 

{ 

int i ; 



for (i=0; i<BListSize (GnlLocals (Gnl)); i++) 
{ 

if (Var == (GNL_VAR) BListElt (GnlLocals (Gnl), i) 

BListDellnsert (GnlLocals (Gnl), i+1) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) -1) ; 
break; 

} 

} 



/* 

/* GnlRemoveUnusedVar 

/* 

GNL_STATUS GnlRemoveUnusedVar (Gnl) 

GNL Gnl ; 

{ 

int i ; 

GNL_VAR VarJ; 

GNL_VAR Varl; 

BLIST NewList; 

BLIST HashTableNames ; 

BLIST Bucketl; 

int j ; 



GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. 
GnlGetNumberDadsFromGnl (Gnl) ; 

/* We reset the number of locals and recompute everything 
BListQuickDelete <&GnlLocals (Gnl) ) ; 
SetGnlNbLocal (Gnl, 0) ; 

if (BListCreate (&NewList)) 
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return (GNL_MEMORY_FULL) ; 
SetGnlLocals (Gnl, NewList); 

/* Removing the unused functions, 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if (GnlVarDir (Varl) ! = GNL_VAR_LOCAL ) 
continue; 

if (GnlVarDads (Varl) == 0) 
{ 

BListDellnsert (GnlFunctions (Gnl) , i+l) ; 
i--; 

} 

} 

/* Removing the unused GNL_VAR_LOCAL variables 
HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames) ; i++) 
{ 

Bucketl = (BL1ST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
switch (GnlVarDir (VarJ) ) { 
case GNL_VAR_LOCAL : 

if (GnlVarDads (VarJ) == 0) 
{ 

/* we do not free the buses. 

if (GnlVarRangeSize (VarJ) == 1) 

{ 

BListDellnsert (Bucketl, j+1) ; 
GnlFreeVar (VarJ) ; 

j--; 

} 

} 

else 
{ 

SetGnlNbLocal (Gnl, GnlNbLocal (Gnl)+1) 
if (BListAddElt (NewList, (int)VarJ)) 
return (GNL_MEMORY FULL) ; 

} 

break; 

case GNL_VAR_LOCAL__WIRING : 

SetGnlNbLocal (Gnl, GnlNbLocal (Gnl)+1); 
if (BListAddElt (NewList, (int)VarJ)) 

return ( GNL_MEMORY_FULL ) ; 
break; 

default : 
break; 

} 

} 

} 
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return (GNL_OK) ; 

} 



/* 

/* GnllnjectAllVarlnNode */ 

z* v 

void GnllnjectAllVarlnNode (Nodel, NewNode) 
GNL_NODE Nodel; 
GNL_NODE * NewNode ; 

{ 

int i ; 

GNL_NODE SonI ; 

GNL_FUNCT I ON Func t i on ; 
GNL_VAR Var; 



if (GnlNodeOp (Nodel) == GNL CONSTANTE) 

{ 

* NewNode = Nodel; 
return; 

} 

if (GnlNodeOp (Nodel) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) Gnl Node Sons (Nodel); 

if ( (GnlVarDir (Var) == GNL_VAR_INPUT) | | 

(GnlVarDir (Var) == GNL_VAR_LOCAL_WIRING) ) 

* NewNode = Nodel; 
return; 

} 

if {GnlVarFunction (Var) == NULL) 

{ 

*NewNode = Nodel; 
return; 

} 

Function = GnlVarFunction (Var) ; 
*NewNode = Gnl Func tionOnSet (Function) ; 
return; 

} 



for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Nodel), i) ; 

GnllnjectAllVarlnNode (SonI, NewNode) ; 

BListElt (GnlNodeSons (Nodel), i) = (int) (*NewNode) ; 



*NewNode = Nodel; 



/ 

/* GnllnjectAllVar */ 
/* '_ 
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GNL_STATUS Gnl In j ectAllVar (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_FUNCT I ON FunctionI ; 
GNLJSTODE NewNode; 



for (i = 0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 
GnllnjectAllVarlnNode (GnlFunctionOnSet (FunctionI) , &NewNode) ; 
SetGnlFunctionOnSet (FunctionI, NewNode); 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if (GnlVarDir (Varl) == GNL VAR LOCAL) 
{ ~ ~ 

BListDellnsert (GnlFunctions (Gnl) , i+l) ; 

i - - ; 

SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) -1) ; 

} 

BSize (GnlLocals (Gnl)) = 0; 
return (GNL_0K) ; 

} 

/* 

/* GnlGetDadsInGnlFromNode 

/* 

GNL_STATUS GnlGetDadsInGnlFromNode (Node, Father) 
GNL_N0DE Node; 
GNL_N0DE Father; 

{ 

int i ; 

GNL__VAR Var; 
GNL_N0DE SonI; 
BLIST NewList; 



if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
return (GNL_0K) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 

Var = (GNL^VAR) GnlNodeSons (Node) ; 
if (GnlVarDads (Var) == NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 
return ( GNL_MEMORY__FULL ) ; 
SetGnlVarDads (Var, NewList) ; 
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} 

if (BListAddElt (GnlVarDads (Var) , (int)Node)) 
return (GNL_MEMORY_FULL) ; 

if (Father == NULL) 
return (GNL_OK) ; 

if (GnlNodeDads (Node) == NULL) 
{ 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeDads (Node, NewList) ; 

} 

if (BListAddElt (GnlNodeDads (Node), (int) Father) ) 

return ( GNL_MEMORY_FULL ) ; 
return (GNLJDK) ; 

} 

if (GnlNodeDads (Node) == NULL) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlNodeDads (Node, NewList) ; 

} 

if (BListAddElt (GnlNodeDads (Node), (int) Father) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlGetDadsInGnlFromNode (SonI, Node)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlGetDadsInGnl 

/* 

GNL_STATUS GnlGetDadsInGnl (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_FUNCTION FunctionI ; 
GNL_NODE Node I ; 
BLIST NewList; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 
if (GnlNodeDads (Nodel) == NULL) 
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{ 

if (BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 
^SetGnlNodeDads (Nodel, NewList) ; 

if (BListAddElt (GnlNodeDads (Nodel) , (int)Varl)) 

return (GNL_MEMORY_FULL) ; 
if (GnlGetDadsInGnlFromNode (Nodel, NULL) ) 
return (GNL MEMORY FULL) ; 

} 

return (GNL OK) ; 



/* 

/* GnllnjectSingleVar */ 
/* 

/* This procedure re-injects local Funtions F such that NbOccur (F) is */ 
/* equal to 1. */ 
/* 1 

GNL_STATUS GnllnjectSingleVar (Gnl) 

GNL Gnl ; 

{ 

int i ; 

int NbOccur; 

GNL_FUNCT I ON Func t ionl ; 

GNL_VAR Varl; 

float MaxOccur; 

GnlResetDadsInVar (Gnl) / 

/* we compute the number of Dads for Variable. */ 
GnlGetNumberDadsFromGnl (Gnl) ; 

GnllnjectVarWithUniqueDad (Gnl) ; 

GnlResetDadsInVar (Gnl) ; 

/* we remove the unused variables. */ 
if (GnlRemoveUnusedVar (Gnl)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 

/* GnllnjectSingleVarQuick */ 
/* ' 

I* Quick version of 'GnllnjectSingleVar*. */ 

/* This procedure re-injects local Funtions F such that NbOccur (F) is */ 

/* equal to 1 . */ 

/* ' 

GNL_STATUS GnllnjectSingleVarQuick (Gnl) 
GNL Gnl ; 

{ 
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int i ; 

int NbOccur; 

GNL_FUNCTI ON Funct ionl ; 

GNL_VAR Varl ; 

float MaxOccur; 



return (GNLJDK) ; 

} 

/* 

/* GnllnjectSingleVarWithMaxLitt */ 

/* 

/* This procedure re-injects local Funtions F such that NbOccur <F) is 

/* equal to 1 and Number of litt. of F are less than MaxLitt 

/* 

GNL_STATUS GnllnjectSingleVarWithMaxLitt (Gnl, MaxLitt) 
GNL Gnl ; 

int MaxLitt; 

{ 

int i ; 

int NbOccur; 

GNL_FUNCTI ON FunctionI ; 

GNL_VAR Varl ; 

float MaxOccur ; 



GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. */ 
GnlGetNumberDadsFromGnl (Gnl) ; 

GnllnjectVarWithUnigueDadWithMaxLitt (Gnl, MaxLitt) ; 
GnlResetDadsInVar (Gnl) ; 

/* we remove the unused variables. */ 
if (GnlRemoveUnusedVar (Gnl)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 

/* Gnllnject */ 

/* 

GNL_STATUS Gnllnj ectWithMaxDepth (Gnl, Limit) 
GNL Gnl ; 

int Limit; 

{ 

int i ; 

int NbLitt; 
int NbOccur; 
GNL_FUNCTION FunctionI ; 
GNL_VAR Varl ; 
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float MaxOccur; 

int MaxLevel; 

int Level; 



GnlSortFunctionsOnlnvertLevelStoreLevel (Gnl) ; 
Varl = (GNL_VAR)BListElt (Gnl Functions (Gnl), 0) ; 
MaxLevel = (int ) GnlVarHook (Varl); 
printf ("Maxlevel = %d\n", MaxLevel); 

GnlResetDadsInVar (Gnl) ; 

/* we compute the number of Dads for Variable. */ 
GnlGetNumberDadsFromGnl (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if (GnlVarDir (Varl) ! = GNL_VAR_LOCAL ) 
continue; 

/* we substitute only LOCAL variables */ 
Level = (int) GnlVarHook (Varl); 

NbOccur = (int)GnlVarDads (Varl) ; 

if (Level >= MaxLevel-2) 

{ 

/* We replace all occurences of 'Varl' by its expression */ 
/* Node. This variable 'Varl' is then removed from the Gnl. */ 
GnllnjectLocalVar (Gnl, FunctionI, &NbOccur) ; 

GnlRemoveVarFromGnlLocals (Gnl, Varl) ; 
BListDelShift (GnlFunctions (Gnl), i+l) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl)-l); 

i-- ; 

} 

} 

GnlResetDadsInVar (Gnl) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
SetGnlVarHook (Varl, NULL) ; 

} 

return (GNL_0K) ; 



/* EOF */ 
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File: 


gnllinklib.c 




VerQ "i on • 


1 . 1 




Modifications : 






Documentation : 






Description : 




*/ 



#include <stdio.h> 



#ifdef MEMORY 
#include <malloc.h> 
#endif 



/* If one wants memory statistics for SUN */ 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 



"blist .h M 
"gnl.h" 
"gnlmint .h" 
"bbdd.h" 
"libc_mem.h" 
n libc_api .h" 
"gnllibc.h" 
"gnlestim. h" 
"gnlmap.h" 



#include "blist . e " 



/* 

/* EXTERN 
/* 



/* 

/* GnlCreateLinkLibraryHashTable 

/* 

/* This procedure scans the LIBC 'GnlLibC and stores each cell in a 
/* Hash table. Each cell is stored according to its name. */ 
/* 

#define LINK_LIBJKASH_TABLE_SIZE 100 

GNL_STATUS GnlCreateLinkLibraryHashTable (GnlLibc, LibHashTable) 
LIBC_LIB GnlLibc; 
BLIST *LibHashTable / 

{ 

int i ; 
LIBC_CELL Cell I; 

unsigned int Key; 
BLIST NewList; 



if (BListCreateWithSize ( L INK_L I B__HAS H_TAB L E__S 1 2 E , LibHashTable)) 
return (GNL_MEMORY_FULL) ; 

for (i = 0; i<LINK_LIB_HASHJTABLE SIZE; i + + ) 
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{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY__FULL) ; 
if (BListAddElt ( *LibHashTable , (int) NewList ) ) 

return (GNL_MEMORY_FULL) ; 

} 

Celll = LibCells (GnlLibc) ; 

for (; Celll 1= NULL; Celll = LibCellNext (Celll)) 
{ 

Key = KeyOfName (LibCellName (Celll), LINK_LIB_HASH_TABLE_SIZE) ; 
NewList = (BLIST) BListElt ( *LibHashTable , Key); 
if (BListAddElt (NewList, (int)Celll)) 
return (GNL__MEMORY_FULL) ; 

} 

return (GNLJDK) ; 

} 



/* 

/* GnlLinkLibRec 

/* 

GNL_STATUS GnlLinkLibRec (Nw, Gnl, LibHashTable) 

GNL_NETWORK Nw; 

GNL Gnl ; 

BLIST LibHashTable ; 

{ 

GNL TopGnl ; 

BLIST Components; 

GNL_COMPONENT Component I ; 
GNL_USER__COMPONENT UserCompol ; 
int i ; 

int j ; 

GNL GnlCompol ; 

unsigned int Key; 

BLIST NewList; 
LIBC_CELL CellJ; 

BLIST Interface; 



/* Already traversed and considered this 'Gnl'. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI « (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) i= GNL_USER_COMPO) 
continue ; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 
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/* If the component 'UserCompoI 1 has no Gnl definition. */ 
if (!GnlCompoI) 

{ 

/* Right now no lib cell definition for 'UserCompoI*. */ 

/* No definition so it can be a direct library cell */ 
Key = KeyOfName (GnlUserComponentName (UserCompoI) , 

L INK__L IB_HASH_TABLE__S I ZE ) ; 
NewList = (BLIST) BListElt (LibHashTable , Key); 
for (j=0; j<BListSize (NewList); j++) 
{ 

CellJ - (LIBC_CELL) BListElt (NewList, j); 
if (Istrcmp (GnlUserComponentName (UserCompoI), 
LibCellName (CellJ) ) ) 

{ 

/* We link the component with its corresponding */ 
/* library cell. */ 

SetGnlUserComponentCellDef (UserCompoI, CellJ) / 
break; 

} 

} 

if ( !GnlUserComponentCellDef (UserCompoI)) 
{ 

f print f (stderr, 

"# WARNING: component <%s> has no corresponding library cell\n", 
GnlUserComponentName (UserCompoI) ) ; 

continue ; 

} 

/* It is a user box and we scan recursively. */ 
if (GnlLinkLibRec (Nw, GnlCompol, 

LibHashTable) ) 

return { GNL_MEMORY FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlLinkLib */ 

/* 1 

/ */ 

/* This procedure analyzes recursively the netlist 'Gnl' and makes the */ 

/* link between each GNL_USER_COMPONENT and their corresponding cell in */ 

/* the LIBC library. From a GNL__USER_COMPONENT ' compo 1 this cell is */ 

/* accessible thru field ' Gn lUser Component CellDef (compo) 1 */ 

/* 

GNL_STATUS GnlLinkLib (Nw, Gnl, GnlLibc) 
GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLibc; 

{ 

BLIST LibHashTable ; 
int i ; 

BLIST NewList; 
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if (GnlCreateLinkLibraryHashTable (GnlLibc, ^LibHashTable) ) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (GnlLinkLibRec (Nw, Gnl, LibHashTable) ) 
return ( GNL_MEMORY_FULL ) ; 

/* Freeing the 'LibHashTable' hash table. */ 
for (i=0; i<BListSize (LibHashTable); i++) 

{ 

NewList = (BLIST) BListElt (LibHashTable, i) ; 
BListQuickDelete (&NewList) ; 

} 

BListQuickDelete (&LibHashTable) ; 
return (GNL_OK) ; 
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/* */ 

/* */ 

/* File: gnlmain.c */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* Class: none */ 

/* Inheritance: */ 

/* */ 
/* */ 

#include <stdio.h> 

#include "blist.h" 

#include "gnl.h" 

#include "gnlopt .h" 

#include "bbdd.h" 

#include "libc_mem.h ir 

# inc lude " 1 ibc_ap i . h " 

ttinclude "gnllibch" 

#include "gnloption.h" 

/* */ 

/* GLOBAL VARIABLE */ 

/* */ 

extern GNL_ENV G_GnlEnv; 

/* */ 

/* GnlPrintlnvite */ 

/* */ 

void GnlPrintlnvite ( ) 

{ 

int i ; 

fprintf (stderr, "# 

# \ n n) . 

fprintf (stderr, "# 
#\n») ; 

fprintf (stderr, 

"# %s version %s - RTL Prediction & Synthesis 
GNL JTOOL JSTAME , 
GNL_MAP I T_VERS I ON ) ; 
for (i=0; i<strlen (GNL_MAPIT_VERSION) ; i++) 

fprintf (stderr, " "); 
fprintf (stderr, "#\n"); 
fprintf (stderr, "# 
#\n f ») ; 

fprintf (stderr, "# Copyright (c) Avant I Corporation 1994-99, All rights 
reserved. #\n"); 

fprintf (stderr, "# 
#\n») ; 

fprintf (stderr, "# 

# \ n „) . 



} 
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/* 

/ * main 

/* 

int main (argc, argv) 
int argc; 
char **argv; 



{ 



GnlPrint Invite () ; 

/* This call creates and set global variable ? G_GnlEnv f . Options 
/* will be stored in this object. */ 
if (GnlCreateGnlEnv ()) 
exit (1); 

/* we parse and analyze the options and store them in global env. 
/* variable 'G__GnlEnv ? . */ 
GnlParseCommandLine (G_GnlEnv, argc, argv) ; 

/* We check if the required options are set. */ 
GnlCheckOptions (G_GnlEnv) ; 

/* we are in the Verification mode. */ 
switch (GnlEnvMode ( ) ) { 

case GNL_MODE_VER I F I CAT I ON : 

if (GnlEcVerif ication ()) 

exit (1); 
exit (0) ; 

case GNL_MODE_TRANSLATE : 

if (GnlTranslate ()) 

exit (1) ; 
exit (0) ; 

case GNL_MODE_SYNTHESIS : 

if (GnlSynthesize ()) 

exit (l) ; 
exit (0) ; 

case GNL_MODE_ESTIMATION: 
if (GnlEstimate () ) 

exit (1); 
exit (0) ; 

case GNL_MODE_POST_OPTIMIZATION: 
if (GnlPostOptimize ()) 

exit (l); 
exit (0) ; 
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/* ie/ 

/* */ 

/* File: gnlmint.c */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 
/* 

#include <stdio.h> 
# inc lude " gnlmint . h " 

/* ie/ 

/* MintlnitWithValue */ 
/* ±i 



void MintlnitWithValue (cells, nb_cells, value) 
unsigned *cells; 
int nb_cells; 
unsigned value; 



{ 

while (nb_cells--) 

*(cells++) = value; 

} 

/* ie/ 

/* Mint Create */ 

/* 



MINT_STATUS MintCreate (nb_cells, cells) 
int nb_cells; 
unsigned **cells; 

{ 

if {(*cells = (unsigned *) calloc ((unsigned) (nb_cells +1 ), 



(unsigned) sizeof (unsigned) ) ) == NULL) 
return (MINT_MEMORY_FULL) / 

return (MINT_OK) ; 

} 

/* it/ 

/* MintCreatelnitValue */ 

/* 



M INT_S TATUS MintCreatelnitValue (nb_cells # value, cells) 
int nb_cells; 
unsigned value; 
unsigned **cells; 

{ 

M I NT_S TATUS MintStatus ; 



if ((MintStatus = MintCreate (nb_cells, cells))) 
return (MintStatus) ; 

MintlnitWithValue ((*cells), nb_cells, value); 
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return (MINT_OK) ; 

} 

/* 

/* MintCreatelnitO 

/* 

MINT_STATUS MintCreatelnitO (nb_cells, cells) 
int nb_cells; 
unsigned **cells; 

{ 

^ return (MintCreatelnitValue (nb_cells # 0, cells)); 

/* 

/* MintCardinalOneCell 

/* 

int MintCardinalOneCell (cell) 
unsigned cell; 

{ 

int card; 

card = 0; 
while (cell) 

{ 

card++; 

cell &= (cell - l) ; 

}; 

return (card) ; 

} 

z* 

/* MintCardinalAllCells 

/* 

int MintCardinalAllCells (cells, nb_cells) 
unsigned *cells; 
int nb cells; 

{ 

int card; 
card = 0; 

cells += nb_cells; 

while (nb_cells~-) 

card += MintCardinalOneCell (*( --cells) ) ; 

return (card) ; 

} 

/* 

/* Mint Copy 

/* 

MINT_STATUS MintCopy (cells, nb_cells, copy_cells) 
unsigned *cells; 
int nb_cells; 
unsigned **copy_cells ; 
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if (MintCreate (nb_cells, copy_cells) ) 
return ( M INT_MEMORY_FULL ) ; 

if { (*copy_cells) ! = NULL) 
while (nb_cells--) 

(*copy_cells) [nb_cells] = cells [nb_cells] ; 

return (MINT_OK) ; 

} 

/* 

/* MintBitValue 

/* 

int MintBitValue (mint, index) 
unsigned *mint; 
int index; 

{ _ 

int cell__number ; 
int rank_in_cell; 



locate (index, BITS_PER_INT, cell_number, rank_in_cell ) ; 
return ( (mint [cell_number] & (1 << (rank_in_cell -1))) 1 = 0) ; 

/* 

/'* MintLocateFirstOne * / 
/* 

int MintLocateFirstOne (Mint, NbCells, CellNb, VarMask) 
unsigned *Mint; 
int NbCells ; 

int * CellNb; 

unsigned * VarMask; 

{ 

while (NbCells-- I Mint [NbCells] ) ; 

if ((NbCells >= 0) ScSc (*VarMask = Mint [NbCells] ) ) 
{ 

*CellNb = NbCells; 

*VarMask &= ~(*VarMask - 1) ; 

return (1) ; 

} 

return (0) ; 

} 



/* 

/* MintNotNull 

/* 

int MintNotNull (cells, nb_cells) 
unsigned *cells; 
int nb__cells; 

{ 
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while (nb_cells - - ) 
if (*(cells++)) 
return (1) ; 
return (0) ; 

} 

/* 

/* Mintldentical 

/* 

int Mintldentical (cellsl, cells2, nb__cells) 
unsigned *cellsl; 
unsigned *cells2; 
int nb_cells; 

{ 

while (nb_cells--) 

if (cellsl [nb_cells] != cells2 [nb_cells] ) 
return (0) ; 
return (1) ; 

} 



/* 

/* MintAddOneCell 

/* 

unsigned MintAddOneCell (cell, added__value) 
unsigned *cell; 
unsigned added_value; 

{ 

if (*cell <= ~0 - added value) 

{ 

*cell += added_value; 
return (0) ; 

} 

(*cell) -= -0 - added_value; 
(•cell) --; 
return (1) ; 

} 

/* 

/* Mint Increment 

/* 

unsigned Mintlncrement (cells, nb_cells) 
unsigned *cells; 
int nb cells; 

{ 

unsigned carry; 
do 

carry = MintAddOneCell (cells++, 1) ; 
while (carry && ( --nb_cells) ) ; 

return (carry) ; 

} 
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MintSetBitValue 


*/ 




Set the index-th bit of mint to 1. 




*/ 



/* 
/* 
/* 



/* 

void MintSetBitValue (mint, index) 

unsigned *mint; 

int index ; 

{ , 

int cell_number; 
int rank in cell; 



MintResetBitValue 


*/ 




Set the index-th bit of mint to 0. 




*/ 



locate (index, BITS_PER_INT, eel l_number, rank_in_cell) ; 
mint [eel l_number] |= (1 << (rank in cell - 1) ) ; 

} 



/* 
/* 
/* 

/* 
/* 

void MintResetBitValue (mint, index) 
unsigned *mint; 
int index ; 

{ 

int cell_number; 
int rank_in_cell; 

locate (index, BITS_PER_INT, cell_number, rank_in_cell) 
mint [eel l_number] &= ~{l << (rank in cell - 1) ) ; 

} 



/* 

/* MintNOT 

/* 

M INT_S TATXJS MintNOT (opl, nb_cells, result) 
unsigned *opl; 
int nb_cells; 
unsigned ** re suit; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, &res) ) 
return (MINT_MEMORY_FULL) ; 

* re suit = res; 
while (nb_cells--) 

*{res++) = -*(opl++); 

return (MINTjDK) ; 

} 
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/* MintAND 
/* 

MINT_STATUS MintAND (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 

int nb_cells; 

unsigned **result; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, &res)) 
return <MINT_MEMORY_FULL) ; 

*result = res; 
while (nb_cells--) 

*(res++) = *(opl++) & *(op2++); 

return (MINT_OK) ; 

} 



/* 

/* MintXNOR 

/* 

MINT__STATUS MintXNOR (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 
int nb_cells; 
unsigned **result; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, ires) ) 
return (MINT_MEMORY_FULL) ; 

*result = res; 
while (nb__cells- -) 

*(res++) = -(*(opl++) " *( 0 p2++)) ; 

return (MINT OK) ; 

} 



/* 

/* MintNOTNoCreate */ 
/* 

int MintNOTNoCreate (opl, res, nb_cells) 
unsigned *opl; 
unsigned *res; 
int nb_cells; 

{ 

int exists; 

exists = 0; 

while (nb cells--) 
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if (*(res++) = ~(*(opl++) 
exists = 1; 



return (exists) ; 

} 



/* 

/* MintANDNoCreate 

/* 

int MintANDNoCreate (opl, op2 , res, nb_cells) 

unsigned *opl; 

unsigned *op2 ; 

unsigned *res; 

int nb_cells; 

{ 

int exists; 

exists = 0; 

while (nb_cells--) 

if (*{res++) = * (opl++) & * (op2++) ) 
exists = 1; 

return (exists) ; 

} 



/* 

/* MintORNoCreate 

/* 

int MintORNoCreate (opl, op2 , res, nb_cells) 
unsigned *opl; 
unsigned *op2; 
unsigned *res; 
int nb_cells; 

{ 

int exists; 

exists = 0; 

while (nb_cells--) 

if (*(res++) = *(opl++) | * (op2++) ) 
exists = 1; 

return (exists) ; 

} 



/* 

/* MintNORNoCreate 

/* 

int MintNORNoCreate (opl, op2 , res, nb_cells) 
unsigned *opl; 
unsigned *op2; 
unsigned *res; 
int nb cells; 

{ 

int exists; 
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exists = 0; 

while (nb_cells-- ) 

if (Mres++) = -(*{opl++) | * (op2++) ) ) 
exists = 1; 

return (exists) ; 

} 



/* MintXORNoCreate 



int MintXORNoCreate (opl, op2 , res, nb_cells) 
unsigned *opl; 
unsigned *op2; 
unsigned *res; 
int nb_cells; 

{ 

while (nb_cells~-) 

*(res++) = * (opl++) A *(op2++); 



/* 

/* MintXNORNoCreate */ 
/* [ 

int MintXNORNoCreate (opl, op2 , res, nb_cells) 
unsigned *opl; 
unsigned *op2 ; 
unsigned *res; 
int nb cells; 

{ 

while (nb__cells- - ) 
^ *(res++) = ~<*(opl++) A *(op2++)); 



/* Mintlncluded 



int Mintlncluded (cellsl, cells2, nb_cells) 
unsigned *cellsl; 
unsigned *cells2; 
int nb cells; 

{ 

while (nb_cells--) 

if (*(cellsl++) & ~* (cells2++) ) 
return (0) ; 

return (1) ; 

} 



/* 

/* Mint OR 
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/* 

MINT_STATUS MintOR (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 

int nb_cells; 
unsigned **result ; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, &res) ) 
return ( M INT_MEMORY_FULL ) ; 

*result = res; 



while (nb_cells--) 

*(res++) = *{opl++) | *(op2++); 

return (MINT OK) ; 

} 



/* 

/* MintNAND 

/* 

MINT_STATUS MintNAND (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 
int nb_cells; 
unsigned **result ; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, &res) ) 

return (MINT_MEMORY__FULL) ; 

*result = res; 
while (nb_cells--) 

*(res + + ) = ~{*(opl++) Sc *(op2++)) ; 

return (MINT OK) ; 

} 



/* 

/* MintNANDNoCreate 

/* 

int MintNANDNoCreate (opl, op2 , res, nb_cells) 
unsigned *opl; 
unsigned *op2; 
unsigned *res; 
int nb cells; 

{ 

int exists; 
exists = 0/ 
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while (nb_cells--) 

if (Mres++) = ~(*(opl++) & *(op2++))) 
exists = 1; 
return (exists) ; 

} 



/* 

/* MintNOR 

/* 

MINTJSTATUS MintNOR (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 

int nb_cells; 
unsigned * *resul t ; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, &res) ) 
return (MINT_MEMORY_FULL) ; 

*result = res; 

while (nb_cells--) 

*(res++) = -(*(opl++) | *(op2++)) ; 

return (MINT_OK) ; 

} 



/* 

/* MintXOR 

/* 

M I NT_S TATUS MintXOR (opl, op2 , nb_cells, result) 

unsigned *opl; 

unsigned *op2; 

int nb_cells; 
unsigned **result; 

{ 

unsigned *res; 



if (MintCreate (nb_cells, Seres)) 
return (MINT_MEMORY_FULL) ; 

*result = res; 
while (nb_cells--) 

*(res++) = *(opl++) A *(op2++) 



return (MINT_OK) ; 

} 
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/* 






/* 


File: 


gnlmint . h 


/* 


Version: 


1.1 


/* 


Modifications : 




/* 


Documentation: 




/* 






/* 


Description : 




/* 













#ifndef GNLMINT_H 
#define GNLMINT_H 

/* 

/* MINT_STATUS 

/* 

typedef enum { 

MINT_OK, 

M INT_MEMORY_FULL 
} MINT_STATUS ; 

/* 

/* Macros 

/* 

#define BITS_PER_INT (8*sizeof (int) ) 

#def ine NbOf Cells (NbVar, CellSize) \ 

( (NbVar) ? (1+ { (int) { ( (NbVar) -1) / (CellSize) ))):!) 

#define locate (Varlndex, CellSize, CellNumber, RanklnCell) \ 

(RankInCell= (int) ( (Varlndex) - (CellNumber= (int) ( ( (Varlndex) - 
1) / (CellSize) ) ) * (CellSize) ) ) 



#define IntDiff(x,y) ( (x) > (y) ? (x) - (y) : (y) - ( x ) ) 
#def ine MintHasMoreOrLessThanOne_l ( I ) \ 

((I) M o ? -1 : ((I) & ((I) - 1) ? 1 : 0)) 

/* EOF 

#endif 
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/* */ 

/* */ 

/* File: gnlopt.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 
/* */ 



#include <stdio . h> 



#ifdef MEMORY 
#include <malloc .h> 
#endif 



/* If one wants memory statistics for SUN */ 



O 

a r? 

ru 

I s 2 



#include 
#include 
#include 
#include 
#include 
# include 
#include 
#include 
#include 



"blist .h" 

"gnl .h" 

"gnlmint . h" 

"gnlopt -h" 

"bbdd.h" 

" libc_mem.h" 

"libc_api.h" 

"gnllibc.h" 

"gnloption.h" 



# inc lude " b 1 i s t . e " 



/* 

/* EXTERN 

/* 

extern GNL_STATUS 
extern GNL_S TATUS 
extern GNL_S TATUS 
extern GNL_STATUS 
extern GNL_STATUS 
extern GNL_S TATUS 
extern double 
extern GNL ENV 



/* 
/ 
/ 



LsDivGainFunction () ; 
LsDivChoiceFunction {) ; 
LsExtractGainFunction () ; 
XiSExtractChoiceFunction () ; 
LsDivGainFunctionEqGates () ; 
LsExtractGainFunctionEqGates 
GnlGetNetworkGateArea () ; 
G GnlEnv; 



■*/ 
-*/ 



0 



Global variables. 


*/ 


__OPT_PANEL G_OptPanel; 


GnlOptCreatePanel 


*/ 



/' 

h 
h 

GNL_S TATUS GnlOptCreatePanel (NewOptPanel) 
LS_OPT_PANEL *NewOptPanel ; 

{ 

if ( ( (*NewOptPanel) = (LS_OPT_PANEL) 

calloc (1, sizeof (LS_OPT_PANEL_REC) ) ) == NULL) 
return (GNL MEMORY FULL) ; 



*/ 
*/ 

*/ 
*/ 
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return (GNL_OK) ; 



/* 

/* GnlOptSetDefaultPanel 

/* 

void GnlOptSetDefaultPanel (OptPanel) 
LS_OPT_PANEL OptPanel ; 

{ 

float CombGates; 
float SeqGates; 



SetLsOptPanelDoOpt (OptPanel, 1) ; 
SetLsOptPanelDoDiv (OptPanel, 1) ; 
SetLsOptPanelDoExt (OptPanel, 1) ; 

SetLsOptPanelMaxDivKer (OptPanel, 5000); 
SetLsOptPanelMaxExtKer (OptPanel, 1000) ; 

SetLsOptPanelDivGainFunc (OptPanel, LsDivGainFunction) ; 
SetLsOptPanelDivChoiceFunc (OptPanel, LsDivChoiceFunction) ; 

SetLsOptPanelExtGainFunc (OptPanel, LsExtractGainFunction) ; 
SetLsOptPanelExtChoiceFunc (OptPanel, LsExtractChoiceFunction) ; 

SetLsOptMaxLitToInject (OptPanel, 1) ; 
SetLsOptMaxFlattenCubes (OptPanel, 200); 

} 

/* 

/* GnlCreateSynthesisPanel */ 
/* / 

GNL_STATUS GnlCreateSynthesisPanel (Force, Criter, Inject, Panel) 
GNL_OPT_FORCE Force ; 
GNL_CRITERION Criter; 
int Inject; 
LS_OPT_PANEL * Panel ; 



/* Setting the Optimization panel values 
if (GnlOptCreatePanel (Panel)) 
return ( GNL_MEMORY_FULL) ; 

GnlOptSetDefaultPanel ( (*Panel) ) ; 

if (Force == GNL LOW OPT) 

{ 

/* We inhibit the optimisation phase. 
SetLsOptPanelDoOpt ( (*Panel) , 0) ; 
SetLsOptPanelMapEf fort ( (*Panel) , 0) ; 

else if (Force == GNL MED OPT) 

{ " " 

SetLsOptMaxFlattenCubes ( (*Panel) , 200); 
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SetLsOptPanelMapEf fort ( (*Panel) , 0) ; 

} 

else 

{ 

SetLsOptPanelDoOpt ( (*Panel) , 2) ; 
SetLsOptMaxFlattenCubes ( (*Panel) , 400) ; 
SetLsOptPanelMapEf fort ( (*Panel) , 1) ; 

} 



if (Criter == GNL_AREA) 

SetLsOptPanelCriter ( (*Panel) , 1); /*Area */ 

else 

SetLsOptPanelCriter ( (*Panel) , 0); /* Timing */ 

SetLsOptMaxInject ( (*Panel) , Inject) ; 
return (GNL_pK) ; 

} 

/* i(/ 

/* GnlPerf ormAutomatic Inject */ 

/* it/ 

/* we perform an automatic injection of the Gnl . The injection takes */ 

/* account the features of the Gnl (number litterals, ..). This */ 

/* must be studied in order to improve the performances. */ 

/* 

GNL_STATUS GnlPerf ormAutomatic In j ect (Gnl, OptPanel) 
GNL Gnl ; 

LS_OPT_PANEL OptPanel ; 

{ 

GNL_INFO Gnl Info; 



/* We do not enter for now in this branch because we need to improve */ 
/* the automatic flattening. */ 
if (Gnl Inject (Gnl, LsOptMaxLitToInj ect (OptPanel))) 

return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

if (GnlGetGnllnfo (Gnl, &GnlInfo) ) 
return (GNL_MEMORY_FULL) ; 

if (GnllnfoNbLit (Gnllnfo) < 500) 
{ 

if (Gnllnject (Gnl, 100)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (Gnllnject {Gnl, LsOptMaxLitToInject (OptPanel))) 
return ( GNL_MEMORY_FULL) ; 

} 

free (Gnllnfo) ; 
return (GNL_OK) ; 

} 
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/* 

/* GnlLiteralCompare 

/* 

/* Comparison function to compare the number of literals between 2 Gnls 
/* 

int GnlLiteralCompare (Gnll, Gnl2) 
GNL *Gnll; 
GNL *Gnl2; 

{ 

int NbLitl; 
int NbLit2; 



NbLitl = GnlNbLitt (*Gnll) ; 
NbLit2 = GnlNbLitt (*Gnl2) ; 



if (NbLitl < NbLit2) 
return (1) ; 

if (NbLitl « NbLit2) 
return (0) ; 

return (-1) ; 



/* 

/* GnllsoListCmp 

/* 

/* Comparison function to compare the complexity of two Iso lists */ 
/* 

int GnllsoListCmp (IsoListl, IsoList2) 

BLIST *IsoListl; 

BLIST *IsoList2; 

{ 

int NbLitl 
int NbLit2 j 

int NbGnll; 
int NbGnl2, 
int Complexl; 
int Complex2 ; 



NbLitl - GnlNbLitt ( (GNL) BListElt (*IsoListl, 0) ) ; 

NbLit2 = GnlNbLitt ( (GNL) BListElt (*IsoList2, 0) ) ; 

NbGnll = (BListSize (*IsoListl) == 1 ? 1 : BListSize (*IsoListl) -3) ; 

NbGnl2 = (BListSize (*IsoList2) 1 ? l : BListSize (*IsoList2 ) - 3 ) ; 

Complexl = NbLitl*NbGnll; 
Complex2 = NbLit2 *NbGnl2 ; 

if (Complexl < Complex2) 
return (1) ; 

if (Complexl > Complex2) 
return ( -1) ; 



D-GNL2-90 



gnlopt.c 



return (0) ; 



/* */ 

/* GnlSortListOfGnl */ 

/* */ 

/* This procedure computes the number of literals of each Gnl and store */ 
/* the information in the Gnl structure. Then it sorts the list of Gnls */ 
/* according to the number of literals of each Gnl. */ 
/* */ 

void GnlSortListOfGnl (ListGnls) 
BLIST ListGnls; 



{ 



int i ; 

GNL Gnll; 
int NbLit; 



for <i=0; i<BListSize (ListGnls) ; i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
NbLit = GnlGetGnlNbLiterals (Gnll) ; 
SetGnlNbLitt (Gnll, NbLit); 

} 



qsort (BListAdress (ListGnls), BListSize (ListGnls), sizeof (GNL) , 
Gnl Literal Compare) ; 



/* */ 

/* GnlSortListOfHashListlsoGnls */ 

/* */ 

/* we sort the iso gnls sub-lists in the decreasing order of the */ 
/* NbLit (RefGnl) *BListSize (sub-list). */ 
/* */ 

void GnlSortListOfHashListlsoGnls (HashListlsoGnls) 
BLIST HashListlsoGnls ; 

{ 



qsort (BListAdress (HashListlsoGnls) , BListSize (HashListlsoGnls) , 
sizeof (BLIST) , GnllsoListCmp) ; 

} 



z* */ 

/* GnllsomorphNodes */ 

/* */ 

int GnllsomorphNodes (Nodel, Node2) 
GNL_NODE Nodel; 
GNL_NODE Node2; 

{ 

int i ; 

GNL_VAR Varl; 
GNL_VAR Var2 ; 

BLIST Sonsl; 



D-GNL2-91 



gnlopt.c 



BLIST 
GNL_NODE 
GNL NODE 



Sons2 ; 

Nodell; 

Node2I; 



if (GnlNodeOp (Nodel) ! = GnlNodeOp (Node2) ) 
return (0) ; 

if (GnlNodeOp (Nodel) == GNL__CONSTANTE ) 

return ( (GnlNodeSons (Nodel) == GnlNodeSons (Node2))) 

if (GnlNodeOp (Nodel) == GNL_VAR I ABLE ) 
{ 

Varl = (GNL_VAR) GnlNodeSons (Nodel); 
Var2 = (GNL__VAR) GnlNodeSons (Node2); 

if (GnlVarHook (Varl)) 

{ 

if (GnlVarHook (Varl) i= (void*)Var2) 

return (0) ; 
return (1) ; 

} 

if (GnlVarlsVss (Varl) ) 
{ 

if (GnlVarlsVss (Var2) ) 

return (1) ,* 
return (0) ; 

} 

if (GnlVarlsVdd (Varl)) 
{ 

if (GnlVarlsVdd (Var2)) 

return (1) ; 
return (0) ; 

} 

SetGnlVarHook (Varl, Var2) ; 
return (1) ; 

} 

Sonsl = GnlNodeSons (Nodel) ; 
Sons2 = GnlNodeSons (Node2) ; 
if (BListSize (Sonsl) != BListSize (Sons2) ) 
return (0) ; 

for (i=0; i<BListSize (GnlNodeSons (Nodel)); i++) 
{ 

Nodell = ( GNL__NODE ) BLi s t E 1 1 (Sonsl, i); 
Node2I = (GNL_NODE) BListElt {Sons2, i) ; 
if { IGnllsomorphNodes (Nodell, Node2I) ) 
return (0) ; 

} 

return (1) ; 
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/* 

/* Gnl Are Isomorphic */ 

/* 

/* This procedure returns 1 if the two Gnls are strictly isomorph and 

/* 0 otherwise. */ 

/* 

int GnlArelsomorphic (Gnll, Gnl2) 



GNL 
GNL 



Gnll; 
Gnl2; 



int 

GNL_VAR 

GNL_VAR 

GNL_VAR 

GNL_FUNCTION 

GNL_FUNCT ION 

GNL_NODE 

GNL NODE 



le- 



vari 
Outl 
Out 2 



Functionl ; 
Function2 ; 



Nodel; 
Node 2 ; 



if (BListSize (Gnllnputs (Gnll)) !=BListSize (Gnllnputs (Gnl2) ) ) 
return (0) ; 

if {BListSize (GnlOutputs (Gnll)) != BListSize (GnlOutputs (Gnl2))) 
return (0) ; 

if (BListSize (GnlLocals (Gnll)) 1= BListSize (GnlLocals (Gnl2) ) ) 
return (0) ; 

/* We reset the link var (using Hook field) for inputs/outputs/ locals 
/* before verifying the isomorphism. */ 
for (i=0; i<BListSize (Gnllnputs (Gnll)); i++) 
{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnll), i) ; 
SetGnlVarHook (Varl, NULL) ; 

} 

for (i=0; i<BListSize (GnlOutputs (Gnll)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnll), i) ; 
SetGnlVarHook (Varl, NULL); 

} 

for (i=0; i<BListSize (GnlLocals (Gnll)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnll), i) ; 
SetGnlVarHook (Varl, NULL) ; 

} 

for (i=0; i<BListSize (GnlOutputs (Gnll)); i++) 
{ 

Outl = (GNL_VAR) BListElt (GnlOutputs (Gnll), i) ; 
Out2 - (GNL_VAE) BListElt (GnlOutputs (Gnl2), i) ; 
Functionl = GnlVarFunction (Outl) ; 
Function2 = GnlVarFunction (0ut2) ; 
Nodel = GnlFunctionOnSet (Functionl) ; 
Node2 = GnlFunctionOnSet (Function2) ; 
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/* The Output has been already linked so we verify that it is */ 
/* linked to the outvar '0ut2*. */ 
if (GnlVarHook (Outl) ) 

{ 

if (GnlVarHook (Outl) != (void*)0ut2) 
return (0) ; 

} 

SetGnlVarHook (Outl, Out 2) ; 

if (I Gnl 1 s omorphNode s ( Node 1 , Node 2 ) ) 
return (0) ; 

} 

for (i=0; i<BListSize (GnlLocals (Gnll) ) ; i++) 
{ 

Outl = (GNL_VAR) BListElt (GnlLocals (Gnll), i) ; 
Out2 - (GNL_VAR) BListElt (GnlLocals (Gnl2), i) ; 
Functionl = GnlVarFunction (Outl) ; 
Function2 = GnlVarFunction (Out2) ; 
Nodel = GnlFunctionOnSet (Functionl) ; 
Node2 - GnlFunctionOnSet (Function2) ; 

/* The Output has been already linked so we verify that it is */ 
/* linked to the outvar 'Out2'. */ 
if (GnlVarHook (Outl) ) 

{ 

if (GnlVarHook (Outl) != (void*)Out2) 
return (0) ; 

} 

SetGnlVarHook (Outl, Out2) ; 

if ( IGnllsomorphNodes (Nodel, Node2) ) 
return (0) ; 

} 

return (1) ; 

} 

/* */ 

/* GnlModifylsomorphicGnl */ 

/* */ 

/* This procedure modifies the interface of the GnlJ by sorting the */ 
/* inputs and locals variables in order to have a direct bijection */ 
/* between these variables and the one of the referenced Gnl 'Gnll' . */ 
/* */ 

GNL_STATUS GnlModifylsomorphicGnl (Gnll, GnlJ) 

GNL Gnll; 

GNL GnlJ; 

{ 

int i ; 

GNL_VAR Varl; 

BLIST NodesSegments ; 



Gnl FreeNodes Segments (GnlJ) ; 
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if (BListCreate (&Nodes Segments) ) 
return ( GNL _MEMORY_FULL ) ; 

SetGnlNodesSegments (GnlJ, Nodes Segments) ; 
SetGnlFirstNode (GnlJ, NULL) ; 
SetGnlLastNode (GnlJ, NULL) / 

/* We make a side effect on the inputs ordering of GnlJ in order to */ 
/* match the one to one correspondance with the inputs of 'GnU'. */ 
for (i=0; i<BListSize (Gnllnputs (Gnll) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnll), i) ; 
^BListElt (Gnllnputs (GnlJ), i) = (int ) GnlVarHook (Varl) ; 

/* Same thing for the locals variables. */ 
for (i=0; i<BListSize (GnlLocals (Gnll)); i++) 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnll), i) ; 
BListElt (GnlLocals (GnlJ), i) = (int ) GnlVarHook (Varl); 



return (GNL OK) ; 



/* 

/* GnlHashListlsomorphGnl 
* 



7 



/ 

/* This procedure analyzes all the Gnls in the list 'ListGnls' and 
/* group the ones which have the same structure (e.g isomorphe) . 
/* 'HashListlsoGnls' is a list of isomorphic Gnls. The first element of 
the isomorphic list of Gnls is the Referenced Gnl . The second the 
list of inputs of the Referenced Gnl duplicated. The third element 
/* the list of locals of the Referenced Gnl duplicated. The following 
/* elements are the isomorphic Gnls in which we have the removed the 
/* Gnl nodes. * 



■*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 



/* 
/* 



/* 

GNL_STATUS GnlHashListlsomorphGnl (ListGnls, HashListlsoGnls) 
BLIST ListGnls ; 
BLIST *HashListIsoGnls; 



{ 



xnt 

int 

GNL 

GNL 

BLIST 

BLIST 



J ; 

Gnll; 
GnlJ; 

ISOList ; 
NewList ; 



if (GnlEnvFoldlsoPart ()) 

fprintf (stderr, » Folding Identical Glue Logic Partitions ... \n" ) ; 

if (BListCreate (HashListlsoGnls)) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (ListGnls); i++) 
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{ 

if (BListCreateWithSize (1, &IsoList) ) 
return ( GNL_MEMORY_FULL ) ; 

Gnll = (GNL) BListElt (ListGnls, i) ; 

if (BListAddElt (IsoList, (int)Gnll)) 

return (GNL_MEMORY_FULL) ; 
if {BListAddElt (*HashListIsoGnls, (int) IsoList) ) 

return (GNL_MEMORY_FULL) ; 

/* The user did not request any logic folding, */ 
if ( IGnlEnvFoldlsoPart () ) 
continue; 

for (j=i+l ; j<BListSize (ListGnls) ; j++) 
GnlJ = (GNL) BListElt (ListGnls, j) ; 

/* 'GnlJ' has not the same number of literals so we can */ 
/* already stop. */ 

if (GnlNbLitt (GnlJ) !=GnlNbLitt (Gnll)) 
break; 



if (GnlArelsomorphic (Gnll, GnlJ)) 
( ( 

if (GnlModifylsomorphicGnl (Gnll, GnlJ)) 
return (GNL_MEMORY_FULL) ; 

/* The second element in the 'IsoList' having isomor. */ 
/* Gnls is the original list of inputs. The third the */ 
/* original list of Locals. */ 
if (BListSize (IsoList) == 1) 

{ 

/* We store the Inputs list of the referenced Gnl */ 
if (BListCopyNoEltCr (Gnllnputs (Gnll), SNewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (IsoList, (int ) NewList) ) 

return (GNL_MEMORY_FULL) ; 
/* We store the Locals list of the referenced Gnl */ 
if (BListCopyNoEltCr (GnlLocals (Gnll), &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (IsoList, (int ) NewList) ) 

return (GNL_MEMORY_FULL) ; 
/* We store the Outputs list of the referenced Gnl */ 
if (BListCopyNoEltCr (GnlOutputs (Gnll), &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (IsoList, (int ) NewList) ) 

return (GNL MEMORY FULL) ; 

} 

if (BListAddElt (IsoList, (int) GnlJ)) 

return (GNL_MEMORY_FULL) ; 
BListDelShift (ListGnls, j+1); 
j--; 

} 
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} 

if ( IGnlEnvFoldlsoPart ()) 
return (GNL_OK) ; 

/* 

fprintf (stderr, " HASH ISO LIST:\n n ); 
for (i=0; i<BListSize ( *HashListIsoGnls) ; i++) 
{ 

IsoList = (BLIST) BListElt <*HashListIsoGnls , i) ; 

fprintf (stderr, w ISO = %d, SIZE = %d\n", i, BListSize (IsoList)} 

} 



return (GNL_OK) ; 

} 

/* */ 

/* GnlDuplicatelsoNode */ 

/* */ 

/* This procedure duplicates the nodes tree from the reference node */ 
/* 'NodeRef and creates a new tree created in 'Gnllso' depending on the*/ 
/* variables of it. */ 
/* */ 

GNL_STATUS GnlDuplicatelsoNode (NodeRef, Gnllso, NewNode) 
GNL_NODE NodeRef; 
GNL Gnllso; 
GNLJSTODE * NewNode; 

{ 

int i; 
GNL_VAR VarRef; 
GNL_VAR VarlSO; 
GNLJJODE SonI; 
GNL_NODE NewSonl; 
BLIST NewList; 



if (GnlNodeOp (NodeRef) == GNL_VARIABLE) 
{ 

VarRef = (GNL_VAR) Gnl Node Sons (NodeRef); 
Varlso = (GNL_VAR) GnlVarHook (VarRef); 

if (GnlCreateNodeForVar (Gnllso, Varlso, NewNode)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (NodeRef) == GNL_CONSTANTE) 
{ 

if (GnlNodeSons (NodeRef)) 
{ 

if (GnlCreateNodeVdd (Gnllso, NewNode) ) 
return (GNL_MEMORY__FULL) ; 

} 

else 



D-GNL2-97 



gnlopt.c 



{ 

if (GnlCreateNodeVss {Gnllso, NewNode) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL JDK) ; 

} 

if (GnlCreateNode (Gnllso, GnlNodeOp {NodeRef ) , NewNode)) 
return ( GNL_MEMORY__FULL ) ; 

if (BListCreateWithSize {BListSize {GnlNodeSons (NodeRef)), 

&NewList) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeSons (*NewNode, NewList) ; 

for (i=0; i<BListSize (GnlNodeSons (NodeRef)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (NodeRef); i) ; 
if (GnlDuplicatelsoNode (SonI, Gnllso, &NewSonI) ) 

return (GNLJV1EM0RY_FULL) ; 
if (BListAddElt (NewList, (int) NewSonI) ) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 



/* * 

/* GnlDuplicateListlsoGnls */ 

/* * 

/* This procedure will duplicates the nodes network presents in the * 
/* referenced Gnl 'GnlRef ' and replaces the leaves (inputs var and * 
/* locals var) by the one in the 'Gnllso 1 . */ 
/* Outputs in 'GnlRef and 'Gnllso 1 are in the same order and have a 1 * 
/* to 1 mapping. */ 

/* , 

GNL_STATUS GnlDuplicateNodes InGnl (OriginalGnl , GnlRef, ListRef Inputs , 

ListRef Locals, ListRef Outputs , Gnllso) 



GNL 




OriginalGnl ; 


GNL 




GnlRef; 


BLIST 


ListRef Inputs ; 


BLIST 


ListRef Locals ; 


BLIST 


ListRef Outputs ; 


GNL 




Gnllso; 


int 




i; 


BLIST 




Listlsolnputs ; 


BLIST 




ListlsoLocals; 


BLIST 




ListlsoOutputs; 


BLIST 




ListlsoFunctions ; 


GNL_VAR 




VarRef I; 


GNL VAR 




Varlsol ; 


GNL_FUNCT I ON 


FunctionRef I 


GNL FUNCTION 


Functionlsol 


GNL_NODE 




NodeRef I; 



D-GNL2-98 



gnlopt.c 



GNL_NODE NewNode ; 

BLIST NewList; 

GNL_VAR NewVar; 

GNL_FUNCT I ON Ne wFunc t i on ; 



Listlsolnputs = Gnllnputs (Gnllso) ; 
ListlsoLocals = GnlLocals (Gnllso) ; 
ListlsoOutputs = GnlOutputs (Gnllso) ; 
ListlsoFunctions = GnlFunctions (Gnllso) ; 

for (i=0; i<BListSize (GnlFunctions (GnlRef ) ) ; i++) 

{ 

VarRefl = (GNL_VAR) BListElt (GnlFunctions (GnlRef), i) ; 
SetGnlVarHook (VarRefl, NULL) ; 



/* We make the links between the variables of the reference Gnl and 
/* the isomorphic one. */ 
/* we link the inputs */ 
for (i=0; i<BListSize (ListRef Inputs) ; i++) 

{ 

VarRefl = (GNL_VAR) BListElt (ListRef Inputs , i) ; 
Varlsol = (GNL_VAR) BListElt (Listlsolnputs, i) / 
SetGnlVarHook (VarRefl, Varlsol); 

} 

/* we link the locals. */ 
for (i=0; i<BListSize (ListRef Locals) ; i++) 

{ 

VarRefl = (GNL_VAR) BListElt (ListRef Locals , i) ; 
Varlsol = (GNL_VAR) BListElt (ListlsoLocals, i) ; 
SetGnlVarHook (VarRefl, Varlsol); 

} 

/* we link the outputs. */ 
for (i=0; i<BListSize (ListRef Outputs) ; i++) 
{ 

VarRefl = (GNL_VAR) BListElt (ListRef Outputs , i) ; 
Varlsol = (GNL_VAR) BListElt (GnlOutputs (Gnllso), i) ; 
SetGnlVarHook (VarRefl, Varlsol); 

} 



/* There may be extra variables which have been generated during the 
/* optimization. */ 
for (i=0; i<BListSize (GnlLocals (GnlRef)); i++) 
{ 

VarRefl = (GNL_VAR) BListElt (GnlLocals (GnlRef), i) ; 
if (GnlVarHook (VarRefl) == NULL) 
{ 

if (GnlCreateUniqueVarWithNoTestGnlld (OriginalGnl , 

Gnllso, M \\$D r ', &NewVar)) 

return (GNL_MEMORY_FULL) ; 
if (GnlFunctionCreate (Gnllso, NewVar, NULL, &NewFunction) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionVar (NewFunction, NewVar) ; 
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SetGnlVarHook (VarRefl, NewVar) ; 

} 

} 

/* we duplicate equations for the corresponding outputs. */ 
for <i = 0; i<BListSize (GnlOutputs (GnlRef ) ) ; i++) 
{ 

VarRefl = (GNL_VAR) BListElt (GnlOutputs (GnlRef), i) ; 
Varlsol = (GNL_VAR) BListElt (GnlOutputs (Gnllso) , i) ; 

FunctionRefl = GnlVarFunction (VarRefl) ; 
Functionlsol = GnlVarFunction (Varlsol) ; 

NodeRef I = GnlFunctionOnSet (FunctionRefl) ; 
if (GnlDuplicatelsoNode (NodeRef I, Gnllso, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionOnSet (Functionlsol, NewNode) ; 

} 



/* we duplicate equations for the corresponding locals. */ 
for (i=0; i<BListSize (GnlLocals (GnlRef)); i++) 

{ 

VarRefl = (GNL_VAR) BListElt (GnlLocals (GnlRef), i) ; 
Varlsol = (GNL_VAR) GnlVarHook (VarRefl); 

FunctionRefl - GnlVarFunction (VarRefl) ; 
Functionlsol = GnlVarFunction (Varlsol) ; 

NodeRef I = GnlFunctionOnSet (FunctionRefl) ; 
if (GnlDuplicatelsoNode (NodeRef 1, Gnllso, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionOnSet (Functionlsol, NewNode) ; 

} 

BSize (Listlsolnputs) = 0; 
BSize (ListlsoLocals) = 0 ; 
BSize (ListlsoFunctions) = 0; 



/* Recreating the inputs list from the input list of the reference */ 
/* Gnl. */ 
for (i=0; i<BListSize (Gnllnputs (GnlRef)); i++) 
{ 

VarRefl = (GNL_VAR) BListElt (Gnllnputs (GnlRef), i) ; 
Varlsol = (GNL_VAR) GnlVarHook (VarRefl); 
if (BListAddElt (Listlsolnputs, (int) Varlsol ) ) 
return (GNL_MEMORY_FULL) ; 

} 

/* Recreating the locals list from the locals list of the reference */ 
/* Gnl. */ 
for (i=0; i<BListSize (GnlLocals (GnlRef)); i++) 
{ 

VarRefl = (GNL_VAR) BListElt (GnlLocals (GnlRef), i) ; 

Varlsol = (GNL_VAR) GnlVarHook (VarRefl); 

if (BListAddElt (ListlsoLocals, (int ) Varlsol) ) 
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return (GNL_MEMORY_FULL) ; 

} 

/* Recreating the Functions list from the Functions list of the */ 
/* reference Gnl . */ 
for (i=0; i<BListSize (GnlFunctions (GnlRef ) ) ; i++) 

{ 

VarRefl - (GNL_VAR) BListElt (GnlFunctions (GnlRef), i) ; 
Varlsol = (GNL_VAR) GnlVarHook (VarRefl); 
if (BListAddElt (ListlsoFunctions , (int) Varlsol) ) 
return (GNL_MEMORY_FULL) ; 

} 



return (GNL_OK) ; 

} 



/* 

/* GnlDuplicateListlsoGnls 
/* 



*/ 

/* we duplicate the optimized referenced Gnls and make a copy of it for */ 

/* each isomorphic Gnl. */ 

/* */ 

GNL_STATUS GnlDuplicateListlsoGnls (OriginalGnl , HashListlsoGnls) 
GNL OriginalGnl; 
BLIST HashListlsoGnls; 



int i ; 

int j ; 

BLIST IsoList; 
GNL Re f Gnl; 

GNL Gnl I SO J; 

BLIST ListRef Inputs ; 

BLIST ListRef Locals ; 

BLIST ListRef Outputs ; 



/* The user asked for now folding of iso logic partitions so we have */ 
/* nothing to duplicate since each sub list has 1 single Gnl. */ 
if ( IGnlEnvFoldlsoPart ()) 
return (GNL_OK) ; 

fprintf (stderr, " Duplicate List Gnls . . . \n n ) ; 

for (i=0; i<BListSize (HashListlsoGnls); i++) 

{ 

j = 0; 

fprintf (stderr, 

M %c o Duplicating List Iso [%d/%d] (Nb=%d)", 13, i, 

BListSize (HashListlsoGnls) -1, ; 
f flush (stderr) ; 

IsoList = (BLIST) BListElt (HashListlsoGnls, i); 

if (BListSize (IsoList) — 1) 
continue; 
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/* First Gnl is the referenced Gnl. 

RefGnl = (GNL) BListElt (IsoList, 0); 

ListRef Inputs = (BLIST) BListElt (IsoList, 1) ; 

ListRefLocals = (BLIST) BListElt (IsoList, 2) ; 

ListRefOutputs = (BLIST) BListElt (IsoList, 3) ; 



for (j=4; j<BListSize (IsoList); j++) 

{ 

GnllsoJ = (GNL) BListElt (IsoList, j ) ; 



} 



f print f (stderr, 

"%c o Duplicating List Iso [%d/%d] (Nb=%d)", 

13, i, BListSize (HashListlsoGnls) -1 , j-2); 

fflush (stderr) ; 

if (GnlDuplicateNodesInGnl (OriginalGnl , RefGnl, 

ListRef Inputs , ListRefLocals, ListRefOutputs, 
GnllsoJ) ) 
return ( GNL__MEMORY FULL) ; 

} 

} 

fprintf (stderr, "\n"); 
return (GNL OK) ; 



/* */ 

/* GnlRebuildListGnls */ 

/* */ 

/* This procedure rebuilds a new list 'ListGnls' from the hash list of */ 
/* isomorphic Gnls and also deletes the hash list 'HashListlsoGnls' at */ 
/* the end. */ 

/* */ 

GNL_STATUS GnlRebuildListGnls (HashListlsoGnls, ListGnls) 

BLIST HashListlsoGnls; 

BLIST *ListGnls; 



{ 



int l ; 

BLIST IsoList; 
int j ; 

GNL GnlJ; 

BLIST NewList; 



BListQuickDelete (ListGnls) ; 
if (BListCreate (ListGnls)) 
return (GNL__MEMORY_FULL) ; 

for (i=0; i<BListSize (HashListlsoGnls) ; i++) 

{ 

IsoList = (BLIST) BListElt (HashListlsoGnls, i) ; 
if (BListSize (IsoList) == 1) 
{ 

if (BListAppend (*ListGnls, &IsoList) ) 
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return (GNL_MEMORY_FULL) ; 
continue; 

} 

GnlJ = (GNL)BListElt (IsoList, 0) ; 

if (BListAddElt (*ListGnls, (int)GnlJ)) 

return (GNL_MEMORY_FULL) ; 
NewList = (BLIST) BListElt (IsoList, 1) ; 
BListQuickDelete (fcNewList) ; 
NewList = (BLIST) BListElt (IsoList, 2); 
BListQuickDelete (&NewList) ; 
NewList = (BLIST) BListElt (IsoList, 3) ; 
BListQuickDelete (&NewList) ; 
for (j=4; j<BListSize (IsoList) ; j++) 
{ 

GnlJ = (GNL) BListElt (IsoList, j); 
if (BListAddElt (*ListGnls, (int)GnlJ)) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&IsoList) ; 

} 

BListQuickDelete (ScHashListlsoGnls) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlSimplifyWithVssVddOnNode */ 
/* 

/* This procedure returns a new GNL_N0DE thru the variable ' NewNode' 
/* which is the simplification the node tree 'Node' by using Boolean 
/* relations like 0.X --> 0, l.X X, . . . */ 
/* 

GNL_STATUS GnlSimplif yWithVssVddOnNode (Gnl, Node, NewNode) 
GNL Gnl ; 

GNL_NODE Node; 
GNL_NODE *NewNode; 

{ 

int i ; 

GNL_NODE Sonl; 
GNL_NODE NewSonl; 



switch (GnlNodeOp (Node)) { 
case GNL_VARIABLE : 

*NewNode = Node; 
return (GNL_OK) ; 

case GNL_AND : 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Sonl = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlSimplif yWithVssVddOnNode (Gnl, Sonl, 

&NewSonI) ) 
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return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node), i) = (int) NewSonI ; 
SonI = NewSonI; 
if (GnlNodelsVss (SonI)) 

{ 

*NewNode = SonI; 
return (GNL_OK) ; 

} 

if (GnlNodelsVdd (SonI)) 

{ 

if (BListSize (GnlNodeSons (Node)) == l) 
{ 

*NewNode = SonI; 
return (GNL_OK) ; 

} 

BListDellnsert (GnlNodeSons (Node) , i+1) ; 
i-~ / 

continue ; 

} 

} 

if (BListSize (GnlNodeSons (Node) ) == 1) 
{ 

♦NewNode = (GNL_NODE) BListElt (GnlNodeSons (Node), 0) 
return (GNL_OK) ; 

} 

*NewNode = Node; 
break; 

case GNL_0R: 

for (i=0; i<BListSi2e (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNLJtfODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlSimplifyWithVssVddOnNode (Gnl, SonI, 

ScNewSonl ) ) 

return ( GNL_MEMOR Y_FULL ) ; 
BListElt (GnlNodeSons (Node) , i) = (int ) NewSonI ; 
SonI = NewSonI; 
if (GnlNodelsVdd (SonI) ) 

{ 

*NewNode = SonI; 
return (GNL_0K) ; 

} 

if (GnlNodelsVss (SonI)) 

{ 

if (BListSize (GnlNodeSons (Node) ) == 1) 
{ 

*NewNode - SonI; 
return (GNLJDK) ; 

} 

BListDellnsert (GnlNodeSons (Node) , i+1) ; 
i--; 

continue; 

} 

} 

if (BListSize (GnlNodeSons (Node) ) == 1) 

{ 

*NewNode = (GNL_N0DE) BListElt (GnlNodeSons (Node), 0) 
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return (GNL_OK) ; 

} 

*NewNode = Node; 
break ; 

case GNL_NOT: 

SonI = (GNL__NODE) BListElt (GnlNodeSons (Node), 0) ; 
if (GnlSimplifyWithVssVddOnNode (Gnl, SonI, 

ScNewSonI ) ) 

return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node) , 0) = (int) NewSonI; 
SonI = NewSonI; 
if (GnlNodelsVss (SonI)) 

{ 

if (GnlCreateNodeVdd (Gnl, NewNode) ) 

return ( GNL_MEM0R Y_FULL ) ; 
return (GNL_0K) ; 

} 

if (GnlNodelsVdd (SonI)) 
{ 

if {GnlCreateNodeVss {Gnl, NewNode)) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL__0K) ; 

} 

* NewNode = Node; 
break; 

case GNL_CONSTANTE : 

*NewNode = Node; 
return (GNLJDK) ; 

default : 

fprintf {stderr, " ERROR; Node operator is unknown\n") ; 
exit (1) ; 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlSimplifyWithVssVdd */ 

/* 

/* This procedure performs simplifications when encountering special 

/* signals which are VDD or VSS in the GNL_N0DE trees. 

/* 

GNL_STATUS GnlSimplifyWithVssVdd (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl ; 

GNL_FUNCT ION Funct ionl ; 

GNL_N0DE Node I; 

GNL NODE NewNode ; 
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} 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
Nodel « GnlFunctionOnSet (FunctionI) ; 

if (GnlSrmplifyWithVssVddOnNode (Gnl, Nodel, &NewNode) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (FunctionI; NewNode) ; 

} 

return (GNL OK) ; 



/* 

/* GnlLimitDepthFunctionsOnNode */ 
/* 

GNL_STATUS GnlLimitDepthFunctionsOnNode (Gnl, Node, Depth, NewNode) 
GNL Gnl ; 

GNL_NODE Node; 
int Depth; 
GNL_NODE * NewNode; 

{ 

GNL_VAR NewVar; 

GNL_FUNCT ION NewFun c t i on ; 

GNLJtfODE Nodel; 

GNL_NODE NewNode I ; 

int i ; 



if (GnlNodeOp (Node) GNL_CONSTANTE) 

{ 

* NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL__VARI ABLE ) 
{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (Depth % 6 == 0) 
{ 

if (GnlCreateUniqueVar (Gnl, "X", StNewVar) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (GnlLocals (Gnl) , ( int ) NewVar ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, ^NewFunction) ) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, Node) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
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return (GNL_MEMORY_FULL) / 

if (GnlCreateNodeForVar (Gnl, NewVar, NewNode)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

if (GnlLimitDepthFunctionsOnNode (Gnl, Nodel, Depth+1, &NewNodeI)) 

return (GNL_MEMORY_FULL) ; 
BListElt (GnlNodeSons (Node), i) = (int) NewNodel ; 

} 



*NewNode - Node; 
return (GNL OK) ; 



/* */ 

/* GnlLimitDepthFunctions */ 

/* */ 

GNL_STATUS GnlLimitDepthFunctions (Gnl) 
GNL Gnl ; 



{ 



int i ; 

GNL_VAR Varl ; 
GNL_NODE Node; 
GNL NODE NewNode; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if { i GnlVarFunction (Varl) ) 
continue; 

Node = GnlFunctionOnSet (GnlVarFunction (Varl)); 

if (GnlLimitDepthFunctionsOnNode (Gnl, Node, 1, &NewNode) , 

return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (GnlVarFunction (Varl), NewNode); 

} 

return (GNL OK) ; 



/* */ 

/* GnlOptimize */ 

/* */ 

GNL_STATUS GnlOptimize (Gnl, Opt Panel, NewGnl) 
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GNL Gnl ; 

LS_OPT_PANEL OptPanel ; 
GNL *NewGnl ; 

int i ; 

GNL Gnl I; 

BLIST ListGnls; 
GNLJ/AR Varl; 
int Flattened; 
GNL_INFO BeforeGnllnfo; 
GNL_INF0 AfterGnllnfo; 
GNL_INFO Gnl Info ; 
float DiffLitt; 
float DiffDepth; 
float ImproveLitt; 
float ImproveDepth ; 
BLIST ISOGnlS; 
BLIST HashListlsoGnls ; 



G_OptPanel = OptPanel; 



*NewGnl= Gnl; 

fprintf (stderr, " Constant Pushing in t%s]...\n", GnlName (Gnl) ) ; 
if (GnlSimplifyWithVssVdd (Gnl)) 
return (GNL_MEMORY_FULL) ; 



fprintf (stderr, " Collapsing glue logic in [%s]...\n", GnlName {Gnl)); 
if (GnllnjectSingleVar (Gnl) ) 
return (GNL_MEMORY_FULL) ; 



if (GnlEnvDont Touch ()) 
{ 

*NewGnl= Gnl; 
return (GNL_OK) ; 

} 



/* According to the value of 'LsOptMaxInject 1 either we do an */ 

/* automatic injection (value is -1) or we do a user injection and */ 

/* we use the value of ' LsOptMaxInject ' . */ 



if (LsOptPanelDoOpt (OptPanel) (LsOptMaxInject (OptPanel) == -1)) 

{ 

fprintf (stderr, 

" Selective re-injection of logic in [%s] (Inject=Def ault) . . . \n" , 

GnlName (Gnl)); 
if (GnlPerformAutomaticInject (Gnl, OptPanel)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

fprintf (stderr, 

" Selective re-injection of logic in [%s] (Inject=%d) . . . \n" , 
GnlName (Gnl) , LsOptMaxInject (OptPanel) ) ; 
if (Gnllnject (Gnl, LsOptMaxInject (OptPanel))) 
return (GNL_MEMORY_FULL) ; 
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} 

if (LsOptPanelDoOpt (OptPanel)) 

{ 

fprintf (stderr, " Propagating inverters ... \n" ) ; 
if (GnlPropagatelnv (Gnl)) 
return ( GNLJ4EMOR Y_FULL ) ; 

} 

if (GnlGetGnllnf o (Gnl, &Bef oreGnllnf o) ) 
return <GNL_MEMORY_FULL> ; 

/* No optimization to do. 
if ( ! LsOptPanelDoOpt (OptPanel) ) 
{ 

fprintf (stderr, " o LITERALS 

GnllnfoNbLit (Bef oreGnllnf o) ) ; 
fprintf (stderr, » o MAX. COMB. PATH 

Gnllnf oMaxDepth (Bef oreGnllnf o) ) ; 
*NewGnl = Gnl; 
return (GNLjDK) ; 

} 

fprintf (stderr, " o LITERALS = %d\n n , 

Gnllnf oNbLit (Bef oreGnllnf o) ) ; 
fprintf (stderr, " o MAX . COMB. PATH = %d\n" , 

Gnllnf oMaxDepth (Bef oreGnllnf o) ) ; 

fprintf (stderr, " Partitioning Glue Logic,.. \n M , i) ; 
if (GnlPartitionGnlQuick (Gnl, &ListGnls) ) 
return (GNL_MEMORY_FULL) ; 

if (!BListSize (ListGnls) ) /* Actually no partitions */ 

{ 

*NewGnl = Gnl; 
return (GNL_OK) ; 

} 

/* we sort the Gnl in the list 'ListGnls' according to their size */ 
/* in term of litterals. */ 
fprintf (stderr, " Sorting Partitions ... \n" ) ; 
GnlSortListOfGnl (ListGnls) ; 

if (GnlHashListlsomorphGnl (ListGnls, ^HashListlsoGnls) ) 
return (GNL_MEMORY_FULL) ; 

/* we sort the iso gnls sub-lists in the decreasing order of the */ 
/* NbLit (RefGnl) *BListSize (sub-list). */ 
GnlSortListOfHashListlsoGnls (HashListlsoGnls) ; 

/* For each partitions ... */ 
for (i=0; i<BListSize (HashListlsoGnls) ; i++) 

{ 

IsoGnls = (BLIST) BListElt (HashListlsoGnls, i) ; 
Gnll = (GNL) BListElt (IsoGnls, 0) ; 

fprintf (stderr, 



*/ 

= %d\n M , 
= %d\n'\ 
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"%c Optimization [%d/%d] [%d] ( IN=%d, OUT=%d, LOC=%d, LIT=%d) -Flatten 
13, i, BListSize (HashListlsoGnls) , 
BListSize (IsoGnls) , GnlNbln (Gnll) , 

GnlNbOut (Gnll) , 
GnlNbLocal (Gnll) , GnlNbLitt (Gnll) ) ; 
ff lush (stderr) ; 

if (GnlNbln (Gnll) +GnlNbOut (Gnll) +GnlNbLocal (Gnll) > 1200) 
continue; 

/* Flattening with control value. */ 
if (GnlMakeGnlFlattenable (Gnll, 

LsOptMaxFlattenCubes (OptPanel) , 
&Flattened) ) 
return (GNL_MEMORY_FULL ) ; 

/* eventually redo the flattening ... */ 
if (! Flattened) 

{ 

fprintf (stderr, 

"\n WARNING; Restructuring previous logic re-inj ection\n" } ; 
fprintf (stderr, 

" Re-injection value was <%d>\n", 

LsOptMaxInject (OptPanel) ) ; 
if (GnlComputeCubesInGnl (Gnll) ) 
return (GNL_MEMORY_FULL) ; 

} 

fprintf (stderr, 

"%c Optimization [%d/%d] [%d] (IN=%d, OUT=%d / L0C=%d, LIT=%d) -Minimize 
13, i, BListSize (HashList IsoGnls) , 
BListSize (IsoGnls), GnlNbln (Gnll), 

GnlNbOut (Gnll) , 
GnlNbLocal (Gnll) , GnlNbLitt (Gnll) ) ; 
f flush (stderr) ; 

/* 2 -level minimization */ 
if (LsMinGnl (Gnll, 0)) 

return (GNL_MEMORY_FULL) ; 

fprintf (stderr, 

"%c Optimization [%d/%d] [%d] (IN=%d, 0UT=%d, LOC=%d, LIT=%d) -Factorize 
13, i, BListSize (HashListlsoGnls ) , 
BListSize (IsoGnls), GnlNbln (Gnll), 

GnlNbOut (Gnll) , 
GnlNbLocal (Gnll), GnlNbLitt (Gnll)); 
f flush (stderr) ; 

/* Algebraic factorization + common part extraction */ 
if (LsFactorize (Gnl, Gnll, OptPanel)) 
return (GNL_MEMORY__FULL) ; 

} 



fprintf (stderr, 

"%c Logic Optimization [%d/%d] \n", 
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13, i, BListSize (HashListlsoGnls) ) ; 
fflush (stderr) ; 

/* we duplicate the optimized referenced Gnls and make a copy of it 
/* for each isomorphic Gnl . */ 
if (GnlDuplicateListlsoGnls (Gnl, HashListlsoGnls)) 
return ( GNL__MEMORY__FULL ) ; 

/* We rebuild the list of Gnls from the hash list of iso Gnls. */ 
fprintf (stderr, " Rebuild List Gnls...\n n ); 
if (GnlRebuildListGnls (HashListlsoGnls, &ListGnls) ) 
return (GNL_MEMORY_FULL) ; 

/* Merging of all the partitions. */ 
fprintf (stderr, " Merging Partitions ... \n" ) ; 
if (GnlMergeGnl (ListGnls, NewGnl) ) 
return (GNL_MEMORY_FULL) ; 

fprintf (stderr, » Collapsing glue logic ... \n" ) ; 
if (GnllnjectSingleVar (*NewGnl)) 
return ( GNL_MEMOR Y_FULL ) ; 

fprintf (stderr, " Extracting New Inf os . . . \n") ; 
if (GnlGetGnllnfo (*NewGnl, &Af terGnllnfo) ) 
return ( GNL_MEMOR Y_FULL ) ; 

DiffLitt = (float) GnllnfoNbLit (Bef oreGnllnf o) - 

(float) GnllnfoNbLit (Af terGnllnfo) ; 
if (GnllnfoNbLit (Bef oreGnllnf o) ) 

ImproveLitt = (100* (float) DiffLitt ) / 

(float) GnllnfoNbLit (Bef oreGnllnf o) ; 

else 

ImproveLitt = 0.0; 
DiffDepth = (float) Gnl InfoMaxDepth (Bef oreGnllnf o) - 

(float) Gnl InfoMaxDepth (Af terGnllnfo) ; 
if (Gnl InfoMaxDepth (Bef oreGnllnf o) ) 

ImproveDepth = (100* (float ) DiffDepth) / 

(float) Gnl InfoMaxDepth (Bef oreGnllnf o) ; 

else 

ImproveDepth = 0.0; 
fprintf (stderr, 

o LITERALS: %6d --> %6d [Improve: %4.1f %c] \n" 

GnllnfoNbLit (Bef oreGnllnf o) , GnllnfoNbLit (Af terGnllnfo) , 
ImproveLitt ,'%■); 
fprintf (stderr, 

o MAX. COMB. PATH: %6d %6d [Improve: %4.1f %c]\n'» 

Gnl InfoMaxDepth (Bef oreGnllnf o) , 

Gnl InfoMaxDepth (Af terGnllnfo) , ImproveDepth, • % » ) ; 
fprintf (stderr, "\n"); 
return (GNL OK) ; 

} 

/* 

/* GnlSynthesizeNetworkRec 
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/* 

GNL_STATUS GnlSynthesizeNetworkRec (Nw, Gnl, GnlLibc, OutFile, Panel) 
GNLJSTETWORK Nw; 
GNL *Gnl; 
LIBC_LIB GnlLibc; 
FILE *OutFile; 
LS_OPT_PANEL Panel ; 

{ 

int i ; 
GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
GNL GnlCompol ; 

GNL OptGnl ; 

BLIST Components; 
int Done; 
GNL_INFO Gnl Info; 



/* We already synthesized this current 1 *Gnl • . The results has been */ 
/* stored previously in 1 GnlSynthesizedGnl (Gnl) 1 . */ 
if (GnlTag (*Gnl) == GnlNetworkTag (Nw) ) 

*Gnl = GnlSynthesizedGnl (*Gnl) ; 
return (GNL_OK) ; 

} 

SetGnlTag (*Gnl / GnlNetworkTag (Nw) ) ; 
Components = GnlComponents (*Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNLJXMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) ! = GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (i GnlCompol) 
continue ; 

if (GnlSynthesizeNetworkRec (Nw, &GnlCompoI, GnlLibc, OutFile, 

Panel)) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlUserComponentGnlDef (UserCompol, GnlCompol) ; 

} 

fprintf (stderr, "\n ; 
for (i=0; i<strlen (GnlName (*Gnl)) ; i++) 

fprintf (stderr, "="); 
fprintf (stderr, "\n") ; 

fprintf (stderr, » SYNTHESIZING [%s] \n" , 

GnlName (*Gnl) ) ; 
fprintf (stderr, " =================") ; 

for {i=0; i<strlen (GnlName (*Gnl) ) ; i++) 
fprintf (stderr, " = ") ; 
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if (GnlGetGnllnfo (*Gnl, &GnlInfo) } 
return (GNL_MEMORY FULL) ; 



fprintf 



(stderr, »\n o NB. INPUTS = %d\n" , 

GnllnfoNblnputs (Gnllnfo) ) ; 

(stderr, " o NB. OUTPUTS = %d\n" , 

GnllnfoNbOutputs (Gnllnfo) ) ; 

(stderr, » o NB. INOUTS = %d\n n , 

GnllnfoNblnOuts (Gnllnfo) ) ; 

(stderr, » o NB. LITERALS = %d\n", 

GnllnfoNbLit (Gnllnfo) ) ; 

(stderr, » o NB. FLIP-FLOPS = %d\n'\ 

GnllnfoNbFlipFlops (Gnllnfo) ) ; 

(stderr, " o NB. LATCHES = %d\n" , 

GnllnfoNbLatches (Gnllnfo) ) ; 

(stderr, » o NB . TR I STATES = %d\n n , 

Gnllnf oNbTriStates (Gnllnfo) ) ; 

(stderr, " o NB. BUFFERS = %d\n M , 

Gnllnf oNbBuffers (Gnllnfo)); 

(stderr, " o MAX. COMBINATORIAL PATH = %d\n", 

Gnllnf oMaxDepth (Gnllnfo) ) ; 



fprintf 



fprintf 



fprintf 



fprintf 



fprintf 



fprintf 



fprintf 



fprintf 



/* We map the sequential elements, 
if (GnlMapSequential (*Gnl, GnlLibc) ) 
return ( GNL_MEMORY__FULL ) ; 

/* We map the 3 -states elements, 
if (GnlMap3State (*Gnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

/* Invoke the logic optimizer on the module ' Gnl T . */ 
if (GnlOptimize (*Gnl, Panel, &OptGnl) ) 
return (GNL_MEMORY_FULL) ; 

fprintf (stderr, " Constant Pushing in [%s]...\n", GnlName (OptGnl)); 
if (GnlSimplifyWithVssVdd (OptGnl) ) 
return (GNL_MEMORY_FULL) ; 

/* Invoke the Technology mapper on the module 'Gnl 1 . 
/* The result can be eventually dumped in the file ■OutFile'. */ 
if (GnlMap (Nw, OptGnl, GnlLibc, OutFile, LsOptPanelMapEf f ort (Panel) 
LsOptPanelCriter (Panel), &Done) ) 
return ( GNL_MEMORY_FULL ) ; 

/* We store the result of the synthesis in the given 1 *Gnl ' . 
SetGnlSynthesizedGnl (*Gnl, OptGnl) ; 

/* we return the new synthesized Gnl. */ 
*Gnl = OptGnl; 

SetGnlNbDffs (*Gnl, GnllnfoNbFlipFlops (Gnllnfo)); 
SetGnlNbLatches (*Gnl, GnllnfoNbLatches (Gnllnfo)); 
SetGnlNbTristates (*Gnl, Gnllnf oNbTriStates (Gnllnfo)); 

return (GNL_OK) ; 
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z v 

/* GnlGetNetworkPredef inedComponentsRec */ 

/* : J, 

void GnlGetNetworkPredef inedComponentsRec (Gnl, NbDffs, NbLatches, 

NbTristates, NbBuffers) 

GNL Gnl ; 

int *NbDffs; 
int *NbLatches; 
int *NbTristates ; 

int *NbBuffers; 



{ 



int i ; 

BLIST Components; 
GNL_COMPONENT Component I ; 

GNL__USER_COMPONENT UserCompol ; 

GNL GnlCompol; 
GN L_S EQUENT I AL_COMPONENT SeqCompo ; 



Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

Component I = (GNL_COMPONENT) BListElt (Components, i) ; 
switch (GnlComponentType (ComponentI) ) { 
case GNL_S EQUENT I AL_COMPO : 

SeqCompo = ( GNL_S EQUENT I AL_C0MP0NENT) ComponentI ; 
if (GnlSeqComponentlsDFF (SeqCompo) ) 

(*NbDffs)++ ; 
else 

(*NbLatches)++; 
break; 



case GNL_TRISTATE_C0MP0: 

(*NbTristates) ++; 
break; 



case GNL__USER_COMPO : 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlCompol) 

GnlGetNetworkPredef inedComponentsRec (GnlCompol , 
NbDffs, NbLatches, NbTristates, 
NbBuffers) ; 

break ; 



case GNL_BUF_COMPO : 

(*NbBuffers)+-f- ; 
break; 



} 
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/* 



{ 



float Area; 
GNL TopGnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 



/ 



/* GnlGetNetworkPredef inedComponents */ 
/* ' 

/* This procedure extracts the number of predefined components (Dffs, */ 
/* Latches, Tristates, Buffers) which are in the network. */ 
/* [ 

void GnlGetNetworkPredef inedComponents (Nw, NbDffs, NbLatches, 

NbTristates, NbBuffers) 

GNL_NETWORK Nw; 
int *NbDf fs; 

int * NbLatches; 

int *NbTristates; 
int * NbBuffers; 



/ 



*NbDffs = *NbLatches = *NbTristates = *NbBuffers = 0; 
GnlGetNetworkPredef inedComponentsRec (TopGnl, NbDffs, NbLatches, 

NbTristates, NbBuffers); 



/* 

/* GnlSynthesizeNetwork */ 

/*— : : v 

/* Mam procedure doing Optimization and mapping of the whole network. */ 
/* The final verilog description is dumped into the file 'OutFile'. */ 
/* ^ 

GNL_STATUS GnlSynthesizeNetwork (Nw, GnlLibc, OutFile, Panel) 
GNL_NETWORK Nw; 
LIBC__LIB GnlLibc ; 
FILE *OutFile; 
LS_OPT_PANEL Panel; 

{ 

GNL TopGnl ; 

double Area; 

int Depth; 

GNL_LIB HGnlLib; 

int NbDffs; 

int NbLatches; 

int NbTristates; 

int NbBuffers; 



HGnlLib = (GNL_LIB) LibHook (GnlLibc) ; 

/* Printing the header of the output file 
GnlPrintVerilogSimpleNwHeader (OutFile, Nw, HGnlLib) ; 

GnlResetGnlNetworkTag (Nw) ; 
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SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlSynthesizeNetworkRec (Nw, &TopGnl, GnlLibc, OutFile, Panel)) 

return (GNL_MEMORY__FULL) ; 
SetGnlNetworkTopGnl (Nw, TopGnl) / 

Area = GnlGetNetworkGateArea (Nw) ; 
SetGnlNetworkArea (Nw, Area) ; 

GnlGetNetworkPredef inedComponent s (Nw, &NbDf f s , &NbLatches , 

&NbTristates, &NbBuffers) ; 

SetGnlNetworkNbDf f s (Nw, NbDff s) ; 
SetGnlNetworkNbLatches (Nw, NbLatches) ; 
SetGnlNetworkNbTristates (Nw, NbTristates) ; 
SetGnlNetworkNbBuf fers (Nw, NbBuffers) ; 

return (GNL_OK) ; 

} 

/* EOF */ 
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/* 
/* 
/* 

/* 
/* 
/* 
/* 
/* 

#ifndef LSOPT_H 
#define LSOPT H 







*/ 






File: 


lsopt .h 






*/ 


Version : 


1.1 




*/ 




Modifications : 






*/ 




Documentation : 




*/ 


*/ 





/* 

/* LS_OPT_PANEL_REC 

/* 

typedef struct LS_OPT_PANEL_STRUCT { 

/* Parameters for Factorisation + Extraction 

int Criter; 

int MapEffort; 

int DoOptimisation; 

int DoDivision; 

int DoExtraction; 

int NbMaxDivisionKernels ; 

int NbMaxExtractionKernels ; 

GNL_STATUS ( *DivGainFunc ) ( ) ; 

GNL_STATUS ( *DivChoiceFunc ) ( ) ; 

GNL_STATUS ( *ExtGainFunc ) ( ) ; 

GNL_STATUS ( *ExtChoiceFunc) { ) ; 



/* Parameters for collapsing 

int MaxLitToIn j ect ; 

/* Parameters for logic reinjection 
int Maxlnject; 

/* Parameters for 2 -level minimization 
int MaxFlattenCubes ; 

LS_OPT__PANEL_REC , *LS_OPT_PANEL ; 



} 



*/ 
*/ 



#define LsOptPanelCriter (p) 
#define LsOptPanelMapEf f ort (p) 
#define LsOptPanelDoOpt (p) 
#define LsOptPanelDoDiv (p) 
#define LsOptPanelDoExt (p) 
#define LsOptPanelMaxDivKer (p) 
#define LsOptPanelMaxExtKer (p) 
#def ine LsOptPanelDivGainFunc (p) 
#def ine LsOptPanelDivChoiceFunc (p) 
#def ine LsOptPanelExtGainFunc (p) 
#def ine LsOptPanelExtChoiceFunc (p) 
#define LsOptMaxLitToInject (p) 
#define LsOptMaxlnject (p) 
#def ine LsOptMaxFlattenCubes (p) 



{ ( (p) ->Criter) ) 

( { (p) ->MapEf fort) ) 
( ( (p) ->DoOptimisation) ) 
( ( (p) ->DoDivision) ) 
( ( (p) ->DoExtraction) ) 

( ( (p) ->NbMaxDivisionKernels) ) 
(p) ->NbMaxExtractionKernels) ) 
(p) ->DivGainFunc) ) 
(p) ->DivChoiceFunc) ) 
(p) ->ExtGainFunc) ) 
(p) ->ExtChoiceFunc) ) 
(p) ->MaxLitToInject) ) 
(p) ->MaxInject) ) 
(p) ->MaxFlattenCubes) ) 



#define SetLsOptPanelCriter (p, d) 



( ( (p) ->Criter = d) ) 
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#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

/* 

#endif 



SetLsOptPanelMapEf fort (p,d) ( ( (p) 

SetLsOptPanelDoOpt {p , d) { 

SetLsOptPanelDoDiv (p , d) ( 

SetLsOptPanelDoExt (p, d) ( ( (p) 

SetLsOptPanelMaxDivKer (p # n) ( ( (p) 

SetLsOptPanelMaxExtKer (p,n) ( { (p) 

SetLsOptPanelDivGainFunc (p, f ) ( ( (p) 

SetLsOptPanelDivChoiceFunc (p, f ) { ( (p) 

SetLsOptPanelExtGainFunc (p, f ) ( ( (p) 

SetLsOptPanelExtChoiceFunc (p, f ) ( ( (p) 

SetLsOptMaxLitToInject (p,m) ( ( (p) 

SetLsOptMaxInject (p # m) ( ( (p) 

SetLsOptMaxFlattenCubes (p,m) ( ( (p) 

E0F 



->MapEf fort = d) ) 
( (p) ->DoOptimisation 
( (p) ->DoDivision = d) ) 
->DoExtraction = d) ) 
- >NbMaxDivisionKernels = 
- >NbMaxEx t r a c t i onKe r n e 1 s 
->DivGainFunc = f ) ) 
->DivChoiceFunc = f ) ) 
->ExtGainFunc = f)) 
->ExtChoiceFunc = f ) ) 
->MaxLitToInject = m) ) 
->MaxInject = m) ) 
->MaxFlattenCubes = m) ) 



d) ) 



n)) 
= n)) 



■*/ 
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/* */ 

/* */ 

/* File: gnloption.c */ 

/* Version: 1.1 */ 

/* Modifications; - */ 

/* Documentation: - */ 

/* */ 
/* */ 

#include <stdio.h> 

#include "blist.h" 

#include "gnl .h" 

#include "gnlmint . h" 

finclude "gnlopt . h" 

# include "bbdd.h" 

#include " libc_mem . h " 

#include "libc_api.h" 

tinclude "gnllibc . h" 

#include " gnlopt ion. h" 

# inc lude " b 1 i s t . e " 

/* */ 

/* functions called during the parsing of the command line. */ 
/* */ 

void GnlModeOption <GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void Gnl Input Opt ion (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlOutputOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlLogOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlOptForceOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlCriterionOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnllnjectOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlFlattenOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlFlattenStrOption (GNLJ5NV conf, int argc, char **argv, int *arg_no) ; 
void GnlLibraryOption (GNL_ENV conf, int argc, char **argv, int *arg__no) ; 
void GnlTopOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlModelDirOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlModelExtOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlBuildLibForceOption (GNL_ENV conf, int argc, char **argv, int 
*arg__no) ,* 

void GnlRef erenceOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlMaxBddNodeOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlFlattenlnstanceNameOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnllnputFormatOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlFsmDirOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlPrintHierarchyOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlReportDataOption {GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlPrintNbCritPath (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlFoldlsoPartOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlPrintMaxFanoutVarsOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlUseQBarOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlRespectLibConstraintsOption (GNL__ENV conf, int argc, char **argv, int 
*arg_no) ; 
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void GnlPrintClkDomainOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlPrintCritRegionOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlMaxCellSizeSupportOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlMinShareLogicSizeOption (GNL_ENV conf, int argc, char **argv, int 
*arg__no) ; 

void GnlUseVerilogPrimitivesOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnllgnorePostOptOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnllnputAssocOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnlOutputAssocOption (GNL__ENV conf, int argc, char **argv, int *arg__no) ; 
void GnlVDDOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; ~ 
void GnlXorUnprovedOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 
void GnllgnoreRandomSimOption (GNL_ENV conf, int argc, char **argv, int ~~ 
*arg_no) ; 

void GnlPinSeqPolMatchingOption (GNLJENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlPrintResizedGatesOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlReplaceOnlyCombiCompoOption (GNL_ENV conf, int argc, char **argv, int 
*arg__no) ; 

void GnlRemoveBuf ferOption (GNL_ENV conf, int argc, char **argv, int 
*arg_no) ; 

void GnlDontTouchOption (GNL_ENV conf, int argc, char **argv, int *arg_no) ; 



/* 

/* Table of options for HUBBLE */ 
/* */ 

#define GNL NB OPTIONS 42 



GNL_OPTION_REC G_Opt ions [GNL_NB_OPT IONS] = 
{ 

{"-mode", 
M -m", 

" [synthesis | estimation] translate | verification | post_optimization] " , 
"Specify if HUBBLE -RTL is in Synthesis, in Estimation, Translation, " , 

Verification or Post-Optimization Mode.", 
NULL, 
NULL, 
NULL, 

GnlModeOption, 
GNL_0 P T I ON_F I L E 
h 

{"-input ", 

" » -i » 
- 1 - f 

"<String>" , 

"Specifies file to use as input.", 

NULL, 

NULL, 

NULL, 

NULL, 

Gnl Input Op t i on , 
GNL OPTION FILE 
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{ "-output" , 
" -o" , 

"<String> M , 

"Specifies file to use as output.", 

NULL, 

NULL, 

NULL, 

NULL, 

GnlOutputOpt ion , 
GNL_0 P T I ON__F I L E 

}. 

{" -logfile" , 
"-log" , 
"<String>" , 

"Specifies file to use as log file; default is \"stderr\ 

NULL, 

NULL, 

NULL, 

NULL, 

GnlLogOption, 
GNL_OPTION_FILE 

h 

{ " -input_f orraat " , 
"-if 11 , 

" [fsm|vlg] » , 

"Specifies if the input format is . f sm (fsm) or verilog (vlg) ; " , 

"default is \ 1 f sm\ • " , 

NULL, 

NULL, 

NULL, 

Gnl Input Format Opt ion, 

GNL_0 PT I ON_F I LE 

h 

{"-fsm_dir", 
"-fd" , 
"<String>", 

"Specifies the path where all the FSM files of the current", 

"design are stored. Default is 

NULL, 

NULL, 

NULL, 

GnlFsmDirOption, 
GNL_0 PT I ON_F I LE 

{ " -optimisation_strength" , 
"-os" , 

" [low I medium | high] M f 

"Specifies strength with which logic optimization will be performed. 

NULL, 

NULL, 

NULL, 

NULL, 

GnlOptForceOption, 
GNL_OPTION_FILE 

{ " -criterion" , 
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"-C", 

" [area_gate | area_net | nl_delay | timing | power] " , 

"Specifies which criterion synthesis will optimize during Tech. mapping 
"Default is [area_gate] . This default option optimize the netlist in", 
"term of gates area. [area_net] minimizes the number of nets thus", 
"nets area, [timing] minimes the longest path of nets between gates.", 
"Finally, [power] optimize the dynamic power consumption.", 
GnlCriterionOption, 
GNL_0 PT I ON_F I L E 

{ " -replace_only_combinatorial_cells " , 
"-rocc" , 

"Tells HUBBLE to replace only the combinational cells in the original", 
"netlist by their functionality in order to do re-synthesis on the", 
"combinational parts of the design.", 

NULL, 

NULL, 

Gnl Rep laceOnly Comb iCompoOpt ion, 
GNL_0 PT I ON_F I LE 

{ " -don t_touch_net list" , 

"-dtn", 
ii ti 

"Tells HUBBLE to not touch the original netlist and keeps its structure 

"as it is . " , 

NULL, 

NULL, 

NULL, 

GnlDontTouchOption, 
GNL_OPTION_FILE 

{ 11 -remove_buf f ers " , 
"-rb" , 

n tr 

"Tells HUBBLE to remove the buffers in the original netlist. 11 , 

NULL, 

NULL, 

NULL, 

NULL, 

GnlRemoveBuf ferOption, 

GNL_OPTION_FILE 

}> 

{"-vdd", 
" -vdd", 
"< Integer >" , 

"Specifies the voltage of the design in mV.", 

NULL, 

NULL, 

NULL, 

NULL, 

GnlVDDOption, 
GNL_OPTION_FILE 

}> 

{ " -use_sequential_qbar " , 
"-usqb", 
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"Specifies if output Q bar is used for sequential elements.", 

NULL, 

NULL, 

NULL, 

NULL, 

GnlUseQBarOpt ion , 
GNL_OPTION_FILE 

{ " -use_sequential_clock_polarity_jnatching" , 

" -uscpm" , 
it n 

"Tells HUBBLE to select in priority sequential elements with exact ", 

"clock polarity matching. This can avoid gated clock with inverters", 

"in front of the clock pin of the sequential element.", 

NULL, 

NULL, 

GnlPinSeqPolMatchingOption, 
GNL_0PTION_FILE 

}. 

{ " -max_cell_f anin" , 
n -mcf " , 
"<Integer>" , 

"Specifies the maximum Fanln of library cells taken into account.", 
"A greater max Fanln can slower the technology mapping phase but", 
"may give better results. By default the value is 6 and can be", 
"increased to a maximum reasonable value of 8.", 
NULL, 

GnlMaxCellSizeSupportOption, 
GNL_OPTION_FILE 

{ " -minimum_shared_logic_size" , 
"-msls" , 
"< Integer >" , 

"Specifies the minimum size of logic which will be shared during", 
"the optimization phase. Small size logic can influence badly the", 
"efficiency of the design because it involves generally a big FanOut . " 
"The size number is relative to the number of cubes composing the", 
"shared logic . " , 
GnlMinShareLogicSizeOption, 
GNL_0 PT I ON_F I LE 

{ " -use_verilogj?rimitives" , 

"-uvp" , 
» ii 

"Tells HUBBLE to print out an output netlist using Verilog primitives" 
"like 'or', 'and', ' buf * , ... instead of using technology library cell 
"By default cells of the specified technology library are used.", 
NULL , 
NULL, 

GnlUseVerilogPrimitivesOption, 
GNL_OPTI0N_FILE 

}. 

{ "-ignore__library_constraints" , 
"-ilc", 

"Tells HUBBLE to not take into account the library constraints (Max.", 
"capacitance, Max FanOut, Max Transition).", 
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NULL, 
NULL, 
NULL, 

GnlRespectLibConstraintsOption, 
GNL_OPTION_FILE 

{ "- ignore jost_optimizat ion" , 
"-ipo", 

it n 

"Tells HUBBLE to not take into account the post optimization phase" 
"done on the mapped netlist. Post optimization performs netlist", 
"optimizations like buffer insertions, gates resizing, logic", 
"restructuring. ", 
NULL, 

GnllgnorePostOptOption, 
GNL_0 PT I ON_F I LE 

{ " -print_resized_gates" , 
"-prg", 

It ll 

/ 

"Tells HUBBLE to print out the gates resized during the", 

"post-optimization phase.", 

NULL, 

NULL, 

NULL, 

Gnl Print Re s i z edGa t e sOp t ion , 
GNL_OPTION_FILE 

{ " -print__clock_domain" , 
"-pcd", 

n ii 

/ 

"Tells HUBBLE to print out the clock domains of each clock.", 

"This option is available only when -rd timings is invoked.", 

NULL, 

NULL, 

NULL, 

GnlPrintClkDomainOption, 

GNL_0 P T I ON_F I L E 

}, 

{ " -print_epsilon_critical_region" , 

" -peer" , 
ti it 

"Tells HUBBLE to print out the Epsilon critical region representing 
"the number of critical gates compare to the total number of gates. 
"This option is available only when -rd timings is invoked.", 
NULL, 
NULL, 

GnlPrintCritRegionOption, 
GNL_0 PT I ON_F I LE 

{"-lib", 
"-1", 

"<String>" , 

"Specifies the target technology library (.lib format).", 

NULL, 

NULL, 

NULL, 
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NULL, 

GnlLibraryOption, 
GNL_0 PT I ON_F I LE 

{"-inject", 
n -inj ", 
" <Integer>" , 

"Specifies degree of logic reinjection performed. Greater is the" , 

"integer and stronger is the flattening. Default is -1.", 

NULL , 

NULL, 

NULL, 

Gnl In j ectOpt ion , 
GNL_0 PT I ON_F I LE 

{ " -f lat__hierarchy" , 
"-fh", 

" [none | all | except <List Strings> | only <List Strings> j leaf ] " , 
"Specifies how the user hierarchy will be flattened, [none] means", 
"the hierarchy is preserved and [all] that it is completly flattened.", 
"[except] followed by a list of String specifies which module will", 
"not be flattened and [only] has the opposite meaning, [leaf] means", 
"that only the leaves modules will be flattened. Default is [none] .", 
GnlFlattenOption, 
}, 

{"-flat_string", 
"-f s M , 
"<String>" , 

"Specifies the String .which separates instance names on a " , 
"hierarchical path after flattening. By default the string is \".\".", 
"Ex: U1,U2.U3 means that after the flattening, the current component", 
"comes from the instance path Ul, U2 and U3 . " , 
NULL, 

GnlFlattenStrOption, 
GNL_0PTION_FILE 

h 

{ " ~f lat_instance_name" , 
"-fin" , 

" [hierarchical | compact] " , 

"Specifies if the names of the flattened instances will correspond", 
"to the hierarchical name (ex: \\instl\\inst2) or a compact name (name", 
"of the deepest instance) when flattening of the hierarchy is invoked.", 
NULL, 
NULL, 

GnlFlattenlnstanceNameOption, 
GNL_OPTION_FILE 

h 

{ " -no_f old_identical_partition" , 
"-nfip", 

It t! 

/ 

"Specifies if during the optimization phase, HUBBLE -RTL will try to fold" 
"or not the identical partition of glue logic. This can significantly", 
"speed-up the logic optimization phase. By default the folding is", 
"performed but by using this option you disable the folding.", 
NULL, 

GnlFoldlsoPartOption, 
GNL OPTION FILE 
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{ "-top" , 
"-t", 

"<String>" , 

"Specifies the top Verilog module from which the synthesis/estimation 

"will be performed.", 

NULL, 

NULL, 

NULL, 

GnlTopOption, 
GNL_0 PT I ON__F I LE 

"-dir" , 
"<String>" , 

"Specifies the directory where leaf cell modules can be found.", 

NULL, 

NULL, 

NULL, 

NULL, 

GnlModelDirOption, 
GNL_0PTION_FILE 

h 

{"+libext+" , 
"-ext" , 
"<String>" , 

"Specifies the extension of the files defining the leaf cell modules. 

NULL, 

NULL, 

NULL, 

NULL, 

GnlMode 1 Ext Op t ion , 
GNL_OPTION_FILE 

{ » -build_lib_f orce" , 
"-blf ", 
" [min | max] " , 

"Specifies if the .lib library with be used in a minimum or a", 
"maximum use. Maximum use is slower to build the library but", 
"results may be better because the complex cells may be instantiated. 
NULL, 
NULL, 

GnlBuildLibForceOption, 
GNL_0PTI0N_FILE 

h 

{ " -print_hierarchy" , 
"-ph", 

" [none | bef ore_f lat | af ter_f lat | both] " , 

"Invokes the printing of the design hierarchy. This can be done", 
"before the flattening phase (option [bef ore_f lat] ) or after it", 
"(option [af ter_f lat] ) since the flattening can change the hierarchy. 
"Option [both] prints out before and after flattening.", 
NULL, 

GnlPrintHierarchyOption , 

GNL_0 PT I ON_F I L E 

}, 

{ " -report_data" , 
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n -rd" , 

" [none | modules | cells | timings | powers] ", 

"Invokes the printing of a final report in which several data are", 
"presented related either to modules (use option [modules]) or to", 
"library cells (use option [cells]). Use option [timings] to get", 
"any information regarding timing issues in the design. Option", 
"[powers] will give average power and peak power in the design.", 
GnlReportDataOption, 
GNL_0 PT I ON_F I LE 

{ " -print_nb_critical_path" , 
" -pncp " , 
"<Integer> M , 

"Defines the number of critical paths which will be printed out", 
"when the option [-rd timings] is invoked", 

NULL , 
NULL, 
NULL, 

GnlPrintNbCritPath, 
GNL_OPTION_FILE 

h 

{ " -print__max_f anout_vars " , 

"-pmfv", 
it M 

"when the option [-rd cells] is invoked, this option forces HUBBLE -RTL" , 

"to print out for each library cell, the corresponding instances", 

"with the maximum fan out", 

NULL, 

NULL, 

GnlPrintMaxFanoutVarsOption, 
GNL_OPTTON_FILE 

/* For VERIFICATION */ 
{ "-input!", 

"-il" , 

"<String>" , 

"Specifies the first Netlist used in the Netlist Checker.", 

NULL, 

NULL, 

NULL, 

NULL, 

Gnl InputOp t ion , 
GNL_OPTION_FILE 

h 

{ "-input2", 
"-i2" , 
"<String>" , 

"Specifies the second Netlist used in the Netlist Checker.", 

NULL, 

NULL, 

NULL, 

NULL, 

GnlReferenceOption, 
GNL_OPTION_FILE 

}, 

{ " -read_name_association_f ile" , 
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"-rnaf", 
"<String>" , 

"Specifies the input file which defines the associations between the", 
"port names. The Netlist Checker will take into account these", 
"associations to prove the two netlists. If this option is not", 
"invoked then HUBBLE will try to figure out the associations by", 
"itself. ", 

Gn 1 1 npu t As s o c Op t i on , 

GNL_0 P T I ON_F I L E 

}, 

{ " -print_name__association__f ile" , 
" -pnaf " , 
"<String>" , 

"Tells HUBBLE to print out the file of the ports associations used", 

"in the Netlist Checker. This file can be edited and re-read in HUBBLE", 

"with the option '-naif. The ports associations can be then controlled", 

"in that way if you are not satisfied with the automatic ports", 

"association done in HUBBLE.", 

GnlOutputAssocOption, 

GNL_0PTI0N_FILE 

{ " -verif_max_bdd_node " , 
" -vmaxbdd" , 
"<Integer>" , 

"Specifies the maximum number of BDDs node before any break point", 

"is introduced when the Equivalence Checker is invoked", 

NULL, 

NULL, 

NULL, 

GnlMaxBddNodeOption, 
GNL_0 PT I ON_F I LE 

{ " -ignore_random_simulation" , 
"-irs" , 

II IT 

/ 

"tells HUBBLE not to call the random simulation phase during the Netlist", 
"Checking. " , 

NULL, 
NULL, 
NULL, 

Gnl I gnoreRandomS imOp t ion , 

GNLJDPT ION_F I LE 

} 



}; 

/* */ 

/* */ 

/* Global Variables. */ 

/* */ 

GNL_ENV G_GnlEnv ; 

int G_GLOB_ARGC ; 

char * *G_GLOB_ARGV ; 

/* */ 
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/* GnlSetDefaultEnv */ 

/* */ 

/* Set default options on global environment ' G_GnlEnv ' . */ 

/* */ 

GNL_STATUS GnlSetDefaultEnv () 

{ 

char *NewStr; 

/* -1 corresponds to the default injection. */ 
SetGnlEnvInject (-1) ; 

/* we prints out by default 1 critical path. */ 
SetGnlEnvPrintNbCritPath (1) ; 

/* we perform by default an automatic folding of logic partitions */ 
SetGnlEnvFoldlsoPart (1) ; 

/* The separation Str for flattening is 1 . ' */ 
if (GnlStrCopy (".", &NewStr) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlEnvFlattenStr (NewStr) ; 



/* By default we try to respect the tech. library constraints */ 
SetGnlEnvRespectLibConstraints (1) ; 



/* By default we invoke the post optimization phase. */ 
SetGnlEnvPostOpt (1) ; 

/* By default the voltage is 5.0 */ 
SetGnlEnvVDD (5.0); 

return (GNL_0K) ; 

} 

/* */ 

/* GnlCreateGnlEnv */ 

/* */ 

/* Creates and set global environment 'G_GnlEnv'. */ 

/* */ 

GNL_STATUS GnlCreateGnlEnv () 

{ 

if ( (G_GnlEnv - (GNL_ENV) calloc (1, sizeof (GNL_JENV__REC) ) ) — NULL) 
return (GNL_MEMORY_FULL) ; 

/* Setting the default values for the Environment 'Env'. */ 
if (GnlSetDefaultEnv ()) 

return (GNL_MEMORY_FULL) ; 

return (GNL_0K) ; 

} 

/* */ 

/* GnlPrintHelp */ 

/* */ 

void GnlPrintHelp () 

{ 
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int opt_no; 

fprintf (stderr, "\nUsage: %s %s\n", GNL_TOOL_NAME , GNL_MAPIT_VERSION) ; 

fprintf (stderr, " \n"); 

for (opt_no=0; opt_no < GNL_NB_OPTIONS ; opt_no++) 

{ 

fprintf (stderr, " %s [%s] %s : \n", 

G_Options [opt_no] .Name, 

G_Options [opt_no] .Alias, 

G_Options [opt_no] . OptionValue) ,- 
if (G_Options [opt_no] .Helpl) 



fprintf (stderr, " %s \n", G_Op t ions [op t_no] . Helpl) ; 
if (G_Options [opt_no] .Help2) 

fprintf (stderr, " %s \n", G_Options [opt_no] .Help2) ; 
if (G_Options [opt__no] .Help3) 

fprintf (stderr, " %s \n", G_Options [opt_no] . Help3 ) ; 
if (G__Options [opt_no] .Help4) 

fprintf (stderr, " %s \n", G_Options [opt_no] .Help4) ; 
if (G__Options [opt_no] .HelpS) 

fprintf (stderr, " %s \n M , G_Options [opt_no] .HelpS) ; 
fprintf (stderr, "\n"); 

} 

} 

/* */ 

/* GnlParamlsOption */ 

/* */ 

/* Returns 1 if ' Param 1 is a Mapit option and 0 otherwise. */ 

/* */ 

int GnlParamlsOption (Param) 
char *Param; 

{ 



int opt__no; 

for (opt_no=0; opt_no < GNL_NB_OPTIONS ; opt_no++) 

{ 

if ( ! strcmp (Param, G_Opt ions [op t__no] . Name) ) 
return (1) ; 

if (Istrcmp (Param, G_Options [opt_no] .Alias) ) 
return (1) ; 

} 

return (0) ; 

} 



/* */ 

/* GnlParseCommandLine */ 

/* */ 

/* WARNING: when processing option -command, global variables */ 

/* G_GLOB__ARGC and G_GLOB_ARGV can be modified (when function */ 

/* "GnlReadCmdFile" is called) . */ 

/* */ 

void GnlParseCommandLine (GnlEnv, argc, argv) 
GNL_ENV GnlEnv; 
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int argc; 

char **argv; 

int arg_no = 1 ; 

int opt__no; 

int i ; 

int j ; 
BLIST *SubList; 

int Found; 



if (argc == 1) 

{ 

GnlPrintHelp () 
exit (0); 

} 

G_GLOB_ARGC = argc; 
G_GLOB_ARGV = argv; 



while (arg_no < G_GLOB_ARGC) 

{ 

Found = 0; 

for (opt_no=0; opt_no < GNL_NB_OPTIONS ; opt_no++) 

{ 

if ( Istrcmp (G_GLOB_ARGV [arg_no] , G_Options [opt_no] .Name) ) 

{ 

Found = 1; 
break ; 

} 

} 

if (! Found) 

{ 

for (opt_no=0; opt_no < GNL_NB_0PTI0NS ; opt_no++) 

{ 

if { Istr cmp { G_GLOB_ARGV [ a r g_no 3 , 

G_0ptions [opt_no] .Alias) ) 

{ 

Found = 1; 
break; 

} 

} 

} 

if (! Found) 

{ 

fprintf (stderr, " ERROR : option [%s] is unknown\n" , 
G_GLOB__ARGV[arg_no] ) ; 

exit (1) ; 

} 

(G_Options [opt__no] .Function) (GnlEnv, G_GLOB_ARGC , G_GLOB_ARGV , 

&arg_no) ; 

} 
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/* */ 

/* GnlCheckOptionsSynthesis */ 

/* */ 

/* For synthesis purpose we make sure that: */ 

/* - there is an input file */ 

/* - there is an output file */ 

/* - there is a technology library provided */ 

/* */ 



void GnlCheckOptionsSynthesis () 

{ 

if (! GnlEnv Input () ) 

{ 

f print f (stderr, 

11 ERROR: Verilog input file is missing (use -i option) \n"); 
exit (1); 

} 

if { ! GnlEnvOutput ( ) ) 

{ 

f print f (stderr, 

" ERROR: Verilog output file name is missing (use -o option) \n" ) ; 
exit (1) ; 

} 

if ( !GnlEnvLib() ) 
{ 

fprintf (stderr, 

" ERROR: Technology Library must be specified (use -lib option) \n" ) ; 



exit (1) ; 

} 

} 

/* */ 

/* GnlCheckOptionsEstimation */ 

/* */ 

/* For estimation purpose we make sure that: */ 

/* - there is an input file */ 

/* - there is a technology library provided */ 

/* - the input format is VERILOG */ 

/* */ 



void GnlCheckOptionsEstimation () 

{ 

if ( ! GnlEnvInput ( ) ) 
{ 

fprintf (stderr, 

" ERROR: Verilog input file is missing (use -i option) \n"); 
exit (1) ; 

} 

if ( !GnlEnvLib() ) 

{ 

fprintf (stderr, 

" ERROR: Technology Library must be specified (use -lib option) \n n ); 
exit (1) ; 
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} 

if (GnlEnvInputFormat () != GNL_INPUT__VLG) 
{ 

f print f (stderr, 

" ERROR : The input format must be verilog in ESTIMATION mode\n" ); 
exit (1) ; 

} 

} 



/* */ 

/* GnlCheckOptionsPostOptimization */ 

/* */ 

/* For estimation purpose we make sure that: */ 

/* - there is an input file */ 

/* - there is an output file */ 

/* - there is a technology library provided */ 

/* - the input format is VERILOG */ 

/* */ 



void GnlCheckOptionsPostOptimization (} 

{ 

if ( ! GnlEnvInput ( ) ) 

{ 

f print f (stderr, 

11 ERROR: Verilog input file is missing (use -i option) \n" ) ; 
exit (1) ; 

} 

if ( IGnlEnvLibO ) 
{ 

f print f (stderr, 

" ERROR: Technology Library must be specified (use -lib option) \n" ) ; 
exit (1); 

} 

if (GnlEnvInputFormat () 1= GNL_INPUT_VLG) 
{ 

fprintf (stderr, 

" ERROR: The input format must be verilog in POST -OPTIMIZATION mode\n M ); 
exit {!); 

} 

if ( ! GnlEnvOutput ( ) ) 
{ 

fprintf (stderr, 

" ERROR: Verilog output file name is missing (use -o option) \n" ) ; 
exit (1) ; 

} 



/* */ 

/* GnlCheckOptionsTranslate */ 
/* */ 

/* For translate purpose we make sure that: */ 
/* - there is an input file */ 
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/* 

void GnlCheckOptionsTranslate () 

{ 



if ( IGnlEnvInput () ) 

{ 

fprintf (stderr, 

" ERROR: fsm input file is missing (use -i option) \n" ) ; 
exit (1) ; 

} 



/* 

/* GnlCheckOptionsVerif ication */ 
/* 

/* For verification purpose we make sure that: */ 
/* - there is a reference file */ 

/* - there is an input file */ 

/* - there is a technology library provided */ 

/* 

void GnlCheckOptionsVerif ication {) 

{ 

if ( IGnlEnvInput () ) 
{ 

fprintf (stderr, 

" ERROR: Verilog input file is missing (use -i option) \n"); 
exit (1) ; 

} 

if ( ! GnlEnvRef erence ( ) ) 

{ 

fprintf (stderr, 

" ERROR: Reference Verilog Netlist is missing (use -r option) \n" ) ; 
exit (1) ; 



if ( [GnlEnvLibO ) 

{ 

fprintf (stderr, 

" ERROR: Technology Library must be specified (use -lib option) \n n ); 
exit (1) ; 

} 

} 

/* 

/* GnlCheckOptions */ 

/* 

void GnlCheckOptions (Env) 
GNL__ENV Env; 

{ 



switch (GnlEnvMode ()) { 

case GNL_MODE_SYNTHESIS : 

GnlCheckOptionsSynthesis () ; 
break; 
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case GNL_M0DE_ESTIMATION: 

GnlCheckOptionsEstimation () ; 
break; 

case GNL__MODE_TRANSLATE : 

GnlCheckOptionsTranslate () ; 
break; 

case GNL_MODE_VERIF I CATION : 

GnlCheckOptionsVerif ication () ; 
break; 

case GNL_MODE_POST_OPTIMIZATION: 

GnlCheckOptionsPostOptimization () ; 
break; 

} 

} 



/* 

/* GnlModeOption */ 

/* 

void GnlModeOption (Env, argc, argv, arg__no) 
GNL_ENV Env; 
v int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "estimation") && 
strcmp (argv [*arg_no] , "verification") 
strcmp (argv [*arg_no] , "translate") && 
strcmp (argv [*arg__no] , M post__optimization" ) && 
strcmp (argv [*arg__no] , "synthesis") ) 

{ 

fprintf (stderr, 
" ERROR: Option values are 

[synthesis | estimation | translate | verification | post_optimization] \n" ) ; 
exit (1); 

} 

if (Istrcmp (argv [*arg_no] , "estimation")) 

SetGnlEnvMode ( GNL_MODE_E S T I MAT I ON ) ; 
else if (Istrcmp (argv [*arg_no] , "verification")) 

SetGnlEnvMode (GNL_MODE_VER IF ICATION) ; 
else if (Istrcmp (argv [*arg_no] , "translate")) 

SetGnlEnvMode (GNL_MODE_TRANSLATE) ; 
else if ('strcmp (argv [*arg_no] , "post_optimization" ) ) 

SetGnlEnvMode (GNL_M0DE_POST_0PTIMIZATION) ; 



D-GNL2-135 



gnloption.c 



else 

SetGnlEnvMode { GNL_MODE_S YNTHES I S ) ; 
(*arg_no) ++,* 



/* v 

/* Gnl Input Opt ion */ 

/* v 

void GnllnputOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 

int argc; 

char **argv ; 

int *arg_no; 

{ 

(*arg_no) ++; 



if (argc == *arg_no) 
{ 

fprintf (stderr, " ERROR : value for option [%s] is missing\n", 
argv [ - - ( *arg_no) ] ) ; 

exit (1); 

} 

/* If the input file name has the same name as the output file name */ 
if (GnlEnvOutput () ! strcmp (GnlEnvOutput () , argv [*arg_no] ) ) 

fprintf (stderr, 

" ERROR: input and output file cannot be the same\n" ); 

exit (1); 

} 



} 



SetGnlEnvInput (argv [*arg_no] ) ; 
(*arg_no) ++; 



/* 

/* GnllnputAssocOption 

/* 

void GnllnputAssocOption (Env, argc, argv, arg_no) 
GNL__ENV Env; ~~ 

int argc; 
char **argv; 
int *arg_no; 



{ 



(*arg_no) ++; 

if (argc == *arg no) 

{ 

fprintf (stderr, » ERROR: value for option [%s] is missing\n" , 
argv[-- (*arg_no) ] ) ; 

exit (1) ; 

} 



*/ 
*/ 
*/ 



} 



SetGnlEnvInputAssoc (argv [*arg_no] 
(*arg no) ++; 



/* 

/* GnlOutputOption 
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/* 

void GnlOutputOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv,* 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" f 
argv [ - - ( *arg_no) ] } ; 

exit (l); 

} 

/* If the input file name has the same name as the output file name 
if (GnlEnvInput () && Istrcmp (GnlEnvInput () , argv [*arg_no] ) ) 

{ 

fprintf (stderr, 

" ERROR: input and output file cannot be the same\n") ; 

exit (1) ; 

} 

SetGnlEnvOutput (argv [*arg_no] ) ; 
(*arg_no) ++; 

} 

/* 

/* GnlOutputAssocOption 

/* 

void GnlOutputAssocOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_jno) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missingXn", 
argv [- - (*arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvOutputAssoc (argv [*arg_no] ) ; 
(*arg_no) ++; 

} 

/* 

/* GnlXorUnprovedOption 

/* 

void GnlXorUnprovedOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
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int *arg_no; 

{ 

(*arg__no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvXorUnproved (argv [*arg_no] ) ; 
(*arg_no) ++; 

} 



/* 

/* GnlLogOption 

/* 

void GnlLogOption (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc ; 

char **argv; 

int *arg_no; 



{ 



(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR : value for option [%s] is missing\n", 
argv [ - - ( *arg_no) ] ) ; 

exit (1) ; 

} 

fprintf (stderr, "Mapit Trace redirected to log file ' %s , \n", 

argv [*arg_no] ) ; 
fprintf (stderr, "Mapit Processing \n" ) ; 

if ( ! f reopen {argv [*arg_no] , "w" , stderr) ) 

{ 

fprintf (stderr, "ERROR: cannot redirect <stderr> . \n") ; 
exit (l); 

} 

SetGnlEnvLog (argv [*arg_no] ) ; 
(*arg_no) ++; 



/* 

/* GnlLibraryOption */ 
/* 

void GnlLibraryOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 
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} 



(*arg_no) ++ ; 

if (argc *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvLib (argv [*arg_noj ) ; 
(*arg_no) ++; 



/* 

/* Gnl Input Format Opt ion 

/* 

void Gnl Input FormatOpt ion (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc; 

char **argv; 

int *arg_no; 



{ 



} 



(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg__no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "fsm") && 
strcmp (argv [*arg_no] , "vlg" )) 

{ 

fprintf (stderr, 

" ERROR: Option values are [f sm | vlg] \n n ) ; 

exit (1); 

} 

if (1 strcmp (argv [*arg_no] , "fsm")) 

SetGnlEnvInputFormat (GNL_INPUT__FSM) ; 
else 

SetGnlEnvInputFormat (GNL_INPUT_VLG) ; 
(*arg_no) ++; 



/* */ 

/* GnlFlattenStrOption */ 
/* */ 

void GnlFlattenStrOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 
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BLIST ListFlatten; 
char * Par am; 



} 



(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR : value for option [%s] is missingXn", 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 



SetGnlEnvFlattenStr (argv [*arg_no] ) ; 
(*arg_no) ++; 



/* 

/* GnlFlattenOption 

/* 

void GnlFlattenOption (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc ; 

char **argv; 

int *arg__no; 

{ 

BLIST ListFlatten; 
char *Param; 



(*arg__no) ++ ; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR; value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "none") && 
strcmp (argv [*arg__no] , "leaf") && 
strcmp (argv [*arg_no] , "only") && 
strcmp (argv [*arg_no] , "except") 
strcmp (argv [*arg_no] , "all")) 

{ 

fprintf (stderr, 

" ERROR: Option values are [none | all | except | onlyleaf] \n" ) ; 
exit (1) ; 

} 

if ( ! strcmp (argv [*arg_no] , "none" ) ) 

SetGnlEnvFlatten <GNL_NO_FLATTEN) ; 
else if (Istrcmp (argv [*arg_no] , "except")) 

SetGnlEnvFlatten <GNL_EXCEPT_FLATTEN) ; 
else if (istrcmp {argv [*arg_ no] , "only")) 

SetGnlEnvFlatten ( GNL_ONL Y_FLATTEN ) ; 
else if (Istrcmp (argv [*arg__no] , "leaf")) 
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SetGnlEnvFlatten (GNL_LEAF_FLATTEN) ; 
else 

SetGnlEnvFlatten (GNL_ALL_FLATTEN) ; 
(*arg_no) ++; 

if ((GnlEnvFlatten () ~~ GNL_NO_FLATTEN) |) 

(GnlEnvFlatten () « GNL_LEAF_FLATTEN) | ( 
(GnlEnvFlatten () == GNL_ALL_FLATTEN) ) 
return; 

if (BListCreate (ScListFlatten) ) 
return ; 

SetGnlEnvFlatListModules (ListFlatten) ; 

while (1) 

{ 

if {argc == *arg_no) 

return; 
Param = argv [*arg_no] ; 

if (GnlParamlsOption (Param) ) 

{ 

return; 

} 

if (BListAddElt (ListFlatten, (int) Param)) 
return; 

(*arg_no) ++; 

} 

} 



/* */ 

/* GnlFlattenlnstanceNameOption */ 

/* */ 

void GnlFlattenlnstanceNameOption (Env, argc, argv, arg no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc == *arg_no) 

{ 



fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [ - - ( *arg_no) ] ) ; 

exit (1); 

} 

if (strcmp (argv [*arg_no] , "hierarchical") && 
strcmp (argv [*arg_no] , "compact")) 

{ 

fprintf (stderr, 

" ERROR: Option values are [hierarchical | compact] \n" ) ; 
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exit (1); 

} 

if (istrcmp (argv [*arg_no] , "hierarchical")) 

SetGnlEnvFlattenlnstanceName ( GNL_F L AT_H I ERARCH I CAL_N AME ) ; 
else 

SetGnlEnvFlattenlnstanceName (GNL_FLAT_COMPACT_NAME) ; 
(*arg_no) ++ ; 



/* 

/* GnllnjectOption 

/* 

void GnllnjectOption (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc; 

char **argv; 

int *arg_no; 



{ 

(*arg_no) ++; 
if (argc -= *arg_no) 
{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv[-- (*arg_no) ] ) ; 

exit (1); 

} 

SetGnlEnvInject (atoi (argv [*arg_no] ) ) ; 
(*arg_no) ++; 

} 

/* */ 

/* GnlOptForceOption */ 

/* */ 

void GnlOptForceOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv; 
int *arg__no; 



{ 



(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [ - - ( *arg_no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "low") && 

strcmp (argv [*arg_no] , "medium ") && 
strcmp (argv [*arg_no] , "high") ) 

{ 

fprintf (stderr, 

" ERROR: Option values are [low | medium) high] \n" ) ; 
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exit (l); 

} 

if (Istrcmp (argv [*arg__no] , "low_opt")) 

SetGnlEnvOptForce (GNL_LOW_OPT) ; 
else if (istrcmp (argv [*arg_no] , "med_opt"}) 
SetGnlEnvOptForce (GNL_MED_OPT) ; 

else 

SetGnlEnvOptForce (GNL_HIGH_OPT) ; 
(*arg_no) ++; 

} 

z* 

/* GnlPrintHierarchyOption 

/* " : 

void GnlPrintHierarchyOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "none") 

strcmp (argv [*arg_no] , "bef ore_f lat " ) && 
strcmp (argv [*arg_no] , "both") && 
strcmp (argv [*arg_no] , "af ter_f lat " ) ) 

{ 

fprintf (stderr, 

" ERROR: Option values are 
[none | bef ore_f lat | af ter_f lat j both] \n" ) ; 
exit (1) ; 

} 

if ( ! strcmp (argv [*arg_no] , "none" ) ) 

SetGnlEnvPrintHierarchy (GNL_PRINT_NONE) ; 
else if (Istrcmp (argv [*arg_no] , "bef ore_f lat") ) 

SetGnlEnvPrintHierarchy (GNL_PRINTJBEFORE_FLAT) ; 
else if (Istrcmp (argv [*arg_no] , "both")) 

SetGnlEnvPrintHierarchy (GNL_PRINT_BOTH) ; 

else 

SetGnlEnvPrintHierarchy (GNL_PRINT_AFTER_FLAT) ; 
(*arg_no) ++; 

} 

/* 

/* GnlReportDataOption 

/* 
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void GnlReportDataOption (Env, argc, argv, arg_no) 
GNL_ENV Env ; 

int argc ,- 

char **argv; 
int *arg_no; 



(*arg_no) ++ ; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR : value for option [%s] is missing\n'\ 
argv[-- (*arg_no) ] ) ; 

exit (1) ; 

} 

if (strcmp (argv [*arg_no] , "none") && 

strcmp (argv [*arg_no] , "modules") && 
strcmp (argv [*arg_no] , "timings") 
strcmp (argv [*arg_no] , "powers") && 
strcmp (argv [*arg_no] , "cells") ) 

{ 

fprintf (stderr, 

" ERROR: Option values are 
[none | modules | cells | timings (powers] \n" ) ; 
exit (1) ; 

} 

if ('strcmp (argv [*arg_no] , "none")) 

SetGnlEnvReportData (GNL_REPORT_NONE) ; 
else if (Istrcmp (argv [*arg__no] , "modules")) 

SetGnlEnvReportData (GNL_REPORT_MODULES) ; 
else if (! strcmp (argv [*arg_jio] , "timings")) 

SetGnlEnvReportData <GNL_REPORT_TIMINGS) ; 
else if (Istrcmp (argv [*arg__no] , "powers")) 

SetGnlEnvReportData (GNLJREPORTJPOWERS) ; 

else 

SetGnlEnvReportData (GNL_REPORT_CELLS) ; 
(*arg_no) ++; 



/* 

/* GnlCriterionOption 

/* 

void GnlCriterionOption (Env, argc, argv, arg_no) 
GNL_ENV Env ; 

int argc; 
char **argv; 
int *arg_no; 



{ 



(*arg_no) ++ ; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [ - - ( *arg_no) ] ) ; 

exit (1) ; 



D-GNL2-144 



gnloption.c 



} 

if (strcmp (argv [*arg_no] , "area_gate " ) && 
strcmp (argv[*arg_no] r "power") && 
strcmp (argv [*arg_no] , "area_net") && 
strcmp (argv [*arg_no] , "nl_delay" ) && 
strcmp (argv [*arg_no] , "timing")) 

{ 

fprintf (stderr, 

" ERROR: Option values are 
[area__gate j area_net j nl_delay | power | timing] \n" ) ; 
exit (1) ; 

} 

if { ! strcmp (argv [*arg_no] , "area_gate") ) 

SetGnlEnvCriterion (GNL_AREA) ; 
else if (I strcmp (argv [*arg_no] , "power")) 

SetGnlEnvCriterion (GNL_POWER) ; 
else if (] strcmp (argv [*arg_no] , "nl_delay" ) ) 

SetGnlEnvCriterion (GNL__NL_DELAY) ; 
else if (istrcmp (argv [*arg_no] , n area_net n )) 

SetGnlEnvCriterion (GNL_NB_NETS) ; 

else 

SetGnlEnvCriterion (GNLJTIMING) ; 
(*arg_no) ++; 



} 



/* 

/* GnlTopOption 

/* 

void GnlTopOption (Env, argc, argv, arg__no) 

GNL_ENV Env; 

int argc ; 

char **argv; 

int *arg_no; 



(*arg_no) ++; 

if (argc -= *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [- - (*arg_no) ] ) ; 

exit (l) ; 

} 



} 



SetGnlEnvTop (argv [*arg_no] ) ; 
(*arg_no) ++; 



/* 

/* GnlModelDirOption 

/* 

void GnlModelDirOption (Env, argc, argv, arg_no) 
GNL__ENV Env; 
int argc; 
char **argv; 
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} 



int *arg_no; 



(*arg_no) ++; 
if (argc == *arg_no) 
{ 

f print f (stderr, » ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1); 

} 

SetGnlEnvModelDir (argv [*arg_no] ) ; 
(*arg_no) ++; 



/* 

/* GnlFsmDirOption 

/* 

void GnlFsmDirOption (Env, argc, argv, arg_no) 
GNLJENV Env; 
int argc; 
char **argv; 
int *arg_no; 



(*arg_no) ++; 

if (argc == *arg no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [ - - ( *arg_no) ] ) ; 

exit (l) ; 

} 



} 



SetGnlEnvFsmDir (argv [*arg_no] ) ; 
(*arg__no) ++; 



/* 

/* GnlModelExtOption */ 

/* . 

void GnlModelExtOption (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc ; 

char **argv; 

int *arg_no; 

{ 

(*arg_no) ++ ; 
if (argc = = *arg no) 
{ 

fprintf {stderr, » ERROR : value for option [%s] is missing\n", 
argv [-- (*arg_no) ] ) ; 

exit (l) ; 

} 

SetGnlEnvModelExt (argv [*arg_no] ) ; 
(*arg_no) ++ ; 
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/* 

/* GnlBuildLibForceOption */ 
/* 

void GnlBuildLibForceOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv; 
int *arg_no; 

{ 

(*arg_no) ++ ; 
if (argc == *arg_no) 
{ 

fprintf (stderr, » ERROR: value for option [%s] is missing\n", 
argv [-- (*arg__no) ] ) ; 

exit (1); 

} 

if (strcmp (argv [*arg_no] , "min") 
strcmp (argv [*arg_no] , "max") ) 

{ 

fprintf (stderr, 

" ERROR: Option values are [min | max] \n" ) ; 

exit (l); 

} 

if (Istrcmp (argv [*arg_no] , "min")) 

SetGnlEnvBuildLibForce (GNL_BUILD_LIB_MIN) ; 
else 

SetGnlEnvBuildLibForce ( GNL_BU I LD_L I B_MAX ) ; 
(*arg_no) ++; 

} 

z* 

/* GnlPrintMaxFanoutVarsOption *'/ 
/* J, 

void GnlPrintMaxFanoutVarsOption (Env, argc, argv, arg_no) 
GNL_ENV Env; ~ 

int argc ; 

char **argv; 
int *arg_no; 

{ 

SetGnlEnvPrintMaxFanoutVars (1) ; 
(*arg_no) ++; 

} 



/ 



* 



/ 



/* 

/* GnlFoldlsoPartOption *'/ 
/* 

void GnlFoldlsoPartOption (Env, argc, argv, arg_no) 
GNL__ENV Env; 
int argc ; 

char **argv; 
int *arg_no; 
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{ 

SetGnlEnvFoldlsoPart (0) ; 
(*arg_no) ++; 

} 

/* 

/* GnlUseQBarOption 

/* 

void GnlUseQBarOption (Env, argc, argv, arg_no) 

GNL_ENV Env; 

int argc ; 

char **argv; 

int *arg_no; 

{ 

SetGnlEnvUseQBar (1) ; 
(*arg_no) ++; 

} 



/* 

/* GnlReplaceOnlyCombiCompoOption 

/* 

void GnlReplaceOnlyCombiCompoOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 



{ 



} 



SetGnlEnvReplaceOnlyCombiCompo (1) ; 
(*arg_no) ++; 



/* 

/* GnlDontTouchOption 

/* 

void GnlDontTouchOption (Env, argc, argv, arg_no) 
GNL_ENV Env ; 

int argc; 
char **argv; 
int *arg_no; 



SetGnlEnvDontTouch (1) ; 
(*arg_no) ++; 



/* 

/* GnlRemoveBuf f erOption 

/* 

void GnlRemoveBuf f erOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 
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{ 

SetGnlEnvRemoveBuf f er (1) ; 
(*arg_no) ++; 

} 

/* 

/* GnlPinSeqPolMatchingOption 

/* 

void GnlPinSeqPolMatchingOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv; 
int *arg_no; 

{ 

SetGnlEnvPinSeqPolMatching (1) ; 
(*arg_no) ++ ; 

} 

/* 

/* GnlMaxCellSizeSupportOption 

/* 

void GnlMaxCellSizeSupportOption (Env, argc, argv, arg__no) 
GNL_ENV Env; ~ 

int argc ; 

char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 
if (argc == *arg_no) 
{ 

fprintf (stderr, » ERROR: value for option [%s] is missing\n" , 
argv [ - - ( *arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvMaxCellSizeSupport (atoi (argv [*arg_no] ) ) ; 
(*arg_no) ++; 

} 

/* 

/* GnlMinShareLogicSizeOption 

/* 

void GnlMinShareLogicSizeOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv ; 
int *arg_no; 

{ 

(*arg_no) ++; 
if (argc == *arg_no) 
{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [ - - (*arg_no) ] ) ; 

exit (l) ; 
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} 

SetGnlEnvMinShareLogicSize (atoi (argv [*arg_no] ) ) ; 
(*arg_no) ++,* 

} 

/* +1 

/* GnlVDDOption */ 
/* if/ 

void GnlVDDOption (Env, argc, argv, arg_no) 

GNLJENV Env; 

int argc; 

char **argv; 

int *arg_no; 

{ 

float Volt; 

(*arg_no) ++ ; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1) ; 

} 

Volt = (float) atoi (argv [*arg_no] )/ (float) 10 00 ; 
SetGnlEnvVDD (Volt) ; 
(*arg_no) ++; 

} 

/* tk/ 

/* GnlRespectLibConstraintsOption */ 
/* ic/ 

void GnlRespectLibConstraintsOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc ; 

char **argv; 
int *arg_no; 

{ 

SetGnlEnvRespectLibConstraints (0) ; 
(*arg_no) ++; 

} 

/* 4t/ 

/* GnllgnorePostOptOption */ 
/* ic/ 

void GnllgnorePostOptOption (Env, argc, argv, arg_no) 
GNLJSNV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 
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SetGnlEnvPostOpt (0) ; 
(*arg_no) ++ ; 

} 



/* */ 

/* GnlPrintResizedGatesOption */ 
/* */ 

void GnlPrintResizedGatesOption {Env, argc, argv, arg_no) 
GNLJENV Env; 
int argc ; 

char **argv; 
int *arg_no; 



{ 

SetGnlEnvPrintResizedGates (1) ; 
(*arg_no) ++ ; 

} 



/* */ 

/* GnllgnoreRandomSimOption */ 
/* */ 

void GnllgnoreRandomSimOption {Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 



SetGnlEnvIgnoreRandomSim (1) ; 
(*arg__no) ++; 



/* */ 

/* GnlUseVerilogPrimitivesOption */ 
/* */ 

void GnlUseVerilogPrimitivesOption (Env, argc, argv, arg_no) 
GNL_ENV Env ; 

int argc ; 

char **argv; 
int *arg_no; 



{ 



} 



SetGnlEnvUseVerilogPrimitives (1) ; 
(*arg_no) ++; 



/* */ 

/* GnlPrintClkDomainOption */ 
/*^ */ 

void GnlPrintClkDomainOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

SetGnlEnvPrintClkDomain (1) ; 
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( *arg_no) ++; 

} 

/* */ 

/* GnlPrintCritRegionOption */ 
/* */ 

void GnlPrintCritRegionOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

SetGnlEnvPrintCritRegion (1) ; 
(*arg_no) ++; 

} 

/* */ 

/* GnlPrintNbCritPath */ 
/* */ 

void GnlPrintNbCritPath (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc — *arg_no) 

{ 

fprintf (stderr, " ERROR: value for option [%s] is missing\n", 
argv [-- <*arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvPrintNbCritPath (atoi (argv [*arg_no] ) ) ; 
(*arg_no) ++; 

} 

/* */ 

/* GnlRef erenceOption */ 

/* */ 

void GnlRef erenceOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_no) ++; 

if (argc == *arg_no) 

{ 

fprintf (stderr, " ERROR : value for option [%s] is missing\n" , 
argv [ - - ( *arg_no) ] ) ; 

exit (1) ; 

} 

SetGnlEnvRef erence (argv [*arg_no] ) ,- 
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(*arg_no) ++,- 

} 

z* 

/* GnlMaxBddNodeOption */ 

/* 

void GnlMaxBddNodeOption (Env, argc, argv, arg_no) 
GNL_ENV Env; 
int argc; 
char **argv; 
int *arg_no; 

{ 

(*arg_no) ++ ; 

if {argc == *arg_no) 

{ 

fprintf (stderr, " ERROR : value for option [%s] is missing\n" , 
argv [-- (*arg_no) ] ) ; 

exit (1); 

} 

SetGnlEnvMaxBddNode (atoi (argv [*arg_no] ) ) ; 
(*arg_no) ++; 

} 

z* 
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/* 

/* */ 

/* File: gnloption.h */ 

/* Version: 1.1 ★/ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* */ 
/* 



/* */ 

/* GNL_OPTION_TYPE */ 

/* */ 

typedef enum { 

GNL_OPTION_FILE , 
GNL_0 PT I ON_F ATTEN I NG 

} 

GNL_0PTI0N_TYPE ; 

/* 

/* GNL_MODE */ 

/* +/ 

typedef enum { 

GNL__MODE_S YNTHES I S , 

GNL_MO D E_VE R I F I CAT ION, 

GNL_MODE_TRANSLATE , 

GNL_MODE_POST_OPTIMIZATION, 

GNL_MOD E_E S T I MAT I ON 

} 

GNL_MODE; 

/* ie/ 

/* GNL_OPT_FORCE */ 

/* */ 

typedef enum { 

GNL__LOW__OPT, 
GNL_MED_OPT, 
GNL_H I GH_OPT 

} 

GNL_OPT_FORCE ; 

/* *i 

/* GNL_CRITERION */ 

/* */ 

typedef enum { 

GNL__AREA , 

GNL_POWER, 

GNL_NB_NETS , 

GNL_NL_DELAY, 

GNLJTIMING 

} 

GNL_CRITERION; 

/* 

/* GNL_FLATTEN */ 

/* */ 
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typedef enum { 

GNL_NO_FLATTEN , 
GNL_EXCEPT_FLATTEN , 
GNL_ONLY_FLATTEN , 
GNL_LEAF_FLATTEN , 
GNL_ALL_FLATTEN 

} 

GNL_FLATTEN; 

/* 

/* GNL_FLATTEN_INSTANCE_NAME */ 

/* */ 

typedef enum { 

GNL_FLAT__H I ERARCHI CAL_NAME , 
GNL__FLAT_COMPACT__NAME 

} 

GNL_FLATTEN_INSTANCE_NAME ; 

/* */ 

/* GNL_BUILD__LIB_FORCE */ 

/* */ 

typedef enum { 
f* GNL_BUI LD_L I B_M IN , 

^ GNL_BUILD_LIB_MAX 

3 } 

s 5 ; GNL_BUILD_LIB_FORCE ; 

yi 

ra /* */ 

til /* GNL__INPUT_FORMAT */ 

Q /* */ 

JB typedef enum { 

a GNL_INPUT_FSM, 

L GNL_INPUT_VLG 

S"; } 

GNL_INPUT_FORMAT ; 

2 y 

IB /* */ 

D /* GNL_PRINT_HIERARCHY */ 

£3 /* */ 

typedef enum { 

GNL_PRINT_NONE , 
GNL_PRINT_BEFORE_FLAT , 
GNL_PRINT_AFTER__FLAT , 
GNL_PRINT_BOTH 

} 

GNL_PR INT_H I ERAR CH Y ; 

/* */ 

/* GNL_RE PORT_DATA */ 
/* it/ 

typedef enum { 

GNL_REPORT_NONE , 
GNL_REPORT_MODULES , 
GNL_REPORT_TIMINGS , 
GNL_REPORT_POWERS , 
GNL_REPORT_CELLS 

} 
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GNL_REPORT DATA; 



/* */ 

/* GNL_ENV */ 

/* */ 

/* Global environment structure in MAPIT which stores all the options */ 

/* which can be relevant during any process. */ 

/* */ 



typedef struct 

{ 





GNL_MODE 


Mode / 






char 




* Input ; 




GNL__ I NPUT_FORMAT 




Input Format ; 




char 




* Output ; 




char 




*Log; 




GNL_OPT__FORCE 


OptForce ; 




GNL_CR ITERI ON 


Criterion; 




int 




UseQBar; 




int 




PinSeqPolMatching ; 




int 




Inject; 




GNL_FLATTEN 




Flatten; 


D 


char 




*FlattenStr; 




BLIST 


FlatListModules ; 


%. 'i 


GNL__FLATTEN_INSTANCE_ 


_NAME 


FlattenlnstanceName ; 




char 




*Lib; 


533 •> 


char 




*Top; 


~ y 


char 




*ModelDir; 




char 




* Mode 1 Ext; 




GNL_BUILD_LIB_FORCE 




BuildLibForce ; 




char 




*FsmDir; 




GNL_PRINT_HIERARCHY 




PrintHierarchy ; 




GNL_REPORT_DATA 




ReportData; 




int 




PrintNbCritPath; 




int 




FoldlsoPart ; 




int 




PrintMaxFanoutVars ; 


OJ 


int 




MaxCe 1 1 S i z e Support ; 




int 




MinShareLogicSize ; 




int 




UseVerilogPrimitives ; 




float 


VDD; 






int 




Rep 1 aceOnly Comb i Compo ; 




int 




RemoveBuf f er ; 




int 




DontTouch; 



/* Options For VERIFICATION */ 
char *Reference; /* VERIFICATION */ 

int MaxBddNode; /* VERIFICATION */ 

char *InputAssoc; 
char *OutputAssoc; 
char *XorUnproved; 
int IgnoreRandomSim; 

/* Options for TIMING reports */ 
int RespectLibConstraints ; 

int Print ClkDomain; 

int PrintCritRegion; 
int DoPostOpt; 
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int 



PrintResizedGates ; 



GNL ENV REC, *GNL ENV; 



/* We access the global variable ' G_GnlEnv ' 
#def ine GnlEnvMode ( ) 
#define GnlEnvInput ( ) 
#define Gnl Envlnput Format ( ) 
#define GnlEnvOutput ( ) 
#define GnlEnvLogO 
#define Gnl EnvOpt Force ( ) 
#define GnlEnvCr iter ion ( ) 
#define GnlEnvUseQBar ( ) 
#def ine GnlEnvPinSeqPolMatching () 
#define GnlEnvInj ect ( ) 
#define GnlEnvFlatten ( ) 
ttdefine GnlEnvFlattenStr () 
#define GnlEnvFlatListModules ( ) 
#def ine GnlEnvFlattenlnstanceName () 
#define GnlEnvLibO 
#define GnlEnvTopO 
#define GnlEnvModelDir ( ) 
#define GnlEnvMode 1 Ext ( ) 
#define GnlEnvBuildLibForce () 
#define GnlEnvFsmDir ( ) 
#define GnlEnvPrintHierarchy { ) 
#define GnlEnvReportData ( ) 
#define GnlEnvPrintNbCritPath ( ) 
#define GnlEnvFoldlsoPart ( ) 
#def ine GnlEnvPrintMaxFanoutVars () 
#def ine GnlEnvRespectLibConstraints ( 
#define GnlEnvPrintClkDomain ( ) 
#define GnlEnvPrintCritRegion ( ) 
#def ine GnlEnvMaxCellSizeSupport () 
#def ine GnlEnvMinShareLogicSize () 
#def ine GnlEnvUseVerilogPrimitives () 
#define GnlEnvPostOpt () 
#def ine GnlEnvVDD ( ) 
#def ine GnlEnvPrintResizedGates () 
#def ine GnlEnvReplaceOnlyCombiCompo ( 
#def ine GnlEnvRemoveBuf f er ( ) 
#define GnlEnvDontTouch ( ) 

/* Options For VERIFICATION 
#def ine GnlEnvRef erence ( ) 
#def ine GnlEnvMaxBddNode ( ) 
#define GnlEnvInputAssoc ( ) 
#def ine GnlEnvOutput Assoc { ) 
#define GnlEnvXorUnproved ( ) 
#define GnlEnvIgnoreRandomSim ( ) 



(G_ 


_GnlEnv- 


>Mode ) 


(g] 


_GnlEnv- 


> Input ) 


(g~ 


_GnlEnv- 


> Input Format) 


(G~ 


_GnlEnv- 


>Output ) 


(G~ 


_GnlEnv- 


>Log) 


(G~ 


_GnlEnv- 


>OptForce) 


(G~ 


_GnlEnv- 


>Criterion) 


(G~ 


_GnlEnv- 


>UseQBar) 


(G~ 


_GnlEnv- 


>PinSeqPolMatching) 


(g~ 


_GnlEnv- 


>Inject) 


(G~ 


_GnlEnv- 


>Flatten) 


(g" 


GnlEnv- 


>FlattenStr) 




(G_GnlEnv->FlatListModule 


(G_ 


_GnlEnv- 


>FlattenInstanceName) 


(g" 


_GnlEnv- 


>Lib) 


(G~ 


_GnlEnv- 


>Top) 




_GnlEnv- 


>ModelDir) 


(g" 


_GnlEnv- 


>ModelExt) 


(G~ 


_GnlEnv- 


>BuildLibForce) 


(G~ 


_GnlEnv- 


>FsmDir) 



(G_GnlEnv->PrintHierarchy) 
G_GnlEnv- >ReportDat a ) 

(G_GnlEnv- >PrintNbCritPath) 
G_GnlEnv- >FoldIsoPart ) 
G_GnlEnv- >PrintMaxFanoutVars ) 

(G_GnlEnv->RespectLibConstraints) 
(G_GnlEnv- >PrintClkDomain) 
(G_GnlEnv->PrintCritRegion) 
G_GnlEnv->MaxCellSizeSupport) 
G_GnlEnv- >MinShareLogi cS i ze ) 

(G_GnlEnv->UseVerilogPrimitives) 
G_GnlEnv->DoPostOpt) 
G_Gnl Env - >VDD ) 

G_GnlEnv->PrintResizedGates) 

( G__Gn 1 Env - >Rep 1 aceOnlyCombi Compo ) 
G_Gn 1 Env -> Remove Buf f er) 
G_Gnl Env - >Dont Touch) 

*/ 

G_GnlEnv->Ref erence) 
G_GnlEnv- >MaxBddNode) 
G_GnlEnv->InputAssoc) 
G_GnlEnv->Output Assoc) 
G_GnlEnv- >XorUnproved) 

( G_GnlEnv - > Ignor eRandomS im) 



#def ine SetGnlEnvMode (x) 
#def ine Set GnlEnvInput (x) 
#define SetGnlEnvInputFormat (x) 
#define Se t GnlEnvOutput (x) 
#define SetGnlEnvLog (x) 



(G_GnlEnv->Mode = x) 
(G_GnlEnv->Input = x) 

( G_GnlEnv - > I nput Format 
(G_GnlEnv->Output = x) 
(G_GnlEnv- >Log - x) 
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#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

#def ine 

#def ine 

#def ine 

#def ine 

#def ine 

#def ine 
#def ine 
#def ine 
#def ine 

#def ine 
#def ine 



SetGnlEnvOptForce (x) 
SetGnlEnvCriterion (x) 
SetGnlEnvUseQBar (x) 
SetGnlEnvPinSeqPolMatching (x 
SetGnlEnvInject (x) 
SetGnlEnvFlatten (x) 
SetGnlEnvFlattenStr (x) 
SetGnlEnvFlatListModules (x) 
SetGnlEnvFlattenlnstanceName 
SetGnlEnvLib (x) 
SetGnlEnvTop (x) 
SetGnlEnvModelDir (x) 
SetGnlEnvModelExt (x) 
SetGnlEnvBuildLibForce (x) 
SetGnlEnvFsmDir (x) 
SetGnlEnvPrintHierarchy (x) 
SetGnlEnvReportData (x) 
SetGnlEnvPrintNbCritPath (x) 



G_GnlEnv->OptForce = x) 
G_GnlEnv->Criterion = x) 
G_GnlEnv->UseQBar = x) 

(G_GnlEnv->PinSeqPolMatching = 
G_GnlEnv->Inject = x) 
G_GnlEnv->Flatten = x) 

(G_GnlEnv->FlattenStr = x) 
G_GnlEnv->FlatListModules = x) 
x) (G_GnlEnv- >FlattenInstanceName 
G_GnlEnv->Lib = x) 
G_GnlEnv->Top = x) 
G_GnlEnv->ModelDir = x) 
G_GnlEnv->ModelExt = x) 
G_GnlEnv->BuildLibForce = x) 
G_GnlEnv->FsmDir = x) 
G__GnlEnv->PrintHierarchy = x) 

{G_GnlEnv->ReportData = x) 
(G_GnlEnv->PrintNbCritPath = x) 

(G_GnlEnv->FoldIsoPart = x) 
(G GnlEnv->PrintMaxFanoutVars 



x) 



x) 



SetGnlEnvFoldlsoPart (x) _ 

SetGnlEnvPrintMaxFanoutVars (x) (G_GnlEnv- >PrintMaxFanoutVars = x) 
SetGnlEnvRespectLibConstraints (x) \ 

(G_GnlEnv- >RespectLibConstraints = x) 
SetGnlEnvPrintClkDomain (x) \ 

(G_GnlEnv->PrintClkDomain = x) 
SetGnlEnvPrintCritRegion (x) \ 

(G_GnlEnv->PrintCritRegion = x) 
SetGnlEnvMaxCellSizeSupport (x) \ 

(G__GnlEnv->MaxCellSizeSupport = x) 
SetGnlEnvMinShareLogicSize (x) \ 

(G_GnlEnv->MinShareLogicSize = x) 
SetGnlEnvUseVerilogPrimitives (x) \ 

(G_GnlEnv- >UseVerilogPrimitives = x) 
SetGnlEnvPostOpt (x) (G_GnlEnv- >DoPostOpt = x) 

SetGnlEnvVDD(x) (G_GnlEnv- >VDD = x) 

SetGnlEnvPrintResizedGates (x) (G_GnlEnv- >PrintResizedGates = x) 

SetGnlEnvReplaceOnlyCombiCompo (x) \ 

(G_GnlEnv->ReplaceOnlyCombiCompo = x) 



SetGnlEnvRemoveBuf f er (x) 
SetGnlEnvDontTouch (x) 



(G_GnlEnv- >RemoveBuf f er 
(G GnlEnv->DontTouch = 3 



x) 



/* Options For VERIFICATION 
#def ine SetGnlEnvRef erence (x) 
#define SetGnlEnvMaxBddNode (x) 
#define SetGnlEnvInput Assoc (x) 
#define SetGnlEnvOutput Assoc (x) 
#define SetGnlEnvXorUnproved (x) 



*/ 

(G_GnlEnv- >Ref erence = x) 

(G_GnlEnv->MaxBddNode = x) 
(G__GnlEnv-> Input Assoc = x) 
(G_GnlEnv- >Output Assoc = x) 
(G_GnlEnv->XorUnp roved = x) 



#define SetGnlEnvIgnoreRandomSim (x) (G_GnlEnv- > Ignore RandomSim = x) 

/* 

/* GNLJOPTION */ 

/* 

typedef struct GNL_OPTION_STRUCT 



*/ 
*/ 



char 
char 
char 
char 



*Name ; 
* Alias ; 
*OptionValue; 
*Helpl; 



D-GNL2-158 



gnloption.h 



111 

nJ 
a 
P 
o 



char 
char 
char 
char 
void 
int 



*Help2 ; 
*Help3 ; 
*Help4; 
*Help5; 
(♦Function) (; 
OptionType; 



o 
m 

m 
m 
m 
o 



GNL_OPTI0N_REC, *GNL OPTION; 



EOF 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

#ifndef GNLPARSE_H 
#define GNLPARSE_H 

#include <stdio.h> 











File: 


gnlparse.h 




*/ 


Version : 


1.1 




*/ 


Modifications : 






*/ 


Documentation : 




*/ 


*/ 


Class: none 






*/ 


Inheritance : 




*/ 


*/ 



#include "bbdd.h" 

#include "blist.h" 
/* 



/* for type BDD 

/* for type BLIST 



*/ 
*/ 



-*/ 



#def ine 
#def ine 
#def ine 
#def ine 



MAX_IN 
MAX_OUT 
MAX_LOC 
MAX ARG 



#define MAX_EQU 
#define MAX VARS 



100000 
100000 
100000 
100 

( MAX JDUT+MAX_LOC ) 
(MAX__IN+MAX_OUT+MAX LOG) 



/* 

/* IOJTYPE 

/* 

typedef enum { NL_IN, 
NL JDUT , 
NL_LOC 

} NL_IO; 



■*/ 
■*/ 



/* 

/* NODE_OP 

/* 

typedef enum { 

/* RTL HDL useful 1 

BIT_OP, /* 

BUS_OP, /* 

IF_OP, 

CASE_0P, 

FOR_OP, 

WHILE_0P, 

SEQ_0P, 

INST_OP, 

TICK_0P, 

EQU_OP , / * 

GT_OP, /* 
LT_0P, /* 
GTE__OP, /* 
LTE_OP, /* 
ASSIGN OP, 



operators 



1-ary operator: it son is a 
n-ary op: (name, idxLeft, IdxRight) 



*/ 

1-bit signal 



> 
< 

>= 
< = 



*/ 
*/ 
*/ 
*/ 
*/ 



-*/ 
■*/ 

*/ 
*/ 



/* NL netlist usefull operators 
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IDENT_OP, /* Identity operator: ex primary output is a */ 
/* direct primary input: Out = I DENT (In) */ 



/* 1 ary-op. */ 

AND_OP, /* n-ary associative operator */ 

0R_OP, /* n-ary associative operator */ 

NAND_OP, /* n-ary associative operator */ 

NOR_OP, /* n-ary associative operator */ 

N0T _ 0P ' /* n-ary associative operator */ 

XORjDP, /* n-ary associative operator */ 

XNOR_OP, /* n-ary associative operator */ 

MUX_OP, /* n-ary associative operator */ 



BUF_OP, /* 1-ary op: q = d */ 

TRISTATE_OP, /* 2-ary op: q = f (d, en) */ 

DFF _ 0P ' /* 6-ary op: q = f (d, ck, edg, rst f set, en) 

LATCH_OP, /* 6-ary op: q = f (d, ck, lvl, rst, set, en) */ 
JOINT_OP /* n-ary op: joint of several incoming nets */ 



} NODE_OP; 



/* 

/* NL_VALUE 

/* 

typedef enum { NL_U, /* Unknown 
NL_X, /* Conflict 

NL_0, /* Logical 0 

NL_1, /* Logical 1 
NL_Z /* High impedance 

} NL_VALUE; 



/* 

/* NL_JUSTIFY 

/* 

typedef enum { 

JUSTIFY_INPUT, 
JUSTIFY_OR, 
JUSTIFY_AND, 
JUSTIFY_XOR 

} NL_JUSTIFY_OP; 



typedef struct NL_JUSTTFY_STRUCT { 

int Var; /* Of type NL_VAR */ 

NL__JUSTIFY_OP Op; 

BLIST Sons; 

BLIST Dads; 

int Off; 
} NL_JUSTIFY_REC, *NL_JUSTIFY ; 

/* 

/* NL_VAR type */ 

/* : 

/* This structure represents a primary in/Out or local variable "Var" 
/* 

typedef struct NL_VAR_S TRUCT { 

char *Name; /* Name of the Var */ 
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mt 

NL_IO 

int 

int 

int 



BDD 
int 
BDD 

NL_VALUE 

int 

int 

int 

int 

int 

int 

int 

int 

int 

int 

int 

} NL_VAR_REC; 



Id; /* Unique ID identifying the Var */ 
Dir; /* NL_IN, NLJOUT or NL_LOC */ 
NbDads; /* Number of NL_NODE using this Var */ 
*Dads; /* Array of NL_NODE using this Var */ 
Node; /* If NL_IN or NL_LOC it is its function*/ 
/* Externally this field is viewed as 
/* type NL__NODE . */ 
Bdd; /* Bdd function associated to this VAR 
Bddlndex; 
VarBdd; 

Value; /* NL_VALUE associated to this Var 
NbVarNodes; /* Nb bdd nodes with this var 
Hight; /* Hight of the Var in the Netlist 
Depth; /* Depth of the Var in the netlist 
Tag; /* Tag used for traversal algorithms 
TagBdd; 

Nl; /* Pointer on the Nl netlist it belongs 
Hook; /* Associated Var in the other netlist 
NbBddNodes ; 
Support Size; 
AndSet ; 

Line; /* Line number in the original file */ 



*/ 
*/ 



*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
*/ 



typedef NL_VARJREC *NL_VAR; 



/*- 
/* 

/* 

/* This structure represents the node of a nl netlist. 



NL_NODE type 



-*/ 
*/ 
-*/ 



/* 

typedef struct NL_NODE_STRUCT { 



NLJVAR 


Var; 


NODE_OP 


Op; 


int 


NbSons ; 


NL_VAR 


*Sons; 


BDD 


Bdd; 


int 


Tag; 


int 


TagBdd; 


NL_VALUE 


Value; 


int 


Hight; 


int 


Hook ; 


NL_NODE_REC; 





typedef NL_NODE_REC *NL__NODE; 



#define GetNlNodeVar (nln) 
#define GetNlNodeOp (nln) 
#def ine GetNlNodeNbSons (nln) 
#define GetNlNodeSons (nln) 
#define GetNlNodeBdd (nln) 
tdefine GetNlNodeTag (nln) 
#define GetNlNode TagBdd (nln) 
#define GetNlNodeValue (nln) 
#define GetNlNodeHight (nln) 
#define GetNlNodeHook (nln) 



(nln) 
(nln) 
(nln) 
(nln) 
(nln) 
(nln) 
(nln) 
(nln) 
(nln) 
(nln) 



->Var) 

->0p) 

->NbSons) 

->Sons) 

->Bdd) 

->Tag) 

->TagBdd) 

->Value) 

->Hight) 

->Hook) 
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#define SetNlNodeVar (nln, V) 
#define SetNlNodeOp (nln, 0) 
#define SetNlNodeNbSons (nln, N) 
#define SetNlNodeSons (nln, S) 
#define SetNlNodeBdd (nln, B) 
#define SetNlNodeTag (nln, T) 
#define SetNlNodeTagBdd (nln, T) 
#define SetNlNodeValue (nln, B) 
#define SetNlModeHight (nln, B) 
#define SetNlNodeHook (nln, H) 



( (nln) ->Var = V) 

( (nln) ->0p = 0) 

( (nln) ->NbSons = N) 

( (nln) ->Sons = S) 

( (nln) ->Bdd = B) 

( (nln) ->Tag = T) 

( (nln) ->TagBdd = T) 
( (nln) ->Value = B) 
( (nln) ->Hight = B) 

( (nln) ->Hook = H) 



/* 

/* get 

/*_-__ 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



-*/ 
■*/ 



and Set of type NL_VAR 



GetNlVarName (nlv) 
GetNlVarld(nlv) 
GetNlVarDir (nlv) 
GetNlVarNode (nlv) 
GetNlVarBdd(nlv) 
GetNlVarValue (nlv) 
GetNlVarlmply (nlv) 
GetNlVarHight (nlv) 
GetNlVarDepth (nlv) 
GetNlVarTag (nlv) 
GetNlVarTagBdd (nlv) 
GetNlVarNl (nlv) 
GetNlVarHook (nlv) 
GetNlVarLine (nlv) 

SetNlVarName (nlv,N) 
SetNlVarId(nlv, I) 
SetNlVarDir (nlv, D) 
SetNlVarNode (nlv,N) 
SetNlVarBdd (nlv, B) 
SetNlVarValue (nlv, V) 
SetNlVarlmply (nlv, V) 
SetNlVarHight (nlv, V) 
SetNlVarDepth (nlv, V) 
SetNlVarTag(nlv,T) 
SetNlVarTagBdd (nlv, T) 
SetNlVarNl (nlv,N) 
SetNlVarHook (nlv, B) 
SetNlVarLine (nlv, L) 



(nlv) ->Name) 
(nlv) ->Id) 
(nlv) ->Dir) 

(NL_N0DE) ( (nlv) ->Node) ) 

(nlv) ->Bdd) 

(nlv) ->Value) 

(nlv) -> Imply) 

(nlv) ->Hight) 

(nlv) ->Depth) 

(nlv) ->Tag) 

(nlv) ->TagBdd) 

(nlv) ->N1) 

(nlv) ->Hook) 

(nlv) ->Line) 

(nlv) ->Name = N) 
(nlv) ->ld = I) 
(nlv) ->Dir = D) 
(nlv)->Node = (int)N) 
(nlv) ->Bdd = B) 
(nlv) ->Value = V) 
(nlv) -> Imply = V) 
(nlv) ->Hight = V) 
(nlv) ->Depth = V) 
(nlv) ->Tag = T) 
(nlv) ->TagBdd = T) 
(nlv) ->N1 = N) 
(nlv) ->Hook = B) 
(nlv) ->Line = L) 



/* 

/* NL_N0DE_CELL 

/* 

typedef struct NL__N0DE_CEL L_S TRUCT { 

NL_N0DE Node ; 

struct NL_NODE_CELL_STRUCT *Next; 
} NL_NODE__CELL_REC ; 

typedef NL_NODE_CELL_REC *NL_N0DE_CELL ; 



■*/ 
■*/ 
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/* NL_VAR_CELL type */ 

/* 

typedef struct NL_VAR_CELL_STRUCT { 

NL_VAR Var ; 

struct NL_VAR_CELL_STRUCT *Next; 
} NL_VAR_CELL_REC; 

typedef NL_VAR_CELLJREC *NL__VAR_CELL ; 

#define GetNlVarCellVar (nlv) ( (nlv) ->Var) 
#def ine GetNlVarCellNext (nlv) ( (nlv) ->Next) 

#define SetNlVarCellVar (nlv, N) ({nlv)->Var = N) 

#define SetNlVarCellNext (nlv, N) { (nlv) ->Next = N) 

/* 

/* NL_CONS TRAINT */ 

/* 

typedef struct NL__CONSTRAINT__STRUCT { 

NL_VAR Var; 

NL_VALUE Value; 
} NL_CONSTRAINT_REC; 

typedef NL_CONSTRAINT_REC *NL_CONS TRAINT; 

/* 

/* NL type */ 

/* 

typedef struct NL_STRUCT { 

int Tag; /* Internal purpose: for traversal */ 

int TagBdd; /* To inform if the current Bdd field of*/ 

/* a Var or Node is valid. */ 

char *Name; 
int Unigueld; 
int Nblnputs; 
int NbOutputs; 
int NbLocals; 

NL_VAR *VarIns; /* Of size Nblnputs */ 

NL_VAR *VarOuts; /* Of size NbOutputs */ 

NL_VAR *VarLocs; /* of Size VarLocs */ 

NL_VAR *Vars; /* Var [I] gives the Var which Id is ' 

*/ 

} NL_REC; 

typedef NLJREC *NL; 



#define GetNlName (nl) 
#define GetNlUniqueld (nl) 
#define GetNlNblnputs (nl) 
#define GetNlNbOutputs (nl) 
#define GetNlNbLocals (nl) 
#define GetNlVarIN (nl) 
#define GetNlVarOUT (nl) 
#define GetNlVarLOC (nl) 
#define GetNlVarWithld (nl) 



((nl) 
((nl) 
((nl) 
( (nl) 
((nl) 
((nl) 
((nl) 
( (nl) 
((nl) 



- >Name ) 

->UniqueId) 

->NbInputs) 

->NbOutputs) 

->NbLocals) 

->VarIns) 

-> Var Outs) 

->VarLocs) 

->Vars) 
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#def ine 


SetNlName (nl, N) 


( (nl) 


- >Name = N) 




#def ine 


Se tNlUniqueld (nl , I ) 


( (nl) 


->UniqueId 


= I) 


#def ine 


SetNlNblnputs <nl, n) 


( (nl) 


- >NbInputs 


- n) 


#def ine 


SetNlNbOutputs (nl; n) 


( (nl) 


->NbOutputs 


- n) 


#def ine 


SetNlNbLocals (nl, n) 


( (nl) 


->NbLocals 


= n) 


#def ine 


SetNlVarIN(nl, In) 


{ (nl) 


->VarIns = 


In) 


#def ine 


SetNlVarOUT(nl, Out) 


((nl) 


->VarOuts = 


Out) 


#def ine 


SetNlVarLOC(nl, Loc) 


((nl) 


->VarLocs = 


Loc) 


#def ine 


SetNlVarWithld (nl, Id) 




( (nl) ->Vars = Id) 


/* Type 


NL_STATUS 






*/ 



/* ERROR returned codes during NL construction and manipulation. */ 
/* 

typedef enum { 

NL_OK, /* Everything OK ! */ 

NL_MEMORY_FULL /* No more memory available */ 

} NL_STATUS; 



/* EOF 

#endif 
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/* 






/* 


File : 


/*m 1 ir\ ^} ~y- r-r ~| 

ynxparse . _l 


/* 


Version : 


1.1 


/* 


Modifications : 




/* 


Documentation : 




/* 






/* 


Class: non 




/* 


Inheritance : 




/* 













#include <stdio.h> 
#include <strings.h> 
#include "tokens. h" 

#define COMPO ARE ALL USER 



char 

extern int 
int 



static int 



namebuf [256] ; /* to store temporaly the string */ 

gnllineno; 

IfDefMode; /* If Def mode activated then everything*/ 

/* is considered as comment */ 

IsUserCompo = 0;/* if 'IsUserCompo' is 1 then all prede-*/ 

/* fined verilog gates like 'and 1 , 'or 1 */ 

/* are considered and processed as user */ 

/* components. */ 



%} 



VALUE [0-9] [0-9]*['] [a-zA-Z] [0-9]* 

NAME [a-zA-ZJ [0-9a-zA-Z_\-\.\@] * 

ANYNAME [\\] [\{\}\\"$) + \ @#*\/\ ! ?_\ [\ ] 0 - 9a- zA-Z ]+ 

COMMENT [//] [\{\}\\''$) (-><+=, ;\-: -\ [\]@#*\/\!?_0-9a-zA-Z__ \t] *" 

ATTRIBUTE [V] [»$) (-><+=, ; \- s .@#*\/\ ! ?_\ [\] 0-9a-zA-Z \t] * 
INTEGER [0-9] [0-9]* 

CR [\n] 

BLANK [ \t] 



%% 



{ 

if (! IfDefMode) 

return ( (int) » = ' ) ; 

} 

\- { 

if (! IfDefMode) 

return ( (int) ' . ' ) ; 

} 

\< { 

if (! IfDefMode) 
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\) 



\[ 



\] 



\; 



\: 



\# 



\{ 



\} 



{integer} 



input 



return ( (int) ' ( ' ) ; 



if (! IfDefMode) 

return ( (int) * ) ' ) ; 



if (! IfDefMode) 

return ( (int) ' [ 1 ) ; 



if (! IfDefMode) 

return ( (int) 1 ] ' ) ; 



if (! IfDefMode) 

return ( (int) » , ' ) ; 



if (I IfDefMode) 

return { (int) * ; ' ) ; 



if {! IfDefMode) 

return ( (int) ' : ' ) ; 



if (i IfDefMode) 

return ( (int) ) / 



if (i IfDefMode) 

return ( (int) ' { ' ) ; 



if (I IfDefMode) 

return ( (int) 1 } 1 ) ; 



f (! IfDefMode) 
{ 

gnllval.ival = atoi (gnltext) 
return (G_INTEGER) ; 

} 
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supplyl 



supplyO 



if (IlfDefMode) 

return (G_INPUT) ; 



} 



} 



{ 

if (IlfDefMode) 

return (G_WIRE) ; 



{ 

if (IlfDefMode) 

return (G WIRE) ; 



output 



{ 

if (IlfDefMode) 

return (G OUTPUT) ; 



inout 



if (IlfDefMode) 

return (G INOUT) ; 



(and) 



{ 



if (IlfDefMode) 
{ 

if (IsUserCompo) 
{ 



} 



s t r cpy ( namebuf , gnl t ext ) 
gnllval.sval = namebuf; 
return (G NAME) ; 



else 
{ 

gnllval.ival = G_AND; 
return {G AND) ; 



} 



(nand) 



{ 

if (IlfDefMode) 
{ 

if (IsUserCompo) 

{ 

strcpy (namebuf , gnltext) 
gnllval.sval = namebuf; 
return (G_NAME) ; 

else 

{ 

gnllval.ival = G_NAND; 
return (G NAND) ; 



} 



} 
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(or) { 

if ( ! IfDef Mode) 



{ 

if (IsUserCompo) 
{ 

s t r cpy ( namebu f , gn 1 1 ex t ) ; 
gnllval. sval = namebuf ; 
return (G_NAME) ; 

} 

else 

{ 

gnllval. ival = G_OR; 
return ( G OR ) ; 

} 

} 

} 



(nor) { 

if (HfDefMode) 



{ 

if (IsUserCompo) 
{ 

strcpy (namebuf ,gnl text) ; 
gnllval. sval = namebuf ; 
return (G_NAME) ; 

} 

else 
{ 

gnllval. ival = GJNTOR; 
return ( G_JNOR ) ; 

} 

} 

} 



(xor) { 

if ClfDefMode) 



{ 

if (IsUserCompo) 
{ 

strcpy (namebuf ,gnl text) ; 
gnllval. sval = namebuf; 
return (GJSTAME) ; 

} 

else 

{ 

gnllval. ival = G_XOR; 
return (G_XOR) ; 

} 

} 

} 



(xnor) { 

if (IlfDefMode) 
{ 

if (IsUserCompo) 

{ 
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strcpy (namebuf , gnl text ) 
gnl 1 va 1 . s va 1 = namebuf ; 
return (G_NAME) ; 

else 

{ 

gnllval.ival = G_XNOR; 
return (G_XNOR) ; 

} 



if (IlfDefMode) 
{ 

if (IsUserCompo) 

{ 

s t r cpy ( namebu f , gn 1 1 ex t ) 
gnllval.sval = namebuf; 
return (G__NAME) ; 

} 

else 

{ 

gnllval.ival = G_NOT; 
return (G_NOT) ; 

} 

} 



f (HfDefMode) 
{ 

gnllval.ival = G_DFFX; 
return (G_DFFX) ; 

} 



f (IlfDefMode) 
{ 

gnllval.ival = G_DFF1; 
return (G_DFF1) ; 

} 



f (IlfDefMode) 
{ 

gnllval . ival = G_DFF0 ; 
return (G__DFF0 ) ; 

} 



f (IlfDefMode) 
{ 
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gnllval.ival = G_DFF; 
return (G_DFF) ; 

} 



latch 



{ 



if (IlfDefMode) 
{ 

gnllval.ival = G_LATCH; 
return (G_LATCH) ; 



} 



latchx 



{ 

if (IlfDefMode) 
{ 

gnllval.ival = G_LATCHX; 
return (G_LATCHX) ; 

} 



latchl 



latchO 



{ 

if (IlfDefMode) 
{ 

gnllval.ival = G_LATCH1 ; 
return {G__LATCH1 ) ; 



} 



} 



{ 



if (ilfDefMode) 
{ 

gnllval . ival = G_LATCH0 ; 
return (G_LATCH0) ; 

} 



tristate 



{ 



if (IlfDefMode) 
{ 

gnllval.ival = G_TRI STATE ; 
return ( G_TRI S TATE ) ; 

} 



buf 



module 



if (IlfDefMode) 
{ 

gnllval.ival = G_BUF; 
return (G_BUF) ; 

} 

} 
{ 

if (IlfDefMode) 

return (G MODULE) ; 
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endmodule 

assign 

wire 

tri 

reg 
l f bO 

I'bl 

{CR} 

{COMMENT} 

{attribute} 



if (IlfDefMode) 

return ( G_ENDMODULE ) ; 



{ 

if (IlfDefMode) 

return (G_ASSIGN) ; 



if (IlfDefMode) 

return (G_WIRE) ; 



if (IlfDefMode) 

return (G_WIRE) ; 



if (IlfDefMode) 

return <G__WIRE) ; 



if (IlfDefMode) 
{ 

strcpy (namebuf , " 0 " ) ; 
gnllval.sval = namebuf; 
return (G_BIT 0) ; 

} 

} 
{ 

if (IlfDefMode) 
{ 

strcpy (namebuf , " 1 " ) ; 
gnllval . sval = namebuf ; 
return (G BIT 1) ; 

} " " 

} 
{ 

gnllineno++; 

} 

{} 
{ 

if (GnllsIfDef (gnltext) ) 



IfDefMode = 1; 
return (G IFDEF) ; 

} 

if (GnllsEndlf (gnltext) ) 
{ 

IfDefMode = 0; 
return (G_ENDIF) ; 

} 
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{name} 



{ 

if (HfDefMode) 
{ 

strcpy (namebuf , gnltext) ; 
gnllval.sval = namebuf; 
return (G NAME) ; 



} 



{ANYNAME} 



{ 



if (IlfDefMode) 
{ 

strcpy (namebuf , gnltext) ; 
gnllval.sval = namebuf; 
return <G NAME) ; 



} 



{value} 



{ 

if (IlfDefMode) 
{ 

strcpy {namebuf , gnltext) ; 
gnllval.sval = namebuf; 
return {G NAME) ; 



} 



%% 



/* 

/* yywrap 

/* 

yywrap ( ) 

{ 



*/ 



return (1) ; 
} 



/* 

/* GnllsIfDef 

/* 



int GnllsIfDef (String) 
char *String; 



{ 



if (strlen (String) < strlen (""ifdef")) 
return (0) ; 



if 



{ (String [0] 
(String [1] 
(String [2] 
(String [3] 
(String [4] 
(String [5] 

return (1) ; 



•i') 
■f ') 
■d' ) 
'e' ) 
■f ')) 



ScSc 
ScSc 



return (0) ; 
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} 

/* */ 

/* GnllsEndlf */ 

/* */ 

int GnllsEndlf (String) 
char * String; 

{ 

if (strlen (String) < strlen {" "endif ") ) 
return (0) ; 

if ( (String [0] == ' 

(String [1] == 'e') && 

(String [2] == »n f ) 

(String [3] « 'd 1 ) && 

(String [4] == ScS, 

(String [5] == 'f')) 
return (1) ; 

return (0) ; 

} 

z* *z 

z* *z 
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%{ 


/* 








File : 


gnlparse 


/* 


Vers *i on - 


± . JL 


/* 


Modifications : 




/* 


Documentation : 




/* 






/* 


Class: none 




/* 


Inheritance : 




/* 













*/ 
*/ 



*/ 
*/ 
*/ 
*/ 

*/ 
*/ 



#include <stdio.h> 
#include <strings.h> 

#include "blist.h" 
tinclude "gnl .h" 



/* ERROR/WARNING MESSAGES 
/* 



#define ERR_NEVER_DECLARED \ 

" Error (l.%d): Signal <%s> is not declared\n" 
#define ERR_PORT_REDECLARED \ 

" ERROR (l.%d): Port <%s> already declared\n" 
#define WARN__NEVER_DE CL ARED \ 

" WARNING (l.%d): Signal <%s> is not declared\n» 
#define WARN_DO_NOT_ANALYZE \ 

" WARNING (l.%d): "ifdef part not analyzed\n» 



-*/ 
■*/ 



/* 

/* EXTERN 

/* 

int gnllineno; 
extern char* gnl text; 

GNL_STATUS GnlStatus ; 

extern BLIST G_ListOf Gnls; /* The main list storing all the GNLs 

*/ 

extern GNL G^CurrentGnl ; /* The current Gnl/Module we process */ 

extern int G_GnlIsBig ; 
extern int IfDefMode; 



*/ 
*/ 



/* 

/* GLOBAL VARIABLES */ 

/* [ 

static GNL_VAR Var; 
static GNL_VAR VarRight; 

static int VarMsb; /* Msb of current Var. */ 

static int VarLsb; /* Lsb of current Var. */ 

static char *NewName; 

static GNL_FUNCTION NewFunction; 

static BLIST VarListAssoc; 

static BLIST ListDefParam; 

static char *InstanceName; 
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static GNL_NODE CstNode; 
static GNL_NODE NewNode; 

static char *UserGateName; 

static char StoreUserGateName [528] ; 

static GNL_ASSOC NewAssoc; 
static BLIST ListConcat; 

static char *FormalName; 

static int SignalType; 

static int GateOp; 
static BLIST ListPorts; 



#define INPUT_PORT 0 

#define OUTPUT_PORT 1 

#define LOCALES I GNAL 2 

ttdefine INOUT PORT 3 



/*■ 
%} 



%union { 

int ival; 
char *sval; 
} 

%start verilog_nl 

/* Types for non- terminals . 



%type <sval> 
%type <sval> 
%type <ival> 
%type <sval> 



port 
signal 

f ormal_signal 
instance id 



%type <ival> 
%type <ival> 
%type <ival> 
%type <ival> 
%type <ival> 
%type <ival> 



signal_type 

msb 

Isb 

gate 

def_param 
user_gate 



/* Types for terminals 
%token <ival> 



%token 



<ival> 



G_INPUT 
G OUTPUT 



%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
%token 
% token 
%token 
%token 



<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 



G_AND 

GJ3R 

G_NATO 

G__NOR 

G_NOT 

G_PADD 

G_PCOMP 

G_XOR 

G_XNOR 

G_MUX 

G_BUFF 

G TR I STATE 
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%token 
%token 
%token 
%token 
% token 
%token 
%token 
%token 
% token 
%token 
%token 
%token 
%token 
%token 



<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 



G_DFF 

G_DFFX 

G_DFF1 

G_DFF0 

G__LATCH 

G_LATCHX 

G_LATCH1 

G_LATCH0 

GJflODULE 

G_ENDMODULE 

G_ASSIGN 

G_ INTEGER 

G_WIRE 

G REG 



%token <sval> G_BIT_0 

% token <sval> G_BIT_1 

% token <sval> G NAME 



%token 
% token 
%token 
%token 
% token 



<ival> 
<ival> 
<ival> 
<ival> 
<ival> 



G_INOUT 
G__USER_GATE 
G_IFDEF 
G_ENDIF 
G BUF 



/* 

/* GNL PARSER *, 

/* 7 

/ ^ 

/* The verilog file is a list of verilog modules. */ 

/* The current built gnl is ' G__CurrentGnl ' and is added in global list */ 

/* 'G_ListOfGnls ' . */ 

/* 1 

verilog_nl : { 

gnllineno = 1; /* Initialize at Irst line */ 
IfDefMode = 0; 

if (BListCreate (&G_ListOfGnls) ) 

return (GNL_MEMORY_FULL) ; 

list module def 



list module def 



/* no modules */ 
module_def 

{ 

if (BListAddElt (G_ListOf Gnls, (int) G_CurrentGnl) ) 
return (GNL MEMORY FULL) ; 

} 

list module def 



module def 



G_M0DULE G_NAME 

{ 

fprintf (stderr, " o Analyzing module [%s]\n". 
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$2) ; 

if (G_GnlIsBig) 

{ 

if (GnlCreate ($2, &G_CurrentGnl) ) 
return ( GNL_MEMORY FULL) ; 

} 

else 
{ 

if (GnlSmallCreate ($2, &G_CurrentGnl ) ) 
return (GNL MEMORY FULL) ; 

} 

SetGnlLineNumber (G_CurrentGnl , gnllineno) ; 

/* Adding var corresponding to Boolean cste * 0**/ 
if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

( G_Cur r ent Gnl , » 0 " , & Var ) ) ) 
return (GNL__MEMORY_FULL) ; 
if (GnlCreateNode ( G_Cur rent Gnl , GNL_CONSTANTE, 

&CstNode) ) 
return (GNL_MEMORY__FULL) ; 
SetGnlNodeSons (CstNode, (BLIST) 0) ; 
if (GnlFunctionCreate (G_CurrentGnl , Var, CstNode, 

&NewFunction) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlVarFunction (Var, NewFunction) ; 

/* Adding var corresponding to Boolean cste '1'*/ 
if { (GnlStatus = GnlVarCreateAndAddlnHashTable 

( G_Cur rent Gnl , "1", &Var ) ) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNode (G_CurrentGnl, GNL_CONSTANTE , 

&CstNode) ) 
return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (CstNode, (BLIST) 1) ; 
if (GnlFunctionCreate (G_CurrentGnl , Var, CstNode, 

&NewFunction) ) 
return ( GNL_MEM0RY_FULL ) ; 
SetGnlVarFunction (Var, NewFunction) ; 

if (BListCreate (ScListPorts) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlListPorts (G_CurrentGnl , ListPorts) ; 

' ( 1 list_of_jports 1 ) ' 1 ; ' 
lis t_s ignal s_dec 1 s 

{ 

if ({GnlStatus = GnlCreateAllSignals (G_CurrentGnl) ) ) 
return (GnlStatus) ; 

} 

module_body 
G_ENDMODULE 

list_of_ports : 

I list_of_portsl 
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port 

/* We create a Var corresponding to the port. 
( (GnlStatus = GnlVarCreateAndAddlnHashTable 

( G_Cur rentGnl , $ 1 , &Var ) } ) 

{ 

if (GnlStatus == GNL_VAR_EXISTS) 

{ 

f print f ( s tderr , ERR_PORT_REDECLARED , 
gnllineno, GnlVarName (Var)); 
return (GNL_VAR_EXISTS) ; 

} 

return ( GNL_MEMORY_FULL ) ; 

} 

if (SetGnlVarLineNumber (Var, gnllineno) ) 

return ( GNL _MEMORY_FULL ) ; 
SetGnlVarType (Var, GNL_VAR__OR I G INAL ) ; 

if (BListAddElt (ListPorts, (int)Var)) 

return (GNL_MEMORY_FULL) ; 



list_of jportsl ' , ' port 
{ 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $3, &Var) ) ) 

{ 

if (GnlStatus == GNL_VAR_EXISTS) 

{ 

fprintf (stderr, ERR_PORT_REDECLARED , 
gnllineno, GnlVarName (Var) ) ; 
return (GNL_VAR_EXISTS) ; 

} 

return (GNL_MEMORY__FULL) ; 

} 

if (SetGnlVarLineNumber (Var, gnllineno) ) 

return (GNL_MEMORY__FULL) / 
SetGnlVarType (Var, GNL_VAR_ORIGINAL) / 

if (BListAddElt (ListPorts, (int)Var)) 

return <GNL_MEMORY_FULL) ; 



list_of_portsl 



if 



port : G__NAME 

{ 

$$ = $i? 

} 



list_signals_decls : /* empty list */ 

| list_signals_decls signal_decl 
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ignal_decl : signal_type range list_signals_same_type * ; ' 

| signal_type range G NAME G NAME 

{ t " 
if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(G_CurrentGnl, $3, &Var) ) ) 

if ((GnlStatus GNLJVAR_EXISTS) 
($1 i - LOCAL SIGNAL) ) 

{ 

/* Var exists and has already a range */ 
if ( !GnlVarRangeUnde fined (Var) ) 
GnlError (1) ; 

} 

} 

/* No range so we set it. */ 
SetGnlVarMsb (Var, VarMsb) / 
SetGnlVarLsb (Var, VarLsb) ; 
if ($1 == INPUT_PORT) 

SetGnlVarDir (Var, GNL_VAR_ INPUT) ; 
else if ($1 == OUTPUT JPORT) 

SetGnlVarDir (Var, GNL_VAR_OUTPUT) ; 
else if ($1 == INOUT_PORT) 

SetGnlVarDir (Var, GNL__VAR_ INOUT ) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 

return (GNL_MEMORY_FULL) ; 



list_signals_same_type : G_NAME 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

^ (G_CurrentGnl, $1, &Var) ) ) 

if ((GnlStatus GNL_VAR_EXISTS) 
(SignalType ! = LOCAL SIGNAL)) 

{ 

/* Var exists and has already a range*/ 
if ( IGnlVarRangeUndef ined (Var) ) 
GnlError (1) ; 

} 

} 

/* No range so we set it. */ 
SetGnlVarMsb (Var, VarMsb) ; 
SetGnlVarLsb (Var, VarLsb) ; 
if (SignalType == INPUT_PORT) 

SetGnlVarDir (Var, GNL_VAR_INPUT) ; 
else if (SignalType == OUTPUT_J>ORT) 

SetGnlVarDir (Var, GNL_VAR_OUTPUT) ; 
else if (SignalType == INOUT_PORT) 

SetGnlVarDir (Var, GNL_VAR__INOUT) ; 
/* Otherwise it is GNL_VAR_LOCAL */ 

if (SetGnlVarLineNumber (Var, gnllineno)) 
return (GNL_MEMORY_FULL) ; 

| list_signals_same_type 1 , ' G_NAME 
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{ 

if ( (GnlStatus = GnlVarCreateAndAcidlnHashTable 

( G_Cur ren t Gnl , $ 3 , &Var ) ) ) 

{ 

if ((GnlStatus == GNL_VAR_EXISTS) 
{SignalType != LOCAL_SIGNAL) ) 

{ 

/* Var exists and has already a range*/ 
if ( IGnlVarRangeUndef ined (Var) ) 
GnlError (1) ; 

} 

} 

/* No range so we set it. */ 
SetGnlVarMsb (Var, VarMsb) ; 
SetGnlVarLsb (Var, VarLsb) ; 
if (SignalType == INPUT_PORT) 

SetGnlVarDir (Var, GNL_VAR_INPUT) ; 
else if (SignalType == OUTPUT_PORT) 

SetGnlVarDir (Var, GNL_VARJDUTPUT) ; 
else if (SignalType =* INOUT_PORT) 

SetGnlVarDir (Var, GNLJ/AR_INOUT) ; 
/* Otherwise it is GNL_VAR_LOCAL */ 

if (SetGnlVarLineNumber (Var, gnllineno) ) 
return (GNL_MEMORY_FULL) ; 

} 



signal_type : G_INPUT { SignalType = INPUT_PORT; } 

j G_OUTPUT { SignalType = OUTPUT_PORT; } 

j G_INOUT { SignalType = INOUT_PORT; } 

j G_WIRE { SignalType = LOCALES I GNAL ; } 

j G_REG { SignalType = LOCAL_S I GNAL ; } 



HQ module_body : list_assigns_instances 



list_assigns_instances : 

| list_assigns_instances assign_or_instance 



assign_or_instance : assignement 

| gate list__instance ' ; ' 

| G_IFDEF 

{ 

fprintf (stderr, WARN JDO JSTOT_ANALYZE , 
gnllineno) ; 

} 

G ENDIF 



assignement : G_ASSIGN signal 

{ 

if ( (GnlStatus = 

GnlGetVarFromName (G CurrentGnl, $2, &Var) ) ) 
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{ 

if { (GnlStatus GNL VAR NOT EXISTS) ) 
{ - - - 

if ( (GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 

<G_CurrentGnl, $2, &Var) ) ) 
return (GNL__MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (G_CurrentGnl) , 
Var) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (G_CurrentGnl , 

GnlNbLocal (G_CurrentGnl) +1) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return (GNL MEMORY FULL) ; 

} 

else 

return (GNL MEMORY FULL) ; 

} 

} 

'=' signal 
{ 

if ( (GnlStatus = 

GnlGetVarFromName (G_CurrentGnl , $5, & VarRight) ) ) 

if ( (GnlStatus == GNL VAR NOT EXISTS) ) 
{ " " ~ 

if ( (GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 
(G_CurrentGnl, $5, & VarRight) ) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (G__CurrentGnl) , 
VarRight) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (G_CurrentGnl , 

GnlNbLocal (G_CurrentGnl) +1) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return (GNL MEMORY FULL) ; 

} 

else 

return (GNL_MEMORY FULL) ; 

} 

if (GnlFunctionCreateFromVars (G_CurrentGnl , Var, 

VarRight, 
&NewFunction, 
gnllineno) ) 

return (GNL_MEMORY FULL) ; 

} 



list_instance : instance 

| list_instance ' , 1 instance 

instance : instance_id ' ( ' 

{ 
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if (GnlStrCopy ($1, &InstanceName) ) 
return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &VarListAssoc) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

list_signals 

■) 1 

{ 

/* In the case of G_USERJ3ATE we need to copy the */ 
/* name of the gate. */ 
if (GateOp == G_USER_GATE) 

{ 

if ( (UserGateName = 

(char*) calloc (strlen (StoreUserGateName) +1, 

sizeof (char) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 
strcpy (UserGateName, StoreUserGateName) ; 

} 

if (GnlAnalyzelnstance (G_CurrentGnl , GateOp, 
UserGateName , 

InstanceName, 
NULL , VarLi st Assoc, 
gnllineno, 0) ) 
return (GNL__MEMORY FULL) ; 

} 

' (' 

{ 

if (BListCreateWithSize (2, &VarListAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} t 

list_signals 

') ' 

{ 

/* In the case of G_USER_GATE we need to copy the */ 
/* name of the gate. */ 
if (GateOp == G_USER_GATE) 

{ 

if ( (UserGateName = 

(char*) calloc (strlen (StoreUserGateName) +1 , 

sizeof (char) ) ) == NULL) 
return (GNL_MEMORY_FULL) ; 
strcpy (UserGateName, StoreUserGateName) / 

} 

if (GnlAnalyzelnstance (G_CurrentGnl , GateOp, 
UserGateName, 

NULL, 

NULL, VarListAssoc, 
gnllineno, 0)) 
return (GNL_MEMORY_FULL) / 

} 

'#■ ■ ( • 

{ 

if (BListCreateWithSize (1, &ListDef Param) ) 
return ( GNL_MEMORY FULL ) ; 

} 

list_def jparam 

' ) ' instance_id 1 ( ' 
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{ 

if (GnlStrCopy ($6, ScInstanceName) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (2, &VarListAssoc) ) 

return ( GNL_MEMORY__FULL ) ; 

} 

list_signals 

■) ' 

{ 

/* In the case of G_USER_GATE we need to copy the */ 
/* name of the gate. */ 
if (GateOp == G_USER_GATE) 
{ 

if ( (UserGateName = 

(char*) calloc (strlen (StoreUserGateName) +l, 

sizeof (char) ) ) NULL) 
return (GNL_MEMORY_FULL) ; 
strcpy (UserGateName, StoreUserGateName) ,* 



} 



} 



if (GnlAnalyzelnstance (G_CurrentGnl , GateOp, 
UserGateName , 

InstanceName, 
ListDef Param, 
VarLi s t As soc, gnl 1 ineno , 
return (GNL_MEMORY_FULL) ; 



list_def_param 



def_param 



if (BListAddElt (ListDef Param, $1) ) 
return (GNL_MEMORY_FULL) 

} 

list_def jparam ■ , ' def j>aram 

{ 

if (BListAddElt (ListDef Param, $3)) 
return (GNL_MEMORY_FULL) ; 

} 



def_param : 


G__ INTEGER 


{ $$ = Si; } 


instance_id : 


G_NAME 




gate : 


G__OR 


{GateOp = G_OR; } 




G__AND 


{GateOp = G_AND; } 




G_NOR 


{GateOp = G_NOR; } 




GJSTAND 


{GateOp « GJSTAND;} 




G_XOR 


{GateOp = G_XOR; } 




G_XNOR 


{GateOp = G_XNOR;} 




G_DFF 


{GateOp = G_DFF; } 




G_DFFX 


{GateOp = G__DFFX; } 




G_DFF1 


{GateOp = G_DFF1;} 




G_DFF0 


{GateOp = G_DFFO;} 
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G_ 


MUX 


{GateOp « G_MUX; } 


G_ 


_LATCH 


{GateOp = G_LATCH ; } 


G_ 


_LATCHX 


{GateOp = G_LATCHX;} 


G_ 


JLATCH1 


{GateOp = G_LATCH1;} 


G_ 


_LATCHO 


{GateOp = G_LATCH0 ; } 


g" 


[tristate 


{GateOp = G_TRISTATE; } 


G~ 


[not 


{GateOp = G_NOT; } 


g~ 


[PADD 


{GateOp = G__PADD ; } 


g" 


~PCOMP 


{GateOp = GJPCOMP;} 


G_ 


_BUF 


{GateOp = G_BUF; } 


user__gate 


{GateOp = G_USER_GATE; } 



user_gate : G_NAME 

{ 

strcpy (StoreUserGateName, $1) ; 

} 



list_signals : 

| list_signalsl 



list_signalsl : signal 

{ 

if (GnlGetVarFromName (G_CurrentGnl, $1, &Var) ) 
{ 

if (GNL_VAR_NOT_EXISTS) 

{ 

if ( (GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 
{G_CurrentGnl / $1, &Var) ) ) 
return (GNL_VAR_NOT_EXISTS) ; 
if (BListAddElt (GnlLocals (G_CurrentGnl ) , Var) ) 

return ( GNL_MEMORY__FULL ) ; 
SetGnlNbLocal (G_CurrentGnl , 

GnlNbLocal (G_CurrentGnl) +1) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

return (GNL_MEMORY_FULL) ; 

} 

if (GnlCreateAssoc (&NewAssoc) ) 

return { GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, NULL) ; 
SetGnlAssocActualPort (NewAssoc, Var) ; 

if (BListAddElt (VarListAssoc , ( int) NewAssoc) ) 
return (GNL_MEMORY__FULL) ; 

} 

| ' . * f ormal_signal 
■ C '{' 
{ 

if (BListCreateWithSize (1, SListConcat) ) 
return ( GNL_MEMORY FULL ) ; 

} 

concate_s i gnal 
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{ 

if (GnlCreateAssoc (ScNewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, Formal Name) ; 
if (GnlCreateConcatNode (ScNewNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (NewNode, ListConcat) ; 
SetGnlNodeLineNumber (NewNode, gnllineno) ; 
/* we define a concat node as actual port. */ 
SetGnlAssocActualPort (NewAssoc, ( GNL_VAR ) NewNode ) ; 
if (BListAddElt (VarListAssoc , (int) NewAssoc) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

| ' . ■ f ormal_signal 
1 ( r signal ' ) ' 

{ 

if (GnlGetVarFromName (G_CurrentGnl, $4, &Var) ) 
{ 

if (GNL_VAR_NOT_EXISTS) 

{ 

if ( (GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 
(G_CurrentGnl , $4 , &Var) ) ) 
return (GNL_VAR_NOT_EXISTS) ; 
if (BListAddElt (GnlLocals (G_CurrentGnl) , Var) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (G_CurrentGnl , 

GnlNbLocal (G_CurrentGnl) +1) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return <GNL_MEMORY_FULL) ; 

} 

else 

return ( GNL_MEMORY_FULL ) ; 

} 

if (GnlCreateAssoc (ScNewAssoc)) 

return ( GNLJMEMOR Y_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, FormalName) ; 
SetGnlAssocActualPort (NewAssoc, Var) ; 

if (BListAddElt (VarListAssoc, (int ) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

I ' . ' f ormal_signal 

{ 

if (GnlCreateAss oc (&NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, FormalName) ; 
SetGnlAssocActualPort (NewAssoc, NULL) ; 

if (BListAddElt (VarListAssoc, (int ) NewAssoc) ) 
return (GNL_MEMORY_FULL) ; 

} 

| list_signalsl ' , r signal 

{ 

if (GnlGetVarFromName (G_CurrentGnl , $3, &Var) ) 
{ 

if ( GNL_VAR NOT EXISTS) 
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{ 

if ( (GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 
( G_Cur rent Gnl , $ 3 , &Var ) ) ) 
return (GNL_VAR_NOT_EXISTS) ; 
if (BListAddElt (GnlLocals (G_CurrentGnl ) , Var) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (G_CurrentGnl , 

GnlNbLocal (G_CurrentGnl ) +1) ; 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return ( GNL_MEMORY_FULL) ; 

} 

else 

return (GNL_MEMORY_FULL) ; 

} 

if (GnlCreateAssoc (&NewAssoc) ) 

return { GNL_MEMORY__FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, NULL) ; 
SetGnlAssocActualPort (NewAssoc, Var) ; 

if (BListAddElt (VarListAssoc , (int) NewAssoc) ) 
return (GNL_MEMORY FULL) ; 

} 

list_signalsl ' , 1 ' . 1 f ormal_signal 

' (' '{' 

{ 

if (BListCreateWithSize (1, &ListConcat) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

concate_signal 

{ 

if (GnlCreateAssoc (&NewAssoc) ) 

return { GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc, FormalName) ; 
if (GnlCreateConcatNode (&NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlNodeSons (NewNode, ListConcat) ; 
SetGnlNodeLineNumber (NewNode, gnllineno) ; 
/* we define a concat node as actual port. */ 
SetGnlAssocActualPort (NewAssoc, (GNL_VAR) NewNode) ; 
if (BListAddElt (VarListAssoc, (int ) NewAssoc) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

.}. .) . 

list_signalsl 1 , ' 1 . • f ormal_signal 

■ ( ' signal ' ) ' 

{ 

if (GnlGetVarFromName ( G_Cur rent Gnl , $6, &Var) ) 

{ 

i f ( GNL_VAR_NOT_EXISTS ) 

{ 

if ( {GnlStatus = 

GnlVarCreateAndAddlnHashTableWithNoTest 
(G_CurrentGnl f $6, &Var) ) ) 
return (GNL_VAR__NOT_EXISTS) ; 
if (BListAddElt (GnlLocals (G_CurrentGnl) , Var) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (G__Cur rent Gnl , 
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m 



GnlNbLocal (G_CurrentGnl) +1} 
if (SetGnlVarLineNumber (Var, gnllineno) ) 
return (GNL_MEMORY FULL) ; 

} 

else 

return (GNLJYIEMORY FULL) ; 

} 

if (GnlCreateAssoc (&NewAssoc) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlAssocFormalPort (NewAssoc, FormalName) ; 
SetGnlAssocActualPort (NewAssoc, Var) ; 

if (BListAddElt (VarListAssoc , (int ) NewAssoc) ) 
return ( GNL_MEMORY FULL) ; 

} 

list_signalsl 1 , ■ ' . ' f ormal_signal 
{ 

if (GnlCreateAssoc UNewAssoc) ) 

return (GNLJYIEMORY_FULL) ; 
SetGnlAssocFormalPort (NewAssoc, FormalName) ; 
SetGnlAssocActualPort (NewAssoc, NULL) ; 

if (BListAddElt (VarListAssoc, (int ) NewAssoc) ) 
return (GNL_MEMORY FULL) ; 

} 



concate_signal : signal 
{ 

if (GnlGetVarFromName (G_CurrentGnl , $1, &Var) ) 
i f ( GNL_VAR_NOT_EX I S TS ) 

{ 

fprintf (stderr, ERR_NEVER_DECLARED, 

gnllineno, $1) ; 
GnlError (3); 

return (GNL_VAR_NOT EXISTS) ; 

} 

return (GNL_MEMORY FULL) ; 

} 

if (BListAddElt (ListConcat, (int) Var)) 
return ( GNL MEMORY FULL) ; 

} 

| concate_signal ■ , ' signal 
{ 

if (GnlGetVarFromName (G_CurrentGnl , $3, &Var) ) 
if (GNL VAR NOT EXISTS) 

{ " " 

fprintf (stderr, ERR_NEVER_DECLARED , 

gnllineno, $3) ; 
GnlError (3) ; 

return (GNL_VAR_NOT EXISTS) ; 

} 

return (GNLJVIEMORY FULL) ; 

} 

if (BListAddElt (ListConcat, (int) Var)) 
return (GNL MEMORY FULL) ; 
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} 

/ 

formal_signal : G_NAME 

{ 

if (GnlStrCopy ($1, ScFormalName) ) 
return (GNL MEMORY FULL) ; 

} 

| G_NAME ' [ ■ G_INTEGER 1 ] r 
{ 

if ( {GnlStatus = GnlStrlndexName ($1, $3, ScFormalName))) 
return (GNL MEMORY FULL) ; 

} 

signal : G_NAME 

{ 

$$ = $1; 

} 

| G_NAME ■ [ ' G_INTEGER » ] * 

{ 

if {(GnlStatus = GnlStrlndexName ($1, $3, ScNewName) ) ) 

return (GnlStatus) ; 
$$ = NewName; 

} 

I G_BIT_0 
{ 

$$ = $1; 

} 

I G_BIT_1 
{ 

$$ = $1; 

} 

/ 

range : /* no range */ 

{ 

VarMsb = VarLsb = -1; /* No range a priori */ 

| ' [ 1 msb ■ : ' Isb • ] • 

{ 

VarMsb = $2; 
VarLsb = $4; 

} 



msb 



: G_INTEGER { $$ = $1; } 
lsb : G_INTEGER { $$ = $1; } 



%% 

/* 

/* yyerror 
/* 
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yyerror (s) 

char *s; 

{ 

fprintf (stderr, "GNL- READER (l.%d): syntax error near '%s*\n", 
gnllineno, gnltext) ; 

exit (1) ; 

} 



Q 
O 

si 
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w 
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/* ie/ 

/* */ 

/* File: gnlpart.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 

/* 



#include <stdio.h> 

Jtifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl.h" 
ftinclude "gnlmint .h" 
#include "gnloption.h" 

#include "blist.e" 

/* ^ 

/* GLOBAL VARIABLE */ 

/* ±/ 

static int G_SupportId = 0; 
extern GNL_ENV G_GnlEnv; 

/* ic/ 

/* GnlSetSupportVarHook */ 

/* ^ 

void GnlSetSupportVarHook (Support) 
BLIST Support; 

{ 



int i ; 

GNL_VAR Varl ; 



G_SupportId++ ; 

for (i=0; i<BListSize (Support); i++) 

{ 

Varl = (GNL_VAR) BListElt (Support, i) ; 
SetGnlVarHook (Varl, G Supportld) ; 

} 



/* #/ 

/* GnlBListUnionSupport */ 

/* it/ 

GNL_STATUS GnlBListUnionSupport (SupportI, Support J, NbCommon, UnionList) 
BLIST Support I; 
BLIST SupportJ; 
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int *NbCommon; 
BLIST *UnionList; 

{ 

int i ; 

GNL_VAR Varl; 



*NbCommon = 0; 

if (BListCreateWithSize (2, UnionList) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (Support J) / i++) 

{ 

Varl = ( GNL_VAR ) BLi s t El t (SupportJ, i) ; 

if (GnlVarHook (Varl) == (void*) G_SupportId) 

(*NbCommon) ++; 
else 

{ 

if (BListAddElt ( (*UnionList) , (int) Varl)) 
return (GNLJVIEMORY_FULL) ; 

} 

} 

if (*NbCommon > 1) 

{ 

for (i=0; i<BListSize (*UnionList) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (*UnionList, i) ; 
SetGnlVarHook (Varl, G_SupportId) ; 

} 

for (i=0; i<BListSize (SupportI) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (SupportI, i) ; 
if (BListAddElt ( (*UnionList) , (int) Varl)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

return (GNL_0K) ; 



/* 

/* GnlMergeFunctions 
/* 



GNL_STATUS GnlMergeFunctions (ListSupports , ListFunctions , 

MergedListOf Supports, ListOf ListEguations) 

BLIST ListSupports ; 
BLIST ListFunctions ; 
BLIST *MergedListOf Supports ; 
BLIST *ListOf ListEquations ; 



{ 



int 
int 
int 

GNL FUNCTION 



j ; 

Added; 
FunctionI; 
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BLIST SupportI; 
GNL_FUNCT I ON Func t i on J ; 

BLIST SupportJ; 

BLIST ListOfEquat; 

BLIST UnionList; 
int NbLit; 
int NbCommon ; 

int Window; 



if (BListCreateWithSize (1, MergedListOf Supports) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, ListOf ListEquations) ) 

return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListFunctions) ; i++) 
{ 

fprintf (stderr, "%c Merging [%d/%d] !, / 13, i, 

BListSize (ListFunctions) ) ; 
ff lush (stderr) ; 

FunctionI = (GNL_FUNCTION) BListElt (ListFunctions, i) ; 
if (BListCopyNoEltCr ( (BLIST) BListElt (ListSupports , i) , 
&SupportI) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (1, &ListOf Equat) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (ListOfEquat, (int ) FunctionI) ) 
return (GNL_MEMORY_FULL) ; 

/* We set the Var hook of each of the support 'SupportI 1 */ 
GnlSetSupportVarHook (SupportI) ; 

/* Checks if functions after 'FunctionI 1 can be merged in the 
/* same partition. */ 
Added = 1; 

NbLit = GnlNodeNbLitt (GnlFunctionOnSet (FunctionI) ) ; 
Window = i+2 0000; 
while (Added) 

{ 

Added = 0; 

for (j=i+l; j<BListSize (ListFunctions); j++) 

{ 

/* We stop if partition exceeds 8000 literals 
if (NbLit > 8000) 
break; 

/* We stop if partition exceeds 400 Variables 
if (BListSize (SupportI) > 400) 
break; 

if (j > Window) 
break; 

FunctionJ = (GNL_FUNCTION) BListElt (ListFunctions, j) 
SupportJ = (BLIST) BListElt (ListSupports, j); 
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if (GnlBListUnionSupport (SupportI, Support J, 

&NbCommon , &UnionList) ) 

return ( GNL_MEMORY_FULL ) ; 

if (BListUnionNoEltCr (SupportI, Support J, 

&UnionList) ) 
return (GNL_MEMORY_FULL) ; 

NbCommon = BListSize (SupportI) +BListSize (SupportJ) 
BListSize (UnionList) ; 



if (NbCommon > 1) 
{ 

if (BListAddElt (ListOf Equat , ( int ) FunctionJ) ) 

return (GNL_MEMORY_FULL) ; 
BListDellnsert (ListFunctions, j+1) ; 
BListDellnsert (ListSupports , j+1) ; 
BListQuickDelete (&SupportI) ; 
BListQuickDelete (&SupportJ) ; 
SupportI = UnionList; 

j--; 

Added = 1; 

NbLit += GnlNodeNbLitt (GnlFunctionOnSet (FunctionJ) ) 

} 

else 

{ 

BListQuickDelete (&UnionList) ; 

} 



} 



if (BListAddElt (*MergedListOf Supports, (int) SupportI ) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (*ListOf ListEquations , (int) ListOf Equat ) ) 

return (GNL_MEMORY_FULL) ; 

} 

if (BListSize (ListFunctions) ) 

fprintf (stderr, "%c Merging [%d/%d]\n", 13, i, 
BListSize (ListFunctions)); 



return (GNL_OK) ; 

} 

/* */ 

/* GnlGetFunctionSupportRec */ 

/* */ 

GNL_STATUS GnlGetFunctionSupportRec (Node, Support) 
GNL__NODE Node ; 

BLIST *Support ; 

{ 

GNL^VAR Var; 
BLIST Sons; 
int i; 
GNL_NODE SonI; 
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} 



if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_VAR I ABLE ) 
{ 

Var = (GNL__VAR) GnlNodeSons (Node); 

if ( !BListMemberOfList (Support, Var, Intldentical) ) 
if (BListAddElt (Support, (int)Var)) 
return (GNL__MEMORY_FULL) / 
return (GNL_OK) ; 

} 

Sons = GnlNodeSons (Node) ; 

for (i = 0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

SonI = (GNL__NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlGetFunctionSupportRec (SonI, Support) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL OK) ; 



/* 

/* GnlGetFunctionSupport 

/* 

GNL_STATUS GnlGetFunctionSupport (Node, Support) 
GNL_NODE Node; 
BLIST ^Support; 



{ 



} 



if (BListCreateWithSize (1, Support)) 
return ( GNL__MEMORY_FULL) ; 

if (GnlGetFunctionSupportRec (Node, *Support) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 



/* */ 

/* GnlCreateGnlFromFunction */ 

/* */ 

GNL_STATUS GnlCreateGnlFromFunction (Gnl, ListEquations , Support, NewGnl) 
GNL Gnl; 
BLIST ListEquations ; 
BLIST Support; 
GNL *NewGnl ; 

{ 

int i; 
GNL_FUNCTION FunctionI ; 
GNL_VAR Varl; 
BLIST NewList; 
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if {(*NewGnl = (GNL) GNL_CALLOC (1, sizeof (GNL_REC) ) ) « NULL) 
return (GNL_MEMORY_FULL) ; 

/* The NewGnl inherits some common field from the original Gnl , One */ 
/* very important field to have in common is the same Hash Tabel of */ 
/* variables. */ 
SetGnlName (*NewGnl, GnlName (Gnl)); 
SetGnlHashNames (*NewGnl, GnlHashNames (Gnl)); 
SetGnlSourceFileName (*NewGnl, GnlSourceFileName (Gnl) ) ; 
SetGnlListSourceFiles (*NewGnl, GnlListSourceFiles (Gnl)) ; 
SetGnlListPorts (*NewGnl, GnlListPorts (Gnl)); 

/* Creating List of nodes segments */ 
if (BListCreate (&NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments ( (*NewGnl) , NewList) ; 
SetGnlFirstNode ( (*NewGnl) , NULL) ; 
SetGnlLastNode ( (*NewGnl) , NULL) ; 

SetGnllnputs (*NewGnl, Support); 
SetGnlNbln (*NewGnl, BListSize (Support)); 

Q if (BListCreate (&NewList)) 

gQ return (GNL_MEMORY_FULL) ; 

Cj SetGnlOutputs ( (*NewGnl) , NewList) ; 

111 

Z^l for (i = 0; i<BListSize (ListEquations) ; i++) 

i y { 

5f FunctionI - (GNL_FUNCTION) BListElt (ListEquations, i) ; 

P Varl = GnlFunctionVar (FunctionI) ; 

=p if (GnlVarDir (Varl) ! = GNL_VAR_LOCAL) 

« if (BListAddElt (NewList, (int) GnlFunctionVar (FunctionI))) 

h& return ( GNL_MEMORY_FULL ) ; 

m ) 

ssss SetGnlNbOut (*NewGnl, BListSize (NewList)); 

if if (BListCreate (&NewList) ) 

y return ( GNL_MEMORY_FULL ) ; 

O SetGnlLocals ( (*NewGnl) , NewList) ; 

for (i-0; i<BListSize (ListEquations); i++) 
{ 

FunctionI = (GNL_FUNCT ION) BListElt (ListEquations, i) ; 

Varl = GnlFunctionVar (FunctionI) ; 

if (GnlVarDir (Varl) == GNL_VAR_LOCAL) 

if (BListAddElt (NewList, (int) GnlFunctionVar (FunctionI))) 
return (GNL_MEMORY_FULL) ; 

} 

SetGnlNbLocal (*NewGnl, BListSize (NewList)); 



if (BListCreate (&NewList)) 

return (GNL_MEMORY_FULL) ; 
SetGnlFunctions ( (*NewGnl) , NewList) ; 

for (i=0; i<BListSize (ListEquations); i++) 

{ 
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FunctionI = (GNL_FUNCTION) BListElt (ListEquations , i) ; 
Varl = GnlFunctionVar (FunctionI) ; 
if (BListAddElt (NewList, (int)Varl)) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&List Equations) ; 

/* We give the clocks of the original 'Gnl*. */ 
SetGnlClocks ( (*NewGnl) , GnlClocks (Gnl) ) ; 

/* We give the components of the original 'Gnl'. */ 
SetGnlComponents ( (*NewGnl) , Gnl Components (Gnl)); 

return (GNL_OK) ; 

} 

/* 

/* GnlMergeGnl */ 

/* 

/* This procedure merges a list of Gnls which habe been previously 
/* partitioned by the procedure ' GnlPartitionGnl ' below. */ 

/* The list of Gnls 'ListGnls' is then delete and the Gnls sons as well 
/* 

#define OPTI_CODE 

GNL_STATUS GnlMergeGnl (ListGnls, NewGnl) 
BLIST ListGnls; 
GNL *NewGnl ; 

{ 

int i ; 

GNL Gnl I; 

int j / 

GNL_NODE Segment J; 
GNL_VAR Varl; 
BLIST NewList; 



Gnll = (GNL) BListElt (ListGnls, 0) ; 

if (<*NewGnl = (GNL) GNL_CALLOC (1, sizeof (GNL__REC) ) ) NULL) 
return (GNL_MEMORY_FULL) ; 

/* We affect pointers of the original 'Gnl'. */ 
SetGnlName (*NewGnl, GnlName (Gnll) ) ; 

SetGnlSourceFileName (*NewGnl, GnlSourceFileName (Gnll)) ; 
SetGnlListSourceFiles (*NewGnl, GnlListSourceFiles (Gnll) ) ; 
SetGnlListPorts (*NewGnl, GnlListPorts (Gnll) ) ; 
SetGnlHashNames (*NewGnl 7 GnlHashNames (Gnll) ) ; 
SetGnlClocks ( (*NewGnl) , GnlClocks (Gnll) ) ; 
SetGnlComponents ( (*NewGnl) , GnlComponents (Gnll) ) ; 

/* we create a hash list of list of GNL_PATH_COMPONENT 

if (BListCreateWithSize (HASH_LIST_PATH_COMPO_SIZE, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
BSize (NewList) = HASH_LIST_PATH_COMPO_SIZE; 
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SetGnlListPathComponent { (*NewGnl) , NewList) ; 



/* Creating List of nodes segments */ 
/* This is the merge of all the segments of all the Gnls. */ 
if (BListCreate (ScNewList)) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<BListSize (ListGnls) ; i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize ( GnlNodes Segments (Gnll) ) ; j++) 

{ 

SegmentJ = (GNL_NODE) BListElt ( GnlNodes Segments (Gnll) , j); 
if (BListAddElt (NewList, (int) Segment J) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

SetGnlNodesSegments ( (*NewGnl) , NewList) ; 

SetGnlFirstNode ( (*NewGnl) , NULL); /* Next created node will invoke*/ 

SetGnlLastNode { (*NewGnl) , NULL); /* a new segment. */ 

#ifdef OPTI_CODE 

for (i-0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (GnlLocals (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnll) , j); 
SetGnlVarHook (Varl, NULL); 

} 

} 

#endif 

/* Creating the list of locals */ 
if (BListCreate (ScNewList)) 

return (GNL_MEMORY__FULL) ; 
for (i=0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (GnlLocals (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnll) , j); 

ftifdef OPTI_CODE 

if ( !GnlVarHook (Varl) ) 

{ 

SetGnlVarHook (Varl, 1) ; 
if (BListAddElt (NewList, (int) Varl)) 
return (GNL_MEMORY_FULL) ; 

} 



#else 



#endif 



if ( IBListMemberOfList (NewList, Varl, Intldentical) ) 
if (BListAddElt (NewList, (int) Varl)) 
return (GNL MEMORY FULL) ; 



} 



D-GNL2-198 



gnlpart.c 



SetGnlLocals ( (*NewGnl) , NewList) ; 
SetGnlNbLocal (*NewGnl, BListSize (NewList)); 

#ifdef OPTI_CODE 

for (i=0; i<BListSize (ListGnls) ; i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (Gnllnputs (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnll) , j) 
SetGnlVarHook (Varl, NULL) ; 

} 

} 

#endif 

/* Creating the list of inputs 
if (BListCreate (&NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
for (i=0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (Gnllnputs (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnll) , j) 
#ifdef OPTI_CODE 

if (IGnlVarHook (Varl) && 

( (GnlVarDir (Varl) == GNL_VAR__INPUT) | | 
(GnlVarDir (Varl) == GNL_VAR_INOUT) ) ) 

{ 

SetGnlVarHook (Varl, 1) ; 
if (BListAddElt (NewList, (int)Varl)) 
return (GNL_MEMORY_FULL) ; 

} 



#else 



if (((GnlVarDir (Varl) GNL_VAR_ INPUT ) || 
(GnlVarDir (Varl) == GNL_VAR_INOUT) ) 
IBListMemberOfList (NewList, Varl, Intldentical) ) 
if (BListAddElt (NewList, (int)Varl)) 
return (GNL MEMORY FULL) ; 



#endif 



} 

} 

SetGnl Inputs (*NewGnl, NewList) ; 
SetGnlNbln (*NewGnl, BListSize (NewList)); 

#ifdef OPTI^CODE 

for (i-0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (GnlOutputs (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnll) , j ) ; 
SetGnlVarHook (Varl, NULL) ; 

} 

} 

#endif 
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/* Creating the list of outputs 
if (BListCreate (&NewList) ) 

return ( GNL_MEMORY_FULL ) ; 
for (i=0; i<BListSize (ListGnls) ; i++) 
{ 

Gnll = (GNL)BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (GnlOutputs (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt {GnlOutputs (Gnll) , j) 
#ifdef OPTI_CODE 

if (!GnlVarHook (Varl) && 

{ (GnlVarDir (Varl) == GNL_VAR_OUTPUT) || 
(GnlVarDir (Varl) == GNL_VAR_INOUT) ) ) 

{ 

SetGnlVarHook (Varl, 1) ; 
if (BListAddElt (NewList, (int)Varl)) 
return ( GNL_MEMORY__FULL ) / 

} 



#else 



if (((GnlVarDir (Varl) « GNL_VAR_OUTPUT) || 
(GnlVarDir (Varl) == GNL_VAR__INOUT) ) 
IBListMemberOfList (NewList, Varl, Intldentical) 
if (BListAddElt (NewList, (int)Varl)) 
return (GNL_MEMORY FULL) ; 



#endif 



} 

} 

SetGnlOutputs ( (*NewGnl) , NewList) ,- 
SetGnlNbOut (*NewGnl, BListSize (NewList)); 



/* Creating the list of Functions 
if (BListCreate (&NewList) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<BListSize (ListGnls); i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

for (j=0; j<BListSize (GnlFunctions (Gnll) ) ; j++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnll) , j); 
if (BListAddElt (NewList, ( int ) Varl ) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

SetGnlFunctions ( (*NewGnl) , NewList) ; 



/* Freeing the partitions */ 
for (i=0; i<BListSize (ListGnls); i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 
BListQuickDelete (&GnlInputs (Gnll) ) ; 
BListQuickDelete (&GnlOutputs (Gnll) ) ; 
BListQuickDelete (&GnlLocals (Gnll) ) ; 
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BListQuickDelete (&Gnl Functions (Gnll) ) ; 
BListQuickDelete (&GnlNodes Segments (Gnll) ) ; 
free ( (char*) Gnll) ; 

} 

BListQuickDelete (&ListGnls) ; 
GnlResetVarHook (*NewGnl) ; 
return (GNL_OK) ; 

} 



/* GnlBuildDadsOnNode */ 
/* 1t/ 

/* This procedure builds all the Dads of each Nodes fron the Node 'Node'*/ 
/* it/ 

GNL_STATUS GnlBuildDadsOnNode (Node, Father) 
GNL NODE Node; 



GNL_NODE Father; 

{ 

int i ; 

GNL_VAR Var; 

BLIST NewList; 

GNL_NODE Node I ; 



SetGnlNodeHook (Node, NULL) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_OK) ; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (!GnlVarDads (Var)) 
{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarDads (Var, NewList) ; 

} 

NewList = GnlVarDads (Var) ; 
if (BListAddElt (NewList, (int) Node)) 
return (GNL_MEMORY_FULL) ; 

if ( !GnlNodeDads (Node) ) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeDads (Node, NewList) ; 

} 

NewList = (BLIST) GnlNodeDads (Node) ; 
if (BListAddElt (NewList, ( int ) Father) ) 
return (GNL__MEMORY_FULL) ; 

return (GNL_OK) ; 
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if ( IGnlNodeDads (Node)) 
{ 

if (BListCreateWithSize (1, &NewList) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlNodeDads (Node, NewList) ; 

} 

NewList = (BLIST) GnlNodeDads (Node) ; 
if (BListAddElt (NewList, (int) Father) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL__NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlBuildDadsOnNode (Nodel, Node)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 

/* */ 

/* GnlAssignUpPartitionldOnNode */ 
/* */ 

/* This procedure tags up recursively each GNL_NODE 'Node' with the tag */ 
/* • Partld 1 . First we tag down this node with the tag • Partld 1 then we */ 
/* tag it up. */ 
/* */ 

void GnlTagDownPartitionldOnNode ( ) ,- 

void GnlAssignUpPartitionldOnNode (Node, Partld) 

GNL_N0DE Node; 

int Partld; 

{ 

BLIST ListDadS; 

int i ; 

GNL_VAR Varl; 

GNL_NODE Nodel; 



GnlTagDownPartitionldOnNode (Node, Partld) ; 

ListDads = GnlNodeDads (Node) ; 

for (i=0; i<BListSize (ListDads); i++) 

{ 

/* If the Dad of this node is a GNL_VAR then we continue */ 
Varl = (GNL_VAR) BListElt (ListDads, i) ; 
if (GnlVarlsVar (Varl)) 

continue; 
else 

{ 

Nodel = (GNL_NODE) BListElt (ListDads, i) ; 
GnlAssignUpPartitionldOnNode (Nodel, Partld) ; 

} 

} 
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/* */ 

/* GnlAssignUpPartitionld */ 

/* */ 

/* This procedure tags up all the nodes recursively which are the Dads */ 

/* of 'Var' . */ 

/* */ 



void GnlAssignUpPartitionld (Var, Partld) 
GNL_VAR Var; 
int Partld; 

{ 

BLIST ListDads; 
int i ; 

GNL NODE Node I; 



} 



ListDads = GnlVarDads (Var) ; 

for (i=0; i<BListSize (ListDads); i++) 

{ 

Nodel = (GNL_NODE) BListElt (ListDads, i) ; 
GnlAssignUpPartitionldOnNode (Nodel, Partld) ; 

} 



/* */ 

/* GnlTagDownPartitionldOnNode */ 

/* */ 

/* This procedure tags the node 'Node 1 with the value 'Partld* and goes */ 
/* recursively. If the node has already the Tag "Partld 1 then we can */ 
/* return because we know we already processed it. If we reach a Var */ 
/* then we propagate the Tag up to all the nodes using this var and we */ 
/* do this recursively. */ 

/* */ 

void GnlTagDownPartitionldOnNode (Node, Partld) 

GNL_NODE Node; 

int Partld; 



{ 



GNL_VAR Var; 
int i ; 

GNL NODE Nodel; 



/* already visited. */ 
if (GnlNodeHook (Node) == (void* ) Partld) 
return; 

SetGnlNodeHook (Node, (void*) Partld) ; 

if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
return; 

if (GnlNodeOp (Node) GNL__VARI ABLE ) 
{ 
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Var = (GNL_VAR) GnlNodeSons (Node) ; 
if ( (GnlVarHook (Var) != (void*)0) && 

{GnlVarHook (Var) != (void*) Partld) ) 

fprintf (stderr, " ERROR : during partitioning logic\n"); 
exit (0); 

} 

/* If Var tagged with same value then we already passed trhu it */ 
if (GnlVarHook (Var) == (void* ) Partld) 
return; 



SetGnlVarHook (Var, Partld) ; 



/* We tag up recursively all the Nodes using this var. */ 

GnlAssignUpPartitionld (Var, Partld) ; 

return; 

} 

/* We propagate down the tag on each node. */ 
for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
GnlTagDownPartitionldOnNode (Nodel, Partld) ; 

} 



return ; 

} 

/* */ 

/* GnlTagDownPartitionldOnVar */ 

/* */ 

/* This procedure tags all the logic expression from the variable 'Var' */ 
/* by the value 'Partld'. */ 

/* */ 

void GnlTagDownPartitionldOnVar (Var, Partld) 

GNL_VAR Var; 

int Partld; 



{ 



GNL_NODE Node; 

GNL FUNCTION Function; 



Function = GnlVarFunction (Var) ; 
if ( ! Function) 
return; 



Node = GnlFunctionOnSet (Function) ; 



} 



GnlTagDownPartitionldOnNode (Node, Partld) ; 



/* */ 

/* GnlResetDadsInNode */ 
/* */ 

void GnlResetDadsInNode (Node) 
GNL NODE Node; 



D-GNL2-204 



gnlpart.c 



int i ; 

GNL_NODE Node I ; 
GNL VAR Var; 



SetGnlNodeDads (Node, NULL) ; 
SetGnlNodeHook (Node, 0) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node); 
SetGnlVarDads (Var, NULL) ; 
SetGnlVarHook (Var, NULL) ; 
return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

{ 

Nodel = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
GnlResetDadsInNode (Nodel) ; 

} 

} 



/* */ 

/* GnlCleanDadsInNode */ 
/* */ 

/* This procedure delete recursively from the node 'Node* all the Dads */ 

/* lists of the Nodes and Vars . */ 

/* */ 



void GnlCleanDadsInNode (Node) 
GNLJSTODE Node; 

{ 

int i ; 

GNL_NODE Nodel; 
GNL VAR Var; 



SetGnlNodeHook (Node, NULL) ; 

if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (GnlVarDads (Var) ) 

{ 

BListQuickDelete (& (GnlVarDads (Var) ) ) ; 
SetGnlVarDads (Var, NULL) ; 

} 

if (GnlNodeDads (Node) ) 
{ 
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BListQuickDelete (& (GnlNodeDads (Node) ) ) ; 
SetGnlNodeDads (Node, NULL) ; 

} 

return; 

} 

if (GnlNodeDads (Node) ) 

{ 

BListQuickDelete (& (GnlNodeDads (Node) ) ) ; 
SetGnlNodeDads (Node, NULL); 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

^Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlCleanDadsInNode (Nodel) ; 

} 

} 



/* */ 

/* GnlCleanNodeAndVars */ 

/* */ 

/* This procedure removes the lists that we have created in each Node */ 

/* and Var starting from the GnlFunctions . */ 

/* */ 



void GnlCleanNodeAndVars (Gnl) 
GNL Gnl ; 

{ 

int i ; 

GNL_FUNCT I ON FunctionI ; 
GNL VAR Varl; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

GnlCleanDadsInNode (GnlFunctionOnSet (FunctionI)) ; 

} 



} 



/* */ 

/* GnlPartitionGnlQuick *l 

/* */ 

/* This procedure partitions a 'Gnl' into a list of GNL. All equations */ 
/* having transitive common variables are put together in the same */ 
/* partition. Ex: fl = a+b, f2 = a+c, f3 = b+i, f4 = z+x; */ 
/* We will get two partitions: */ 
/* Partition 1 = {fl = a+b, f2 = a+c, f3 = b+i} */ 

/* Partition 2 = {f4 = z+x;} */ 

/* *> 

GNL_STATUS GnlPartitionGnlQuick (Gnl, ListGnls) 

GNL Gnl ; 

BLIST *ListGnls; 

{ 
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int i ; 

int j ; 

GNL_VAR Varl; 

GNL_VAR VarJ; 

GNL__FUNCT I ON FunctionI; 

BLIST Support I; 

BLIST MergedListOf Supports; 

BLIST Lis tOf Lis tEquat ions; 

BLIST ListEquationsI ; 

GNL NewGnl; 

int Partld; 

GNL_NODE Node I ; 

BLIST NewList; 

BLIST HashTableNames ; 

BLIST Bucketl; 

BLIST Support; 

BLIST ListEquations ; 



if (BListCreate (ListGnls)) 
return (GNL_MEMORY_FULL) ; 

/* We reset the Hook and Dads field of all the variables. 
GnlResetVarHook (Gnl) ; 
GnlResetVarDads (Gnl) ; 

/* We first scan the GNL_NODE nodes to reset the 'Dads' field. */ 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVar Function (Varl) ; 
GnlResetDadsInNode (GnlFunctionOnSet (FunctionI) ) ; 

} 

/* For all the functions we compute the Dads of each node and dads 
/* of each variables. */ 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if ('FunctionI) 
continue ; 

if (GnlBuildDadsOnNode (GnlFunctionOnSet (FunctionI), Varl)) 
return ( GNL_MEMORY_FULL ) ; 

} 

Partld = 0; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

fprintf (stderr, "%c Merging [%d/%d] ,, / 13, i, 

BListSize (GnlFunctions (Gnl) ) ) ; 
f flush (stderr) ; 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl) 7 i) ; 
FunctionI = GnlVarFunction (Varl) ; 
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/* The variable has already an assigned partition. */ 
Nodel = GnlFunctionOnSet (FunctionI) ; 
if (GnlNodeHook (Nodel)) 
continue; 

Partld++; 

/* We tag all the low recursive expression from the variable 
/* 'Varl' by the value 'Partld'. */ 
GnlTagDownPartitionldOnVar (Varl, Partld) ; 

} 

fprintf (stderr, "%c Merging [%d/%d]\n*\ 13, i, 

BListSize (GnlFunctions (Gnl))); 
f flush (stderr); 

if (BListCreateWithSize (Partld, &MergedList Of Supports) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (Partld, &ListOf ListEquations) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<PartId; i++) 
{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (MergedListOf Supports , (int) NewList ) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, ScNewList) ) 

return (GNL_MEMORY__FULL) ; 
if (BListAddElt (ListOf ListEquations , (int) NewList ) ) 

return ( GNL_MEMORY_FULL ) ; 

} 

/* Building the supports of each partition. */ 

HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
Partld = (int)GnlVarHook (VarJ) ; 
if (! Partld) 
continue ; 

Support = (BLIST) BListElt (MergedListOf Supports , Partld-l) 
if (BListAddElt (Support, (int) VarJ)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

/* Placing each equation in the corresponding partition. */ 
for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), l) ; 
FunctionI = GnlVarFunction (Varl) ; 
Nodel = GnlFunctionOnSet (FunctionI) ; 
Partld - (int) GnlNodeHook (Nodel); 

ListEquations = (BLIST) BListElt (ListOf ListEquations , Partld-l) 
if (BListAddElt (ListEquations, (int ) FunctionI) ) 
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return (GNL MEMORY FULL) ; 



/★We remove the lists that we have created in each Nodes and Vars */ 
/* starting from the GnlFunctions . */ 
GnlCleaiiNodeAndVars (Gnl) ; 

for (i=0; i<BListSize (ListOf ListEquations ) ; i++) 
{ 

fprintf (stderr, "%c Creating Gnl [%d/%d] n , 13, i, 
BListSize {ListOf ListEquations ) ) ; 

f flush (stderr) ; 
ListEquationsI = (BLIST) BListElt (ListOf ListEquations, i) ; 
SupportI = (BLIST) BListElt (MergedListOf Supports, i) ; 

if (GnlCreateGnlFromFunction (Gnl, ListEquationsI, SupportI, 

&NewGnl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (*ListGnls, (int) NewGnl) ) 

return (GNL_MEMORY_FULL) ; 

} 

fprintf (stderr, "%c Creating Gnl [%d/%d]\n" , 13, i, 

BListSize (ListOf ListEquations ) ) ; 
fflush (stderr) ; 



return (GNL_OK) ,- 

} 



/* */ 

/* GnlPartitionGnl */ 

/* */ 

/* This procedure partitions a 'Gnl' into a list of GNL. */ 

/* */ 



GNLJ3TATUS GnlPartitionGnl (Gnl, ListGnls) 
GNL Gnl ; 

BLIST *ListGnls; 

{ 

int i ; 

GNL_VAR Varl ; 

GNL_FUNCT I ON FunctionI ; 

BLIST Support I, - 

BLIST ListSupportS ; 

BLIST ListFunctions; 

BLIST MergedListOf Supports ; 

BLIST ListOf ListEquations ; 

BLIST ListEquationsI ; 

GNL NewGnl ; 



if (BListCreate (ListGnls)) 
return ( GNL_MEMORY_FULL ) ; 

if (BListCreate (&ListSupports) ) 
return (GNL_MEMORY_FULL) ; 
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if (BListCreate (^ListFunctions ) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (Gnl Functions (Gnl) ) ; i++) 

^Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

if (BListAddElt (ListFunctions , (int) FunctionI) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlGetFunctionSupport (GnlFunctionOnSet (FunctionI) , 

&SupportI) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (ListSupports , ( int ) SupportI) ) 
return (GNL_MEMORY_FULL) ; 

} 

/* W e reset the Hook field of all the variables. */ 
GnlResetVarHook (Gnl) ; 

if (GnlMergeFunctions (ListSupports , ListFunctions , 

&MergedListOf Supports, &ListOf ListEquations) ) 
return { GNL_MEMORY_FULL ) ; 

BListDelete (&ListSupports, BListQuickDelete) ; 
BListQuickDelete (^ListFunctions) ; 



for (i=0; i<BListSize (ListOf ListEquations) ; i++) 

ListEquationsI = (BLIST) BListElt (ListOf ListEquations , i) ; 
SupportI = (BLIST) BListElt (MergedListOf Supports , i) ; 

if (GnlCreateGnlFromFunction (Gnl, ListEquationsI, SupportI, 

&NewGnl) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (*ListGnls, (int)NewGnl) ) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 
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/* 








/* 


File: 


gnlpostopt . c 




/* 


Version : 


1.1 




/* 


Modifications : 






/* 


Documentation : 






/* 






*/ 


/* 


Description: 




/* 









#include <stdio.h> 

#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

ftinclude "blist.h" 
#include "gnl.h" 
#include "gnlmint .h" 
#include "gnlopt .h" 
#include "bbdd.h" 
#include "libc_mem.h" 
#include "libc_api .h" 
#include "gnllibc.h" 
#include "gnlopt ion. h" 
#include "gnlestim.h" 
# include "time.h" 

#include "blist.e" 
# include "timecomp . e" 

/* */ 

/* EXTERN */ 

/* */ 

extern GNL_ENV G_GnlEnv; 

extern GNL_VAR GnlGetOriginalVar (); 

*/ 

/* Global variables. */ 

z * 

/* GnlPrintMotherCelllnterf ace */ 

void GnlPrintMotherCelllnterf ace (MotherCell) 
LIB_CELL MotherCell; 

{ 

int i ; 

GNL_VAR Input Origin; 
GNL__VAR Input ; 



printf (" MOTHER CELL = %s\n", LibHCellName (MotherCell)); 

for (i=0; i<BListSize (LibHCelllnputsOrigin (MotherCell)); i++) 
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{ 

InputOrigin = (GNLJVAR) BListElt ( 

LibHCelllnputsOrigin (MotherCell) , i) ; 
Input = (GNL_VAR) BListElt (LibHCelllnputs (MotherCell), i) ; 
printf (" %s <-> %s\n", GnlVarName (InputOrigin), 
GnlVarName (Input) ) ; 

} 

printf ("\n"); 

} 



/* GnlGetNewFormalName / 

/* 

char *GnlGetNewFormalName (FormalName , CurrentDeriveCell , NewDeriveCell ) 

c har *FormalName; 

LIB_DERIVE_CELL CurrentDeriveCel 1 ; 

LIB_DERIVE_CELL NewDeriveCell ; 

{ 

int Index; 
int i ; 

GNL_VAR InputOrigin ; 
GNL_VAR Norme Input ; 
LIB_CELL CurrentMotherCell; 
LIB_CELL NewMotherCell; 
GNL VAR NewFormalVar; 



Index - -1; 

CurrentMotherCell = LibDeriveCellMotherCell (CurrentDeriveCell) ; 

for (i=0; i<BListSize (LibHCelllnputsOrigin (CurrentMotherCell)); i++) 

{ 

InputOrigin = (GNL_VAR) BListElt ( 

LibHCelllnputsOrigin (CurrentMotherCell) , i) ; 
if ( ! strcmp (FormalName, GnlVarName (InputOrigin) ) ) 
{ 

Index = i; 
break ; 

} 

} 

if (Index == -1) 

fprintf (stderr, " ERROR: in replacing cell procedure\n" ) ; 
exit (1); 

} 

Normelnput = (GNL_VAR) BListElt (LibHCelllnputs (CurrentDeriveCell), 

Index) ; 

NewMotherCell = LibDeriveCellMotherCell (NewDeriveCell) ; 
NewFormalVar = GnlGetOriginalVar (NewDeriveCell, NewMotherCell, 

Normelnput) ; 



return (GnlVarName (NewFormalVar) ) ; 

} 

z* 
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/* GnlFindCellsUserCompo */ 

/* */ 

/* Extracts the mother cell LIB_CELL and derive cell LIB_DERIVE_CELL of */ 
/* the user compo 'UserCompo'. */ 

/* */ 

void GnlFindCellsUserCompo {UserCompo, MotherCell, DeriveCell) 

GNL JJSER_COMPONENT UserCompo ; 

LIB_CELL *MotherCell ; 

LIB DERIVE CELL *DeriveCell; 



{ 



BLIST ListEquivCells ; 

int i ; 

LIB__CELL MotherCelll ; 

LIB DERIVE CELL DeriveCelll; 



ListEquivCells = GnlUserComponentEquivCells (UserCompo) ; 
*MotherCell = NULL; 
*DeriveCell = NULL; 

for (i=0; i<BListSize (ListEquivCells); i++) 

{ 

DeriveCelll = (LIB_DERIVE_CELL) BListElt (ListEquivCells, i) ; 
MotherCelll = LibDeriveCellMotherCell (DeriveCelll) ; 
if (Istrcmp (GnlUserComponentName (UserCompo), 
LibHCellName (MotherCelll) ) ) 

{ 

*MotherCell = MotherCelll; 
*DeriveCell = DeriveCelll; 
break; 

} 

} 



/* 

/* GnlReplaceUserCompoByDeriveCell 

/* 

/* This procedure realizes the physical replacement of the current cell 

/* 'UserCompo' by the selected derive cell 'NewDeriveCell ' . The two 

/* cells involved have the same functionality but modulo the polarity. 

/* */ 

/* For now, the functionality of the two cells must be exactly the same 

/* (e.g. same Bdd) . */ 

/* We need to implement the case where the two Bdds are complemented so 

/* we have to insert an inverter which is 1 Best Inverter ■ . */ 



■*/ 
*/ 

■*/ 
*/ 
*/ 
*/ 

*/ 

*/ 

-*/ 



/* 

GNL_STATUS GnlReplaceUserCompoByDeriveCell (Gnl, UserCompo, NewDeriveCell, 

Bestlnverter, 



ListlnverterCells) 



GNL 

GNL_USER_COMPONENT 
LIB_DERIVE_CELL 
LIB_DERIVE_CELL 
BLIST 



Gnl; 

UserCompo; 

Ne wDe r i ve Ce 1 1 ; 

Bestlnverter; 



LIB CELL 



ListlnverterCells ; 

NewMotherCell; 
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LIB_CELL 

LIB_CELL 

BLIST 

BLIST 

GNL_VAR 

int 

LIBC_CELL 

LIBJDERIVE_CELL 

GNL_ASSOC 

char 

char 

GNL_VAR 

BLIST 

BLIST 

char 

GNL_USER_COMPONENT 

GNL_ASSOC 

GNL_ASSOC 

BLIST 

GNL_VAR 

GNL_VAR 

GNL VAR TRAVERSAL 



CurrentMotherCell ; 
InverterMotherCell ; 
ListEquivCells ; 
Cell Inputs ; 
Varl; 

i; 

NewLibcCell ; 

CurrentDeriveCell ; 

Assoc I ; 

* Formal I ; 

*NewFormalI ; 
Actual I; 
Compolnterf ace ; 
Interface,- 

* InstanceName ; 

NewUserCompo ; 

NewAssoc; 

AssocOut ; 
Inverter Input sOrigin ; 
InputFormal; 
NewVar ; 
INFO NewTraversal Inf o ; 



/* There was no cell associated before so the replacement is not valid*/ 
if ( IGnlUserComponentCellDef (UserCompo) ) 
return (GNL_OK) ; 

/* We look for the current Mother Cell corresponding to the current */ 
/* user component and its associated derive cell. */ 
ListEquivCells = GnlUserComponentEquivCells (UserCompo) ; 
GnlFindCellsUserCompo (UserCompo, ^CurrentMotherCell , 

&CurrentDeriveCell) ; 

if ( ! CurrentMotherCell) 

/* Oops ! we were not able to find the associated mother cell */ 
return (GNL_OK) ; 

} 

/* Actually we ask to replace the current by itself. */ 
if (CurrentDeriveCell =- NewDeriveCell) 

{ 

return (GNL_OK) ; 

} 

if (GetBddPtr (LibDeriveCellBdd (CurrentDeriveCell)) 1= 
GetBddPtr (LibDeriveCellBdd (NewDeriveCell) ) ) 

{ 

/* Common: the two functionalities are different. No way to */ 
/* make the replacement. */ 
return (GNL_OK) ; 

} 

/* If the two Cells have complemented functionality we have to insert*/ 
/* an inverter. */ 
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if ( (LibDeriveCellBdd (CurrentDeriveCell) != 
LibDeriveCellBdd (NewDeriveCell) ) ) 

{ 

/* For now we do not consider complemented functionalities */ 
/* between the 'CurrentDeriveCell 1 and the new 'NewDeriveCell 1 . */ 
return (GNL_OK) ; 



/* we look for the assoc output of the user component */ 
AssocOut = NULL; 

Compolnterface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i<BListSize (Compolnterface) ; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Compolnterface, i) ; 
Formall = {char* ) GnlAssocFormal Port (AssocI); 
Actual I = GnlAssocActualPort (AssocI) ; 

if (istrcmp (Formall, LibHCellOutput (CurrentMotherCell) ) ) 

{ 

AssocOut = AssocI; 
break; 

} 

} 

/* We create a new user component for the inverter. */ 
InverterMotherCell = LibDeriveCellMotherCell (Bestlnverter) ; 

if (BListCreateWithSize (1, ^Interface) ) 
return ( GNL__MEMORY_FULL ) ; 

SetGnllnstanceld (Gnl, Gnllnstanceld (Gnl)+1); 

if (GnlStrAppendlntCopy ("m", Gnllnstanceld (Gnl), &InstanceName) ) 
return <GNL_MEMORY_FULL) ; 

if (GnlCreateUserComponent (LibHCellName (InverterMotherCell) , 

InstanceName, NULL, Interface, 
&NewUserCompo) ) 

return ( GNL_MEMORY_FULL ) ; 

/* The output actual net of the Inverter is the actual output */ 
/* of the user component. */ 
if (GnlCreateAssoc (&NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (NewAssoc , 

LibHCellOutput (InverterMotherCell) ) ,- 
SetGnlAssocActualPort (NewAssoc, GnlAssocActualPort (AssocOut) ) ; 
if (BListAddElt (Interface, (int) NewAssoc) ) 

return (GNL_MEMORY_FULL) ; 

/* We create a new var to make the net between the inverter and */ 
/* new cell that we will put. */ 
if (GnlCreateUniqueVar (Gnl, "RS n , &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int)NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 
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if (GnlCreateVarTraversallnf o (&NewTraversalInf o) ) 

return ( GNL_MEMORY_FULL ) ; 
/* we hook the field with this new structure. 
SetGnlVarHook (NewVar, NewTraversallnf o) ; 
if (GnlVarTraversallnfoAddAssoc (NewVar, AssocOut) ) 

return (GNL_MEMORY_FULL) ; 

/* The actual output of the current user compo is replaced by 
/* this var. */ 
SetGnlAssocActualPort (AssocOut, NewVar) ,- 

/* we create the association of the input of the inverter */ 
if (GnlCreateAssoc (ScNewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocActualPort (NewAssoc, NewVar) ; 

InverterlnputsOrigin = LibHCelllnputsOrigin (CurrentMotherCell) ; 
InputFormal = (GNL_VAR) BListElt (InverterlnputsOrigin, 0) ; 
SetGnlAssocFormalPort (NewAssoc, GnlVarName (InputFormal) ) ; 
if (BListAddElt (Interface, (int) NewAssoc) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarTraversallnfoAddAssoc (NewVar, NewVar) ) 

return ( GNL__MEMORY_FULL ) ; 
SetGnlUserComponentlnterface (NewUser Compo, Interface) ; 

/* we link the component with its corresponding LIBC cell 
SetGnlUserComponentCellDef (NewUserCompo , 

XiibHCellLibcCell (InverterMotherCell) ) 
SetGnlUserComponentEquivCells (NewUserCompo, ListlnverterCells) ; 

if (BListAddElt (Gnl Components (Gnl) , ( int) NewUserCompo) ) 
return { GNL_MEMORY_FULL) ; 

} 

/* Now we get the New mother cell of the cell we will put. 
NewMotherCell = LibDeriveCellMotherCell (NewDeriveCell) ; 
NewLibcCell = LibHCellLibcCell (NewMotherCell) ; 

if (GnlEnvPrintResizedGates () ) 

fprintf (stderr, " WARNING : Replacing Cell <%s> by Cell <%s>\n", 
LibHCellName (CurrentMotherCell) , 
LibHCellName (NewMotherCell) ) ; 

} 

Compolnterface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i<BListSize (Compolnterface) ; i++) 

{ 

AssocI = (GNL_ASS0C) BListElt (Compolnterface, i) ; 
Formall = (char*) GnlAssocFormal Port (AssocI); 
Actuall = GnlAssocActualPort (AssocI) ; 

/* If we are treating the output of the cell we replace by the 

/* output of the new mother cell. */ 

if (Istrcmp (Formall, LibHCellOutput (CurrentMotherCell))) 

{ 

SetGnlAssocFormalPort (AssocI, 
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LibHCellOutput (NewMotherCell) ) ; 

continue; 

} 

NewFormall = GnlGetNewFormalName (Formall, CurrentDeriveCell , 

NewDeriveCell) ; 

SetGnlAssocFormalPort (AssocI, NewFormall) ; 

} 

SetGnlUserComponentName (UserCompo, LibHCellName (NewMotherCell)) ; 
SetGnlUserComponentCellDef (UserCompo, NewLibcCell) ; 

return (GNL OK) ; 



} 



/* */ 

/* GnlFindFasterCellTrivial */ 
/* */ 

LIB_DERIVE_CELL GnlFindFasterCellTrivial (UserCompo) 
GNL_US ER_COM PONENT UserCompo ; 

{ 

int i ; 

BLIST ListEquivCells ; 

LIB_CELL CurrentMotherCell ; 

LIB_DERIVE_CELL CurrentDeriveCell ; 

LIB DERIVE CELL DeriveCelll; 



ListEquivCells = GnlUs er Component EquivCel Is (UserCompo) ; 
GnlFindCellsUserCompo (UserCompo, ^CurrentMotherCell, 

&CurrentDeriveCell) ; 

for (i=BListSize (ListEquivCells) -1; i>=0; i--) 
{ 

DeriveCelll = (LIB_DERIVE_CELL) BListElt (ListEquivCells, i) ; 
if (LibDeriveCellBdd (CurrentDeriveCell) == 
LibDeriveCellBdd (DeriveCelll) ) 

{ 

return (DeriveCelll) ; 

} 

} 

return (NULL) ; 



/* */ 

/* GnlReplaceComponentByDeriveCell */ 

/* */ 

GNL_STATUS Gnl Rep 1 ace Component ByDerive Cell (Gnl, Component, GnlLib) 

GNL Gnl ; 

GNL_COMPONENT Component ; 

GNL_LIB GnlLib; 

{ 

GNL USER COMPONENT UserCompo; 
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L I B_DER I VE_CELL BestCell ; 

BLIST Listlnverters ; 

LIB DERIVE CELL Bestlnv; 



switch (GnlComponentType (Component)) { 

case GNL_USER_COMPO : 

UserCompo = ( GNL JJSER_COMPONENT) Component ; 

if ((BestCell = GnlFindFasterCellTrivial (UserCompo)) 
== NULL) 
return (GNL_OK) ; 

Listlnverters = GnlHLiblnverters (GnlLib) ; 
Bestlnv = (LIB_DERIVE__CELL) BListElt (Listlnverters, 

BListSize (Listlnverters) -1) ; 

if (GnlReplaceUserCompoByDeriveCell (Gnl, UserCompo, 

BestCell, Bestlnv, Listlnverters)) 
return ( GNL_MEMORY_FULL ) ; 
return (GNL_OK) ; 

case GNL_S EQUENT I AL_COMPO : 
return (GNL_OK) ; 

case GNLJTRISTATE_COMPO: 
return (GNL_OK) ; 

case GNL_BUF_COMPO : 

return (GNL_OK) ; 

default : 

return (GNL_OK) ; 

} 

} 

/* 

/* GnlReplaceCelllnGnl 

/* 

GNLJSTATUS GnlReplaceCelllnGnl (Gnl, GnlLib) 

GNL Gnl ; 

GNL__LIB GnlLib; 

{ 

BLIST Components; 
int i ; 

GNL_COMPONENT Component I ; 



Components = Gnl Components (Gnl) ; 

if ( ! Component s ) 
return (GNL_OK) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
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if (GnlReplaceComponentByDeriveCell (Gnl, ComponentI, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlPostOptimizeNetwork */ 
/* 

GNL_STATUS GnlPostOptimizeNetwork (Nw, HGnlLib) 
GNL_NETWORK Nw; 
GNL_LIB HGnlLib; 

{ 

GNL TopGnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlReplaceCelllnGnl (TopGnl, HGnlLib) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* 

/* GnlPostOptimize 



/* 

GNL_STATUS GnlPostOptimize () 
{ 



int 

GNL 

GNL 

BLIST 

LIBC_LIB 

GNLJjIB 

int 

FILE 

GNL_STATUS 
GNL 

GNL_NETWORK 
char 



i; 

Gnl; 

Gnll; 

ListGnls; 

GnlLib; 

HGnlLib; 

Done ; 

*OutFile; 

GnlStatus; 

TopGnl ; 

GlobalNe twork ; 
*LibSourceFileName ; 



if (GnlEnvOutput ( ) ) 
{ 

if ((OutFile = fopen (GnlEnvOutput () , n w")) == NULL) 
{ 

fprintf (stderr, " ERROR : Cannot Open Output File ! %s'\n n , 

GnlEnvOutput ( ) ) ; 
return (GNL_CANNOT_OPEN_OUTFILE) ; 

} 

fclose (OutFile) ; 

} 
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if ((OutFile = fopen (GnlEnvLib ( ) , "r")) == NULL) 
{ 

fprintf (stderr, " ERROR: Cannot Open Library File ' %s , \n" # 

GnlEnvLib ( ) ) ; 
return ( GNL_CANNOT_0 PEN__L IBRARY ) ; 

} 

fclose (OutFile) ; 

if (GnlEnvInputFormat () == GNL_INPUT_VLG) 

{ 

fprintf (stderr, "\n Reading Verilog file [%s] .-An", 

GnlEnvInput () ) ; 
if (GnlRead (GnlEnvInput () , &ListGnls) ) 

{ 

fprintf (stderr, " ERROR : Cannot Open Input File ' %s'\n", 

GnlEnvInput ( ) ) ; 
return (GNL_CANNOT_OPEN_INPUTFILE) ; 

} 

fprintf (stderr, " Verilog Netlist Analyzed\n M ) ; 

} 

else 

{ 

fprintf (stderr, 

" ERROR: Post -Optimization must be done on Verilog netlist 

input\n" ) ; 

return (GNL_CANNOT_OPEN_INPUTFILE) ; 

} 

/* Sort and prints the list 'ListGnls T by putting first the top 
/* level modules 
SortTopLevelModules (ListGnls) ; 
GnlPrintTopLevels (ListGnls) ; 

if ( I GnlEnvTop ( ) ) 
{ 

Gnll = (GNL) BListElt (ListGnls, 0) ; 
TopGnl = Gnll; 
fprintf (stderr, 

" WARNING: Top Level Module is [%s] by def ault\n" , 

GnlName (TopGnl) ) ; 

} 

else 

{ 

/* Taking the top level module from the user 
TopGnl = NULL; 

for (i=0; i<BListSize (ListGnls); i++) 
{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

if ( ! strcmp (GnlName (Gnll) , GnlEnvTop () ) ) 

{ 

TopGnl = Gnll; 
break; 

} 

} 

} 



if (TopGnl == NULL) 
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fprintf (stderr, " ERROR : cannot find top-level module [%s] \n n , 

GnlEnvTop ( ) ) ; 
return { GNL__CANNOT_FIND_TOP_LEVEL ) ; 

} 

/* we create the Global network. */ 
if (GnlCreateNetwork (TopGnl, ^GlobalNetwork) ) 
return (GNL_MEMORY_FULL) ; 

/* Reading and building the technology library */ 
fprintf (stderr, M \n Reading Library [%s] . ..\n", 

GnlEnvLib () ) ; 
if (LibRead (GnlEnvLib () , &GnlLib) ) 

fprintf (stderr, " ERROR: Library analysis aborted\n H ); 
return (GNL__ERROR__LIBRARY_READING) ; 

} 

fprintf (stderr, " Library analyzed\n" ) ; 

fprintf (stderr, "\n Building library elements ... \n\n" ) ; 
if ( (GnlStatus - GnlBuildLib (GnlLib) ) ) 
return (GnlStatus) ; 

/* Checking correctness of the network "GlobalNetwork*. */ 
if ( (GnlStatus = GnlCheckNetwork (GlobalNetwork) ) ) 
return (GnlStatus) ; 



fprintf (stderr, 

"\n Checking Hierachical interfaces from top module [%s]\n M , 
GnlName (TopGnl) ) ; 

/* We verify the correct connection between user components and */ 
/* their definitions and update some fields (Ref Count) . */ 
if (GnlUpdateNCheckHierarchylnterf ace (GlobalNetwork, TopGnl , 

ListGnls) ) 

return (GNL_MEMORY_FULL) ; 

/* We link each component of all the Gnls in the network with the */ 
/* libc cells of same name. */ 
fprintf (stderr, " Linking Components With Libc Cells\n n ); 
if (GnlLinkLib (GlobalNetwork, TopGnl, GnlLib)) 

return (GNL_MEMORY_FULL) ; 
HGnlLib = (GNL_LIB) LibHook (GnlLib); 
if (GnlStrCopy (GnlEnvLib () , &LibSourceFileName) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlHLibSourceFileName (HGnlLib, LibSourceFileName) ; 



/* We modify the original GNL_USER_COMPONENT components according to */ 

/* to their linking libc cell. */ 

/* Only not combinatorial GNL__USER_COMPONENT are modified */ 

if (GnlReplacePredefComponentsWithLinkLibCells (GlobalNetwork, TopGnl, 

GnlLib) ) 

return (GNL_MEMORY_FULL) ; 

/* We invoke the control fanout algorithm. */ 
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if (GnlEnvRespectLibConstraints () ) 

{ 

if (GnlStatus = GnlMeetLibConstraints (GlobalNetwork, GnlLib) ) 
return (GnlStatus) ; 

} 

/* We invoke the post optimisation on the synthesized design */ 
if (GnlEnvPostOpt ()) 
{ 

fprintf (stderr, " Performing Post-Optimization ... \n" ) ; 
ftifdef XXXJ40DE 

if ( (GnlStatus - GnlPostOptimizeNetwork (GlobalNetwork, HGnlLib) ) ) 
return (GnlStatus) ; 

#endif 

if (TimeOptByResizing (GlobalNetwork, GnlLib) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, n \n"); 

} 

if (GnlReportDataForEstimation (GlobalNetwork, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 



/* Printing the optimized mapped verilog netlist. */ 
fprintf (stderr, " Printing Verilog Netlist 1 %s 1 . . . \n\n" , 
GnlEnvOutput ( ) ) ; 

if ((GnlStatus = GnlPrintVerilogNetwork (GlobalNetwork, HGnlLib, 

GnlEnvOutput () ) ) ) 

return (GnlStatus) ; 

fprintf (stderr, " Post-Optimization Done I \n M ); 
fprintf (stderr, " \n") ; 



} 

/* 



return (GNL OK) ; 
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/*-• 










/* 








*/ 


/* 


File: 


gnlpower . c 




*/ 


/* 


Version: 


1.1 




*/ 


/* 


Modifications : 






*/ 


/* 


Documentation : 






*/ 


/* 






*/ 


*/ 


/* 


Description : 






/* 








*/ 


/*--• 








*/ 



#include <stdio.h> 

#ifdef MEMORY 
#include <malloc.h> 
#endif 



#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
# include 
#include 



"blist.h" 

"gnl .h" 

"gnlmint . h" 

"bbdd.h" 

"gnloption. h" 

"libc_mem.h" 

"libc_api.h" 

"gnllibc.h" 

"gnlestim.h" 

"gnlmap.h" 

"time.h" 



#include "blist.e" 

#include "libutil.e" 
#include " timecomp . e " 



/* If one wants memory statistics for SUN */ 



/* */ 

/* EXTERN */ 

/* */ 

extern GNL_ENV G_GnlEnv; 

extern BDD_PTR GetBddPtrFromBdd ( ) ; 

/* */ 

/* FORWARD */ 

/* */ 

GNL_STATUS GnlBestAreaMapNode () ; 

GNL_STATUS GnlBestDepthMapNode (); 

void GnlAddPinCapacitance () ; 

GNL_STATUS GnlGetMaxMinDelaysFromNode () ; 

void GnlGetMaxTechnologyDepthFromNode () ; 



/* */ 

/* GnlPowerEstimate */ 

/* */ 

/* This procedure computes the power estimations related to the global */ 
/* netlist 'GlobalNetwork' using library cells of 'GnlLibc 1 . */ 
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/* */ 

GNL_STATUS GnlPowerEstimate (Nw, GnlLibc) 

GNL_NETWORK Nw; 

LIBC_LIB GnlLibc; 

{ 

GNL TopGnl ; 

GNL STATUS GnlStatus; 



fprintf (stderr, " Performing Power Analysis ... \n" ) ; 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
TopGnl = GnlNetworkTopGnl (Nw) ; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlPowerEstimateAf terSynthesis */ 

/* */ 

/* This procedure computes the power estimations related to the global */ 
/* netlist 'GlobalNetwork' using library cells of 'GnlLibc'. */ 

/* */ 

GNL_STATUS GnlPowerEstimateAf terSynthesis (Nw, GnlLibc) 

GNL_NETW0RK Nw ; 

LIBC LIB GnlLibc ; 



S~ GNL TopGnl; 

^ GNL_STATUS GnlStatus; 



Nv TopGnl = GnlNetworkTopGnl (Nw) ; 

flj if (GnlLinkLib (Nw, TopGnl, GnlLibc)) 

m return (GNL MEMORY FULL) ; 



if ((GnlStatus = GnlPowerEstimate (Nw, GnlLibc))) 
return (GnlStatus) ; 



return (GNL OK) ; 



} 

/*- 
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/* */ 

/* */ 

/* File: gnlprint.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 

/* */ 



#include <stdio.h> 

#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc . h> 

#endif 

#include "blist.h" 

#include "gnl.h" 

#include "gnlmint .h" 

#include "bbdd.h" 

C| # include "libc_mem. h" 

yp #include "libc_api . h" 

#include "gnllibc .h" 

I f4 # include "gnlmap.h" 

#include "gnloption.h" 

^ #include "blist.e" 

,P /* */ 

s /* DEFINE */ 

y, /* */ 

ffj #define PLIB /* If defined then verilog output is simplified and */ 

fl\ /* and dedicated for • plib' library (to do verification)*/ 

#undef PLIB 

y #define PRINT_PARAMETERS /* If defined then instance parameters */ 

/* are printed out. */ 

#undef PRINT_PARAMETERS 

/* */ 

/* EXTERN */ 

/* */ 

extern BDD_PTR GetBddPtrFromBdd () ; 
extern GNL_VAR GnlGetOriginalVar () ; 

extern LIB_CELL GetBestAreaLiblnverter (); 
extern GNL_ENV G_GnlEnv; 

extern double GnlGetNetworkGateArea () ; 

extern GNL_STATUS GnlGetNetworkNetArea () ; 

/* */ 

/* STATIC GLOBAL VARIABLES */ 

/* */ 

static int G_PrintModuleCounter = 0; 

/* */ 
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/* GnlPrintMapNode */ 
/* */ 

void GnlPrintMapNode (File, Node) 

FILE *File; 

GNL_NODE Node ; 

{ 

GNL_NODE Son; 

GNL_VAR Var; 

int i ; 



switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (GnlVarlsVss (Var) ) 

fprintf (File, "{o}"); 
else if (GnlVarlsVdd (Var) ) 

fprintf (File, »{l}"); 

else 

fprintf (File, "%s n , GnlVarName (Var) ) ; 
return; 

case GNL_NOT: 
if (GnlMapNodelnfoCutVar (Node) ) 

{ 

Var = GnlMapNodelnfoCutVar (Node) ; 
fprintf (File, "%s n , GnlVarName (Var)); 
return; 

} 

Son = (GNL_NODE) BListElt (GnlNodeSons (Node), 0) ; 

fprintf (File, "!("); 

GnlPrintMapNode (File, Son) ; 

fprintf (File, ")"); 

return; 



case GNL_AND: 
case GNL_0R: 
case GNL_NOR: 
case GNL_NAND: 
case GNL_X0R: 
case GNL_XNOR: 
if (GnlMapNodelnfoCutVar (Node) ) 
{ 

Var = GnlMapNodelnfoCutVar (Node) ; 
fprintf (File, "%s M , GnlVarName (Var) ) ; 
return; 

} 

fprintf (File, "("); 

for (i=0; i<BListSize (GnlNodeSons (Node))-l; i++) 

{ 

Son - (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlPrintMapNode (File, Son) ; 

fprintf (File, "%s n , GnlNameFromOp (GnlNodeOp (Node))) 

} 

Son = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlPrintMapNode (File, Son) ; 



D-GNL2-226 



gnlprint.c 



fprintf (File, ")"); 
return; 

case GNL_CONSTANTE : 

if (GnlNodeSons (Node) == (BLIST)l) 
fprintf (File, "{l}") ; 

else 

fprintf (File, " {o}"); 
return; 

case GNL_WIRE: 

Son = (GNL_NODE) GnlNodeSons (Node) ; 
GnlPrintMapNode (File, Son) ; 
return; 

default : 

GnlError (9 /* Unknown node */) ; 
return; 




/* */ 

/* GnlPrintVarName */ 
/* */ 

/* This procedure makes a side effect on the name of the variable 'Var' */ 

/* in order to make it Verilog compatible. */ 

/* */ 



char *GnlPrintVarName (Var) 
GNL_VAR Var; 

{ 

int L; 
int i ; 

int BracketCase; 



BracketCase = 0; 
L = strlen (GnlVarName (Var) ) ; 
for (i=L-l; i>=0; i- - ) 
{ 

switch (GnlVarName (Var) [i] ) { 
case ' ( ' : 

if (BracketCase) 

GnlVarName (Var) [i] = ' [ • ; 

else 

GnlVarName (Var) [i] = '_ f ; 
break; 

case ' ) ' : 

if (i == L-l) 

{ 

BracketCase = 1; 

GnlVarName (Var) [i] = ' ] ' ; 

} 

else 
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GnlVarName (Var) [i] = 
break ; 



case 
case 



GnlVarName(Var) [i] 
break; 



default : 

break; 

} 

} 

return (GnlVarName (Var) ) ; 

} 



z* 

/* GnlNameEf f ectiveVar 

/* 

char *GnlNameEffectiveVar (Var) 
GNL_VAR Var; 

{ 

char FChar; 



if (GnlVarlsVdd (Var) ) 

return ("1 "bl") ; 
if (GnlVarlsVss (Var) ) 

return ("1 'bO") ; 

return (GnlPrintVarName (Var) ) ; 

} 



/* 

/* GnlPrintCell 



/* 

GNL_S TATUS GnlPrintCell (File, Gnl, Out Var, Instanceld, Cell, Node) 
FILE *File; 
GNL Gnl ; 

GNL_VAR OutVar; 
int Instanceld; 
LIB_DERIVE_CELL Cell ; 



GNL NODE 



Node ; 



int i ; 

int j ; 

LIB_CELL MotherCell ; 

GNL_VAR Varl; 

GNL_VAR VarCelll; 

char *Originalname ; 

GNL_NODE Node J; 

BDD Bdd; 

BLIST NodeSupport ; 

BLIST LibVarSupport ; 

BLIST ListData; 
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LIB_INPUT_DATA InputDatal; 



MotherCell = LibDeriveCellMotherCell (Cell) ; 

fprintf (File, 11 %su%d", LibHCellName (MotherCell), Instanceld) ; 

/* Printing data cell */ 
#ifdef PRINT__PARAMETERS 

fprintf (File, " #{%.4f, %d, %.4f, %.4f, %.4f) 
LibHCellArea (MotherCell) , 

GnlMapNodelnf oDepth (Node) , GnlMapNodelnf oOutCapa (Node) , 
GnlMapNodelnf oMaxDelay (Node) , GnlMapNodelnf oMinDe lay (Node) ) 

#endif 

/* Printing the output. */ 
fprintf (File, " <»); 
#ifdef PLIB 

fprintf (File, "%s , " , GnlPrintVarName (OutVar)); 
#else 

fprintf (File, *'.%s (%s ), LibHCellOutput (MotherCell), 
GnlPrintVarName (OutVar) ) ; 

#endif 



NodeSupport - GnlMapNodelnf oNodeSupport (Node) ; 
LibVar Support = GnlMapNodelnf oLibVarSupport (Node) ; 

/* For each input of the Cell ... */ 
for (i = 0; i<BListSize (LibDeriveCelllnputs (Cell) ) -1; i++) 
{ 

Varl = (GNL_VAR) BListElt (LibDeriveCelllnputs (Cell), i) ; 
for (j=0; j<BListSize (GnlMapNodelnf oLibVar Support (Node)); j++) 
{ 

VarCelll = (GNL_VAR) 

BListElt (GnlMapNodelnf oLibVarSupport (Node), j); 
if (Varl == VarCelll) 
break; 

} 

NodeJ = (GNLJNODE) BListElt (GnlMapNodelnf oNodeSupport (Node), j); 
if (GnlNodeOp (NodeJ) == GNL_VARIABLE) 

Varl = (GNL^VAR) Gnl Node Sons (NodeJ); 
else 

Varl = GnlMapNodelnfoCutVar (NodeJ) ; 
VarCelll = GnlGetOriginalVar (Cell, MotherCell, VarCelll); 
#ifndef PLIB 

fprintf (File, " . %s (%s ), " f GnlPrintVarName (VarCelll), 
GnlNameEf f ectiveVar (Varl) ) ; 

#else 

fprintf (File, n %s , GnlNameEf f ectiveVar (Varl)); 

#endif 

} 

Varl = (GNLJVAR) BListElt (LibDeriveCelllnputs (Cell), i) ; 
for (j=0; j<BListSize (GnlMapNodelnf oLibVarSupport (Node)); j++) 
{ 

VarCelll = (GNL_VAR) 

BListElt (GnlMapNodelnf oLibVarSupport (Node), j); 
if (Varl VarCelll) 
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break; 

} 

NodeJ = (GNL_NODE) BListElt (GnlMapNodelnf oNodeSupport (Node), j); 
if (GnlNodeOp (NodeJ) == GNLJVARIABLE) 

Varl = (GNL__VAR) Gnl Node Sons (NodeJ); 
else 

Varl = GnlMapNodelnf oCutVar (NodeJ) ; 
VarCelll = GnlGetOriginalVar (Cell, MotherCell, VarCelll); 
#ifndef PLIB 

fprintf (File, " . %s (%s ));", GnlPrintVarName (VarCelll), 
GnlNameEf fectiveVar (Varl) ) ; 

#else 

fprintf (File, "%s );", GnlNameEf fectiveVar (Varl) ) ; 
#endif 

return (GNL_OK) ; 

} 



/* 

/* GnlPrintCFormatCell 



/* 

void GnlPrintCFormatCell (File, OutVar, Instanceld, Cell, Node) 

FILE *File; 

GNL_VAR OutVar; 

int Instanceld ; 

LIB DERIVE CELL Cell; 



GNL NODE 



Node ; 



int 1 ; 

int j ; 

LIB_CELL MotherCel 1 ; 

GNL_VAR Varl; 

GNL_VAR VarCel 1 I ; 

char *Originalname ; 

GNL_NODE NodeJ; 

BDD Bdd; 

BLIST NodeSupport ; 

BLIST LibVarSupport ; 

BLIST ListData; 

LIB_INPUT_DATA InputDatal; 



MotherCell = LibDeriveCellMotherCell (Cell) ; 

fprintf (File, ".gate %s LibHCellName (MotherCell)); 

NodeSupport = GnlMapNodelnf oNodeSupport (Node) ; 
LibVarSupport = GnlMapNodelnf oLibVar Support (Node) ; 

/* For each input of the Cell ... */ 
for (i=0; i<BListSize (LibDeriveCell Inputs (Cell))-1; i++) 
{ 

Varl = (GNL_VAR) BListElt (LibDeriveCelllnputs (Cell), i) ; 

for (j=0; j<BListSize (GnlMapNodelnf oLibVarSupport (Node)); j++) 

{ 

VarCelll = (GNL_VAR) 

BListElt (GnlMapNodelnf oLibVarSupport (Node), j ) ; 
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if (Varl == VarCelll) 
break; 

} 

NodeJ « (GNL_NODE) BListElt (GnlMapNodelnf oNodeSupport (Node), j); 
if (GnlNodeOp (NodeJ) == GNL_VARIABLE) 

Varl = (GNL_VAR) Gnl Node Sons (NodeJ); 
else 

Varl = GnlMapNodelnfoCutVar (NodeJ) ; 
VarCelll = GnlGetOriginalVar (Cell, MotherCell, VarCelll); 
fprintf (File, "%s =%s " , GnlVarName (VarCelll), 
Gn 1 Va rName (Varl) ) ; 

} 

Varl = (GNL_VAR) BListElt (LibDeriveCelllnputs (Cell), i) ; 
for (j=0; j<BListSize (GnlMapNodelnf oLibVarSupport (Node)); j++) 
{ 

VarCelll = (GNL_VAR) 

BListElt (GnlMapNodelnf oLibVarSupport (Node), j ) ; 
if (Varl == VarCelll) 
break; 

} 

NodeJ = (GNL_NODE) BListElt (GnlMapNodelnf oNodeSupport (Node), j); 
if (GnlNodeOp (NodeJ) == GNL_VARIABLE) 

Varl = (GNL_VAR) GnlNodeSons (NodeJ); 
else 

Varl = GnlMapNodelnfoCutVar (NodeJ) ; 
VarCelll = GnlGetOriginalVar (Cell, MotherCell, VarCelll); 
fprintf (File, »%s =%s GnlVarName (VarCelll), 
GnlVarName (Varl) ) ; 

/* Printing the output. */ 
fprintf (File, "%s =%s " , LibHCellOutput (MotherCell), 
GnlVarName (OutVar) ) ; 



/* */ 

/* GnlPrintMappedGnlNode */ 
/* */ 

GNL__STATUS GnlPrintMappedGnlNode (File, Gnl, Bestlnv, Instanceld, 

OutVar, Node, IndexList) 

FILE *File; 

GNL Gnl ; 

LIB_CELL Bestlnv; 

int *lnstanceld; 

GNL_VAR OutVar; 

GNL_NODE Node; 

int *IndexList; 



{ 



int i ; 

BDD Bdd; 

BDD__PTR BddPtr; 

BLIST ListDeriveCells; 

LIB_DERIVE_CELL BestCell ; 

GNL_NODE Son; 

GNL_VAR Var; 

GNL VAR Not Var ; 
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GNL__VAR InVar; 
float Area; 
BLIST ListData; 
L I B_ I NPUT_DATA InputDatal; 
int Depth; 



switch (GnlNodeOp (Node) ) { 
case GNL_VARIABLE : 

fprintf (File, " assign %s = " , GnlPrintVarName (OutVar)); 

Var = (GNL_VAR) GnlNodeSons (Node); 
if (GnlVarlsVss (Var) ) 

fprintf (File, "I'bO;"); 
else if (GnlVarlsVdd (Var) ) 

fprintf (File, "I'bl;"); 

else 

{ 

fprintf (File, "%s ;", GnlPrintVarName (Var)); 

} 

return (GNL_OK) ,- 

case GNL_NOT: 
case GNL_AND: 
case GNL_OR: 

Var = GnlMapNodelnfoCutVar (Node) ; 
if (Var != OutVar) 

{ 

fprintf (File, " assign %s = %s ; " , GnlPrintVarName 

(OutVar) , 

GnlPrintVarName (Var) ) ; 
return (GNL_OK) ; 

} 

Bdd = GnlMapNodelnfoBestBdd (Node) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 
if ( (Bdd == bdd_one () ) | | 
(Bdd bdd_zero () ) ) 

{ 

if (Bdd bdd_one () ) 

fprintf (File, " assign %s = I'bl;", 
GnlPrintVarName (OutVar) ) ; 

else 

fprintf (File, " assign %s = l r bO; n , 
GnlPrintVarName (OutVar) ) ; 
return (GNL_OK) ; 

} 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 
GnlGetBestAreaCell (LibBddlnf oDeriveCells (BddPtr) , 

Bdd, &BestCell, &Area, &Depth) ; 
if (LibDeriveCellBdd (BestCell) 1= Bdd) 

{ 

printf ("ERROR: bdd dif f erents\n" ) ; 
exit (1) ; 

} 

if (GnlPrintCell (File, Gnl, OutVar, *lnstanceld, 
BestCell, Node)) 
return ( GNL_MEMORY_FULL) ; 
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} 



(*lnstanceld) ++; 
return (GNL_OK) ; 

case GNL_CONSTANTE: 

fprintf (File, " assign %s = Gnl Print VarName {OutVar)); 
if (GnlNodeSons (Node) == (BLIST) 1) 

fprintf (File, "I'bl;"); 
else 

fprintf (File, "1'bO;"); 
return (GNL_OK) ; 

default : 

GnlError (9 /* Unknown node */) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlPrintCFormatMappedGnlNode 

/* 

void GnlPrintCFormatMappedGnlNode (File, Gnl, Bestlnv, Instanceld, 

OutVar, Node, IndexList) 

FILE *File; 

GNL Gnl ; 

LIB_CELL Bestlnv; 

int *lnstanceld; 

GNL_VAR OutVar; 

GNL_NODE Node; 

int * IndexList; 



{ 



int i ; 

BDD Bdd; 

BDD_PTR BddPtr; 

BLIST ListDeriveCells; 

LI B_DERIVE__CELL BestCell ; 

GNL_NODE Son; 

GNL_VAR Var; 

GNL_VAR NotVar; 

GNL_VAR InVar; 

float Area; 

BLIST ListData; 

LIB_INPUT_DATA InputDatal; 

int Depth; 



switch (GnlNodeOp (Node)) { 
case GNL_VARIABLE : 

fprintf (File, " assign %s = " , GnlVarName (OutVar)); 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (GnlVarlsVss (Var) ) 

fprintf (File, "1'bO;"); 
else if (GnlVarlsVdd (Var) ) 

fprintf (File, "l'bl;"); 

else 

{ 

fprintf (File, "%s ;", GnlVarName (Var) ) ; 

} 
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return; 



case GNL_NOT: 
case GNL_AND: 
case GNL_OR: 

Var = GnlMapNodelnfoCutVar (Node) ; 
if (Var != OutVar) 
{ 

fprintf (File, " assign %s = %s ; GnlVarName (OutVar), 
GnlVarName (Var) ) ; 

return ; 

} 

Bdd = GnlMapNodelnfoBestBdd (Node) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 
if { (Bdd == bdd_one () ) | | 
(Bdd == bdd_zero ())) 
{ 

if (Bdd == bdd_one ()) 

fprintf (File, " assign %s = l'bl;", 
GnlVarName (OutVar) ) ; 

else 

fprintf (File, " assign %s = 1'bO;", 
GnlVarName (OutVar) ) ; 

return ; 

} 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 
GnlGetBestAreaCell (LibBddlnf oDeriveCells (BddPtr) , 

Bdd, &BestCell, &Area, &Depth) ; 
if (LibDeriveCellBdd (BestCell) 1- Bdd) 
{ 

printf ("ERROR: bdd dif f erents\n" ) ; 
exit (1) ,* 

} 

GnlPrintCFormatCell (File, OutVar, *lnstanceld, BestCell, Node) 
(*lnstanceld) ++; 
return; 



case GNL_CONSTANTE : 

fprintf (File, « assign %s = » , GnlVarName (OutVar)); 
if (GnlNodeSons (Node) == (BLIST) 1) 

fprintf (File, "l'bl;"); 
else 

fprintf (File, "I'bO;"); 
return; 

default : 

GnlError (9 /* Unknown node */) ; 
return; 

} 

} 



/* ic/ 

/* GnlPrintVerilogSimpleNwHeader */ 

/*--- */ 

/* Prints official network header in the verilog ouptut file. */ 

/*- */ 

void GnlPrintVerilogSimpleNwHeader (File, Nw, GnlLib) 
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FILE *File; 
GNLJJETWORK Nw; 
GNL_LIB GnlLib ; 



fprintf (File, 

"// = = = = = = = . = = = = = = = = = = = = = = = = =: = = = : = = = = = = = = = = = = = = = = = = : = = =: = = \n") ; 

fprintf (File, 

"// This Verilog file has been automatically generated \n" ); 
fprintf (File, 

"// by %s %s\n" # GNL_TOOL_NAME , GNL_MAPIT_VERSION) ; 
fprintf (File, 

»// \n») ; 
fprintf (File, 

"// Copyright (c) 1994-99 by AVANT! Corp.\n"); 
fprintf (File, 

"// \n«); 
fprintf (File, 

"// Date: ") ; 
GnlPrintDate (File) ; 
fprintf (File, "\n") ; 
fprintf (File, "/An"); 

fprintf (File, "// Technology Library = %s\n", 
GnlHLibSourceFileName (GnlLib) ) ; 

fprintf (File, 

"// \n«); 

fprintf (File, "// Top Level Module = %s\n" , 

GnlName (GnlNetworkTopGnl (Nw) ) ) ; 
fprintf (File, 

•7/ \n»); 
fprintf (File, 

..// =MasasM======5==B============5SS=s========M==B=ss=s===== \ n \ nn) ; 

} 

/* */ 

/* GnlPrintVerilogNwHeaderWithLib */ 
/* */ 

/* Prints official network header in the verilog ouptut file with lib. */ 
/* info. */ 

/* */ 

void GnlPrintVerilogNwHeaderWithLib (File, Nw, GnlLib) 
FILE *File; 
GML_NETWORK Nw; 
GNL_LIB GnlLib; 

{ 

fprintf (File, 
fprintf (File, 

"// This Verilog file has been automatically generated \n") ; 
fprintf (File, 

"// by %s %s\n", GNL_TOOL_NAME , GNLJYLAPIT_VERSION) ; 
fprintf (File, 

*7/ \n»); 
fprintf (File, 

'7/ Copyright (c) 1994-99 by AVANT! Corp.\n n ); 
fprintf (File, 
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"// \n"); 
fprintf (File, 

"// Date: ") ; 
GnlPrintDate (File) ; 
fprintf (File, "\n n ) ; 
fprintf (File, "/An"); 

fprintf (File, »// Technology Library = %s\n n , 

GnlHLibSourceFileName (GnlLib) ) ; 

fprintf (File, 

"// \n«) ; 

fprintf (File, "// Top Level Module = %s\n" , 

GnlName (GnlNetworkTopGnl (Nw) ) ) ; 
fprintf (File, »// Gates Area = %.4f\n", GnlNetworkArea (Nw) ) ; 

fprintf (File, 

'7/ \n»); 
fprintf (File, 

"// == M = M ==- MM ===«===« =M=a5====M=5=======s=== „ Ma!= \ n \ n ») . 



/* + 1 

I* GnlPrintVerilogNwHeader */ 
/* #/ 

/* Prints official network header in the verilog ouptut file. */ 
/* if/ 

void GnlPrintVerilogNwHeader (File, Nw) 
FILE *File; 
GNL_NETWORK Nw; 

{ 

fprintf (File, 
fprintf (File, 



"// This Verilog file has been automatically generated \n") ; 
fprintf (File, 

"// by %s %s\n", GNL_TOOL_NAME , GNL_MAPIT_VERSION) ; 
fprintf (File, 

'7/ \n»); 
fprintf (File, 

'7/ Copyright (c) 1994-99 by AVANT ! Corp.\n"); 
fprintf (File, 

'7/ \n»); 
fprintf (File, 

"// Date:") ; 
GnlPrintDate (File) ; 
fprintf (File, "\n"); 
fprintf (File, "/An"); 
fprintf (File, 

"// \n«); 

fprintf (File, "// Top Level Module = %s\n", 

GnlName (GnlNetworkTopGnl (Nw) ) ) ; 
fprintf (File, 

'7/ \n»); 
fprintf (File, 

} 
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/* 

/* GnlPrintVerilogGnlHeader */ 
/* ±j 

/* Prints a module header in the verilog ouptut file. */ 
/* */ 



void GnlPrintVerilogGnlHeader (File, GnlLib, Gnl) 
FILE *File; 
GNL_LIB GnlLib; 
GNL Gnl ; 

{ 

BLIST Components; 



Components = GnlComponents (Gnl) ; 



fprintf 

fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fprintf 
fprintf 



(File, 

"// 
(File, 
(File, 
(File, 
(File, 
(File, 
(File, 
(File, 
(File, 
(File, 
(File, 
// — 



"// Module: [%s]\n'\ 

"// Gates Area 

"// Max Gates Depth 

"// Nb. Instances 

"// Nb. Flip-Flops 

"// Nb. Latches 

"// Nb. TriStates 

"// Max FanOut 
"/An") ; 



\ n „) . 

GnlName (Gnl)); 
= %.4f\n» # GnlArea (Gnl)); 
= %d\n», GnlDepth (Gnl)); 
= %d\n", BListSize (Components)); 
= %d\n", GnlNbDffs (Gnl) ) ; 
= %d\n« T , GnlNbLatches (Gnl)); 
= %d\n M , GnlNbTristates (Gnl) ) ; 
= %d\n», GnlMaxFanout (Gnl)); 



An") ; 



/* 

/* GnlMakeCorrectName 



/* 

char *GnlMakeCorrectName (Name) 
char *Name; 

{ 



int 
int 



L; 
i; 



L = strlen (Name) ; 
for (i=0; i<L; i++) 

{ 

switch (Name [i] ) { 
case ' - 1 
case ' [ ' 
case ' ] 1 

Name[i] = ; 
break; 

default : 

break; 



return (Name) ; 
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/* */ 

/* GnlPrintVeriloglnterf ace */ 

/* */ 

GNL_STATUS GnlPrintVeriloglnterf ace (File, Gnl) 

FILE *File; 

GNL Gnl ; 

{ 

int i ; 

GNL_VAR PortI; 

char *NewName ; 



NewName = GnlMakeCorrectName (GnlName (Gnl)); 
fprintf (File, "module %s (", NewName); 
if (BListSize (GnlListPorts (Gnl)) == 0) 

{ 

fprintf (File, M );\n"); 
return (GNL_0K) ; 

} 

for (i=0; i<BListSize (GnlListPorts (Gnl) ) -1; i++) 

{ 

PortI = (GNL_VAR) BListElt (GnlListPorts (Gnl), i) ; 
fprintf (File, n %s , " # GnlPrintVarName (PortI)); 

} 

PortI = (GNL_VAR) BListElt (GnlListPorts (Gnl), i) ; 
fprintf (File, "%s);\n n , GnlPrintVarName (PortI)); 

for (i=0; i<BListSize (GnlListPorts (Gnl)); i++) 

{ 

PortI = (GNL_VAR) BListElt (GnlListPorts (Gnl), i) ; 
if (GnlVarRangeUndef ined (PortI) ) 

fprintf (File, "%s %s,*\n", GnlDirName (PortI), 
GnlPrintVarName (PortI) ) ; 

else 

fprintf (File, »%s [%d:%d] %s;\n", GnlDirName (PortI), 
GnlVarMsb (PortI), GnlVarLsb (PortI), 
GnlPrintVarName (PortI) ) ; 

} 



return (GNL_0K) ; 

} 

/* 

/* GnlPrintCFormat Interface */ 
/* 

GNLJ3TATUS GnlPrintCFormat Interface (File, GnlName, ListClocks, 

Listlnputs, ListOutputs, 



FILE *File; 
char *GnlName; 

BLIST ListClocks; 

BLIST Listlnputs; 

BLIST ListOutputs; 

BLIST Lis t AsyncLow ; 

BLIST ListAsyncHigh; 



Li s t AsyncLow , Li s t AsyncHigh ) 
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int 


i; 


GNL_VAR 


Clockl ; 


GNL_VAR 


Input I ; 


GNL_VAR 


Output I, - 


GNL_VAR 


Varl ; 


char 


*RangeStr; 


BLIST 


ListAsync; 


int 


Maxld; 


int 


j; 


int 


First Input ; 


int 


FirstOutput ; 


Maxld - 


0; 



/* Extracting the original async signals of the netlist */ 
if (BListCreate (&List Async) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListAsyncLow) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListAsyncLow, i) ; 
if (GnlVarType (Varl) == GNL_VAR_ORIGINAL) 
if (BListAddElt (ListAsync, (int*)VarI)) 
return (GNL_MEMORY FULL) ; 

} 

for (i=0; i<BListSize (ListAsyncHigh) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListAsyncHigh, i) ; 
if (GnlVarType (Varl) == GNL_VAR_0R I G INAL ) 
if (BListAddElt (ListAsync, (int*) Varl)) 
return (GNL_MEMORY FULL) ; 

} 



for (i=0; i<BListSize (List Inputs ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Listlnputs, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

for (i=0; i<BListSize (ListOutputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld - GnlVarld (Varl) ; 

} 

for (i-0; i<BListSize (ListClocks) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListClocks, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

for (i=0; i<BListSize (ListAsync) ; i++) 
{ 
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Varl = (GNL_VAR) BListElt (ListAsync, i) ; 
if (GnlVarld (Varl) > Maxld) 
Maxld = GnlVarld (Varl) ; 

} 

Firstlnput = FirstOutput = 1; 

for (j=0; j<= Maxld; j++) 
{ 

for (i=0; i<BListSize (Listlnputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Listlnputs, i) ; 
if (GnlVarld (Varl) == j) 

{ 

if (Firstlnput) 
fprintf (File, ".inputs " ) ; 
Firstlnput = 0; 

fprintf (File, "%s ", GnlVarName (Varl)); 

} 

for (i=0; i<BListSize (ListOutputs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (ListOutputs, i) ; 
if (GnlVarld (Varl) j) 

{ 

if (FirstOutput) 
fprintf (File, "\n. outputs ") ; 
FirstOutput = 0; 

fprintf (File, »%s GnlVarName (Varl)); 

} 

} 



return (GNL_OK) ; 

} 

/* 

/* GnlPrintLocalSignals 

/* 

GNL_STATUS GnlPrintLocalSignals (File, Gnl) 



FILE 


*File; 


GNL 


Gnl; 


int 


i; 


int 


j ; 


GNL_VAR 


Varl ; 


GNL_VAR 


VarJ; 


char 


*RangeStr; 


BLIST 


HashTableNames ; 


BLIST 


Bucket I; 



HashTableNames - GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
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for (j=0; j<BListSize (Bucketl); j++) 

{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 

/* we do not define internally expansed variables 
if (GnlVarType (VarJ) != GNL_VAR__INTERNAL) 
continue ; 

if (GnlVarlsVss (VarJ) | | GnlVarlsVdd (VarJ) ) 
continue; 

if (GnlVarGetStrFromRange (VarJ, &RangeStr) ) 
return ( GNL_MEMOR Y_FULL ) ; 

if (RangeStr) 

fprintf (File, "wire %s %s ;\n", RangeStr, 
GnlPrintVarName (VarJ) ) ; 

else 

fprintf (File, "wire %s ;\n", GnlPrintVarName (VarJ) ) ; 

} 

} 

fprintf (File, "\n"); 
return (GNL_OK) ; 



} 

/* 
/* 
/* 



/*- 

void GnlPrintAssocActualName (File, ActualPort) 
FILE *File; 
GNL_VAR ActualPort ; 



GnlPrintAssocActualName 




*/ 




Prints out the desciption of the actual 


port . 


This one can be 


either 


a signal (GNLJVAR) or a concatenate of 


signal 


s (GNL NODE with 


op. 


GNL_CONCAT) . 




*/ 



{ 



int i ; 

GNL_VAR Varl / 
BLIST Sons; 
GNL_NODE ActualNode; 



if ( JActualPort) 

{ 

fprintf (File, " ") ; 
return; 

} 

if (GnlVarlsVar (ActualPort)) 

{ 

if (GnlVarlsVss (ActualPort) ) 
{ 

fprintf (File , " 1 1 bO n ) ; 
return; 

} 

if (GnlVarlsVdd (ActualPort) ) 
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{ 

fprintf (File, "I'bl"); 
return; 

} 

fprintf (File, "%s GnlPrintVarName (ActualPort)); 
return; 

} 

/* this is then a GNL_NODE with a GNL_CONCAT operator. */ 
ActualNode = (GNL_NODE) ActualPort ; 
Sons = GnlNodeSons (ActualNode) ; 
fprintf (File, "{"); 
for (i=0; i<BListSize (Sons) -1; i++) 
{ 

Varl = (GNL_VAR) BListElt (Sons, i) ; 
fprintf (File, »%s , GnlPrintVarName (Varl)); 
} 

Varl = (GNL_VAR) BListElt (Sons, i) ; 

fprintf (File, "%s }», GnlPrintVarName (Varl)); 

} 



/* + J 

/* GnlPrintUserComponent */ 

/* ± i 

void GnlPrintUserComponent (File, Us er Component ) 
FILE *File; 
GNL_USER_COMPONENT UserComponent ; 



{ 



int i ; 

BLIST Parameters; 
BLIST Interface; 
GNL_ASSOC ASSOC I; 



if (GnlUserComponentlnstName (UserComponent) ) 

{ 

if (GnlUserComponentlnstName (UserComponent) [0] != ' \\») 
fprintf (File, " %s \\%s », 

GnlUserComponentName (UserComponent) , 
GnlUserComponentlnstName (UserComponent) ) ; 

else 

fprintf (File, " %s %s " , 

GnlUserComponentName (UserComponent) , 
GnlUserComponentlnstName (UserComponent) ) ; 

else 
{ 

fprintf (File, " %s " , GnlUserComponentName (UserComponent)); 

#ifdef USE_PARAMETERS 

Parameters = GnlUserComponentParameters (UserComponent) ; 
if (Parameters BListSize (Parameters) ) 

{ 

fprintf (File, "#("); 
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for (i=0; i<BListSize (Parameters); i++) 

{ 

/* to implement */ 

} 

fprintf (File, ») ") ; 

} 

#endif 

fprintf (File, "("); 

Interface = GnlUser Component Interface (UserComponent ) ; 
for (i=0; i<BListSize (Interface)-!; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (GnlAssocFormalPort (AssocI)) 

{ _ 

/* if the formal parameter is a string of char. */ 
if ( Gn 1 Us e r Compone n t Fo rma 1 Typ e 

(UserComponent) == GNL_FORMAL_CHAR ) 
fprintf (File, " . %s ( » , GnlAssocFormalPort (AssocI)); 
else 

/* Otherwise it is a GNL__VAR object */ 
fprintf (File, " . %s ( " , 

GnlPrintVarName ( (GNL_VAR) GnlAssocFormalPort (AssocI) ) ) ; 

GnlPrintAssocActualName (File, GnlAssocActualPort (AssocI)) ; 
fprintf (File, ") , ») ; 

} 

else 

{ 

/* With no formal port definition we cannot have an actual 

*/ 

/* port corresponding to a GNL_NODE. */ 
GnlPrintAssocActualName (File, (GnlAssocActualPort (AssocI))); 
fprintf (File, " , ") ; 

} 

} 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (GnlAssocFormalPort (AssocI) ) 

{ 

/* if the formal parameter is a string of char. */ 
if (GnlUserComponentFormalType (UserComponent) == GNL_FORMAL_CHAR) 

fprintf (File, ».%s (", GnlAssocFormalPort (AssocI)); 
else 

/* Otherwise it is a GNL_VAR object */ 
fprintf (File, r, .%s (" , 

GnlPrintVarName ( (GNL_VAR) GnlAssocFormalPort (AssocI) ) ) ; 
GnlPrintAssocActualName (File, GnlAssocActualPort (AssocI) ) ; 
fprintf (File, "))"); 

} 

else 
{ 

/* With no formal port definition we cannot have an actual */ 
/* port corresponding to a GNL_NODE. */ 
GnlPrintAssocActualName (File, GnlAssocActualPort (AssocI)); 
fprintf (File, ")"); 

} 
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fprintf (File, " ;\n") ; 

} 



GnlName I sPre sent 


*/ 




This procedure verifies if the name 'Name' 


is present in the 


*/ 


expression corresponding to 'BoolOpr' . 


*/ 




Returns 1 if yes and 0 otherwise. 




*/ 



int GnlNamelsPresent (Name, BoolOpr) 
char *Name ; 

LIBC_BOOL_OPR BoolOpr; 

{ 

text_buf f er *VarName ; 



if (! BoolOpr) 
return (0) ; 

switch (LibBoolOprType (BoolOpr) ) { 
/* terminal case of a signal, 
case ID_B: 

VarName = LibBoolOprldName (BoolOpr) ; 
if (Istrcmp (VarName, Name)) 

return (1) ; 
return (0) ; 
break; 

case ZER0_B: 

return (0) ; 
break; 

case 0NE_B: 

return (0) ; 
break; 

/* case of binary Boolean operators 
case XORJB: 
case 0R_B: 
case AND_B : 

if (GnlNamelsPresent (Name, LibBoolOprLef tSon (BoolOpr))) 
return (1) ; 

if (GnlNamelsPresent (Name, LibBoolOprRightSon (BoolOpr))) 

return (1) ; 
return (0) ; 

case N0T_B: 

if (GnlNamelsPresent (Name, LibBoolOprRightSon (BoolOpr))) 

return (1) ; 
return (0) ; 

default : 

fprintf (stderr, 

"Operator unsupported in r GnlNamelsPresent 1 " ) ; 
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return (0) ; 

} 



/* ^ 

/* GnlPrintSequentialComponent */ 

/* v 

void GnlPrintSequentialComponent (File, SeqCompo) 
FILE *File; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

{ 

LIBC_CELL Cell; 
LIBC_PIN Pins; 
LIBC__NAME_LIST ListPinName; 
GNL_VAR InputVar; 
GNL_VAR Output Var; 

GNL_VAR OutputVarBar ; 

GNL_VAR ClockVar ; 

GNL_VAR ClearVar ; 

GNL_VAR PresetVar; 
LIBC_BOOL_OPR Input ; 

char *Output; 
char *OutputBar; 
LIBC_BOOL_OPR Clock; 
LI BC_BOOL_OPR Clear ; 

LIBC_BOOL_OPR Preset ; 

char *ActualName ; 

LIBC__BOOL_OPR PinFunction; 
GNL_FORM__OUTPUT FormOutput ; 

GNL_VAR ActualVar ; 

GNL_FORM_OUTPUT FormOutputBar ; 

char *IQ; 
char *IQN; 



Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

FormOutput = Gnl Sequent ialCompoFormOut put (SeqCompo) ; 
Input = GnlSeqCompoInfoInput (SeqCompo) ; 
InputVar = GnlSequentialCompoInput (SeqCompo) ; 
Output = GnlSeqCompoInfoOutput (SeqCompo) ; 
OutputVar = GnlSequentialCompoOutput (SeqCompo) ; 
OutputBar = GnlSeqCompoInfoOutputBar (SeqCompo) ; 
OutputVarBar = GnlSequentialCompoOutputBar (SeqCompo) ; 
Clock = GnlSeqCompoInfoClock (SeqCompo) ; 
ClockVar = GnlSequentialCompoClock (SeqCompo) ; 
Clear = GnlSeqCompoInf oReset (SeqCompo) ; 
ClearVar = GnlSequentialCompoReset (SeqCompo) ; 
Preset = GnlSeqCompoInf oSet (SeqCompo) ; 
PresetVar = GnlSequentialCompoSet (SeqCompo) ; 

IQ = LibFFLatchQName (LibCellFFLatch (Cell)); 
IQN = LibFFLatchQNName (LibCellFFLatch (Cell) ) ; 

if (GnlEnvUseVerilogPrimitives ()) 

{ 
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switch (GnlSequentialCompoOp (SeqCompo) ) { 
case GNL_DFF: 

fprintf (File, " dff (") ; 

break; 
case GNL_DFFX: 

fprintf (File, » dffx <"); 

break; 
case GNL_DFFO : 

fprintf (File, " dffO ("); 

break; 
case GNL_DFF1 : 

fprintf (File, " dffl ("); 

break; 
case GNL_LATCH: 

fprintf (File, " latch (") ; 

break; 
case GNL_LATCHX : 

fprintf (File, » latchx (»); 

break; 
case GNL_LATCHO: 

fprintf (File, " latchO ("); 

break; 
case GNL__LATCH1 : 

fprintf (File, n latchl ("); 



} 



break; 



if (iOutputVar) 

fprintf (File, "1'bO 
else 

fprintf (File, " %s 
if ( ! Output VarBar) 

fprintf (File, "l ? bO 
else 

fprintf (File, 



") ; 



r , GnlNameEf f ectiveVar (OutputVar) ) ; 



%s , GnlNameEf f ectiveVar (OutputVarBar) ) 



if (ilnputVar) 

fprintf (File, "l'bO 
else 

fprintf (File, 



%s , " , GnlNameEf f ectiveVar (InputVar) ) ; 



") ; 

, GnlNameEf fectiveVar (ClockVar) ) ; 



if (I ClockVar) 

fprintf (File, "l'bO 
else 

fprintf (File, » %s , 
if (GnlSequentialCompoClockPol (SeqCompo) ) 

fprintf (File, "l'bl , "); 
else 

fprintf (File, "l'bO , "); 

if (!PresetVar) 

fprintf (File, "l ? bO , "); 
else 

fprintf (File, M %s , » , GnlNameEf fectiveVar (PresetVar) ) ; 
if (GnlSequentialCompoSetPol (SeqCompo) ) 
fprintf (File, "l'bl , ") ; 
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else 

fprintf (File, "1'bO , "); 

if (IClearVar) 

fprintf (File, "1'bO , ») ; 
else 

fprintf (File, » %s , «, GnlNameEf f ectiveVar (ClearVar) ) ; 
if (GnlSequentialCompoResetPol (SeqCompo) ) 

fprintf (File, "l'bl );"); 
else 

fprintf (File, "1'bO );"); 

fprintf (File, "\n"); 
return ; 



Pins = LibCellPins (Cell) ; 

if ( iGnlSequentialCompoInstName (SeqCompo) ) 

if (OutputVar) 

{ 

if (GnlVarName (OutputVar) [0] ! = ' \\') 

fprintf {File, » %s \\%s (", LibCellName (Cell), 
GnlVarName (OutputVar) ) ; 

else 

fprintf (File, » %s %s (", LibCellName (Cell), 
GnlVarName (OutputVar) ) ; 

} 

else 

{ 

if (GnlVarName (OutputVar) [0] != 'W) 

fprintf (File, » %s \\%s (», LibCellName (Cell), 
GnlVarName (OutputVarBar) ) ; 

else 

fprintf (File, " %s %s (», LibCellName (Cell), 
GnlVarName (OutputVarBar) ) ; 

} 

else 
{ 

fprintf (File, " %s \\%s (", LibCellName (Cell), 
GnlSequentialCompoInstName (SeqCompo) ) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

ListPinName = LibPinName (Pins); /* we know it is a simple name */ 
Actual Var = NULL; 

if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Input) ) 
ActualVar = InputVar; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Clock) ) 
ActualVar = ClockVar; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 
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Clear) ) 
ActualVar =: ClearVar; 
else if (GnlNamelsPresent {LibNameListName (ListPinName) , 

Preset) ) 
ActualVar = PresetVar; 

else 



ActualName = NULL; 
if (ActualVar) 

ActualName = GnlNameEf f ectiveVar (ActualVar) ; 

if (LibPinNext (Pins) ) 

fprintf (File, «.%s (%s ) # ", LibNameListName (ListPinName), 
(ActualName == NULL ? : ActualName)); 



fprintf (File, ".%s (%s )», LibNameListName (ListPinName), 
(ActualName == NULL ? : ActualName)); 



/* It is may be an output. 
PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 



*/ 



if (GnlNamelsPresent (IQ, PinFunction)) 

ActualVar = OutputVar; 
else if (GnlNamelsPresent (IQN, PinFunction)) 
ActualVar = OutputVarBar ; 



else 



} 

fprintf (File, ");\n"); 



/* 

/* GnlPrintTriStateComponent 



*/ 



*/ 



/* 

void GnlPrintTriStateComponent (File, TriStateCompo) 



*/ 




GNL_TRISTATE_COMPONENT TriStateCompo ; 



LIBC_CELL Cell; 

LIBC__PIN Pins; 

LIB C_NAME__L 1ST ListPinName; 

LIBC_B00L_0PR Input ; 

GNL_VAR InputVar ; 

LIBC_B00L_0PR Enable ; 

GNL_VAR Enable Var ; 

char *Output; 

GNL_VAR OutputVar ; 

char *ActualName; 

GNL_VAR ActualVar; 



Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 



Input = GnlTriStateCompoInfoInput (TriStateCompo) ; 
InputVar = GnlTriStatelnput (TriStateCompo) ; 
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Enable = GnlTriStateCompoInf oEnable (TriStateCompo) ; 
EnableVar = GnlTriStateSelect (TriStateCompo) ; 

Output = GnlTriStateCompoInfoOutput (TriStateCompo) ; 
OutputVar = GnlTriStateOutput (TriStateCompo) ; 

if (GnlEnvUseVerilogPrimitives () ) 

{ 

fprintf (File, » tristate ("); 

fprintf (File, " %s , GnlNameEf f ectiveVar (OutputVar)); 
fprintf (File, " %s , « , GnlNameEf f ectiveVar (Input Var) ) ; 

if (! EnableVar) 

fprintf (File, "I'bO , "); 
else 

fprintf (File, " %s , ", GnlNameEf f ectiveVar (EnableVar)); 
if (GnlTriStateSelectPol (TriStateCompo) ) 

fprintf (File, "1'bl );"); 
else 

fprintf (File, "1'bO );"); 

fprintf (File, M \n M ); 
return; 

} 

Pins = LibCellPins (Cell) ; 

if ( IGnlTriStatelnstName (TriStateCompo) ) 

if (GnlVarName (OutputVar) [0] != f \\') 

fprintf (File, » %s \\%s { » , LibCellName (Cell), 
GnlVarName (OutputVar) ) ; 

else 

fprintf (File, " %s %s (", LibCellName (Cell), 
GnlVarName (OutputVar) ) ; 

else 

{ 

fprintf (File, " %s \\%s (», LibCellName (Cell), 
^ GnlTriStatelnstName (TriStateCompo) ) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ ^ 

ListPinName = LibPinName (Pins); /* we know it is a simpel name */ 
Actual Var = NULL; 

if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Input) ) 
ActualVar = InputVar; 
else if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Enable) ) 
ActualVar = EnableVar; 

else 

ActualVar = OutputVar; 
ActualName = NULL; 
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if (ActualVar) 

ActualName = GnlNameEf f ectiveVar (ActualVar) ; 

if (LibPinNext (Pins) ) 

fprintf (File, «.%s (%s ), LibNameListName (ListPinName) , 

(ActualName == NULL ? » » : ActualName) ) ; 

else 

fprintf (File, «.%s (%s )", LibNameListName (ListPinName), 

(ActualName == NULL ? »» : ActualName)); 

fprintf (File, ");\n"); 



/* 

/* GnlPrintBuf Component 

/* 

void GnlPrintBuf Component (File, BufCompo) 
FILE *File; 
GNL_BUF_COMPONENT BufCompo ; 



■*/ 
■*/ 



{ 



LIBC_CELL Cell; 

LIBC_PIN Pins; 

LIB C_NAME_L 1ST ListPinName; 

LIBC_BOOL_OPR Input ; 

GNL_VAR Input Var; 

char *Output; 

GNL_VAR Output Var; 

char *ActualName ; 

GNL_VAR ActualVar ; 



Cell = GnlBufCompoInfoCell (BufCompo) ; 

Input = GnlBufCompoInfoInput (BufCompo) ; 
InputVar = GnlBuf Input (BufCompo) ; 

Output = GnlBuf CompoInfoOutput (BufCompo) ; 
OutputVar ^ GnlBufOutput (BufCompo) ; 

if (GnlEnvUseVerilogPrimitives {)) 
{ 

fprintf (File, » buf ("); 

fprintf (File, " %s , GnlNameEf f ectiveVar (OutputVar) ) ; 
fprintf (File, " %s );", GnlNameEf f ectiveVar (InputVar)); 

fprintf (File, "\n") ; 
return; 

} 

Pins = LibCellPins (Cell) ; 

if (! GnlBuf Ins tName (BufCompo)) 

fprintf (File, «%s \\%s (", LibCellName (Cell), 
GnlVarName (InputVar) ) ; 
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else 

{ 

fprintf (File, "%s \\%s (», LibCellName (Cell), 
GnlBuf InstName (BufCompo) ) ; 



for (;Pins != NULL; Pins = LibPinNext (Pins ) } 
{ 

ListPinName = LibPinName (Pins); /* we know it is a simpel name */ 
ActualVar = NULL; 

if (GnlNamelsPresent (LibNameListName (ListPinName) , 

Input) ) 
ActualVar = InputVar; 
else 

ActualVar = OutputVar; 



ActualName = NULL; 
if (ActualVar) 

ActualName = GnlNameEf f ectiveVar (ActualVar) ; 

if (LibPinNext (Pins) ) 

fprintf (File, ».%s (%s ), », LibNameListName (ListPinName), 
(ActualName == NULL ? " « : ActualName)); 

else 

fprintf (File, ».%s (%s ) » , LibNameListName (ListPinName), 
(ActualName == NULL ? " " : ActualName)); 

} 

fprintf (File, ,f );\n ,! ); 

} 

/* #/ 



/* GnlPrintComponent */ 

z v 

/* Prints out component instantiation. */ 

z* v 

void GnlPrintComponent (File, Component) 
FILE *File; 
GNL_COMPONENT Component ; 

{ 



switch (GnlComponentType (Component) ) { 
case GNL__SEQUENTIAL_COMPO : 

GnlPrintSequentialComponent (File, 

(GNL_SEQUENTIAL_COMPONENT) Component) ; 

break; 



case GNL_USER_COMPO : 

GnlPrintUserComponent (File, 

(GNL_USER_COMPONENT) Component) ; 
break; 



case GNL__TRISTATE__COMPO: 

Gnl Print TriStateComponent ( Fi le , 

(GNL_TRISTATE_C0MP0NENT) Component) ; 

break; 



case GNL BUF COMPO : 
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} 



GnlPrintBuf Component (File, (GNLJBUF_COMPONENT) Component ) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 

} 



z* 

/* GnlPrintGnlComponents 

/*- 

void GnlPrintGnlComponents (File, Gnl) 

FILE *File; 

GNL Gnl ; 

{ 

int i ; 

GNL_COMPONENT Component I ; 



for (i=0; i<BListSize (Gnl Components (Gnl)); 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
GnlPrintComponent (File, ComponentI) ; 

} 

/* 

/* GnlPrintVerilogPrimitiveNode */ 
/* 

void GnlPrintVerilogPrimitiveNode (File, Gnl, Var, Node) 
FILE *File; 
GNL Gnl ; 

GNL_VAR Var; 
GNL_NODE Node; 

{ 

int i ; 

GNL_N0DE SonI; 
GNL_VAR NewVar; 



■*/ 



switch (GnlNodeOp (Node)) { 
case GNL_CONSTANTE : 

fprintf (File, " assign %s = " , GnlNameEf f ectiveVar (Var) ) ; 
if (GnlNodeSons (Node) ) 

fprintf (File, "I'bl ; " ) ; 
else 

fprintf (File, M l*bO ; " ) ; 
return; 

case GNL_VARIABLE : 

NewVar = (GNL_VAR) GnlNodeSons (Node); 

fprintf (File, " assign %s = %s ; »* , GnlNameEf f ectiveVar 

(Var) , 

GnlNameEf f ectiveVar (NewVar) ) ; 
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return; 
case GNL_NOT: 

fprintf (File, » not (%s , GnlNameEf f ectiveVar (Var) ) ; 
break; 

case GNL_OR: 

fprintf (File, " or (%s , GnlNameEf f ectiveVar (Var) ) ; 
break; 

case GNL_AND: 

fprintf (File, » and (%s , \ GnlNameEf f ectiveVar (Var) ) ; 
break; 

default: 

fprintf (stderr, " ERROR: unknow Boolean Operator\n" ) ; 
exit (1); 

} 

for (i=0; i<BListSize (GnlNodeSons (Node))-l; i++) 

Sonl = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 

switch (GnlNodeOp (Sonl)) { 
case GNL_CONSTANTE : 

if (GnlNodeSons (Sonl)) 

fprintf (File, "l'bl , ") ; 
else 

fprintf (File, "1'bO , "); 
break; 

case GNL_VARIABLE : 

NewVar = (GNL_VAR) GnlNodeSons (Sonl) ; 

fprintf (File, "%s , GnlNameEf f ectiveVar (NewVar)) 

break; 

default : 

fprintf (stderr, 

" ERROR: Forbiden Boolean Operator here\n") ; 

exit (1); 

} 

} 

Sonl = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
switch (GnlNodeOp (Sonl)) { 
case GNL_CONSTANTE : 

if (GnlNodeSons (Sonl)) 

fprintf (File, "l'bl );"); 
else 

fprintf {File, "1'bO );"); 
break; 

case GNL_VARIABLE : 

NewVar = (GNL_VAR) GnlNodeSons (Sonl) ; 

fprintf (File, "%s );», GnlNameEf f ectiveVar (NewVar)); 
break; 
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default : 

fprintf (stderr, 

" ERROR: Forbiden Boolean Operator here\n" ); 

exit (l) ; 

} 



} 



/* it/ 

/* GnlPrintMapVerilog */ 

/* 4t/ 

/* Prints out the verilog output description of 'Gnl' in file 'File 1 . */ 
/* *i 

GNL_STATUS GnlPrintMapVerilog (File, Gnl, GnlLib, Bestlnv) 
FILE *File; 
GNL Gnl / 

GNLJLIB GnlLib; 
LIB_CELL Bestlnv; 

{ 

char *GnlName; 
int i ; 

GNLJVAR Varl ; 

GNL_FUNCT ION FunctionI ; 

int Instanceld; 
int IndexList ; 



Instanceld = 0; 
IndexList = 0 ; 

GnlName = GnlName (Gnl) ; 

#ifndef PLIB 

GnlPrintVerilogGnlHeader (File, GnlLib, Gnl) ; 
#endif 

if (GnlPrintVeriloglnterface (File, Gnl)) 
return { GNL_MEMORY_F ULL ) ; 

if (GnlPrintLocalSignals (File, Gnl)) 
return ( GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
if (! FunctionI) 

{ 

fprintf (stderr, " ERROR : <%s> has no function !\n", 
GnlVarName (Varl) ) ; 

continue; 

} 

if (GnlEnvUseVerilogPrimitives ()) 

{ 
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GnlPrintVerilogPrimitiveNode (File, Gnl, Varl, 
^ GnlFunctionOnSet (FunctionI) ) ; 

else 
{ 

if (GnlPrintMappedGnlNocie (File, Gnl, Bestlnv, &lnstanceld, Varl, 

GnlFunctionOnSet (FunctionI) , 
&IndexList) ) 
return ( GNL_MEMORY FULL) ; 

} 

fprintf (File, "\n") ; 

} 

fprintf (File, "\n") ; 
GnlPrintGnlComponents (File, Gnl) ; 
fprintf (File, " \nendmodule\n\n" ) ; 
return (GNL OK) ; 



/* GnlPrintMapCFormat */ 

/* 

GNL_STATUS GnlPrintMapCFormat (File, Gnl, GnlLib, Bestlnv, 

ListClocks , Listlnputs , 

ListOutputs , ListAsyncLow, ListAsyncHigh) 

FILE *File; 

GNL Gnl ; 

GNL_LIB GnlLib; 

LIB_CELL Bestlnv; 

BLIST ListClocks; 

BLIST Listlnputs; 

BLIST ListOutputs; 

BLIST ListAsyncLow; 

BLIST ListAsyncHigh; 

char *GnlName; 
int i ; 

GNL_VAR Varl ; 
GNL_FUNCT I ON Func t i on I ; 
int Instanceld; 
int IndexList; 



Instanceld = 0; 
IndexList = 0; 

GnlName = GnlName (Gnl) ; 

fprintf (File, ".model %s.opt\n", GnlName); 



if (GnlPrintCFormatlnterface (File, GnlName, ListClocks, 

Listlnputs , ListOutputs , 
ListAsyncLow, ListAsyncHigh) ) 
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return (GNL_MEMORY_FULL) ; 



for (i=0; i<BListSize (GnlFunctions (Gnl) ) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

GnlPrintCFormatMappedGnlNode (File, Gnl, Bestlnv, &lnstanceld, Varl, 

GnlFunctionOnSet (FunctionI) , 

&IndexList) ; 
fprintf (File, "\n") ; 
} 

fprintf (File, "\n.end\n" ) ; 
return (GNL OK) ; 



/* ic/ 

/* GnlPrintMapVerilogFile */ 

/* 

/* the file 'File' is already open. This procedure closes it. */ 
/* Prints out the verilog description of the net list r Gnl' in file */ 
/* 'File 1 . For each gates information are added thru parameters during */ 
/* the instanciation of the gate. */ 
/* it/ 

GNL_STATUS GnlPrintMapVerilogFile (File, Gnl, GnlLib) 
FILE *File; 
GNL Gnl ; 

GNL LIB GnlLib; 



{ 



} 



int i ; 

GNL_VAR Varl; 
GNLJ3TATUS GnlStatus ; 
GNL_FUNCTION FunctionI; 
LIB_CELL Bestlnverter; 



Bestlnverter = GetBestAreaLiblnverter (GnlLib) ; 

if (GnlStatus = GnlPrintMap Verilog (File, Gnl, GnlLib, Bestlnverter)) 
return (GnlStatus) ; 



return (GNL OK) ; 



/* 

/* GnlPrintMapCFormatFile 

/* 

GNL_STATUS GnlPrintMapCFormatFile (File, Gnl, GnlLib) 
FILE *File; 
GNL Gnl ; 

GNL_LIB GnlLib; 

{ 
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int i ; 

GNL_VAR Varl ; 

GNLJSTATUS GnlStatus ; 
GNL_FUNCT I ON FunctionI; 
BLIST ListClocks; 
BLIST List Inputs; 

BLIST ListOutput S ; 

BLIST ListAsynchHigh; 
BLI ST Li s t AsynchLow ; 

LIB_CELL Bestlnverter; 



if ((GnlStatus = GnlExtractClocks (Gnl, ^ListClocks) ) ) 
return (GnlStatus) ; 

if ((GnlStatus = GnlExtractAsynchSignals (Gnl, ScListAsynchHigh, 

&ListAsynchLow) ) ) 

return (GnlStatus) ; 

if ((GnlStatus = GnlExtract Inputs (Gnl, ListClocks, ListAsynchLow, 

ListAsynchHigh, &ListInputs) ) ) 

return (GnlStatus) ; 

if {(GnlStatus = GnlExtractOutputs (Gnl, ListClocks, List AsynchLow, 

ListAsynchHigh, &ListOutputs) ) ) 

return (GnlStatus) ; 
Bestlnverter = GetBestAreaLiblnverter (GnlLib) ; 

GnlPrintMapCFormat (File, Gnl, GnlLib, Bestlnverter, ListClocks, 
Listlnputs , ListOutputs , ListAsynchLow, 
ListAsynchHigh) ; 



} 

/* 

/* GnlPrintVerilogNetworkRec */ 
/* 

GNL_STATUS GnlPrintVerilogNetworkRec (Nw, Gnl, GnlLib, OutFile) 
GNL_NETWORK Nw ; 
GNL Gnl ; 

GNL_LIB GnlLib; 
FILE *OutFile; 

{ 

BLIST Components; 
int i ; 

GNL_COMPONENT Component I ; 
GNLJJSER_COMPONENT UserCompol ; 
GNL GnlCompol; 



-*/ 
■*/ 



if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 
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Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components) ; i++) 
{ 

Component I = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) ! = GNL_USER_COMPO) 
continue / 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (! GnlCompol) 
continue; 



if (GnlPrintVerilogNetworkRec (Nw, GnlCompol, GnlLib, OutFile) ) 
return (GNL_MEMORY FULL) ; 

} 

#ifdef 0UTPUT__CFORMAT 

if (GnlPrintMapCFormatFile (OutFile, Gnl, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

#else 

if (GnlPrintMapVerilogFile (OutFile, Gnl, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

#endif 



return (GNL_OK) ; 

} 



/* 

/* GnlVarFlattenNode */ 

z 

/* This procedure modified GNL_NOE 'Node' so that its sons are either */ 
/* GNL_CONSTANTE or GNL_VARIABLE . When a son is a Node Tree we create */ 
/* a new functions pointing on this tree and adds it in the current Gnl */ 

/* ; v 

GNL_STATUS GnlVarFlattenNode (Gnl, Node, NewNode) 
GNL Gnl; 
GNL_NODE Node; 
GNL_NODE *NewNode; 

{ 

int i ; 

GNL_NODE SonI ; 

GNL_NODE Son; 

GNL__NODE NewSon ; 

GNL_VAR NewVar ; 

GN L_FUNCTI ON Ne wFunc t i on ; 

GNL_VAR Var; 

GNL_FUNCTION Function; 



if (GnlNodeOp (Node) == GNL CONSTANTE) 

{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

if (GnlNodeOp (Node) == GNL_VARIABLE) 
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{ 

*NewNode = Node; 
return (GNL_OK) ; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

SonI = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 

if ( (GnlNodeOp (SonI) == GNL_CONSTANTE) | | 
(GnlNodeOp (SonI) == GNL_VARI ABLE ) ) 
continue; 

/* Otherwise there are two levels of equations then we create 
/* a new variable. */ 
if (GnlCreateUniqueVar (Gnl, "P", &NewVar) ) 

return ( GNL_MEMOR Y_FULL ) ; 
if (GnlCreateNodeForVar (Gnl, NewVar, NewNode) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlFunctionCreate (Gnl, NewVar, NULL, &NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, SonI) ; 

BListElt (GnlNodeSons (Node), i) = (int) *NewNode; 

if (BListAddElt (GnlFunctions (Gnl) , (int) NewVar) ) 
return (GNL_MEMORY FULL) ; 

} 

*NewNode = Node; 
return (GNL OK) ; 



/* 

/* GnlFlattenBooleanFunctionsInNwRec 

/* 

GNL_STATUS GnlFlattenBooleanFunctionsInNwRec (Nw, Gnl) 
GNL_NETWORK Nw; 
GNL Gnl ; 

{ 

int i ; 

GNL_VAR Varl ; 

GNL_FUNCT I ON Function; 
BLIST Components; 
GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
GNL GnlCompol; 
GNL_N0DE NewNode ; 



/* Already processed. 

if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
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return (GNL_0K) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
Function = GnlVarFunction (Varl) ; 

if (GnlVarFlattenNode (Gnl, GnlFunctionOnSet (Function), 

&NewNode , 0 ) ) 
return (GNL_MEMORY_FULL) ; 
Set GnlFunctionOnSet (Function, NewNode) ; 

} 

Components = Gnl Components (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

Componentl = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (Componentl) != GNL_USER_COMPO) 
continue; 

UserCompol = (GNLJJSER_COMPONENT) Componentl ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlFlattenBooleanFunctionsInNwRec (Nw, GnlCompol) ) 
return (GNL_MEMORY FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlFlattenBooleanFunctionsInNw */ 
/* 

GNL_STATUS GnlFlattenBooleanFunctionsInNw (Nw, Gnl) 
GNL_NETWORK Nw ; 
GNL Gnl ; 

{ 

/* Resetting the Tag for recursive traversal. 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

return (GnlFlattenBooleanFunctionsInNwRec (Nw, Gnl) ) ; 

/* 

/* GnlPrintVerilogNetwork */ 
/* 

GNL__STATUS GnlPrintVerilogNetwork (Nw, GnlLib, OutFileName) 
GNL_NETWORK Nw; 
GNL_LIB GnlLib; 
char *OutFileName ; 

{ 
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FILE *OutFile; 
GNL TopGnl; 



if ( (OutFile = fopen (OutFileName , "w M )) == NULL) 

{ 

return (GNL_CANNOT OPEN OUTFILE) ; 
} ~ ~ 

TopGnl = GnlNetworkTopGnl (Nw) ; 

/* The user asked to print out the verilog by using Verilog 
/* primitives. */ 
if (GnlEnvUseVerilogPrimitives () ) 
{ 

/* We replace the LIBC cells by the associated Boolean function 
if (GnlReplaceAllComponentsWithLinkLibCells (Nw, TopGnl, GnlLib) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlFlattenBooleanFunctionsInNw (Nw, TopGnl)) 

return (GNL_MEMORY_FULL) ; 

GnlPrintVerilogNwHeader (OutFile, Nw) ; 

} 

else 

{ 

^GnlPrintVerilogNwHeaderWithLib (OutFile, Nw, GnlLib) ; 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw) +1) ; 

if (GnlPrintVerilogNetworkRec (Nw, TopGnl, GnlLib, OutFile)) 
return ( GNL_MEMORY_FULL ) ; 

f close (OutFile) ; 
return (GNL_OK) ; 

} 



/* 

/* GnlPrintNetworklnf o 

/* 

GNL_STATUS GnlPrintNetworklnf o (File, Nw, GnlLib) 
FILE *File; 
GNL_NETWORK Nw; 
LIBC_LIB GnlLib; 

{ 

GNL TopGnl ; 

double GateArea; 
double NetArea; 
int NbDffs; 
int NbLatches; 
int NbTristates; 
int NbBuffers; 
doub 1 e NbEqGa t e s ; 
double SizeBasicEqGate; 
GNL_LIB HGnlLib; 
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HGnlLib = (GNL_LIB) LibHook (GnlLib) ; 
SizeBasicEqGate = GnlHLibAreaBasicEqGate (HGnlLib) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

GnlGetNetworkPredef inedComponents {Nw, &NbDf f s , ScNbLatches , 

&NbTristates, &NbBuffers) ; 
GateArea = GnlGetNetworkGateArea (Nw) ; 



Net Area = GnlNetArea (TopGnl) ; 
if (SizeBasicEqGate 1= 0.0) 



NbEqGates = GateArea/SizeBasicEqGate; 



fprintf 


(File, 


»\n") 


fprintf 


(File, 




fprintf 


(File, 




fprintf 


(File, 




fprintf 


(File, 




fprintf 


(File, 






GnlHLibName 


fprintf 


(File, 


it 


if (NetArea != 


0.0) 



GLOBAL NETLIST REPORT\n" ) ; 



An"); 



= = = M = = SBaB = = M = = M= = M = = = M=BS!===B!B = =BM = = = = = = s=== \ n „ ) . 

o TOP-LEVEL = %s\n", GnlName (TopGnl)) 

o TECH. LIBRARY = %s\n", 



o GATES AREA 



= %.2f\n ,r , GateArea) ; 



{ 



fprintf (File, « o NETS AREA =%.2f\n», NetArea); 

fprintf (File, " o TOTAL NETLIST AREA = %.2f\n", 
GateArea+NetArea) ; 

} 

if (SizeBasicEqGate) 

fprintf (File, « o NB. EQUIVALENT GATES = %.2f\n", NbEqGates); 

if (GnlNetworkPeriod (Nw) ) 



{ 



fprintf (File, " o BEST CLOCK PERIOD 

GnlNetworkPeriod (Nw) ) ; 



= %.2f ns\n", 



} 



fprintf (File, n 

fprintf (File, » 

fprintf (File, " 

fprintf (File, " 

fprintf (File, 



} 

/*- 



return (GNL OK) ; 



o NB. FLIP-FLOPS 

o NB. LATCHES 

o NB. TR I STATES 

O NB. BUFFERS 



= %d\n», NbDffs) ; 

= %d\n", NbLatches) ; 

= %d\n", NbTristates) ; 

= %d\n", NbBuffers) ; 



An\n») ; 
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/* */ 

/* File: gnlread.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */' 

/* */ 

/* Class: none */ 

/* Inheritance: */ 

/* */ 

/* */ 

ftinclude <stdio.h> 

#include "blist.h" 
ftinclude "gnl.h" 

z* 

/* GLOBAL VARIABLES */ 

/* v 

GNL G_CurrentGnl ; 
BLIST G_ListOfGnls; 
int G_GnlIsBig; 

z* v 

/* GnlRead */ 

z v 

int GnlRead (FileName, ListGnls) 

char *FileName; 

BLIST *ListGnls; 

{ 

FILE *GnlFile; 

char *CopyName; 

int Status; 

int i ; 

GNL Gnll; 



if ( (GnlFile = f reopen (FileName /'r", stdin) ) == NULL) 

fprintf (stderr, » ERROR: cannot find file '%s'\n M , 

FileName) ; 
exit (1) ; 

} 



G__GnlIsBig = 1; 



if ((Status = gnlparse ())) 
{ 

fclose (GnlFile) ; 
return (Status) ; 

} 



fclose (GnlFile) ; 
*ListGnls = G_ListOfGnls; 
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for (i=0; i<BListSize (G_ListOfGnls) ; i++) 
{ 

Gnll = (GNL) BListElt (G_ListOfGnls , i) ; 

if {GnlStrCopy (FileName, &CopyName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSourceFileName (Gnll; CopyName) ; 

/* a classical Gnl has been read ... */ 
SetGnlType (Gnll, GNLJJSER) ; 

} 

if (BListSize (*ListGnls) == 0) 

{ 

fprintf (stderr, " ERROR: File • %s ' has no component definition\n 
FileName) ; 

exit (1) ; 

} 

return (0) ; 

} 

/* 

/* GnlReadSmall 

/* 

int GnlReadSmall (FileName, ListGnls) 



char 


* FileName ; 


BLIST 


*ListGnls ; 


FILE 


*GnlFile; 


char 


* CopyName; 


int 


Status ; 


int 


i; 


GNL 


Gnll; 



if ( (GnlFile = f reopen (FileName , "r", stdin) ) == NULL) 
{ 

fprintf (stderr, M # ERROR: cannot find file ' %s'\n" , 

FileName) ; 
return (1) ; 

} 

G_GnlIsBig = 0; 

if ((Status = gnlparse ())) 

{ 

fclose (GnlFile) ; 
return (Status) ; 

} 

fclose (GnlFile) ; 
*ListGnls = G_ListOfGnls; 
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for (i = 0; i<BListSize (G_ListOf Gnls) ,* i++) 
{ 

Gnll = (GNL) BListSlt (G_ListOf Gnls , i) ; 

if (GnlStrCopy (FileName, &CopyName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlSourceFileName (Gnll, CopyName) ; 

/* a leaf cell Gnl has been read ... */ 
SetGnlType (Gnll, GNL__CELL) ; 

} 

return (0) ; 

} 

z* 
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/* */ 

/* */ 

/* File: gnlreport.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Description: */ 

/* */ 

/* */ 



#include <stdio.h> 

#ifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 
#include "gnl .h" 
#include "gnlmint ,h" 
# include "bbdd.h" 
# i nc 1 ude " 1 ibc_mem . h " 
#include "libc_api.h M 
# include "gnllibc .h" 
#include "gnlmap.h" 
#include "gnloption.h" 
#include "gnlreport .h" 

#include "blist.e" 

/* */ 

/* EXTERN */ 

/* */ 

extern GNL_ENV G_GnlEnv; 

/* */ 

/* DEFINE */ 

/* */ 

#define HASH_TABLE_LIBC_CELLS_SIZE 1000 
#define HASH_TABLE_MODULES_SIZE 1000 

/* */ 

/* GLOBAL */ 

/* */ 

static BLIST G_HashTableLibCells ; 
static BLIST G_HashTableModules; 

/* */ 

/* GnlCreateDataReport */ 
/* */ 

GNL_STATUS GnlCreateDataReport (DataReport) 
GNL_DATA_RE PORT *DataReport ; 

{ 

if ( (*DataReport = (GNL_DATA_REPORT) 

calloc (1, sizeof (GNL DATA REPORT REC) ) ) == NULL) 
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return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 



/* */ 

/* GnlAddOrGetLibcelllnHashTable */ 
/* */ 

/* we create a Data report information structure which will be attached */ 

/* to all the different cells used in the processed Gnl. */ 

/* */ 



GNL_STATUS GnlAddOrGetLibcelllnHashTable (Cell, DataReport) 
LIBC_CELL Cell; 
GNLJDATA_REPORT *DataReport ; 

{ 

char *CellName; 
int Key; 
BL1ST Bucket; 
int i ; 

GNL_DATA_REPORT Cell report I ; 

BLIST NewList; 



CellName = LibCellName (Cell) ; 

Key = KeyOfName (CellName, BListSize (G__HashTableLibCells) ) ; 

Bucket = (BLIST) BListElt (G_HashTableLibCells , Key); 
if ( (Bucket) 

{ 

if (BListCreateWithSize (1, &Bucket) ) 
return (GNL_MEMORY_FULL) ; 

BListElt (G__HashTableLibCells f Key) = (int) Bucket; 

} 

for (i=0; i<BListSize (Bucket); i++) 

{ 

CellreportI = (GNL_DATA_REPORT) BListElt (Bucket, i) ; 

if (GnlDataReportCell (CellreportI) == Cell) 
{ 

♦DataReport = CellreportI; 
return (GNL_OK) ; 

} 

} 

if (GnlCreateDataReport (DataReport) ) 
return (GNLJMEMORY_FULL) ; 

SetGnlDataReportCell (*DataReport , Cell) ; 
if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlDataReportMaxFanoutCompo (*DataReport , NewList) ; 

if (BListAddElt (Bucket; (int) (*DataReport) ) ) 
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} 



return (GNL_MEMORY_FULL) ; 
return (GNL OK) ; 



/* */ 

/* GnlAddOrGetModulelnHashTable */ 
/* */ 

GNL_STATUS GnlAddOrGetModulelnHashTable (Gnl, DataReport) 
GNL Gnl ; 

GNL_DATA__RE PORT *DataReport ; 



{ 



} 



char *CellName,- 

int Key; 

BLIST Bucket; 

int i ; 

GNL DATA_RE PORT CellreportI; 



CellName = GnlName (Gnl) ; 

Key = KeyOfName (CellName, BListSize (G_HashTableModules) ) ; 

Bucket = (BLIST) BListElt (G_HashTableModules , Key) ; 
if ('Bucket) 
{ 

if (BListCreateWithSize (1, &Bucket) ) 
return (GNL_MEMORY_FULL) ; 

BListElt (G_HashTableModules, Key) = (int) Bucket; 

} 

for (i=0; i<BListSize (Bucket); i++) 

{ 

CellreportI = (GNL_DATAJREPORT) BListElt (Bucket, i) ; 
if (GnlDataReportGnl (CellreportI) -= Gnl) 

{ 

♦DataReport = CellreportI ; 
return (GNL_OK) ; 

} 

} 

if (GnlCreateDataReport (DataReport) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlDataReportGnl ( *DataReport , Gnl) ; 

if (BListAddElt (Bucket, (int) (*DataReport) ) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* */ 

/* GnlGetFanoutFromSeqCompo */ 
/* */ 
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int GnlGetFanoutFromSeqCompo (SeqCompo) 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

{ 

int FanOut ; 

GNL_VAR OutVar; 
GNL_VAR OutVarBar; 



OutVar = GnlSequentialCompoOutput (SeqCompo) ; 
OutVarBar = Gnl Sequent ialCompoOutputBar (SeqCompo) ; 

FanOut = 0; 

if (OutVar (FanOut < (int ) GnlVarHook (OutVar))) 
FanOut = (int) GnlVarHook (OutVar); 

if (OutVarBar (FanOut < (int ) GnlVarHook (OutVarBar))) 
FanOut = ( int) GnlVarHook (OutVarBar); 

return (FanOut) ; 



/* 

/* GnlGetFanoutFromTristateCompo 

/* 

int GnlGetFanoutFromTristateCompo (TristateCompo) 
GNL_TRISTATE_COMPONENT TristateCompo ; 

{ 

int FanOut ; 

GNL VAR OutVar; 



OutVar = GnlTriStateOutput (TristateCompo) ; 
FanOut = 0; 

if (OutVar (FanOut < (int) GnlVarHook (OutVar))) 
FanOut = (int) GnlVarHook (OutVar); 

return (FanOut) ; 

} 

z* 

/* GnlGetFanoutFromBuf Compo 

/* 

int GnlGetFanoutFromBuf Compo (BufCompo) 
GNL_BUF_COMPONENT Bu f Compo ; 

{ 

int FanOut ; 

GNL_VAR OutVar; 



OutVar = GnlBuf Output (BufCompo) ; 
FanOut = 0; 

if (OutVar && (FanOut < ( int) GnlVarHook (OutVar))) 
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FanOut = (int)GnlVarHook (OutVar) ; 
return (FanOut) ; 

} 

/* 

/* GnlGetPinCellWithName 

/* 

LIBC_PIN GnlGetPinCellWithName (Cell, Name) 
LIBC_CELL Cell; 
char *Name ; 

{ 

LIBC_PIN Pins; 
LIBC_NAME_LIST ListPinName; 



} 



Pins = LibCellPins (Cell) ; 

for (;Pins '= NULL; Pins = LibPinNext (Pins) ) 

ListPinName = LibPinName (Pins); /* we know it is a simple name 
if (Istrcmp (LibNameListName (ListPinName), Name)) 
return (Pins) ; 

} 

return (NULL) ; 



/* 

/* GnlGetFanoutFromUserCompo 

/* 

int GnlGetFanoutFromUserCompo (UserCompo) 
GNL_USER_COMPONENT UserCompo ; 



int i ; 

int FanOut ; 

char * Formal I; 

GNL_VAR Actuall; 
BLIST Interface; 
GNL_VAR VarJ; 
BLIST ListSplitActuals ; 
int j ; 

GNL_ASSOC AssocI; 
LIBC_CELL Cell; 
LIBC__PIN PinFormal; 



Cell = GnlUserComponentCellDef (UserCompo) ; 
Interface = GnlUserComponentlnterf ace (UserCompo) ; 
FanOut = 0; 

for |i=0; i<BListSize (Interface); i++) 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Formall = GnlAssocFormalPort (AssocI) ; 
Actuall = GnlAssocActualPort (AssocI) ; 
if { "Actuall) 
continue; 
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PinFormal = GnlGetPinCellWithName (Cell, Formall) ; 
if (GnlVarlsVar (Actual I) ) 

if ( (LibPinDirection (PinFormal) == OUTPUT_E) | | 
(LibPinDirection (PinFormal) == INOUT E) ) 

{ 

if (Actuall && (FanOut < (int) GnlVarHook (Actual I) ) ) 
FanOut = (int) GnlVarHook (Actuall); 

} 

else 

{ 

ListSplitActuals = GnlNodeSons ( (GNL_NODE) Actuall ) ; 
for (j=0; j<BListSize (ListSplitActuals); j++) 
{ 

VarJ = (GNL_VAR) BListElt (ListSplitActuals, j); 
if ({LibPinDirection (PinFormal) == OUTPUT E) || 
(LibPinDirection (PinFormal) == IN0UTJ3) ) 

if (VarJ && (FanOut < (int ) GnlVarHook (VarJ))) 
FanOut = (int) GnlVarHook (VarJ) ; 



} 

} 



} 



return (FanOut) ; 

} 

/* 

/* GnlGetLibCells */ 
/* , 

GNL_STATUS GnlGetLibCells (Gnl) 
GNL Gnl ; 

{ 

int i ; 
GNL__COM PONENT Component I ; 

GNL_USER_COMPONENT UserCompo ; 

GNL_S EQUENT I AL_COMPONENT SeqCompo ; 
GNL_TRISTATE_C0MPONENT TristateCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

LIBC_CELL Cell; 
GNL SubGnl ; 

GNL_DATA_REPORT DataReport ; 

double CellArea; 
int FanOut; 

for (i = 0; i<BListSize (Gnl Components (Gnl)); i++) 

ComponentI = (GNL_COM PONENT) BListElt (Gnl Components (Gnl), i) ; 

switch (GnlComponentType (ComponentI) ) { 
case GNL_USER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) ComponentI ; 
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/* If not a black box or cell we do take it into */ 
/* account. */ 
Cell = GnlUserComponentCellDef (UserCompo) ; 
if OCell) 

{ 

SubGnl = GnlUserComponentGnlDef (UserCompo) ; 
if (SubGnl) 

{ 

if (GnlGetLibCells (SubGnl)) 
return {GNL_MEMORY FULL) ; 

} 

} 

else 

{ 

FanOut = GnlGetFanoutFromUserCompo (UserCompo) ; 
break ; 

case GNL_SEQUENTIAL_COMPO : 

SeqCompo = ( GNL_S E QUENT I AL_COMPONENT ) Component I ; 
Cell = GnlSeqCompoInfoCell (SeqCompo) ; 
FanOut = GnlGetFanoutFromSeqCompo (SeqCompo) ; 
break; 

case GNL_TRISTATE_COMPO : 

TristateCompo = ( GNL_TR I STATE_COMPONENT) Component I ; 
Cell = GnlTriStateCompoInfoCell (TristateCompo) ; 
FanOut = GnlGetFanoutFromTristateCompo (TristateCompo) 
break; 

case GNL_BUF_COMPO : 

BufCompo = (GNL_BUF_COMPONENT) Component I; 
Cell = GnlBuf Compolnf oCell (BufCompo) ; 
FanOut = GnlGetFanoutFromBuf Compo (BufCompo) ; 
break; 

} 

if (ICell) 
continue; 

/* We create or get the Data report information attached to the */ 
/* cell 'Cell' . */ 

if (GnlAddOrGetLibcelllnHashTable (Cell, &DataReport) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlDataReportNb (DataReport, GnlDataReportNb (DataReport) +1) ; 
CellArea = (double) LibCellArea (Cell) ; 
SetGnlDataReportArea (DataReport , 

GnlDataReportArea (DataReport) +CellArea) ; 
/* we store the cells with max fanout */ 
if ( IBListSize (GnlDataReportMaxFanout Compo (DataReport) ) ) 

if (BListAddElt (GnlDataReportMaxFanout Compo (DataReport) , 
(int) Component I) ) 
return (GNL_MEMORY_FULL) ; 
continue; 
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} 



/* It the current Cell 'cell' has a higher Fanout than the max */ 
/* current Fanout we store it and rebuild the list of max fanout*/ 
/* cells. */ 
if (FanOut > GnlDataReportMaxFanout (DataReport) ) 

SetGnlDataReportMaxFanout (DataReport, FanOut) ; 
BSize (GnlDataReportMaxFanoutCompo (DataReport)) = 0; 
if (BListAddElt (GnlDataReportMaxFanoutCompo (DataReport) , 
(int) Component I) ) 
return ( GNL_MEMORY FULL) ; 

} 

else if (FanOut == GnlDataReportMaxFanout (DataReport)) 



if (BListAddElt (GnlDataReportMaxFanoutCompo (DataReport) , 
(int) Component I) ) 
return (GNL_MEMORY_FULL) ; 



return (GNL_0K) ; 



/* 

/* GnlGetModules 

/* 

GNL_STATUS GnlGetModules (Gnl) 
GNL Gnl; 

{ 

int 

GNL_COMPONENT 

GNL_US ER_COMPONENT 

GNL_SEQUENTIAL_COMPONENT 

GNL_TR I S TATE_C0MP0NENT 

LIBC_CELL 

GNL 

GNL DATA REPORT 



-*/ 
*/ 
-*/ 



i; 

Component I; 

UserCompo; 

SeqCompo; 

TristateCompo; 

Cell; 

SubGnl ; 

DataReport; 



if (GnlAddOrGetModulelnHashTable (Gnl, ^DataReport) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlDataReportNb (DataReport, GnlDataReportNb (DataReport ) +1) ; 
SetGnlDataReportArea (DataReport , 

GnlDataReportArea (DataReport ) +GnlArea (Gnl) ) ; 

for (i=0; i<BListSize (Gnl Components (Gnl)); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 

switch (GnlComponentType (ComponentI)) { 
case GNL_USER_C0MP0 : 

UserCompo = (GNL_USER_COMPONENT) ComponentI ; 
Cell = GnlUserComponentCellDef (UserCompo) ; 
if (ICell) 
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{ 

SubGnl = GnlUserComponentGnlDef (UserCompo) ; 
if (SubGnl) 
{ 

if (GnlGetModules (SubGnl)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

break; 

default : 

break; 

} 

} 

return (GNL_OK) ; 

} 



/* 

/* GnlReportCells 

/* 

GNL_STATUS GnlReportCells (Nw) 
GNLJSTETWORK Nw; 

{ 

GNL TopGnl ; 

GNL__STATUS GnlStatus ; 



if (BListCreateWithSize (HASH_TABLE_LIBC_CELLS_SIZE, 

&G_HashTableLibCells) ) 
return (GNL_MEMORY_FULL) ; 
BSize (G_HashTableLibCells) = HASH_TABLE_LIBC_CELLS__SIZE; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if ( (GnlStatus = GnlGetLibCells (TopGnl) ) ) 
return (GnlStatus) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlReportModules 

/* 

GNL_S TATUS GnlReportiVIodules (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 

GNL_S TATUS GnlStatus ; 



if (BListCreateWithSize (HASH_TABLE_MODULES_SIZE / 

&G_HashTableModules) ) 
return (GNL_MEMORY_FULL) ; 
BSize (G__HashTableModules) = HASH_TABLE__MODULES__S I ZE ; 
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} 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if ( (GnlStatus = GnlGetModules (TopGnl))) 
return (GnlStatus) ; 

return (GNL OK) ; 



/* it/ 

/* GnlPrintReportCells */ 
/* i(/ 

void GnlPrintReportCells (Nw) 
GNL_NETWORK Nw; 

{ 

GNL TopGnl ; 

int i; 
int j ; 

BLIST Bucket I; 

double TotalArea; 

doub le TotalDesi gnAr e a ; 
GNL_DATA_REPORT DataReportJ; 
LIBC_CELL Cell; 
char *CellName; 
int k; 

GNL__COMPONENT Component K ; 
GNL_USER_COMPONENT UserCompo ; 

GNL_TRISTATE_COMPONENT TriCompo ; 

GNL_BUF_COMPONENT Buf Compo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
char *InstName; 

BLIST Li stFanout Compo; 
int Nblnstances; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

/* Computing first the total design gate area */ 
TotalDesignArea = 0.0; 

for (i=0; i<BListSize (G_HashTableLibCells) ; i++) 

{ 

Bucketl = (BLIST) BListElt (G_HashTableLibCells , i) ; 
if (! Bucketl) 
continue; 

for (j=0; j<BListSize (Bucketl); j++) 
{ 

DataReportJ = (GNL_DATA_REPORT) BListElt (Bucketl, j); 
TotalDesignArea += GnlDataReportArea (DataReportJ) ; 

} 



fprintf (stderr, "\n"); 

fprintf (stderr, " REPORT CELLS : DESIGN = [%s]\n" / 
GnlName (TopGnl) ) ; 

fprintf (stderr, " ») ; 

for (i=0; i<strlen (GnlName (TopGnl)); i++) 
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f print f (stderr, "-"); 

fprintf (stderr, ,T -\n"); 

fprintf (stderr, "\n"); 

fprintf (stderr, 

" Cell Number Cell_Area Max_FanOut Total_Area %c 

Design\n", ) ; 

fprintf (stderr, 



\n") ; 



TotalArea = 0.0; 
Nblnstances = 0; 

for (i=0; i<BListSize (G_HashTableLibCells) ; i++) 
{ 

Bucketl = (BLIST) BListElt (G_HashTableLibCells , i) ; 
if (! Bucketl) 
continue; 

for <j=0; j<BListSize (Bucketl); j++) 
{ 

DataReportJ = (GNL_DATA_REPORT) BListElt (Bucketl, j); 
Cell = GnlDataReportCell (DataReportJ) ; 
CellName = LibCellName (Cell) ; 
fprintf (stderr, " ") ; 

GnlPrintFormatSignalName (stderr, CellName, 12) ; 
TotalArea GnlDataReportArea (DataReportJ) ; 

/* Dirty fix to not print 0 for max f anout . To change ! */ 
if ( IGnlDataReportMaxFanout (DataReportJ) ) 
GnlDataReportMaxFanout (DataReportJ) = 1; 

fprintf (stderr, 

" %6d %11.2f %5d %13.2f %4 . If %c\n", 

GnlDataReportNb (DataReportJ) , 
GnlDataReportArea (DataReportJ) , 

GnlDataReportMaxFanout (DataReportJ) , TotalArea, 
( 100 *GnlDataReport Area (DataReportJ) ) /TotalDesignArea, '%' ) ; 

Nblnstances += GnlDataReportNb (DataReportJ) ; 

} 

} 

fprintf (stderr, 



\n») ; 

fprintf (stderr, 

" Nb. Cells %6d %13.2f\n", 

Nblnstances, TotalDesignArea) ; 
fprintf (stderr, "\n") ; 



if ( ! GnlEnvPrintMaxFanoutVars ( ) ) 
return; 
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fprintf (stderr, " Cell Name Instance Name Max FanOut\n ,f ); 

fprintf (stderr/ 



\n») ; 

for (i = 0; i<BListSize (G_HashTableLibCells) ; i++) 
{ 

Bucket I = (BLIST) BListElt (G_HashTableLibCells , i) ; 
if (IBucketl) 
continue ; 

for (j=0; j<BListSize (Bucketl) ; j++) 
{ 

DataReport J = (GNL_DATA_REPORT) BListElt (Bucketl, j ) ; 
ListFanoutCompo = GnlDataReportMaxFanoutCompo (DataReport J) ; 
Cell = GnlDataReportCell (DataReport J) ; 
CellName = LibCellName (Cell) ; 
fprintf (stderr, " ") ; 

GnlPrintFormatSignalName (stderr, CellName, 12); 
fprintf (stderr, "\n") ; 

for (k=0; k<BListSize (ListFanoutCompo); k++) 
{ 

Component K - (GNL_COMPONENT) BListElt (ListFanoutCompo, k) ; 
switch (GnlComponentType ( Component K) ) { 
case GNLJJSER_COMPO : 

UserCompo = (GNL_USER_COMPONENT) Component K; 

InstName = GnlUserComponentlnstName (UserCompo) ; 

break; 

case GNL_SEQUENTIAL_COMPO : 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) Component K; 
InstName = GnlSequentialCompoInstName 

(SeqCompo) ; 

break; 

case GNL_TRISTATE_COMPO: 

TriCompo = (GNL_TRISTATE__COMPONENT) ComponentK; 
InstName = GnlTri State InstName (TriCompo) ; 
break ; 

case GNL_BUF_COMPO : 

BufCompo = (GNL_BUF_COMPONENT) ComponentK; 
InstName = GnlBuf InstName (BufCompo) ; 
break; 

} 

fprintf (stderr, " ») ; 

GnlPrintFormatSignalName (stderr, InstName, 12) ; 
fprintf (stderr, " %d\n" , 

GnlDataReportMaxFanout (DataReport J) ) ; 

} 

} 

fprintf (stderr, 



\n") ; 

fprintf (stderr, "\n"); 
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/* 

/* GnlPrintReportModules 

/* 

GNL_STATUS GnlPrintReportModules (Nw) 

GNL_NE T WORK Nw; 

{ 

GNL TopGnl / 

int i ; 

int j ; 

BLIST Bucketl; 

double TotalArea; 

double TotalDesignArea; 

GNL_DATA_RE PORT Dat aReport J ; 

char *CellName; 

int k; 

GNL Gnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

/* Computing first the total design gate area 
TotalDesignArea = 0.0; 

for (i=0; i<BListSize (G_HashTableModules) ; i++) 

Bucketl = (BLIST) BListElt (G__HashTableModules , i) ; 
if (i Bucketl) 
continue; 

for (j=0; j<BListSize (Bucketl); j++) 

DataReportJ = (GNL_DATA_REPORT) BListElt (Bucketl; j); 
TotalDesignArea += GnlDataReportArea (DataReportJ) ; 

} 



fprintf (stderr, ,r \n") ; 

fprintf (stderr, » REPORT MODULES : DESIGN = [%s] \n'\ 
GnlName (TopGnl)); 

fprintf (stderr, 11 n). 

for (i=0; i<strlen (GnlName (TopGnl)); i++) 

fprintf (stderr, »-») ; 
fprintf (stderr, M -\n M ); 
fprintf (stderr, "\n"); 
fprintf (stderr, 

" Module Number Cell^Area Fanout Wire_Path Total Area %c 

Design\n n ,'%'); ~ 

fprintf (stderr, 
ii 

-\n»); 

TotalArea = 0.0; 



•*/ 
*/ 
■*/ 
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for {i = 0; i<BListSize (G HashTableModules) ; i++) 
{ 

Bucketl = (BLIST) BListElt (G_HashTableModules , i) • 
if (! Bucket I) 
continue; 



for (j=0; j<BListSize (Bucketl); j++) 
{ 

DataReportJ = (GNL_DATA_REPORT) BListElt (Bucketl, j); 
Gnl = GnlDataReportGnl (DataReport J) ; 
CellName = GnlName (Gnl) ; 
fprintf (stderr, » "); 
if (strlen (CellName) >= 14) 
{ 

fprintf (stderr , ".."); 

for (k=strlen (CellName) -12 ; k<strlen (CellName); k++) 
fprintf (stderr, »%c», CellName [k] ) ; 

} 

else 
{ 

for (k=0; k<strlen (CellName); k++) 

fprintf (stderr, "%c H , CellName [k] ) ; 
while (k<14) 

{ 

fprintf (stderr, " ") ; 
k++ ; 

} 

} 

TotalArea += GnlDataReportArea (DataReport J) ; 

fprintf (stderr, 

" %6d %n.2f %4d %4d %13.2f %4.1f %c\n", 

GnlDataReportNb (DataReport J) , 
GnlDataReportArea (DataReportJ) , 
GnlMaxFanout (Gnl) , GnlDepth (Gnl) , TotalArea, 
(100*GnlDataReportArea (DataReportJ) ) /TotalDesignArea, * % ' ) ; 

} 



fprintf (stderr, 

n 

-\n») ; 

fprintf (stderr, " 
%13.2f \n", TotalDesignArea); 



} 



/ v 

/* GnlReportDataAf terSynthesis */ 

GNL_STATUS GnlReportDataAf terSynthesis (Nw, GnlLib) 
GNL_NETWORK Nw ; 
LIBC_LIB GnlLib; 

{ 

GNL_STATUS GnlStatus ; 
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GNL TopGnl ; 

switch (GnlEnvReportData () ) { 
case GNLJREPORT_MODULES : 

if (GnlReportModules (Nw) ) 
return (GNL_MEMORY_FULL) ; 

GnlPrintReportModules (Nw) ; 
break; 

case GNL_JREPORT_CELLS : 

GnlComputeMaxFanoutlnNetwork (Nw) ; 

if (GnlReportCells (Nw) ) 

return (GNL_MEMORY_FULL) ; 

GnlPrintReportCells (Nw) ; 
break; 

case GNL_REP0RT_TIM1NGS : 

if ( (GnlStatus = GnlTimingEstimateAf terSynthesis (Nw, 

GnlLib) ) ) 

return (GnlStatus) ; 
break; 

case GNL_REPORT_POWERS : 

if ( (GnlStatus = GnlPowerEstimateAf terSynthesis (Nw, 

GnlLib) ) ) 

return (GnlStatus) ; 
break; 

default : 

break; 

} 

return (GNL OK) ; 

} 

/* 



/* GnlReportDataForEstimation */ 
/* , 

GNL_STATUS GnlReportDataForEstimation (Nw, GnlLib) 
GNL_NETWORK Nw; 
LIBC_LIB GnlLib; 



{ 



GNL_STATUS GnlStatus ; 
GNL TopGnl ; 

GNL_LIB HGnlLib; 



fprintf (stderr, "\n") ; 

fprintf (stderr, " Performing estimation. An" ) ; 

switch (GnlEnvReportData ( ) ) { 
case GNL_REPORT_MODULES : 

GnlGetGnlMapArealnNw (Nw) ; 
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if (GnlReportModules (Nw) ) 
return ( GNL_MEMORY_FULL) ; 

GnlPrintReportModules (Nw) ; 
break; 

case GNL_REPORT_CELLS : 

GnlComputeMaxFanoutlnNetwork (Nw) ; 

if (GnlReportCells (Nw) ) 

return (GNL_MEMORY_FULL) ; 

GnlPrintReportCells (Nw) ; 
break; 

case GNL_RE PORT_T I M I NG S : 

if ( (GnlStatus = GnlTimingEstimate (Nw, GnlLib) ) ) 

return (GnlStatus) ; 
break ; 

case GNL_REPORT_POWERS : 

if ( (GnlStatus = GnlPowerEstimate (Nw, GnlLib) ) ) 

return (GnlStatus) ; 
break; 

default : 



break; 



fprintf (stderr, 
fprintf (stderr, 
fprintf (stderr, 



"\n") ; 

" Estimation Done !\n"); 
"\n") ; 



return (GNL_OK) ; 



/* 



EOF 
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/* 






*/ 




/* 


File: 


gnl report . h 




*/ 


/* 


Version : 


l.l 




*/ 


/* 


Modifications : 






*/ 


/* 


Documentation : 






*/ 


/* 






*/ 














/* 


GNL_DATA_REPORT 






*/ 











*/ 

*/ 



typedef struct GNL_DATA_REPORT_STRUCT { 
void *Cell; 
int Number; 
double Area; 
int MaxFanout ; 

BLIST MaxFanoutCompo / 



} 



GNL_DATA_REPORT_REC , *GNL_DATA_REPORT ; 



#def ine GnlDataReportCell (n) 

#def ine GnlDataReportGnl (n) 

#define GnlDataReportNb (n) 

#define GnlDataReportArea <n) 

#def ine GnlDataReportMaxFanout (n) 

#def ine GnlDataReportMaxFanoutCompo (n) 



#def ine SetGnlDataReportCell (n, c) 
#def ine SetGnlDataReportGnl (n, c) 
Set GnlDataReportNb (n, c) 
SetGnlDataReportArea (n, c) 
SetGnlDataReportMaxFanout (n, c) 



#def ine 
#def ine 
#def ine 
#def ine 



SetGnlDataReportMaxFanoutCompo (n, c) 



( <LIBC_CELL) ( (n) ->Cell) ) 

( (GNL) ( (n) ->Cell) ) 

( (n) ->Number) 

( (n) ->Area) 

( (n) ->MaxFanout) 

( (n) ->MaxFanoutCompo) 

( (n) ->Cell = c) ; 
( (n) ->Cell - c) ; 
( (n) ->Number = c) ; 
( (n) ->Area = c) ; 

( (n) ->MaxFanout = c) ; 



( (n) ->MaxFanoutCompo = c) 



EOF 
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/* 

'* */ 

/* File: gnlstr.c */ 

/* Version: l.i */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* Class: none */ 

/* Inheritance: */ 

#include <stdio.h> 

#include "blist.h" 
#include "gnl.h" 

/* 

/* GnlStrCopy */ 

/* v 

/* Create a physical duplication of the string 'str' and returns GNL OK * / 
/* if everything is ok and GNL_MEMORY_FULL is the memory allocation was */ 
/* not feasible. */ 
/* 

GNL_STATUS GnlStrCopy (str, NewStr) 
char *str; 
char **NewStr; 

{ 

if ((*NewStr = (char* ) GNL_CALLOC ((unsigned) 1, 

(unsigned) (strlen (str) +1))) == NULL) 
return ( GNL_MEMORY_FULL ) ; 

(void) strcpy (*NewStr, str) ; 

return (GNL_0K) ; 

} 

/* 

/* GnlStrAppendStrCopy */ 

/* [ #/ 

/* Create a new string stored in 'NewStr' which is the cat of 'strl' and*/ 
/* ' str2'. */ 

z* 

GNL_STATUS GnlStrAppendStrCopy (strl, str2, NewStr) 
char *strl; 
char *str2; 
char **NewStr; 

{ 

if {(*NewStr= (char*) GNL_C ALLOC ((unsigned) 1, 

(unsigned) (strlen (strl) + strlen (str2) + 1))) == NULL) 
return (GNL_MEMORY_FULL) ; 

sprintf (*NewStr, "%s%s", strl, str2) ; 

return (GNL_OK) ; 
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} 

/* ic/ 

/* GnlStrAppendlntCopy */ 
/* ic/ 

/* Create a new string stored in 'NewStr' which is the cat of 'strl' and*/ 
/* integer 'Index* */ 

* v 

/* WARNING: index should not exceed 30 digits */ 

/* v 

GNL_STATUS GnlStrAppendlntCopy (strl, Index, NewStr) 
char *strl; 
int Index; 
char **NewStr; 

{ 

char *Str; 

if ( (Str = ( char * ) GNL_CALLOC ((unsigned) 1, (unsigned) (strlen (strl) + 

30 + 1) ) ) == NULL) 

return (GNL_MEMORY_FULL) ; 
sprintf (Str, "%s%d", strl, Index); 

if (<*NewStr= ( char* ) GNL_CALLOC ((unsigned) 1, (unsigned) (strlen (Str) 

1 

) ) ) = == NULL) 

return (GNL_MEMORY_FULL) ; 
(void) strcpy (*NewStr, Str) ; 
free (Str) ; 
return (GNL_OK) ; 

} 

/* ^ 

/* GnlStrReverse */ 

/* 

GNL__STATUS GnlStrReverse (Str) 
char *Str,- 

{ 

char *Strl; 
char *Ptrl; 
char *Ptr; 

if ((Strl = ( char * ) GNL_CALLOC ((unsigned) (strlen (Str) + 1), 

(unsigned) sizeof (char) ) ) == NULL) 

return ( GNL_MEMORY_FULL ) ; 

(void) strcpy (Strl, Str); 
Ptrl = Strl + strlen (Strl) - 1; 
Ptr = Str; 

while (Ptrl >= Strl) 

{ 

(*Ptr++) = (*Ptrl--) ; 
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} 

free (Strl) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlStrDecimalToBin */ 
/* 

GNL_STATUS GnlDecimalToStrBin (Decim, Range, StrBin) 



int 


Decim; 


int 


Range ; 


char 


**StrBin; 


int 


Exp = 0; 


int 


BInf = 1; 


int 


Aux = Decim 


int 


i; 



if ({*StrBin= (char* ) GNL_CALLOC (Range +1, sizeof (char))) == NULL) 
return { GNL_MEMORY_FULL ) ; 

for (i=0; i<Range; i++) 
(*StrBin) [i] = '0- ; 
(*StrBin) [i] = <\0' ; 

while (BInf Decim) 

{ 

Exp++ ; 
BInf *= 2; 

} 

if (Exp) 
{ 

Exp--; 

BInf = BInf / 2; 

} 

while (Exp >= 0) 

{ 

if (Aux >= BInf) 

{ 

Aux -= BInf; 
if (Exp < Range) 

(*StrBin) [Range-Exp-1] 

} 

else 

{ 

if (Exp < Range) 

(*StrBin) [Range-Exp-1] 

} 




Exp--; 

BInf = BInf / 2; 

} 
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return (GNL OK) ; 

} 



o 

si 
m 

m 
w 

a 
4= 

nj 

a 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


gnlsynt . c 


Version : 


1.1 


Modifications : 




Documentation: 




Class: none 




Inheritance : 





*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



#include <stdio.h> 



#include 
#include 
#include 
# include 
# include 
#include 
#include 
#include 
# include 
# include 



"blist .h" 

"gnl.h" 

"gnlopt .h" 

"bbdd.h" 

"libc_mem.h" 

"libc_api ,h" 

"gnllibc.h" 

"gnlopt ion . h" 

"time.h" 

" timecomp . e" 





/* GLOBAL VARIABLE 




*/ 




extern GNL_ENV G_GnlEnv; 
extern BLIST G_ListOfGnls; 
















/* Gnl Synthesize 


*/ 





GNL_STATUS Gnl Synthesize () 
{ 



int 


i; 


GNL 


Gnl; 


GNL 


Gnll; 


BLIST 


ListGnls; 


LS_OPT_PANEL 


Op t Pane 1; 


LIBC LIB 


GnlLib; 


GNL_LIB 


HGnlLib; 


int 


Done ; 


int 


MapEf fort; 


FILE 


*OutFile; 


GNL_STATUS 


GnlStatus; 


GNL 


TopGnl; 


GNL_NETWORK 


GlobalNetwork ; 


GNL_OPT_FORCE 


Force; 


GNL_CRITERION 


Criter ; 


int 


Inject; 


char 


*LibSourceFile 



*/ 
*/ 

*/ 
*/ 



if ( Gn 1 EnvOutput ( ) ) 
{ 
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if ( (OutFile = fopen (GnlEnvOutput () , V)) == MULL) 

{ 

fprintf (stderr, " ERROR : Cannot Open Output File ' %s ' \n 

GnlEnvOutput ( ) ) ; 
return ( GNL_CANNOT_OPEN_OUTF I LE ) ; 

} 

fclose (OutFile) ; 

} 

if ((OutFile = fopen (GnlEnvLib ( ) , "r" )) == NULL) 

{ 

fprintf (stderr, " ERROR: Cannot Open Library File ? %s'\n", 

GnlEnvLib ( ) ) ; 
return (GNL_CANNOT_OPEN_LIBRARY) ; 

} 

fclose (OutFile) ; 

if (GnlEnvInputFormat () GNL_INPUT_VLG) 
{ 

fprintf (stderr, "\n Reading Verilog file [%s] . . . \n" , 

GnlEnvInput ( ) ) ; 
if (GnlRead (GnlEnvInput () , &ListGnls) ) 

{ 

fprintf (stderr, " ERROR: Cannot Open Input File ' %s ' \n" 

GnlEnvInput ( ) ) ; 
return (GNL_CANNOT__OPEN_ INPUT FILE) ; 

} 

fprintf (stderr, " Verilog Netlist Analyzed\n" ) ; 

} 

el se 

/* We read a . FSM format description. * 

{ 

if (BListCreate (&G_ListOf Gnls ) ) 

return (GNL_MEMORY_FULL) ; 
if ( (GnlStatus = GnlFsmRead (GnlEnvInput () , &ListGnls) ) ) 

{ 

fprintf (stderr, " FSM file Analysis Aborted. \n" ) ; 
return (GnlStatus) ; 

} 

GnlUpdateComponentGnlDef (G_ListOf Gnls) ; 

} 

/* Sort and prints the list 'ListGnls' by putting first the top 
/* level modules */ 
SortTopLevelModules (ListGnls) ; 
GnlPrintTopLevels (ListGnls) ; 

if ( IGnlEnvTop () ) 
{ 

Gnll = (GNL) BListElt (ListGnls, 0) ; 
TopGnl = Gnll; 
fprintf (stderr, 

" WARNING: Top Level Module is [%s] by default\n», 

GnlName (TopGnl) ) ; 

} 

else 
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/* Taking the top level module from the user */ 
TopGnl = NULL; 

for (i=0; i<BListSize (ListGnls) ; i++) 

{ 

Gnll = (GNL) BListElt (ListGnls, i) ; 

if (tstrcmp (GnlName (Gnll), GnlEnvTop ( ) ) ) 

{ 

TopGnl = Gnll; 
break; 

} 

} 



if (TopGnl == NULL) 
{ 

fprintf (stderr, " ERROR: cannot find top-level module [%s]\n n , 

GnlEnvTop () ) ; 
return (GNL_CANNOT_FIND_TOP_LEVEL) ; 

} 

/* we create the Global network. */ 
if (GnlCreateNetwork (TopGnl, ^GlobalNetwork) ) 
return (GNL_MEMORY_FULL) ; 

/* Now we traverse the hierarchy in a top-down way and analyze */ 
/* eventually black boxes in their corresponding files. */ 
if (GnlEnvModelDir ( ) GnlEnvModelExt ( ) ) 
{ 

fprintf (stderr, " Analyzing leaf cells ... \n" ) ; 
if (GnlReadBlackBoxCells (GlobalNetwork, TopGnl, ListGnls, 

GnlEnvModelDir ( ) , GnlEnvModelExt ( ) ) ) 
return (GNL_MEMORY_FULL) ; 
fprintf (stderr, " \n") ; 

} 

/* Checking correctness of the network 'GlobalNetwork'. */ 
if ( (GnlStatus = GnlCheckNetwork (GlobalNetwork) ) ) 
return (GnlStatus) ; 

fprintf (stderr, 

"\n Checking Hierachical interfaces from top module [%s]\n" , 
GnlName (TopGnl) ) ; 

/* We verify the correct connection between user components and */ 
/* their definitions and update some fields (RefCount) . */ 
if (GnlUpdateNCheckHierarchylnterf ace (GlobalNetwork, TopGnl , 

ListGnls) ) 

return (GNL_MEMORY_FULL) ; 

/* Does the user invoke printing the hierarchy before flattening ? */ 
if ( (GnlEnvPrintHierarchy () =- GNL_PRINT_BEFORE_FLAT) || 
(GnlEnvPrintHierarchy () == GNL_PRINT BOTH)) 

{ 

fprintf (stderr, "\n Hierarchy before Flattening : \n" ) ; 
fprintf (stderr, " \n") ; 
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GnlPrintHierarchy (stderr, TopGnl , ListGnls) ; 

} 

if (GnlEnvFlattenO != GNL_NO_FLATTEN) 
{ 

fprintf (stderr, 

"\n Performing Flattening of modules in [%s]\n", 
GnlName (TopGnl) ) ; 
if (GnlFlattenFullGnlComponents (GlobalNetwork, TopGnl, ListGnls)) 
return (GNL_MEMORY_FULL) ; 

fprintf (stderr, " Flattening done\n") ; 

/* Checking correctness of the network ' GlobalNetwork 1 . */ 
if ( (GnlStatus = Gn 1 Che ckNet work (GlobalNetwork) ) ) 
return (GnlStatus) ; 

} 

/* Does the user invoke printing the hierarchy after flattening ? */ 
if ( (GnlEnvPrintHierarchy {) == GNL_PRINT_AFTER_FLAT) || 
(GnlEnvPrintHierarchy () == GNL_PRINT_BOTH) ) 

{ 

fprintf (stderr, "\n Hierarchy after Flattening: \n") ; 



fprintf (stderr, " \n") ; 

GnlPrintHierarchy (stderr, TopGnl, ListGnls) ; 

} 

/* Reading and building the technology library */ 
fprintf (stderr, n \n Reading Target Library [%s] ...\n", 

GnlEnvLibO ) ; 
if (LibRead (GnlEnvLib ( ) , &GnlLib) ) 

{ 



fprintf (stderr, " ERROR : Library analysis aborted\n"); 
return (GNLJERROR_LIBRARY_READING) ; 

} 

fprintf (stderr, " Library analyzed\n") ; 

fprintf (stderr, ,? \n Building library elements ... \n\n" ) ; 
if ( (GnlStatus = GnlBuildLib (GnlLib) ) ) 
return (GnlStatus) ; 

/* Setting the Optimization panel values */ 
Force = GnlEnvOpt Force () ; 
Criter = GnlEnvCriterion ( ) ; 
Inject = GnlEnvInject ( ) ; 

if ((GnlStatus = GnlCreateSynthesisPanel (Force, Criter, Inject, 

&Opt Panel) ) ) 

return (GnlStatus) ; 

/* Synthesize the network 'GlobalNetwork' . */ 

HGnlLib = (GNL_LIB) LibHook (GnlLib); 

if (GnlStrCopy (GnlEnvLibO, &LibSourceFileName) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlHLibSourceFileName (HGnlLib, LibSourceFileName) ; 

/* We invoke the synthesis on this design */ 
if (GnlEnvOutput ( ) ) 
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{ 

if ( (OutFile = fopen (GnlEnvOutput ( ) , "w")) == NULL) 
{ 

fprintf (stderr, " ERROR: Cannot Open Output File ^s^n", 

GnlEnvOutput () ) ; 
return (GNL_CANN0TJ3PEN_0UTFILE) ; 

} 

} 



fprintf (stderr, "\n"); 

fprintf (stderr, " Linking Netlist Components With Libc Cells\n"); 
if (GnlLinkLib (GlobalNetwork, TopGnl , GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

/* If the user asked to replace only combinational components ... */ 
if (GnlEnvReplaceOnlyCombiCompo {)) 

{ 

fprintf (stderr, " Replacing only Combinational components ... \n" ) ; 
if (GnlReplaceOnlyCombinatorialComponentsWithLinkLibCells ( 

GlobalNetwork, TopGnl, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

fprintf (stderr, n Replacing all components ... \n" ) ; 

if (GnlReplaceAllComponentsWithLinkLibCells (GlobalNetwork, TopGnl , 

GnlLib) ) 

return (GNL_MEMORY_FULL) ; 

} 

if { (GnlStatus = GnlSynthesizeNetwork (GlobalNetwork, GnlLib, 

OutFile, OptPanel))) 

return (GnlStatus) ; 
fclose (OutFile) ; 

/* We invoke the control fanout algorithm. */ 
if (GnlEnvRespectLibConstraints () ) 

{ 

if (GnlStatus = GnlMeetLibConstraints (GlobalNetwork, GnlLib) ) 
return (GnlStatus) ; 

} 

/* We invoke the post optimisation on the synthesized design */ 
if (GnlEnvPostOpt () ) 
{ 

fprintf (stderr, " Performing Post-Optimization. \n" ) ; 
if (TimeOptByResizing (GlobalNetwork, GnlLib) ) 

return ( GNL_MEMORY__FULL ) ; 
fprintf (stderr, H \n") ; 

#ifdef XXX_MODE 

if ((GnlStatus = GnlPostOptimizeNetwork (GlobalNetwork, HGnlLib) ) ) 

return (GnlStatus) ; 
fprintf (stderr, "\n"); 

#endif 

} 
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if (GnlReportDataAf terSynthesis (GlobalNetwork, GnlLib) ) 
return (GNL_MEMORY__FULL) ; 

if (GnlPrintNetworklnfo (stderr, GlobalNetwork, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

/* Printing the optimized mapped verilog netlist. 
fprintf (stderr, " Printing Verilog Netlist ' %s ' . . . \n\n" , 
GnlEnvOutput ( ) ) ; 

if ( (GnlStatus = GnlPrintVerilogNetwork (GlobalNetwork, HGnlLib, 

GnlEnvOutput () ) ) ) 

return (GnlStatus) ; 

fprintf (stderr, » Synthesis Done ! \n"); 
fprintf (stderr, » \n") ; 



return (GNL_OK) ; 

} 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


gnltrans . c 


Version : 


1.1 


Modifications : 




Documentation : 




Class: none 




Inheritance : 





#include <stdio.h> 

#include "blist.h" 

#include "gnl .h" 

#include "gnlopt .h" 

# include "bbdd.h" 

#include " libc_mem . h" 

#include "libc_api . h" 

#include "gnllibc .h" 

#inc lude " gnl op t ion . h " 

/* 

/* GLOBAL VARIABLE */ 
/* 

extern GNL_ENV G_GnlEnv; 
extern BLIST G_ListOfGnls; 

/* 

/* GnlSynthesizeAndEstimate */ 
/* 

GNL_STATUS GnlTranslate () 

{ 

BLIST ListGnls; 
GNL TopGnl ; 

FILE *OutFile; 
GNL_STATUS GnlStatus ; 



if {GnlEnvOutput () ) 
{ 

if ((OutFile = fopen (GnlEnvOutput () , "w")) == NULL) 
{ 

fprintf (stderr, "# ERROR : Cannot Open Output File ' %s'\n" , 

GnlEnvOutput ( ) ) ; 
return (GNL_CANNOT_OPEN OUTFILE) ; 

} 

fclose (OutFile) ; 

} 

if (GnlEnvInputFormat () != GNL INPUT FSM) 

{ 

fprintf (stderr, »# ERROR: translation is from 'fsm- f ormat\n" ) ; 
return ( GNL_B AD_INPUT_FORMAT ) ; 

} 

else 
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/* We read a . FSM format description. */ 
{ 

if (BListCreate (&G_ListOfGnls) ) 
return ( GNL_MEMORY_FULL ) ; 

if ( (GnlStatus = GnlFsmRead (GnlEnvInput {) , &ListGnls) ) ) 
{ 

fprintf (stderr, "# FSM file Analysis Aborted. \n" ) ; 
return (GnlStatus) ; 

} 

fprintf (stderr, n # FSM file Analyzed\n" ) ; 

} 



TopGnl = (GNL) BListElt (ListGnls, 0) ; 

if ( (OutFile = fopen (GnlEnvOutput { ) , "w")) NULL) 
{ 

fprintf (stderr, "# ERROR: Cannot Open Output File 'Is^n", 

GnlEnvOutput () ) ; 
return (GNL_CANNOT_OPEN_OUTFILE) ; 

} 

GnlPrintGnl (OutFile, TopGnl) ; 
fclose (OutFile) ; 
return (GNL_0K) ; 
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/* */ 

/* */ 

/* File: gnlverif.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* */ 



#include <stdio.h> 



#ifdef MEMORY 
#include <malloc.h> 
#endif 



/* If one wants memory statistics for SUN */ 



#include 
# include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
# include 



"blist.h" 
"gnl.h" 
"gnlmint .h" 
"gnlopt.h" 
"bbdd.h" 
"libc_mem.h" 
"libc_api .h" 
"gnllibc.h" 
"gnlmap .h" 
"gnloption . h" 



#include "blist.e" 
#include "libutil-e" 

/* */ 

/* EXTERN */ 

/* 

extern GNL_ENV G_GnlEnv; 

extern BDD_PTR GetBddPtrFromBdd (); 

extern LIBC_PIN GnlGetPinCellWithName () ; 

extern LIBC__LIB G_GnlLibc; 

extern float GnlGetCapaFromPin () ; 

/* ie/ 

/* Global variables. */ 

/* */ 

#ifdef 0 

/* */ 

/* GnlPutComponentsInHashTable */ 

/* */ 

#define LIST_COMPONENTS_HASH_TABLE_SIZE 1000 

GNL_STATUS GnlPutComponentsInHashTable (Components, 

HashListPredefCompo, 
HashListUserCompo) 

BLIST Components; 

BLIST ^HashListPredefCompo; 

BLIST *HashListUserCompo; 

{ 

int i ; 

BLIST NewList; 
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GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompo ; 
unsigned int Key; 
unsigned int Keyl; 
unsigned int Key2 ; 

char * InstanceName; 

BLIST Bucket; 



if (BListCreateWithSize (LIST_COMPONENTS_HASH_TABLE_SIZE / 

HashListPredef Compo) ) 
return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (LIST_COMPONENTS_HASH_TABLE_SIZE, 

HashListUserCompo) ) 
return ( GNL__MEMORY_FULL ) ; 

for (i = 0; i < LI ST_COMPONENTS_HASH_TABLE_S I Z E ; i++) 
{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (HashListPredef Compo, (int ) NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (HashListUserCompo, (int) NewList) ) 

return (GNL_MEMORY__FULL) ; 



for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) == GNL_USER_COMPO) 
{ 

UserCompo = (GNL_USER_COMPONENT) ComponentI ; 

/* The 'Key' of the component is a function of its name 
/* and instance name */ 
Keyl = KeyOfName (GnlUserComponentName (UserCompo) , 

LI ST_COMPONENTS_HASH_TABLE_S I ZE ) ; 
Key2 = KeyOfName (GnlUserComponentlnstName (UserCompo) , 

LIS T_COMPONENTS_HASH_TABLE_S I ZE ) ; 
Key = (Keyl+Key2) % LIST_COMPONENTS_HASH__TABLE_SIZE; 

Bucket = (BLIST) BListElt (HashListUserCompo, Key) ; 
if (BListAddElt (Bucket, (int ) ComponentI) ) 

return ( GNL_MEMORY_FULL ) ; 
continue; 

} 

/* otherwise it is a predefined component */ 
if (GnlComponentType (ComponentI) == GNLJTRISTATE_COMPO) 

{ 

InstanceName = GnlTriStatelnstName (ComponentI) ; 

} 

if (GnlComponentType (ComponentI) == GNL_SEQUENTIAL_COMPO) 

{ 

InstanceName = GnlUserComponentlnstName (ComponentI) ; 
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} 

Key = KeyOfName (InstanceName, 

LIST_COMPONENTS_HASH_TABLE_SIZE) / 
Bucket = (BLIST) BListElt (HashListPredef Compo , Key) ; 
if (BListAddElt (Bucket; ( int ) Component I ) ) 
return <GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 



/* 

/* GnlVerifNetworkRec * 
/* 

GNL_STATUS GnlVerifNetworkRec (Nwl, Nw2 , Gnll, Gnl2, GnlLibc) 
GNL_NETWORK Nwl ; 
GNL JSTETWORK Nw2 ; 
GNL *Gnll; 
GNL *Gnl2; 
LIBC LIB GnlLibc; 



{ 



int i ; 

GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
GNL GnlCompol; 
GNL OptGnl ; 

BLIST Components; 
int Done ; 

BLIST ListAssoc; 



if (GnlTag (Gnll) == GnlNetworkTag (Nwl)) 
return (GNLJDK) ; 

SetGnlTag (Gnll, GnlNetworkTag (Nwl) ) ; 
SetGnlTag (Gnl2, GnlNetworkTag (Nw2) ) ; 

Component si = Gnl Components (Gnll) ; 
Components2 - GnlComponents (Gnl2) ; 

if (BListCreate (&ListAssoc) ) 
return (GNL_MEMORY_FULL) ; 

if (BListSize (Componentsl) != BListSize (Components2) ) 

{ 

fprintf (stderr, 

"# WARNING: Modules <%s> and <%s> do not have the same number of 
component s\n M , 

GnlName (Gnll) , GnlName (Gnl 2) ) ; 
return (GNL_0K) ; 

} 

if (GnlPutComponentsInHashTable (Componentsl, &Predef CompoHashListl , 

ScUserCompoHashListl) ) 

return (GNL MEMORY FULL) ; 
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/* we scan components of the second netlist and try to find the */ 
/* equivalent components in the first one. */ 
for (i = 0; i<BListSize (Components2 ) ; i++) 

{ 

Found = 0; 

Component2I = (GNL_COMPONENT) BListElt ( Component s 2 , i) ; 
if (GnlComponentType (Component2I) =- GNL_USER_COMPO) 

{ 

/* We look for component of same name and instance name */ 
Component II = GnlLookForSameComponent (UserCompoHashListl) ; 
if (l Component 1 I ) 

{ 

fprintf (stderr, 
"# WARNING: user instance <%s> in module [%s] has no 
corresponding instance in module [%s]\n" / 

GnlUserComponentlnstName ( (GNL_USER_COMPONENT) 

Component2I) , 
GnlName (Gnl2) , GnlName (Gnll) ) ; 
return (GNL_OK) ; 

} 

/* we call the equivalence between the two instances */ 

/* to do ... 

*/ 

continue ; 

} 

/* Case of a predefined component. */ 
Component II = GnlLookForSameComponent (Predef CompoHashListl) ; 

/* we consider that the two components use the same parameters */ 
/* ex: toto ul (a, b) and toto ul (x, y) means that the */ 
/* variables 'a' <-> 'x 1 and 'b' <-> 'y' are tied */ 
if (GnlTiedlnstanceParameters (Component2I , Componentll, 

ListAssoc) ) 

return ( GNL_MEMORY_FULL) ; 

} 

/* We call the real boolean function equivalence between functions */ 



/* of 'Gnll' and 'Gnl2'. Moreover we use the 'ListAssoc' as */ 
/* correspondance between the variables of 'Gnll' and 'Gnl2'. */ 

return (GNL_OK) ; 

} 

/* */ 

/* GnlVerif Networks */ 

/* */ 

/* Main EC verification procedure which verifies that both networks */ 

/* 'Nwl 1 and 'Nw2 ! are equivalent. */ 

/* */ 

GNL STATUS GnlVerif Networks (Nwl, Nw2, GnlLibc) 
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GNL_NETWORK Nwl ; 
GNL_NETWORK Nw2 ; 
LIBC_LIB GnlLibc; 

GNL TopGnl 1 ; 

GNL TopGnl 2; 

GNL_LIB HGnlLib ; 

int MaxTag ; 



HGnlLib = (GNL_LIB) LibHook (GnlLibc) ; 

MaxTag = (GnlNetworkTag (Nwl) > GnlNetworkTag (Nw2) ? 

GnlNetworkTag (Nwl) : GnlNetworkTag (Nw2)); 
SetGnlNetworkTag (Nwl, MaxTag+1) ; 
SetGnlNetworkTag (Nw2, MaxTag+1) ; 



TopGnl 1 = GnlNetworkTopGnl (Nwl) ; 
TopGnl2 = GnlNetworkTopGnl (Nw2) ; 

if (GnlVerifNetworksRec (Nwl, Nw2 , TopGnl 1, TopGnl2, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 



#endif 



/* */ 

/* GnlGetActualVarOf FormalName */ 
/* */ 

/* This procedure returns the Actual signal associated to the formal */ 

/* port of name 'VarName'. */ 

/* ASSUMPTION: the formal port has a char * type and the actual port is */ 

/* GNL_VAR type (not of type GNL_NODE) . */ 

/* */ 

int GnlGetActualVarOf FormalName (Interface, VarName, Actual) 
BLIST Interface; 
char * VarName ; 

GNL VAR * Actual; 



{ 



int i ; 

GNL_ASSOC AssocI; 
char * Forma 1; 



for (i=0; i<BListSize (Interface) ; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Formal = GnlAssocFormalPort (AssocI) ; 

if ( I Formal) 
continue; 

*Actual = GnlAssocActualPort (AssocI) ; 
if ( I strcmp (Formal, VarName)) 
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return (1) ; 

} 

* Actual = NULL; 
return (0) ; 

} 

/* */ 

/* GntGetClkSeqVar */ 
/* */ 

/* Returns the Clock Var associated to Clock pin of the cell. */ 

/* */ 

GNL_VAR GntGetClkSeqVar (UserCompo, Cell, Interface, Clock, Name) 

GNL_US ER_COMPONENT UserCompo ; 

LIBC_CELL Cell; 

BLIST Interface; 

LIBC_BOOL_OPR *Clock ; 

char **Name; 

{ 

LIBC_PIN Pins; 

LIB C_NAME_L 1ST ListPinName ; 

GNL_VAR Var; 

LIBC FF LATCH FFLatch; 



FFLatch = LibCellFFLatch (Cell); 

if (LibFFLatchlsFF (FFLatch) ) 

*Clock = LibFFLatchClockOn (FFLatch); 
else 

*Clock = LibFFLatchEnable (FFLatch) ; 
*Name = NULL; 

Pins = LibCellPins (Cell) ; 

for (;Pins 1= NULL; Pins = LibPinNext (Pins ) ) 

{ 

ListPinName = LibPinName (Pins) ; /* we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName) , *Clock) ) 

{ 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! (*Name) ) 
{ 

fprintf (stderr, 

" ERROR: cannot find clock pin in <%s>\n" , 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

if ( !GnlGetActualVarOf FormalName (Interface, *Name, &Var) ) 

{ 

fprintf (stderr, 

" ERROR: cannot find actual parameter associated to clock pin <%s> in 
<%s>\n", 
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*Name / GnlUserComponentlnstName (UserCompo) ) ; 

exit (l) ; 

} 

return (Var) ; 

} 

z* v 

/* GntGetRstSeqVar */ 

/. J t 



/* Returns the Reset Var associated to Clear pin of the cell */ 

GNL_VAR GntGetRstSeqVar (UserCompo, Cell, Interface, Clear, Name) 
GNL_US ER_COMPONENT Use rCompo ; 
LIBC_CELL Cell; 
BLIST Interface; 
LIBC_BOOL_OPR *Clear; 
char **Name; 

{ 

LIBC_PIN Pins; 
LIBC_NAME_LIST ListPinName; 
GNLJVAR Var; 
LI BC_FF_LATCH FFLatch ; 



FFLatch = LibCellFFLatch (Cell) ; 

*Clear = LibFFLatchClear (FFLatch) ; 

if ( I (*Clear) ) 
return (NULL) ; 

*Name = NULL; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
{ 

ListPinName = LibPinName (Pins); /* we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName), *Clear) ) 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! (*Name) ) 

{ 

fprintf (stderr, 

" ERROR: cannot find Clear pin in <%s>\n", 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (l); 

} 

if ( ! GnlGetActualVarOf FormalName (Interface, *Name, &Var) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Clear pin <%s> in 
<%s>\n" , 
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*Name, GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

return (Var) ; 

} 

/. v 



/* GntGetSetSeqVar */ 

/* j f 

/* Returns the Set Var associated to Preset pin of the cell. */ 
/* ^ i 

GNL_VAR GntGetSetSeqVar (UserCompo, Cell, Interface, Preset, Name) 
GNL_USER_COMPONENT UserCompo ; 
LIBC_CELL Cell; 
BLIST Interface; 
LIBC_BOOL_OPR *Preset ; 
char **Name; 

{ 

LIBC_PIN Pins; 
LIBC_NAME_LIST ListPinName; 
GNL_VAR Var; 
LIBC_FF_LATCH FFLatch; 



FFLatch = LibCellFFLatch (Cell) ; 

*Preset = LibFFLatchPreset (FFLatch) ; 

if ( ! (*Preset) ) 
return (NULL) ; 

*Name = NULL; 

Pins = LibCellPins (Cell) ; 

for (;Pins 1= NULL; Pins = LibPinNext (Pins) ) 
{ 

ListPinName = LibPinName (Pins); /* we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName), *Preset) ) 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! (*Name) ) 

{ 

fprintf (stderr, 

" ERROR: cannot find Preset pin in <%s>\n n , 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

if ( IGnlGetActualVarOfFormalName (Interface, *Name, &Var) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Preset pin <%s> in 
<%s>\n" , 
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*Name, GnlUserComponentlnstName (UserCompo) ) ; 

exit (1); 

} 

return (Var) ; 

} 

/* */ 

/* GntGet Input SeqVar */ 
/* */ 

/* Returns the Input Var associated to Preset pin of the cell. */ 
/* */ 

GNL__VAR GntGet InputSeqVar (UserCompo, Cell, Interface, Input, Name) 
GNL_USER_COMPONENT Use r Compo ; 
LIBC_CELL Cell; 
BLIST Interface; 
LIBC_BOOL_OPR * Input ; 
char **Name; 

{ 

LIBCJPIN Pins; 

LIB C_NAME_L 1ST ListPinName; 

GNL_VAR Var; 

LIBC FF LATCH FFLatch; 



FFLatch s LibCellFFLatch (Cell) ; 

if (LibFFLatchlsFF (FFLatch)) 

*Input = LibFFLatchNextState (FFLatch) ; 
else 

* Input = LibFFLatchDataln (FFLatch) ; 
*Name = NULL; 

Pins « LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins ) ) 

{ 

ListPinName = LibPinName (Pins); / * we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName) , * input) ) 

{ 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! {*Name) ) 
{ 

fprintf (stderr, 

" ERROR: cannot find Input pin in <%s>\n", 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

if ( !GnlGet Actual VarOf FormalName (Interface, *Name, &Var) ) 

{ 

fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Input pin <%s> in 
<%s>\n H , 
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*Name / GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

return (Var) ; 

} 



/* */ 

/* GntGetCellOutputQSeqVar */ 
/* */ 

/* Returns the output Var Q associated to output pin Q of the sequential*/ 
/* cell. */ 

/* */ 

GNL_VAR GntGetCellOutputQSeqVar (UserCompo, Cell, Interface, Name) 

GNL_USER_COMPONENT UserCompo ; 

LIBC_CELL Cell; 

BLIST Interface ; 

char * *Name ; 

{ 

LIBC_PIN Pins; 
LIBC_PIN OutputPin ; 

LIBC_BOOL_OPR PinFunction; 
GNL_NODE Node / 

char *PinName; 
GNL_VAR OutVar; 
GNL_FUNCTION NewFunction; 
LIB C_N AME_L 1ST ListPinName; 
char *IQ; 



IQ - LibFFLatchQName (LibCellFFLatch (Cell) ) ; 
Pins = LibCellPins (Cell) ; 
*Name = NULL; 

for (;Pins 1= NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins) ; 

/* 'PinName' can be a bundle a bus or a pin group */ 
if ( IGnlSinglePinName (ListPinName)) 

{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex output pin name\n" / 
LibCellName (Cell) ) ; 

exit (1); 

} 

PinName = LibNameListName (ListPinName) ; 
PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

if (GnlNamelsPresent (IQ, PinFunction)) 

{ 

*Name = PinName; 
break; 
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if ( 1 (*Name) ) 

return (NULL) ; 

if ( J GnlGetActualVarOf FormalName (Interface, *Name, &OutVar) ) 
fprintf (stderr, 

" WARNING: cannot find output pin <%s> in Cell <%s>: Port is open.\n", 
*Name , 

LibCellName (Cell) ) ; 
return (NULL) ; 

} 

return (OutVar) ; 

} 

z* 

/* GntGetCellOutputQBarSeqVar */ 

/* 1 

l ^ 

/* Returns the output Var Q Bar associated to output pin Q Bar of the */ 
/* sequential cell. */ 
/* 1 

GNL_VAR GntGetCellOutputQBarSeqVar (UserCompo, Cell, Interface, Name) 
GNL_USER_COMPONENT UserCompo ; 

LIBC_CELL Cell; 

BLIST Interface; 

char **Name; 

{ 

LIBC_PIN Pi ns; 
LIBC_PIN OutputPin; 
LIBC_BOOL_OPR PinFunction; 
GNL_N0DE Node ; 

char *PinName; 
GNL_VAR OutVar; 
GNL_FUNCTION NewFunction; 
LIBC_NAME_LIST ListPinName ; 

char *IQN; 



IQN = LibFFLatchQNName (LibCellFFLatch (Cell) ) ; 
Pins = LibCellPins (Cell) • 
*Name = NULL; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 
ListPinName = LibPinName (Pins) ; 

/* 'PinName' can be a bundle a bus or a pin group */ 
if ( IGnlSinglePinName (ListPinName) ) 
{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex output pin name\n'\ 
LibCellName (Cell) ) ; 
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exit (1) ; 

} 

PinName = LibNameListName (ListPinName) ; 
PinFunction = LibPinFunction (Pins) ; 
if (PinFunction) 

{ 

if (GnlNamelsPresent (IQN, PinFunction)) 
{ 

*Name = PinName; 
break; 

} 

} 

} 

if ( 1 (*Name) ) 

return (NULL) ; 

if ( IGnlGetActualVarOfFormalName (Interface, *Name, &OutVar) ) 
fprintf (stderr, 

» WARNING: cannot find output pin <%s> in Cell <%s>: Port is open.\n», 
*Name, 

LibCellName (Cell) ) ; 
return (NULL) ; 

} 

return (OutVar) ; 

} 



/* 

z 

/* GntGetCellOutputVar 

/* ' 

f ^ 

/* Returns the output Var associated to output pin of the cell. We */ 
/* pick up the first pin if several output pins. */ 

GNL_VAR GntGetCellOutputVar (UserCompo, Cell, Interface, PinName)" *' 
GNL_USER_COMPONENT UserCompo ; 

LIBC_CELL Cell; 

BLIST Interface; 

char **PinName; 

{ 

LIBC_PIN Pins ; 

LIBC_PIN Output Pin; 

L I BC_B0OL_OPR Func t i on ; 

GNL_NODE Node ; 

GNL_VAR OutVar; 

GNL_FUNCTION NewFunction; 

LIBC_NAME_LIST ListPinName ; 



Pins = LibCellPins (Cell) ; 

/* we extract the first output Pin. If no output pin then we return */ 
GnlGetOutputPinFromPins (Pins, &OutputPin) ; 
if (lOutputPin) 
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} 



fprintf (stderr, » WARMING : Cell <%s> has no output pin\n", 
LibCellName (Cell) ) ; 

return (GNL_OK) / 

} 

ListPinName = LibPinName (OutputPin) ; 

/* Since 'PinName* can be a bundle a bus or a pin group we need to */ 
if ( IGnlSinglePinName (ListPinName) ) 

{ 

fprintf (stderr, 

u WARNING: Cell <%s> has a complex output pin name\n", 
LibCellName (Cell) ) ; 

exit (1) ; 

} 

*PinName = LibNameListName (ListPinName) ; 

if OGnlGetActualVarOfFormalName (Interface, *PinName, &OutVar) ) 

fprintf (stderr, 

" ERROR: cannot find output pin <%s> in Cell <%s>\n", 
* PinName, 

LibCellName (Cell) ) ; 

exit (1) ; 

} 

return (OutVar) ; 



/* 

/ ^ 

/* GnlModifyComponentlntoSeqComponent */ 

/* / 

1 _ */ 

/* This procedure destroys the GNL__USER_COMPONENT 'UserCompo' and */ 

/* replaces it by a GNL_SEQUENTIAL_COMPONENT representing the same */ 

/* interface thru 'SeqCompo'. */ 



/* 

GNL_STATUS GnlModifyComponentlntoSeqComponent (Gnl, UserCompo, GnlLib, 

ReplaceCombi , SeqCompo) 

GNL Gnl ; 
GNL_USER_COMPONENT UserCompo ; 

LIBC^LIB GnlLib; 
int ReplaceCombi; 
^ GNL_S EQUENT I AL_COMPONENT * SeqCompo ; 

BLIST UserCompoInterf ace ; 

GNL_VAR OutVar ; 

GNL_VAR OutVarBar ; 

GNL_VAR ClkVar; 

GNL_VAR RstVar 

GNL_VAR SetVar 

GNL_VAR Input Var; 
LIBC_CELL cell; 
char *NewName; 
LIBC_FF_LATCH FFLatch; 



7 
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char * FormalNameOut Q ; 

char *FormalNameOutQBar; 

cha r * Fo rma INameC 1 kVar ; 

char *FormalNameRstVar; 

char * Fo rma 1 Name S e t Va r ; 

char *FormalNameInputVar; 

GNL_ASSOC Assoc ; 
GNL_SEQUENTIAL_COMPO_INFO NewSeqCompoInf o ; 

LIBC_BOOL_OPR InputOpr ; 

LIBC_BOOL_OPR ClockOpr ; 

LIBC_B00L_0PR ResetOpr ; 

LIBC_BOOL_OPR SetOpr ; 



UserCompoInterf ace = GnlUserComponentlnterf ace (UserCompo) ; 
Cell = (LIBCJCELL)GnlUserComponentCellDef (UserCompo); 

OutVar = GntGetCellOutputQSeqVar (UserCompo, Cell, UserCompoInterf ace, 

&FormalNameOutQ) ; 
OutVarBar = GntGetCellOutputQBarSeqVar (UserCompo, Cell, 

UserCompoInterf ace , 
&FormalNameOutQBar) ; 
ClkVar = GntGetClkSeqVar (UserCompo, Cell, UserCompoInterf ace, 

ScClockOpr, &FormalNameClkVar) ; 
RstVar = GntGetRstSeqVar (UserCompo, Cell, UserCompoInterf ace, 

&ResetOpr, &FormalNameRstVar) ; 
SetVar = GntGetSetSeqVar (UserCompo, Cell, UserCompoInterf ace , 

&SetOpr, &FormalNameSetVar) ; 
InputVar = GntGet Input SeqVar (UserCompo, Cell, UserCompoInterf ace, 

ScInputOpr, &FormalName InputVar) ; 

FFLatch = LibCellFFLatch (Cell) ; 

/* Is it a DFF or a LATCH ? */ 
if (LibFFLatchlsFF (FFLatch) ) 

{ 

if (GnlCreateSequentialComponent (GNL_DFF, SeqCompo) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (GnlCreateSequentialComponent (GNL_LATCH, SeqCompo) ) 
return ( GNL_MEMORY FULL ) ; 

} 

SetGnlSequentialCompoInput (*SeqCompo, InputVar) ; 
Assoc = GnlSequentialCompoInputAssoc (*SeqCompo) ; 
SetGnlAssocFormalPort (Assoc, Forma lName InputVar) ; 

if (OutVar) 

{ 

SetGnlSequentialCompoOutput (*SeqCompo, OutVar) ; 
Assoc = GnlSequentialCompoOutputAssoc (*SeqCompo) ; 
SetGnlAssocFormalPort (Assoc, FormalNameOut Q) ; 

} 

if (OutVarBar) 
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{ 

SetGnlSequentialCompoOutputBar ( *SeqCompo , OutVarBar ) ; 
Assoc = GnlSequentialCompoOutputBarAssoc (*SeqCompo) ; 
^SetGnlAssocFormalPort (Assoc, Forma INameOutQBar) ; 

SetGnlSequentialCompoClock(*SeqCompo, ClkVar) ; 
Assoc = GnlSequentialCompoClockAssoc (*SeqCompo) ; 
SetGnlAssocFormalPort (Assoc, Forma iNameClkVar) ; 
if (GnlBoolOprlsSimpleSignal (ClockOpr) ) 

SetGnlSequentialCompoClockPol (*SeqCompo, 1) ; 
else 

SetGnlSequentialCompoClockPol (*SeqCompo, 0) ; 

SetGnlSequentialCompoReset (*SeqCompo, RstVar) ; 
Assoc = GnlSequentialCompoResetAssoc (*SeqCompo) ; 
SetGnlAssocFormalPort (Assoc, FormalNameRstVar) ; 
if (GnlBoolOprlsSimpleSignal (ResetOpr) ) 

SetGnlSequentialCompoResetPol (*SeqCompo, 1) ; 
else 

SetGnlSequentialCompoResetPol (*SeqCompo, 0) ; 

SetGnlSequentialCompoSet (*SeqCompo, SetVar) ; 
Assoc = GnlSequentialCompoSetAssoc (*SeqCompo) ; 
SetGnlAssocFormalPort (Assoc, FormalNameSetVar) ; 
if (GnlBoolOprlsSimpleSignal (SetOpr) ) 

SetGnlSequentialCompoSetPol (*SeqCompo, 1) ; 
else 

SetGnlSequentialCompoSetPol (*SeqCompo, 0) ; 

if (GnlStrCopy { GnlUs er Component Ins tName (UserCompo) , &NewName) ) 
return ( GNL_MEMOR Y_FULL ) ; 

SetGnlSequentialCompoIns tName (*SeqCompo, NewName) / 
if ( !ReplaceCombi) 

{. 

if (GnlCreateSequentialCompoInfo (&NewSeqCompoInf o) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlSequentialCompoHook (*SeqCompo, NewSeqCompoInf o) ; 
SetGnlSeqCompoInfoCell (*SeqCompo, Cell) ; 

SetGnlSeqCompoInfoOutput (*SeqCompo, FormalNameOutQ) ; 
SetGnlSeqCompoInf oOutputBar (*SeqCompo, FormalNameOutQBar) ; 

SetGnlSeqCompoInfoInput (*SeqCompo, InputOpr) ; 
SetGnlSeqCompoInfoClock(*SeqCompo, ClockOpr) / 
SetGnlSeqCompoInf oReset (*SeqCompo, ResetOpr) ; 
SetGnlSeqCompoInf oSet (*SeqCompo, SetOpr) ; 

GnlFreeUserComponent (UserCompo) ; 
return (GNL_0K) ; 
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/* GnlGetlnputTristateVar */ 
/* Returns the Input Var associated to Input pin of the cell. */ 

/* v 

GNL_VAR GnlGetlnputTristateVar (UserCompo, Cell, Interface, Function, 

Name) 

GNL_USER_COMPONENT UserCompo ; 
LIBC_CELL Cell; 
BLIST Interface; 
LIBC_BOOL_OPR * Function; 
char **Name; 

{ 

LIBC_PIN Pins; 
LIB C_NAME_L 1ST ListPinName; 
GNL_VAR Var; 
LIBC_PIN OutPin; 



if ( !LibCellWith3StatePin (Cell, &OutPin) ) 
{ 

fprintf (stderr, 

" ERROR: cannot find output pin of tri-state <%s>\n" # 
LibCellName (Cell) ) ; 

exit (i); 

} 

* Function = LibPinFunction (OutPin) ; 
*Name = NULL; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

{ 

ListPinName = LibPinName (Pins); /* we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName), *Function) ) 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! (*Name) ) 
{ 

fprintf (stderr, 

" ERROR: cannot find Input pin in tri-state <%s>\n", 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1); 

} 

if ( IGnlGetActualVarOfFormalName (Interface, *Name, &Var) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Input pin <%s> in 
<%s>\n" , 

*Name, GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 
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return (Var) ; 

} 

/* ^ 

/* GnlGetEnableTristateVar * 
/* 

/* Returns the Enable Var associated to Enable pin of the cell. * 
/* A 

GNL_VAR GnlGetEnableTristateVar (UserCompo, Cell, Interface, ThreeState, 

Name) 

GNL_USER_COMPONENT UserCompo ; 
LIBC_CELL Cell; 
BLIST Interface; 
LIBC_BOOL_OPR *ThreeState ; 
char **Name ; 

{ 

LIBC_PIN Pi ns/ 
LIBCJSTAME_LIST ListPinName; 
GNL_VAR Var ; 

LIBC_PIN OutPin; 



if (ILibCellWithSStatePin (Cell, &OutPin) ) 

fprintf (stderr, 

" ERROR : cannot find output pin of tri-state <%s>\n M / 
LibCellName (Cell) ) ; 

exit (1) ; 

} 

*ThreeState = LibPin3State (OutPin) ; 
*Name = NULL; 

Pins = LibCellPins (Cell) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins) ) 

ListPinName = LibPinName (Pins); /* we know it is a simple name */ 
if (GnlNamelsPresent (LibNameListName (ListPinName) , *ThreeState) ) 

*Name = LibNameListName (ListPinName) ; 
break; 

} 

} 

if ( ! (*Name) ) 

{ 

fprintf (stderr, 

" ERROR: cannot find Enable pin in tri-state <%s>\n" , 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1) ; 

} 

if { JGnlGetActualVarOfFormalName (Interface, *Name, &Var) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Enable pin <%s> in 
<%s>\n" , 
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*Name, Gn lUs e r Component Ins tName (UserCompo) ) ; 

exit (1) ; 

} 

return (Var) ; 

} 

/* v 

/* GnlModifyComponentlntoTristateComponent */ 

/* — ; */ 

/* This procedure destroys the GNL_USER_C0MP0NENT 'UserCompo' and */ 
/* replaces it by a GNLJTRISTATE_COMPONENT representing the same */ 
/* interface thru 1 TristateCompo 1 . */ 
/* 1 , 

GNL_STATUS GnlModif yComponent IntoTristateComponent (Gnl, UserCompo, 

GnlLib, ReplaceCombi , TristateCompo) 

GNL Gnl; 
GNL_US ER_C0MP0NENT Use r Compo ; 

LIBC_LIB GnlLib; 
i nt ReplaceCombi; 
GNL_TRISTATE_COMPONENT *TristateCompo; 

BLIST UserCompoInterf ace ; 

char *NewName ; 

LIBC_CELL Cell; 

GNL__VAR OutVar; 

GNL_VAR Input Var; 

GNL_VAR EnableVar ; 

char *FormalNameOutVar; 

char *FormalNameInputVar ; 

ciiar *FormalNameEnableVar ; 

GNL_ASS0C ASSOC; 

GNL_TRISTATE_COMPO_INFO NewTriSt ateCompoInf o ; 

LIBC_BOOL_OPR InputOpr ; 

LIB C_BOOL_0 PR Enab 1 eOp r ; 



UserCompoInterf ace = GnlUserComponentlnterf ace (UserCompo) ; 
Cell = (LIBC_CELL)GnlUserComponentCellDef (UserCompo); 

if (GnlCreateTristateComponent (TristateCompo) ) 
return (GNL_MEMORY_FULL) ; 

if (BListSize (UserCompoInterf ace) != 3) 

fprintf (stderr, 

ERROR: Tri-state <%s> has a wrong number of parameters\n" , 
GnlUserComponentlnstName (UserCompo) ) ; 

exit (1); 

} 

OutVar = GntGetCellOutputVar (UserCompo, Cell, UserCompoInterf ace, 

5cFormalName0utVar) ; 
InputVar = GnlGetlnputTristateVar (UserCompo, Cell, 

UserCompoInterf ace, fclnputOpr, 

ScFormalNamelnputVar) ; 
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EnableVar = GnlGetEnableTristateVar (UserCompo, Cell, 

UserCompoTnterf ace , &EnableOpr , 
ScFormalNameEnableVar) ; 



SetGnlTriStatelnput ( *TristateCompo ; InputVar) ; 
Assoc * GnlTriStatelnputAssoc (*TristateCompo) ; 
SetGnlAssocFormalPort (Assoc, Forma iName InputVar) ; 
if (GnlBoolOprlsSimpleSignal (InputOpr) ) 

SetGnlTriStatelnputPol ( *TristateCompo, 1) ; 
else 

SetGnlTriStatelnputPol (*TristateCompo, 0) ; 

SetGnlTriStateOutput (*TristateCompo, OutVar) ; 
Assoc = GnlTriStateOutputAssoc ( *TristateCompo) ; 
SetGnlAssocFormalPort (Assoc, Forma iNameOutVar) ; 

SetGnlTriStateSelect (*TristateCompo, EnableVar); 
Assoc = GnlTriStateSelectAssoc (*TristateCompo) ; 
SetGnlAssocFormalPort (Assoc, Forma IName EnableVar) ; 
if (GnlBoolOprlsSimpleSignal (EnableOpr) ) 

SetGnlTriStateSelectPol (*TristateCompo, 1) ; 
else 

SetGnlTriStateSelectPol (*TristateCompo, 0) ; 

if (GnlStrCopy (GnlUserComponentlnstName (UserCompo) , ScNewName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlTriStatelnstName (*TristateCompo, NewName) ; 

if ( ! ReplaceCombi) 

{ 

if (GnlCreateTriStateCompoInfo ( &Ne wTr is t ate Compo Info) ) 

return ( GNL_MEMORY_FULIi ) ; 
SetGnlTriStateHook (*TristateCompo, NewTriStateCompoInf o) ; 
SetGnlTriStateCompoInfoCell (*TristateCompo, Cell) / 
SetGnlTriStateCompoInfoOutput ( *TristateCompo, FormalNameOutVar) ; 
SetGnlTriStateCompoInfoInput ( *TristateCompo, InputOpr) ; 
SetGnlTriStateCompoInfoEnable ( *TristateCompo, EnableOpr) ; 



GnlFreeUserComponent (UserCompo) ; 
return (GNL_OK) ; 



/* GnlGetGnlNodeFromBoolOprWithlnterface */ 

z* j f 

I* This procedure returns the GNL_N0DE expression thru 'GnlNode' of the */ 

/* original tree expression of type LIBC_BOOL_OPR generated in the LIBC */ 

/* parsing. Indexsignal, buses are not considered and we exit(l). */ 

/* The GNL_N0DE objects are created in the memory segment of ' Gnl ■ . */ 
/* 

GNL_STATUS GnlGetGnlNodeFromBoolOprWithlnterf ace (Gnl, CompoName, 

Interface, BoolOpr, GnlNode) 
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GNL 

char 

BLIST 

LIBC_BOOL_OPR 
GNL_NODE 

text_buf f er 

GNL_STATUS 

GNL_VAR 

GNLJSTODE 

GNL_NODE 

BLIST 



Gnl; 

*CompoName; 
Interface; 

BoolOpr; 
*GnlNode; 

*VarName; 
GnlStatus; 
GnlVar; 
GnlNodeLeft; 
GnlNodeRight ; 
NewList ; 



/* terminal bool opr. */ 
switch (LibBoolOprType (BoolOpr) ) { 

/* terminal case of a signal. */ 

case ID_B: 

VarName = LibBoolOprldName (BoolOpr) ; 

if ( IGnlGetActualVarOfFormalName (Interface, VarName, &GnlVar) ) 
{ 

fprintf (stderr, 

" ERROR: Cannot find signal <%s> in interface of f %s ! \n", 

VarName, CompoName) ; 
exit (1); 

} 

if (GnlCreateNode (Gnl, GNLJVARIABLE , GnlNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*GnlNode, (BLIST) GnlVar) ; 
break; 

case ZERO_B : 

if (GnlCreateNodeVss (Gnl, GnlNode)) 

return (GNL_MEMORY_FULL) ; 
break; 

case ONE_B: 

if (GnlCreateNodeVdd (Gnl, GnlNode)) 

return ( GNL_MEMORY_FULL ) ; 
break; 

/* case of binary Boolean operators */ 
case XOR_B: 
case OR_B: 
case AND_B: 

if (GnlGetGnlNodeFromBoolOprWithlnterf ace (Gnl , CompoName, 

Interface, 

LibBoolOprLef tSon (BoolOpr) , 
&GnlNodeLef t) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlGetGnlNodeFromBoolOprWithlnterf ace (Gnl , CompoName, 

Interface, 

LibBoolOprRightSon (BoolOpr) , 
&GnlNodeRight) ) 

return (GNL_MEMORY_FULL) ; 
if (LibBoolOprType (BoolOpr) == XOR_B) 
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{ 

if (GnlCreateNodeXor (Gnl, GnlNodeLef t , GnlNodeRight, 

GnlNode, 0)) 
return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

} 

if (BListCreateWithSize (2, &NewList) ) 

return ( GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) GnlNodeLef t) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (NewList, (int) GnlNodeRight ) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlCreateNode (Gnl, 

GnlOpFromBoolOprOp (LibBoolOprType (BoolOpr) ) , 

GnlNode) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*GnlNode, NewList) / 
break; 

/* Unary Boolean operators. It son is the right one 
case N0T_B: 

if (GnlGetGnlNodeFromBoolOprWithlnterf ace (Gnl , CompoName, 

Interface, 

LibBoolOprRightSon (BoolOpr) , 
^GnlNodeRight) ) 

return { GNL_MEMORY__FULL ) ; 
if (GnlCreateNodeNot (Gnl, GnlNodeRight, GnlNode)) 

return (GNL_MEMORY_FULL) ; 
breaks- 
default : 

fprintf (stderr, 

"Operator unsupported in ' GnlGetGnlNodeFromBoolOprWithlnterf ace ' » ) 
exit (1); 

} 

return (GNL_0K) ; 

} 



/* 

/* GnlModifyComponentlntoLogicFunction 

/* 

GNL_STATUS GnlModif yComponentlntoLogic Function (Gnl, UserCompo, GnlLib) 
GNL Gnl ; 

GNL_USER_COMPONENT UserCompo ; 

LIBCJLIB GnlLib; 



{ 



int 



i; 



LIBC_CELL Cell; 

LIBCJPIN Pins ; 

BLIST ListOutputPin; 

LIBC_PIN Output Pin ; 

LIBC_BOOL_OPR Function; 

BLIST Interface; 

GNL_NODE Node ; 
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char * PinName; 

GNL_VAR OutVar; 

GNL_FUNCT ION NewFunc t ion ; 

L IBC_NAME_L 1ST ListPinName ; 

char *UserCompoName ; 



Interface = GnlUser Component Inter face (UserCompo) ; 
UserCompoName = GnlUserComponentName (UserCompo) ; 

Cell = (LIBC_CELL)GnlUserComponentCellDef (UserCompo); 
Pins = LibCellPins (Cell) ; 



/* we extract the first output Pin. If no output pin then we return */ 
if (GnlGetListOutputPinFromPins (Pins, &ListOutputPin) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListOutputPin) ; i++) 
{ 

OutputPin = (LIBC_PIN) BListElt (ListOutputPin, i) ; 

if (lOutputPin) 
{ 

fprintf (stderr, » WARNING: Cell <%s> has no output pin\n" , 
LibCellName (Cell)); 

return (GNL__OK) ; 

} 

ListPinName = LibPinName (OutputPin) ; 

/* Since 'PinName ? can be a bundle a bus or a pin group we need to 

*/ 

/* that it is a single bit signal. 

*/ 

/* if there are different names we do not take this cell into 
account*/ 

if ( IGnlSinglePinName (ListPinName) ) 

{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex output pin name\n" , 
LibCellName (Cell) ) ; 

exit (1) ; 

} 

PinName = LibNameListName (ListPinName) ; 
Function = LibPinFunction (OutputPin) ; 

if (GnlGetGnlNodeFromBoolOprWithlnterface (Gnl, UserCompoName, 

Interface, Function, &Node) ) 

return (GNL_MEMORY_FULL) ; 
if ( 'GnlGetActualVarOfFormalName (Interface, PinName, ScOutVar) ) 

fprintf (stderr, 

" ERROR: cannot find output pin <%s> in Cell <%s>\n" , 
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PinName, 

LibCellName (Cell) ) ; 

exit (l) ; 

} 

if (GnlVarFunction (OutVar) ) 



" ERROR: Signal <%s> is a multi-source signal\n" , 
GnlVarName (OutVar) ) ; 



exit (1) ; 

} 

if (GnlFunctionCreate (Gnl, OutVar, NULL, ^NewFunction) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarFunction (OutVar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, Node) ; 

if (BListAddElt (GnlFunctions (Gnl) , (int) OutVar) ) 
return (GNL_MEMORY_FULL) ; 



fprintf (stderr, 



GnlFreeUserComponent (UserCompo) ; 



BListQuickDelete UListOutputPin) ; 



return (GNL_OK) ; 



/* 



*/ 
*/ 
*/ 



/* GnlModifyComponentlntoLogicFunctionForNLDelay 



/* 



GNL_STATUS GnlModif yComponent IntoLogicFunctionForNLDelay (Gnl, UserCompo, 



GnlLib) 



GNL Gnl ; 

GNL_USER_COMPONENT UserCompo ; 

LIBC_LIB GnlLib; 



int 

LIBC_CELL 
LIBC_PIN 
LIBC_PIN 
BLIST 

LIBC_BOOL_OPR 

BLIST 

GNL_NODE 

char 

GNL_VAR 

GNL_FUNCTION 

LIBC_NAME_LIST 

char 

GNL MAP NODE INFO 



*PinName; 
OutVar; 

NewFunction; 
ListPinName; 

*UserCompoName ; 

NewMapNodelnf o ; 



Pins; 

OutputPin; 
List Output Pin; 
Function; 
Interface; 
Node ; 



Cell; 
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Interface = GnlUserComponent Interface (UserCompo) ; 
UserCompoName = GnlUserComponentName (UserCompo) ; 

Cell = (LIBC_CELL)GnlUserComponentCellDef (UserCompo); 
Pins = LibCellPins (Cell) ; 



/* we extract the first output Pin. If no output pin then we return */ 
if (GnlGetListOutputPinFromPins (Pins, &ListOutputPin) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListOutputPin) ; i++) 
{ 

Output P in = (LIBC_PIN) BListElt (ListOutputPin, i) ; 

if (I Output Pin) 

{ 

fprintf (stderr, " WARNING: Cell <%s> has no output pin\n", 
LibCellName (Cell) ) ; 

return (GNL_OK) ; 

} 

ListPinName = LibPinName (OutputPin) ; 

/* Since 'PinName' can be a bundle a bus or a pin group we need to 

*/ 

/* that it is a single bit signal. 

*/ 

/* if there are different names we do not take this cell into 
account*/ 

if ( 'GnlSinglePinName (ListPinName) ) 

{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex output pin name\n", 
LibCellName (Cell) ) ; 

exit (1); 

} 

PinName = LibNameListName (ListPinName) ; 
Function = LibPinFunction (OutputPin) ; 

if (GnlGetGnlNodeFromBoolOprWithlnterface (Gnl, UserCompoName, 

Interface, Function, &Node) ) 

return ( GNL_MEMORY_FULL ) ; 
if { !GnlGetActualVarOfFormalName (Interface, PinName, &OutVar) ) 

fprintf (stderr, 

" ERROR: cannot find output pin <%s> in Cell <%s>\n" , 
PinName , 

LibCellName (Cell)); 

exit (1) ; 

} 

if (GnlVarFunction (OutVar) ) 

{ 
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fprintf (stderr, 

" ERROR: Signal <%s> is a multi-source signal\n M , 
GnlVarName (OutVar) ) ; 

exit (1); 

} 

/* we add extra info on this node for the futur NL delay mapping*/ 
if (GnlMapNodelnfoCreate UNewMapNodelnf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeHook {Node, NewMapNode Inf o) ; 

/* We store the original Compo for this node corresponding to */ 
/* the original combinatonial gate. */ 
SetGnlMapNodelnfoOriginalCompo (Node, UserCompo) ; 



/* toto */ 
/* 



} 



SetGnlMapNodelnfoOriginalCompo (Node, NULL) ; 

if (GnlFunctionCreate (Gnl, OutVar, NULL, &NewFunction) 

return (GNL_MEMORY_FULL) ; 
SetGnlVarFunction (OutVar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, Node) ; 

if (BListAddElt ( Gnl Functions (Gnl ) , (int) OutVar) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

BListQuickDelete (&ListOutputPin) ; 
return (GNL OK) ; 



/* ie/ 

/* GnlModifyGnlComponentsWithCells */ 
/* + / 

/* This procedure replaces the GNL_USER_COMPONENT according to their */ 

/* associated libc cell. They can be replaced by */ 

/* GNL_SEQUENTIAL_COMPONENT if the associated linking cell is a Dff, .. */ 

/* If 'ReplaceCombi ' is 1 then the combinatorial cells are replaced */ 

/* by the Boolean function they represent, otherwise they are not */ 

/* replaced. */ 

/* it/ 

GNL_S TATUS GnlModif yGnlComponentsWithCells (Gnl, GnlLib, ReplaceCombi , 

Ge tEquivDer iveCel 1 s ) 

GNL Gnl ; 

LIBC_LIB GnlLib; 
int ReplaceCombi; 
int GetEquivDeriveCells ; 



{ 



BL I S T Component s ; 

int i ; 

GNL_COMPONENT Component I ; 

GNL__USER_COMPONENT UserCompo I ; 

LIBC_CELL Cell; 

GNL_S EQUENT I AL_COMPONENT SeqCompol ; 
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LIBC_PIN 

GNL_TRI STATE^COMPONENT 
GNL TR I STATE COMPO INFO 



GNL_VAR 

GNLJSTODE 

GNL_NODE 

GNL_VAR 

GNL_FUNCTION 

LIB_CELL 

BLIST 

BDD 

BDD_PTR 

L I B_DER I VE_CELL 
int 



Out Pin; 

TristateCompol ; 
NewTriStateCompoInfo; 



OutVarBar; 
NewNode ; 
NodeNot ; 
NewVar; 

NewFunction; 
MotherCell; 
ListDeriveCells ; 

Bdd; 
BddPtr; 

FirstDeriveCell ; 

ReplaceBuf f er; 



Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI - (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompol ^ (GNL__USER_COMPONENT) ComponentI ; 

/* There is a Gnl associated so it is not linked to a cell */ 
if (GnlUserComponentGnlDef (UserCompol) ) 
continue; 

/* If no linked libc cell then is it a black box */ 
if ( iGnlUserComponentCellDef (UserCompol) ) 
continue; 

Cell = (LIBC_CELL)GnlUserComponentCellDef (UserCompol); 
if (LibCellDontUse (Cell)) 
{ 

fprintf (stderr, 

" WARNING: Netlist using DONT USE cell [%s]\n ,f , 
^ LibCellName (Cell) ) ; 

/* Case where the component is linked to a sequential cell */ 
if (LibCellFFLatch (Cell) ) 
{ 

if (GnlModifyComponentlntoSeqComponent (Gnl, UserCompol, 

GnlLib , ReplaceCombi , &SeqCompoI ) 

return (GNL_MEMORY__FULL) ; 
BListElt (Components, i) = (int) SeqCompoI; 

if (ReplaceCombi) 

{ 

if ( IGnlSequentialCompoOutput (SeqCompoI)) 

OutVarBar = GnlSequentialCompoOutputBar (SeqCompoI) ; 
if (GnlCreateUniqueVar (Gnl, 

GnlVarName (OutVarBar) , &NewVar) ) 
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return (GNL__MEMORY_FULL) ; 

if (GnlCreateNodeForVar (Gnl, NewVar, &NewNode) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlCreateNodeNot (Gnl, NewNode, &NodeNot) ) 
return (GNL_MEMORY_FULL) / 

if (GnlFunctionCreate (Gnl, OutVarBar, NULL, 

&NewFunction) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlVarFunction (OutVarBar) ) 
{ 

fprintf (stderr, 
" ERROR: Signal <%s> is a multi-source signal\n", 
GnlVarName (OutVarBar) } ; 

exit (1) ; 

} 

SetGnlVarFunction (OutVarBar, NewFunction) ; 
SetGnlFunctionOnSet (NewFunction, NodeNot) ; 

SetGnlSequentialCompoOutput (SeqCompol, NewVar) ; 
SetGnlVarDir (NewVar, GNL_VAR_LOCAL_WIRING) ; 

SetGnlSequentialCompoOutputBar (SeqCompol, NULL) ; 

if (BListAddElt (GnlFunct ions (Gnl) , (int) OutVarBar ) ) 
return (GNL MEMORY FULL) ; 

} 



} 

continue; 

} 

/* Case where the component is linked to a 3 states * 
if (LibCellWith3StatePin (Cell, &OutPin) ) 
{ 

if ( !Gnl3StateCellCanBeSupported (Cell) ) 

fprintf (stderr, 
" ERROR: the libc cell [%s] cannot be processed by %s\n n , 
LibCellName(Cell) , GNL_TOOL_NAME ) ; 

exit (l) ; 

} 

if (GnlModifyComponentlntoTristateComponent (Gnl, UserCompol , 

GnlLib, Rep lace Comb i , &TristateCompoI) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (Components, i) = (int ) TristateCompol ; 

continue; 

} 

/* The user asked to remove the original buffers. */ 
ReplaceBuf f er = 0; 
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if (GnlEnvRemoveBuf f er ()) 

{ 

if (GnlCelllsBuffer (Cell)) 
{ 

ReplaceBuf f er = 1; 

fprintf (stderr, 

" WARNING: Removing original buffer 1 %s ' '%s'\n", 
GnlUserComponentName (UserCompol) , 
GnlUserComponentlnstName (UserCompol) ) ; 

} 

/* Otherwise it is a combinatorial Cell */ 

/* We do not replace combinatorial components if we say so */ 
if ( IReplaceCombi && 'ReplaceBuf fer) 
continue; 

i f ( Ge t EquivDeriveCel 1 s ) 

{ 

/* We extract the list of derive equivalent cells of the */ 
/* 'cell'. */ 
MotherCell = (LIB__CELL) LibCellHook (Cell); 
ListDeriveCells = LibHCellDeriveCells (MotherCell) ; 

if (Lis tDer iveCel 1 s ) 
{ 

FirstDeriveCell = (LIB_DERIVE_CELL) BListElt (ListDeriveCells, 

0) ; 

Bdd = LibDeriveCellBdd (FirstDeriveCell) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 
^SetGnlUserComponentEquivCells (UserCompol, ListDeriveCells) ; 

/* We replace the combinatorial Cell by its boolean function. */ 
if (GnlModif yComponentlntoLogic Function (Gnl , UserCompol , 

GnlLib) ) 

return (GNL_MEMORY_FULL) ; 

/* we remove the User component corresponding to the cell */ 
/* because we replaced it by a Function GNL_N0DE */ 
BListDellnsert (Components, i+l) ; 
i-- ; 

} 



return (GNL_OK) ; 

} 

/* it/ 

/* GnlModifyGnlComponentsWithCombinatorialCells */ 
/* +i 

/* This procedure replaces the GNL_USER_COMP0NENT according to their */ 
/* associated libc cell. Only combinatorial elements will be replaced. */ 
/* if/ 
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GNL_STATUS GnlModif yGnlComponentsWithCombinatorialCells (Gnl, GnlLib) 
GNL Gnl ; 

LIBC LIB GnlLib; 



{ 



BLIST Components; 

int i ; 

GNL_C0MPONENT Component I ; 

GNL_USER_C0MPONENT UserCompol ; 

LIBC_CELL Cell; 

GNL_SEQUENTIAL_COMPONENT SeqCompol ; 

LIBC_PIN OutPin; 

GNL__TRISTATE_COMPONENT Tris tateCompol ; 

GNL_TR I STATE_COMPO_INFO NewTriStateCompoInf o ; 

GNL__VAR OutVarBar ; 

GNL_NODE NewNode ; 

GNL_NODE NodeNot; 

GNL_VAR NewVar; 

GNL_FUlsrCT ION NewFunc t i on ; 

LIB_CELL MotherCell ; 

BLIST ListDeriveCells ; 

BDD Bdd; 

BDD_PTR BddPtr; 

LIB_DERIVE_CELL FirstDeriveCell ; 



Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMP0) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 

/* There is a Gnl associated so it is not linked to a cell 
if (GnlUserComponentGnlDef (UserCompol) ) 
continue; 

/* If no linked libc cell then is it a black box 
if ( IGnlUserComponentCellDef (UserCompol) ) 
continue; 

Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompol); 
if (LibCellDontUse (Cell)) 
{ 

fprintf (stderr, 

" WARNING: Netlist using DONT USE cell [%s] \n" 
LibCellName (Cell) ) ; 

} 

/* Case where the component is linked to a sequential cell 
if (LibCellFFLatch (Cell)) 
continue; 

/* Case where the component is linked to a 3 states 
if (LibCellWith3StatePin (Cell, &OutPin) ) 
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continue ; 

/* Case where the component is linked to a buffer. */ 
if (GnlCelllsBuffer (Cell)) 
continue; 

/* Otherwise it is a combinatorial Cell */ 

/* We extract the list of derive equivalent cells of the 'cell'.*/ 
MotherCell = (LIB_CELL) LibCellHook (Cell); 
ListDeriveCells = LibHCellDeriveCells (MotherCell) ; 

if (ListDeriveCells) 
{ 

FirstDeriveCell = (LIB_DERIVE_CELL) BListElt (ListDeriveCells, 

0) ; 

Bdd = LibDeriveCellBdd (FirstDeriveCell) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 

} 

SetGnlUserComponentEquivCells (UserCompoI, ListDeriveCells) ; 

/* We replace the combinatorial Cell by its boolean function. */ 
if (GnlModifyComponentlntoLogicFunction (Gnl , UserCompoI, 

GnlLib) ) 

return ( GNL_MEMORY_FULL ) ; 

/* we remove the User component corresponding to the cell */ 
/* because we replaced it by a Function GNL_NODE */ 
BListDellnsert (Components, i+l) ; 
i--; 

} 



return (GNL_OK) ; 

} 

/* */ 

/* GnlReplaceUserCompoByBuf f erForNLDelayMapping * / 
/* 

/* This procedure replaces a user component by a function node of the */ 
/* form: y = x; where ! x f is the input of the buffer, 'y' its output. */ 
/* Moreover, the node representing 'x' pointed by ! y' has a reference to*/ 
/* the original buffer (thru field ' GnlMapNodelnf oOriginalCell (node) ' ) */ 
/* */ 

GNL_STATUS GnlReplaceUserCompoByBuf f erForNLDelayMapping (Gnl , UserCompo , 

Cell) 

GNL Gnl ; 

GNL JJSER_COMPONENT UserCompo ; 

LIBC_CELL Cell; 

{ 

BLIST Interface; 

char *UserCompoName ; 

int i; 

LIBC_PIN Pinln; 

LIBC_PIN PinOut; 

LIBC PIN Pins; 
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LIB C_NAME__L 1ST Lis tPinName ; 
char *PinInName; 
char *PinOutName ; 

GNL_VAR Input ; 

GNL_VAR Output ; 

GNL_FUNCTION NewFunction; 
GNL_NODE NewNode ; 

GNL _MAP_NODE_INFO NewMapNode Inf o ; 



Interface = GnlUserComponentlnterf ace (UserCompo) ; 
UserCompoName = GnlUserComponentName (UserCompo) ; 

i = 0; 

Pinln = PinOut = NULL; 
Pins = LibCellPins (Cell) ; 

for (;Pins 1= NULL; Pins = LibPinNext (Pins) ) 
{ 

if (LibPinDirection (Pins) == 0UTPUT_E) 

PinOut = Pins; 
if (LibPinDirection (Pins) == INPUT_E) 

Pinln ~ Pins; 
i++; 

} 

if (i 1= 2) 
{ 

f print f (stderr, 

"\n ERROR: cannot handle buffer with more than two pins: '%s'\n M , 
LibCellName (Cell) ) ; 

exit (1) ; 

} 

if ( (Pinln == NULL) | | (PinOut == NULL) ) 
{ 

fprintf (stderr, 

"\n ERROR: cannot find all pins of buffer: "frs^n", 

LibCellName (Cell)); 
exit (1); 

} 

ListPinName = LibPinName (Pinln) ; 
if ( IGnlSinglePinName (ListPinName)) 
{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex input pin name\n", 
LibCellName (Cell) ) ; 

exit (1); 

} 

PinlnName = LibNameListName (ListPinName) ; 

ListPinName = LibPinName (PinOut) ; 
if ( IGnlSinglePinName (ListPinName)) 
{ 

fprintf (stderr, 

" WARNING: Cell <%s> has a complex output pin name\n", 
LibCellName (Cell)); 
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exit (i) ; 

} 

PinOutName = LibNameListName (ListPinName) ; 

if ( IGnlGetActualVarOf FormalName (Interface, PinlnName, Sclnput) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Input pin <%s> in 
<%s>\n M , 

PinlnName, Gnl User Component Inst Name (UserCompo) ) ; 

exit (1); 

} 

if ( IGnlGetActualVarOf FormalName (Interface, PinOutName, fcOutput) ) 
fprintf (stderr, 

" ERROR: cannot find actual parameter associated to Output pin <%s> in 
<%s>\n" , 

PinOutName, GnlUserComponentlnstName (UserCompo) ) ; 

exit (1); 

} 

if (GnlFunctionCreate (Gnl, Output, NULL, &NewFunction) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlVarFunction (Output, NewFunction) ; 

if (GnlCreateNodeForVar (Gnl, Input, &NewNode) ) 
return (GNL_MEMORY__FULL) ; 

/* we add extra info on this node for the futur NL delay mapping */ 
if (GnlMapNodelnfoCreate (&NewMapNodeInf o) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlNodeHook (NewNode, NewMapNodelnf o) ; 

/* We store the original Compo for this node which is a buffer. */ 
SetGnlMapNodelnf oOriginalCompo (NewNode, UserCompo) ; 

/* toto */ 
/* 

SetGnlMapNodelnf oOriginalCompo (NewNode, NULL) ; 

*/ 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 
if (BListAddElt ( Gnl Functions (Gnl) , (int) Output ) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* v 

/* GnlModafyGnlComponentsWithCombinatorialCellsForNLdelayMapping * / 

/* #/ 

/* This procedure replaces the GNL_USER_COMPONENT according to their */ 
/* associated libc cell. Only combinatorial elements will be replaced */ 

z* v 

GNL_STATUS GnlModif yGnlComponentsWithCombinatorialCellsForNLdelayMapping 
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GNL 

LIBC LIB 



Gnl; 
GnlLib; 



{Gnl, GnlLib) 



BLIST 
int 

GNL_COMPONENT 
GNL_USER_COMPONENT 
LIBC_CELL 

GNL_S EQUENT I AL_COMPONENT 
LIBC_PIN 

GNLJIRI STATE_COMPONENT 
GNL_TRISTATE_COMPO_INFO 
GNL_VAR 
GNL_NODE 
GNL_NODE 
GNL_VAR 
GNLJFUNCTION 
LIB_CELL 
BLIST 
BDD 

BDDJPTR 

LIB DERIVE CELL 



Components ; 
i; 

Component I; 
UserCompol ; 
Cell; 

SeqCompol ; 
Out Pin; 

TristateCompol ; 
NewTriStateCompoInf o ; 
OutVarBar ; 
NewNode ; 
NodeNot ; 
NewVar; 

NewFunction; 
MotherCell; 
ListDeriveCells ; 

Bdd; 
BddPtr; 

FirstDeriveCell ; 



Components - Gnl Components (Gnl) ; 

for (i-0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL__COMPONENT) BListElt (Components, i) ; 

if (Gnl Component Type (ComponentI) 1= GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 

/* There is a Gnl associated so it is not linked to a cell 
if (GnlUserComponentGnlDef (UserCompol) ) 
continue; 



/* If no linked libc cell then is it a black box 
if ( IGnlUserComponentCellDef (UserCompol) ) 
continue ; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompol); 
if (LibCellDontUse (Cell)) 
{ 

f print f (stderr, 

" WARNING: Netlist using DONT USE cell [%s]\n", 
LibCellName(Cell) ) ; 

} 

/* Case where the component is linked to a sequential cell */ 
if (LibCellFFLatch (Cell) ) 
continue; 

/* Case where the component is linked to a 3 states */ 
if (LibCellWith3StatePin (Cell, &OutPin) ) 
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continue; 

/* Case where the component is linked to a buffer. */ 
if (GnlCelllsBuffer (Cell)) 
{ 

if (GnlReplaceUserCompoByBuf f erForNLDelayMapping (Gnl , 
UserCompol , Cell)) 
return ( GNL_MEMORY_FULL ) ; 

BListDellnsert (Components, i+1) ; 
i--; 

continue; 

} 

/* Otherwise it is a combinatorial Cell */ 

/* We extract the list of derive equivalent cells of the 'cell'.*/ 
MotherCell = (LIB_CELL) LibCellHook (Cell); 
ListDeriveCells = LibHCellDeriveCells (MotherCell) ; 

if (ListDeriveCells) 

{ 

FirstDeriveCell = (LIB_DERIVE_CELL) BListElt (ListDeriveCells, 

0); 

Bdd = LibDeriveCellBdd (FirstDeriveCell) ; 
BddPtr = GetBddPtrFromBdd (Bdd) ; 

ListDeriveCells = LibBddlnf oDeriveCells (BddPtr) ; 

} 

SetGnlUserComponentEquivCells (UserCompol, ListDeriveCells) ; 

/* We replace the combinatorial Cell by its boolean function. */ 
if (GnlModifyComponentlntoLogicFunctionForNLDelay (Gnl , 

UserCompol, GnlLib) ) 

return (GNL_MEMORY_FULL) ; 

/* we remove the User component corresponding to the cell */ 
/* because we replaced it by a Function GNL__NODE */ 
BListDellnsert (Components, i+1) ; 
i--; 

} 



return (GNL_0K) ; 

} 

/* */ 

/* GnlReplaceAllComponentsWithLinkLibCellsRec */ 
/* */ 

/* This procedure replaces recursively each Gnl of the network 'Nw 1 all */ 

/* the GNL_USER_COMPONENT according to their associated libc cell. They */ 

/* can be replaced by GNL_SEQUENTIAL_COMPONENT if the associated linking*/ 

/* cell is a Dff, etc ... */ 

/* If ' ReplaceCombi ' is 1 then the combinatorial cells are replaced */ 

/* by the Boolean function they represent, otherwise they are not */ 

/* replaced. */ 

/* */ 

GNL_STATUS GnlReplaceAl 1 Component sWithLinkLibCellsRec (Nw, Gnl, GnlLib, 
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GNL_NETWORK 
GNL 

LIBC_LIB 

int 

int 



Nw; 

Gnl; 

GnlLib; 

ReplaceCombi; 

GetEquivDeriveCells ; 



ReplaceCombi , Ge t Equi vDer i veCe lis) 



int 
BLIST 

GNL_COMPONENT 

GNL_USER_COMPONENT 

GNL 



i; 

Components ; 
Component I; 
UserCompol ; 
GnlCompol; 



/* Already processed. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

if (GnlModifyGnlComponentsWithCells (Gnl, GnlLib, ReplaceCombi, 

GetEquivDeriveCells) ) 

return ( GNL_MEMOR Y_FULL ) ; 

Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSi2e (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue ; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlReplaceAllComponentsWithLinkLibCellsRec (Nw, GnlCompol , 

GnlLib, ReplaceCombi, GetEquivDeriveCells) ) 
return ( GNL_MEMORY__FULL ) ; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlReplaceOnlyCombinatorialComponentsWithLinkLibCellsRec */ 
/* *i 

/* This procedure replaces recursively in each Gnl of the network 'Nw' */ 
/* the GNL_USER_COMPONENT according to their associated libc cell. */ 
/* Only combinatorial components will be replaced. */ 
/* */ 

GNL_STATUS GnlReplaceOnlyCombinatorialComponent sWithLinkLibCellsRec (Nw, 

Gnl, GnlLib) 

GNL__NETWORK Nw; 
GNL Gnl ; 



D-GNL2-329 



gnlverifc 



LIBC LIB 



GnlLib; 



mt 
BLIST 

GNL_COMPONENT 
GNL_US ER_COMPONENT 
GNL 



Components 
Component I 
UserCompol 
GnlCompol; 



/* Already processed. * 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

if (GnlModifyGnlComponentsWithCombinatorialCells (Gnl, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

Components = Gnl Components (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) / 

if (GnlComponentType (ComponentI) 1= GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue ; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlReplaceOnlyCombinatorialComponentsWithLinkLibCellsRec (Nw, 

GnlCompol, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL OK) ; 



/ 



/ 



/* 

/* GnlReplaceComponentsWithLinkLibCellsForNLDelayMappingRec * / 

/* 4t/ 

/* This procedure replaces recursively in each Gnl of the network 'Nw' */ 
/* the GNL__USER__COMPONENT according to their associated libc cell. */ 
/* Only combinatorial components will be replaced. */ 
/* 

GNL_STATUS GnlReplaceComponentsWithLinkLibCellsForNLDelayMappingRec (Nw, 

Gnl, GnlLib) 

GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 

{ 

int i ; 

BLIST Components 
GNL_COMPONENT Component I 

GNL_US ER_COMPONENT Use r Compo I 
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GNL GnlCompoI; 

/* Already processed. */ 
if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

if (GnlModifyGnlComponentsWithCombinatorialCellsForNLdelayMapping ( 

Gnl, GnlLib) ) 

return { GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components) ; i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) ! = GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue; 

GnlCompoI = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlReplaceComponentsWithLinkLibCellsForNLDelayMappingRec (Nw, 

GnlCompoI , GnlLib) ) 
return ( GNL_MEMORY__FULL ) ; 

} 

return (GNL_OK) ; 

} 

/* *i 

/* GnlResetLeafDAGNodelnputs */ 
/* ic/ 

void GnlResetLeafDAGNodelnputs (Node) 
GNL_NODE Node; 

{ 

int i ; 
GNL_NODE Node I; 
GNL_VAR Var; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return; 

if (GnlNodeOp (Node) GNL_VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
SetGnlVarHook (Var, NULL) ; 
return; 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
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{ 

Nodel = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
GnlResetLeafDAGNodelnputs (Nodel) ; 

} 

} 

/* 

/* GnlLeafDAGNodeRec 

/* 

int GnlLeafDAGNodeRec (Node) 
GNLJSTODE Node; 

{ 

int i ; 

int MaxFanOut; 

int MaxFanOut I; 

GNLJSTODE Nodel; 

GNL_VAR Var; 



if (GnlNodeOp (Node) == GNL_CONS TANTE ) 
return (0) ; 

if (GnlNodeOp (Node) == GNL VARIABLE) 
{ 

Var = (GNL_VAR) GnlNodeSons (Node) ; 
if (GnlVarDir (Var) == GNL_VAR__ INPUT) 
return (1) ; 

SetGnlVarHook (Var, ( int) GnlVarHook (Var)+1); 
return ( (int ) GnlVarHook (Var) ) ; 

} 

MaxFanOut = 0 ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 

Nodel = (GNL_N0DE) BListElt (GnlNodeSons (Node), i) ; 
MaxFanOut I = GnlLeafDAGNodeRec (Nodel) ; 
if (MaxFanOut I > MaxFanOut) 
MaxFanOut = MaxFanOut I; 

} 



return (MaxFanOut) ; 

} 



/* GnlLeafDAGNode 

/* 

int GnlLeafDAGNode (Node) 
GNL_NODE Node; 

{ 

int MaxFanout ; 

GnlResetLeafDAGNodelnputs (Node) ; 
MaxFanout = GnlLeafDAGNodeRec (Node) ; 
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return ( (MaxFanout > 1) ) ; 

} 

/* */ 

/* GnlRemoveCompoNotToKeepOnNode */ 
/* */ 

/* removes the component association of all the nodes having all inputs */ 

/* uni-fanout. The others are kept. */ 

/* */ 

GNL_STATUS GnlRemoveCompoNotToKeepOnNode (Gnl, Node, Keep, NotKeep) 
GNL Gnl ; 

GNL_NODE Node; 
int *Keep; 
int *NotKeep; 

{ 

int i ; 

GNL_US ER_COMPONENT UserCompo ; 
BLIST Interface; 
GNL_ASSOC AssocI; 
GNL_VAR Actual ; 

GNL_NODE SonI; 
int KeepCompo; 
char *Formal; 
LIBC_PIN PinFormal ; 

LIBC_CELL Cell; 
int NKeep; 
int NNotKeep; 



*Keep = *NotKeep = 0; 

if (GnlNodeOp (Node) =- GNL_VARI ABLE ) 

{ 

/* case of buffer. */ 
if (GnlNodeHook (Node) && (GnlMapNodelnf oOriginalCompo (Node) ) ) 
*Keep = 1; 

return (GNL_0K) ; 

} 

if {GnlNodeOp (Node) « GNL^CONSTANTE) 
return (GNL__0K) ; 

/* If the node has an associated compo . */ 
if (GnlNodeHook (Node) && (GnlMapNodelnf oOriginalCompo (Node))) 
{ 

KeepCompo = 0; 

UserCompo = GnlMapNodelnf oOriginalCompo (Node) ; 
Cell = GnlUserComponentCellDef (UserCompo) ; 

Interface = GnlUser Component Interface (UserCompo) ; 
for (i=0; i<BListSize (Interface); 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 

if (GnlUserComponentFormalType (UserCompo) =- GNL_FORMAL_CHAR) 

{ 
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Formal = (char*) Gnl Assoc Formal Port (AssocI); 
PinFormal = GnlGetPinCellWithName (Cell, Formal); 

if <! PinFormal) 

{ 

f print f (stderr, 

" ERROR: cannot find pin name <%s> in cell [%s]\n", 

Formal, LibCellName (Cell)); 
exit (1) ; 

} 

if (LibPinDirection (PinFormal) OUTPUT_E) 
continue ; 

} 

Actual = GnlAssocActualPort (AssocI) ; 
if ( IGnlVarlsVar (Actual)) 
{ 

fprintf (stderr, 

"\n ERROR: cannot handle actual vector here\n") ; 

exit (1) ; 

} 

The component has an input with multi-fanout which is */ 
the ouput of another comb. cell. */ 
( (GnlVarHook (Actual) > (void*)l) 
(GnlVarDir (Actual) ! = GNL_VAR_ INPUT ) 
(GnlVarDir (Actual) != GNL_VAR_LOCAL_WIRING) ) 

{ 

KeepCompo = 1; 
break; 

} 



if (! KeepCompo) 

{ 

/* Actually the node can correspond to a leaf -DAG cell (xor) */ 
/* so we recompute the fanout of the inputs because some of */ 
/* them can be really multi-fanout inputs. */ 
if (GnlLeafDAGNode (Node) ) 
{ 

(*Keep) ++; 

} 

else 

{ 

/* we remove the component association. */ 
fprintf (stderr, " Remove association f Ins=%s Comp=%s 1 \n" , 
GnlUserComponentlnstName (UserCompo) , 
GnlUserComponentName (UserCompo) ) ; 
SetdnlMapNodelnf oOriginalCompo (Node, NULL) ; 



(*NotKeep) ++; 

} 

} 

else 

{ 

(*Keep)++; 
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} 

} 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt {GnlNodeSons (Node), i) ; 
if (GnlRemoveCompoNotToKeepOnNode (Gnl, SonI, &NKeep, &NNotKeep) ) 
return (GNL_MEMORY_FULL) ; 

*Keep += NKeep; 
*NotKeep += NNotKeep; 

} 

return (GNL_OK) ; 



/* */ 

/* GnlComputeCapaFromUserCompo */ 
/* ic/ 

void GnlComputeCapaFromUserCompo (Gnl, GnlLibc, UserCompo, Cell) 
GNL Gnl ; 

LIBC_LIB GnlLibc; 
GNLJJSER_COMPONENT UserCompo ; 
LIBC_CELL Cell; 



{ 



int i ; 

BLIST Interface; 
GNL_ASSOC ASSOCI; 

GNLJ/AR Actual ; 

LIBC_PIN PinFormal ; 

float PinCapa; 
char * Formal; 



Interface = GnlUserComponent Interface (UserCompo) ; 
for (i=0; i<BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASS0C) BListElt (Interface, i) ; 
PinFormal = NULL; 

if (GnlUserComponentFormalType (UserCompo) == GNL FORMAL CHAR) 
{ 

Formal = (char*) GnlAssocFormalPort (AssocI); 
PinFormal = GnlGetPinCellWithName (Cell, Formal) ; 

if (I PinFormal) 

{ 

f print f (stderr, 

" ERROR: cannot find pin name <%s> in cell [%s]\n", 
Formal, LibCellName (Cell)); 
exit (1); 

} 

if (LibPinDirection (PinFormal) == OUTPUT_E) 
continue; 

} 
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if ( ! PinFormal) 
{ 

fprintf (stderr, 

n \n ERROR: cannot find some formal pin\n"); 

exit (1) ; 

} 

Actual = GnlAssocActualPort (AssocI) ; 
if { IGnlVarlsVar (Actual)) 
{ 

fprintf (stderr, 

"\n ERROR: cannot handle actual vector here\n") 

exit (1) ; 

} 

PinCapa = GnlGetCapaFromPin {PinFormal); 

/* Cumulating the capacitance at var 'Actual'. 
SetGnlVarOutCapa (Actual, GnlVarOutCapa (Actual) + PinCapa); 

} 

/* 

/ * GnlComputeCapaFromKeptCompoOnNode 

/* 

GNL_STATUS GnlComputeCapaFromKeptCompoOnNode {Gnl, GnlLibc, Node) 
GNL Gnl ; 

LIBC_LIB GnlLibc; 
GNL_NODE Node; 

{ 

int i ; 
GNL_USER_COMPONENT UserCompo ; 
GNL_NODE SonI ; 

LIBC_CELL Cell; 



if (GnlNodeOp (Node) == GNL_CONSTANTE) 
return (GNL_OK) ; 

/* If the node has an associated compo . */ 
if (GnlNodeHook (Node) (GnlMapNodelnf oOriginal Compo (Node))) 

UserCompo = GnlMapNodelnf oOriginalCompo (Node) ; 
Cell = GnlUserComponentCellDef (UserCompo) ; 

GnlComputeCapaFromUserCompo (Gnl, GnlLibc, UserCompo, Cell) ; 



if (GnlNodeOp (Node) GNL_VAR I ABLE ) 
return (GNL_OK) ; 

for (i=0; i<BListSize (GnlNodeSons (Node)); i++) 
{ 

SonI = (GNL_NODE) BListElt (GnlNodeSons (Node), i) ; 
if (GnlComputeCapaFromKeptCompoOnNode (Gnl, GnlLibc, SonI)) 
return { GNL_MEMOR Y__FULL ) ; 

} 
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return (GNLJDK) ; 

} 

/* 

/* GnlRemoveCompoNotToKeep 

/* 

GNL_STATUS GnlRemoveCompoNotToKeep {Gnl, GnlLib, Keep, NotKeep) 
GNL Gnl ; 

LIBC_LIB GnlLib; 
int *Keep ; 
int *NotKeep; 



int i ; 

GNL_VAR Varl; 

GNL_FUNCT I ON Func t i on ; 

int NKeep; 

int NNotKeep; 



*Keep = * NotKeep = 0; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if ( IGnlVarFunction (Varl)) 
continue; 

Function = GnlVarFunction (Varl); 

if (GnlRemoveCompoNotToKeepOnNode (Gnl , 

GnlFunctionOnSet (Function) , 
&NKeep, &NNotKeep) ) 

return (GNL_MEM0RY_FULL) ; 

*Keep += NKeep; 

* Not Keep += NNotKeep; 

return (GNL OK) ; 



/* 

/* GnlRemoveCompoNotToKeepRec 

/* 

GNL_STATUS GnlRemoveCompoNotToKeepRec (Nw, Gnl, GnlLib) 
GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 



{ 



int i ; 

BLIST Components 

GNL_C0MP0NENT Component I 
GNL_USER_COMPONENT UserCompol 

GNL GnlCompol; 

int Keep; 

int NotKeep ; 
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/* Already processed. 

if (GnlTag (Gnl) GnlNetworkTag (Nw) } 
return (GNL_OK) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

if (GnlRemoveCompoNotToKeep (Gnl, GnlLib, &Keep, &NotKeep) ) 
return ( GNL_MEMORY_FULL) ; 

fprintf (stderr, " GNL = • %s * , KEEP = %d, NOT__KEEP = %d\n", 
GnlName (Gnl) , Keep, NotKeep) ; 

Components = Gnl Components (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_C0MPO) 
continue; 

UserCompol = (GNLJUSER_COMPONENT) ComponentI ; 
if ( IGnlUserComponentGnlDef (UserCompol) ) 
continue; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlRemoveCompoNotToKeepRec (Nw, GnlCompol, GnlLib) ) 
return (GNL__MEMORY_FULL) ; 

} 

return (GNL OK) ; 



/* 

/* GnlGetNLDelayArea 

/* 

GNL_STATUS GnlGetNLDelayArea (Nw, Gnl, GnlLib) 
GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 

{ 

BLIST Components; 
int i ; 

GNL_COMPONENT Component I ; 
GNL_USER_COMPONENT UserCompol ; 
LIBC_CELL Cell; 



Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue ; 
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UserCompol = (GNL_USER_COMPONENT) Component I ; 

/* There is a Gnl associated so it is not linked to a cell 
if (GnlUserComponentGnlDef (UserCompol) ) 
continue; 

/* If no linked libc cell then is it a black box 
if ( IGnlUserComponentCellDef (UserCompol) ) 
continue; 

Cell = (LIBC_CELL}GnlUserComponentCellDef (UserCompol); 

SetGnlNetworkNLDelayArea (Nw, GnlNetworkNLDelayArea (Nw) + 

LibCellArea (Cell) ) ; 

} 

return (GNL OK) ; 



/* 

/* GnlGetNLDelayAreaRec 

/* 

GNL_STATUS GnlGetNLDelayAreaRec (Nw, Gnl, GnlLib) 

GNLJNETWORK Nw; 

GNL Gnl ; 

LIBC_LIB GnlLib ; 



int i ; 

BLIST Components ; 

GNL_COMPONENT Component I ; 

GNL_USER_COMPONENT UserCompol ; 

GNL Gnl Compel; 



if (GnlGetNLDelayArea (Nw, Gnl, GnlLib)) 
return ( GNL_MEMORY_FULL ) ; 

Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMP0NENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI ; 
if ( ! GnlUserComponentGnlDef (UserCompol) ) 
continue; 

GnlCompol = GnlUserComponentGnlDef (UserCompol) ; 

if (GnlGetNLDelayAreaRec (Nw, GnlCompol, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL__OK) ; 
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/* 

/ * GnlComputeCapacitancesFromKeptCompo 
/* 



GNL_STATUS GnlComputeCapacitancesFromKeptCompo (Nw, Gnl, GnlLib) 
GNLJSTETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 



■*/ 
■*/ 



{ 



int 

GNL_VAR Varl; 

GNL_FUNCT I ON 

LIBC WIRE LOAD SELECT 



BLIST 

GNL_COMP0NENT 

GNL_USER_COMPONENT 

LIBC_CELL 

LIBC_PIM 

int 

BLIST 

GNL_VAR 

int 

float 

float 

BLIST 

int 

int 



i; 

Function ; 
WireLoadSelect ,- 



Components; 
ComponentI; 

UserCompol; 

Cell; 
Out Pin; 

j ; 

Bucket I ; 
VarJ; 

Fanout ; 
Length; 
WireCapa; 
HashTableKfames ; 

NbVar; 

NbBindVar; 



WireLoadSelect = LibGetWireLoadSelectFromName (GnlLib, (char *)NULL) ; 
G__WireLoad = LibGetWireLoadFromAreaAndWireLS (WireLoadSelect, 

GnlNetworlcNLDelayArea (Nw) , GnlLib) ; 

G__GnlLibc = GnlLib; 



/* Now scanning all kept components to add their pin capacitance */ 

Components = GnlComponents (Gnl) ; 

for |i=0; i<BListSize (Components) ; i++) 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 

if (GnlComponentType (ComponentI) != GNL_USER_C0MP0 ) 
continue; 

UserCompol = ( GNL_USER_COMPONENT ) Component I ; 

/* There is a Gnl associated so it is not linked to a cell */ 
if (GnlUserComponentGnlDef (UserCompol) ) 
continue; 

/* If no linked libc cell then is it a black box */ 
if ( IGnlUserComponentCellDef (UserCompol) ) 
continue; 

Cell = (LIBC_CELL)GnlUserComponentCellDef (UserCompol) ; 
if (LibCellDontUse (Cell)) 
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{ 

fprintf (stderr, 

" WARNING: Netlist using DONT USE cell [%s]\n ,, / 
LibCellName (Cell) ) ; 

} 

/* Case where the component is linked to a sequential cell 
if (LibCellFFLatch (Cell)) 

{ 

GnlComputeCapaFromUserCompo (Gnl, GnlLib, UserCompol, Cell) 
continue; 

} 

/* Case where the component is linked to a 3 states 
if (LibCellWith3StatePin (Cell, &OutPin) ) 

GnlComputeCapaFromUserCompo (Gnl, GnlLib, UserCompol, Cell) 
continue; 

} 

/* Case where the component is linked to a buffer, 
if (GnlCelllsBuffer (Cell)) 

{ 

fprintf (stderr, "\n ERROR: all buffers not replaced \n") • 
exit (1); 

} 



fprintf (stderr, 

"\n ERROR: all conbinat ional compo. nor replaced. \n M ) ; 

exit (1) ; 

} 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
if ( IGnlVarFunction (Varl)) 
continue; 

Function = GnlVarFunction (Varl) ; 

if (GnlComputeCapaFromKeptCompoOnNode (Gnl, GnlLib, 

GnlFunctionOnSet (Function) ) ) 

return (GNL_MEMORY_FULL) ; 

/* Then computing the wire capacitance for all the variables with 

/* a non null capacitance. */ 

NbVar = NbBindVar = 0; 

HashTableNames = GnlHashNarnes (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 
{ 

VarJ = (GNL_VAR) BListElt (Bucketl, j) ; 
Fanout = (int) GnlVarHook (VarJ) ; 
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if (Fanout) 
NbVar++; 

/* if 'VarJ' is not the input of a kept component then its */ 
/* capa. is 0.0 */ 
if (GnlVarOutCapa (VarJ) 0.0) 
continue ; 

NbBindVar++; 

Length = LibGetWireLengthFromFanout <G_WireLoad, Fanout) / 
wireCapa = LibGetWireScaledCapaFromLength (GJtfireLoad, 

Length, GnlLib) / 

SetGnlVarOutCapa (VarJ, GnlVarOutCapa (VarJ) + WireCapa) ; 



return (GNL_0K) ; 

} 



/* GnlComputeCapacitancesFromKeptCompoRec 
* 



/ 

GNL_STATUS GnlComputeCapacitancesFromKeptCompoRec (Nw, Gnl, GnlLib) 
GNL__NETWORK Nw; 



.*/ 

*/ 
■*/ 



GNL 

LIBC LIB 



Gnl; 
GnlLib; 



int 
BLIST 

GNL_COMPONENT 

GNL_USER_COMPONENT 

GNL 



i; 

Components; 
Component I ; 
UserCompol ; 
GnlCompol ; 



/* Already processed* 

if (GnlTag (Gnl) == GnlNetworkTag (Nw) ) 
return (GNL_0K) ; 

SetGnlTag (Gnl, GnlNetworkTag (Nw) ) ; 

if (GnlComputeCapacitancesFromKeptCompo (Nw, Gnl, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

Components = GnlComponents (Gnl) ; 
for (i=0; i<BListSize (Components); i++) 
{ 

Component I = (GNL_COMPONENT) BListElt (Components, i) ; 

if (Gnl Component Type (ComponentI) != GNL_USER_COMPO ) 
continue; 

UserCompol = (GNL_USER_COMPONENT) ComponentI; 
if ( !GnlUserComponentGnlDef (UserCompol) ) 
continue; 
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GnlCompol = Gnl User Component GnlDef (UserCompol) ; 

if (GnlComputeCapacitancesFromKeptCompoRec (Nw, GnlCompol, 

GnlLib) ) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) / 

} 

/* */ 

/* GnlReplaceAllComponentsWithLinkLibCells */ 
/* */ 

/* We modify the original GNL__USER_COMPONENT components according to */ 
/* to their linking libc cell. For example a Component related to a */ 
/* Flip-Flop will be replaced into GNL_SEQUENTIAL_COMPONENT and the same*/ 
/* for LATCHES , TR I STATES, ... */ 
/* Other Components which are combinatorial are either linked to a */ 
/* LIBC_CELL and then are replaced by the corresponding Boolean Function*/ 
/* or have no linked LIBC_CELL and then they are black box. */ 
p /* v 

,jg GNL_STATUS GnlReplaceAllComponentsWithLinkLibCells (Nw, Gnl, GnlLib, 
Cl Ge tEquivDer i veCel 1 s } 

s J GNL_NETWORK Nw; 

;f ! gnl Gni ; 

^ L1BC_LIB GnlLib; 

int GetEquivDeriveCells; 



{ 



/* Resetting the Tag for recursive traversal. 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 



if (GnlReplaceAllComponentsWithLinkLibCellsRec (Nw, Gnl, GnlLib, 1, 
I.!? GetEquivDeriveCells) ) 

y return ( GNL_MEMOR Y__FULL ) ; 

D 

O /* Resetting the Tag for recursive traversal. 

SetGnlNetworkTag (Nw, GnlNetworkTag <Nw)+l); 
if (GnlUpdateLocalVarDirRec (Nw, Gnl)) 
return (GNL MEMORY FULL) ; 



} 



return (GNL OK) ; 



/* */ 

/* GnlReplacePredef Component sWithLinkLibCel Is */ 
/* */ 

/* We modify the original GNL_USER__COMPONENT components according to */ 
/* to their linking libc cell. For example a Component related to a */ 
/* Flip-Flop will be replaced into GNL_SEQUENTIAL_COMPONENT and the same*/ 
/* for LATCHES, TRISTATES, ... */ 
/* Other Components are not replaced. */ 
/* */ 

GNL_STATUS GnlReplacePredef ComponentsWithLinkLibCells (Nw, Gnl, GnlLib) 
GNL NETWORK Nw; 
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GNL Gnl ; 

LIBC_LIB GnlLib; 

{ 

int GetEquivDeriveCells ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

GetEquivDeriveCells = 1; 

return (GnlReplaceAllComponentsWithLinkLibCellsRec (Nw, Gnl, GnlLib, 

0, GetEquivDeriveCells) ) ; 

/* it/ 

/* GnlReplaceComponentsWithLinkLibCellsForNLDelayMapping * / 

/* it/ 

/* We modify the original GNL_USER_COMPONENT components according to */ 
/* to their linking libc cell. Only combinatorial Components will be */ 
/* replaced and others define as black box components. */ 
/* it/ 

GNL_STATUS GnlReplaceComponentsWithLinkLibCellsForNLDelayMapping (Nw, 

Gnl, GnlLib) 

GNL_NETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 

{ 

/* Computing the netlist area for the NL delay model */ 
SetGnlNetworkNLDelayArea (Nw, 0.0); 
if (GnlGetNLDelayAreaRec (Nw, Gnl, GnlLib)) 
return (GNL_MEMORY_FULL) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

/* we compute first the fanout of each var. */ 
GnlComputeMaxFanoutlnNetworklnGnlRec (Nw, Gnl) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (GnlReplaceComponentsWithLinkLibCellsForNLDelayMappingRec (Nw, 

Gnl, GnlLib)) 

return ( GNL_MEMORY_FULL ) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
if (GnlUpdateLocalVarDirRec (Nw, Gnl)) 
return (GNL_MEMORY_FULL) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

/* We remove all components node reference if the component is not */ 
/* in a multi-fanout situation (e.g one of its sons is a multi -fanout*/ 
/* node) . * / 

if (GnlRemoveCompoNotToKeepRec (Nw, Gnl, GnlLib)) 
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return (GNL_MEMORY_FULL) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 

if (GnlComputeCapacitancesFromKeptCompoRec (Nw, Gnl, GnlLib) ) 
return (GNL_MEMORY_FULL) ; 

GnlPrintGnl (stderr, Gnl) ; 

return (GNL_OK) ; 



/* v 

/* GnlReplaceOnlyCombinatorialComponentsWithLinkLibCells * / 

/* it/ 

/* We modify the original GNL_USER_COMPONENT components according to */ 
/* to their linking libc cell. Only combinatorial Components will be */ 
/* replaced and others define as black box components. */ 

z v 

GNL_STATUS GnlReplaceOnlyCombinatorialComponentsWithLinkLibCells (Nw, 

Gnl, GnlLib) 

GNLJtfETWORK Nw; 
GNL Gnl ; 

LIBC_LIB GnlLib; 

{ 

/* If we target for an optimization of arrival time based on the */ 
/* NL delay model then we do a special link. */ 
if (GnlEnvCriterion () == GNL NL DELAY) 
{ 

return (GnlReplaceComponentsWithLinkLibCellsForNLDelayMapping 
^ (Nw, Gnl, GnlLib)); 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+l) ; 

if (GnlReplaceOnlyCombinatorialComponentsWithLinkLibCellsRec (Nw, 

Gnl, GnlLib)) 

return ( GNL_MEMORY_FULL ) ; 

/* Resetting the Tag for recursive traversal. */ 
SetGnlNetworkTag (Nw, GnlNetworkTag (Nw) +1) ; 
if (GnlUpdateLocalVarDirRec (Nw, Gnl)) 
return ( GNL__MEMORY_FULL ) ; 

return (GNLJDK) ; 

} 



/* v 

/* GnlExt ractTypeOf Signals InGnl */ 

/* J f 

GNL_STATUS GnlExtractTypeOf Signals InGnl (Gnl, Pis, POs, PIOs, DffsO, 

LatchsO, TristatesO) 
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GNL Gnl ; 

BLIST *PIs; 

BLIST *POs; 

BLIST *PIOs; 

BLIST *DffsO; 

BLIST *LatchsO; 

BLIST *TristatesO; 



int 
int 
BLIST 
BLIST 
GNL_VAR 
GNL_VAR 
GNL_VAR 
GNL_C0MP0NENT 
GNLJJSER_COMP0NENT 
GNL_TRISTATE_COMPONENT TriCompo ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_NODE NewNode ; 

GNL _NODE NodeNot ; 

GNLJVAR Input ; 

GNL_FUNCTION NewFunct ion ; 

GNL_VAR Ne wVa r / 



j ; 

HashTableNames ; 

Bucketl; 

VarJ; 

OutPut; 

OutPutBar; 

Component I ; 

UserCompo; 



if (BListCreateWithSize {1, 

re turn ( GNL_MEMORY_FULL ) 
if (BListCreateWithSize (1, 

return { GNL_MEMORY_FULL ) 
if (BListCreateWithSize (1, 

return (GNL_MEMORY_FULL) 
if (BListCreateWithSize (1, 

return ( GNL_MEMOR Y_FULL ) 
if (BListCreateWithSize (1, 

return ( GNL_MEMORY_FULL ) 
if (BListCreateWithSize (1, 

return (GNLJVIEMORY FULL) 



Pis) ) 
POs) ) 
PIOs) ) 
DffsO) ) 
LatchsO) ) 
TristatesO) 



HashTableNames = GnlHashNames (Gnl) ; 
for (i=0; i<BListSize (HashTableNames); i++) 
{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

VarJ = (GNL_VAR) BListElt (Bucketl, j); 
if ( Gnl VarRange Size (VarJ) 1= l) 

continue; 
switch (GnlVarDir (VarJ) ) { 
case GNL_VAR_INPUT : 

if (BListAddElt (*PIs, ( int) VarJ) ) 

return <GNL_MEMORY_FULL) ; 
break; 

case GNL_VAR_OUTPUT : 

if (BListAddElt (*POs, (int) VarJ)) 
return (GNL_MEMORY FULL) ; 



D-GNL2-346 



gnlverif.c 



break; 



case GNL_VAR_INOUT : 

if (BListAddElt (*PIOs, (int)VarJ)) 

return (GNL_MEMORY_FULL) ; 
break; 



default : 

break; 

} 
} 



for (i=0; i<BListSize (Gnl Components (Gnl) ) ; 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
switch (GnlComponentType (ComponentI) ) { 
case GNL_USER_COMPO: 

UserCompo = (GNLJJSER_COMPONENT) ComponentI ; 
if (GnlUserComponentGnlDef (UserCompo) ) 
fprintf (stderr, 
" ERROR: %s cannot verify hiearchical design\n", 
GNL_TOOL_NAME) ; 

else 

fprintf (stderr, 
" ERROR: %s cannot verify design with black box\n n , 
GNL_TOOL_NAME) ; 

exit (In- 
break; 

case GNL__SEQUENTIAL__COMPO : 

SeqCompo = (GNL_SEQUENT I AL_COMPONENT) ComponentI ; 
Input = GnlSequentialCompoInput (SeqCompo) ; 
OutPut = GnlSequentialCompoOutput (SeqCompo) ; 
OutPutBar = GnlSequentialCompoOutputBar (SeqCompo) ; 

/* we create a function for the Q bar of the seq */ 
/* component. */ 
if (OutPut && OutPutBar) 
{. 

if (GnlCreateNodeForVar (Gnl, OutPut, &NewNode) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCreateNodeNot (Gnl, NewNode, &NodeNot) ) 

return (GNL__MEMORY_FULL) ; 

if (GnlFunctionCreate (Gnl, OutPutBar, NULL, 

5cNewFunction) ) 

return ( GNL JVIEMOR Y_FULL ) ; 
SetGnlVarFunction (OutPutBar, NewFunction) ; 
^SetGnlFunctionOnSet (NewFunction, NodeNot) ; 

else 

if (! OutPut) 

{ /* only output bar. */ 
OutPut = OutPutBar; 

} 
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if (GnlSeqComponentlsDFF (SeqCompo) ) 

{ 

if (BListAddElt (*DffsO, (int) OutPut) ) 
return (GNL_MEMORY_FULL) ; 

} 

else 

{ 

if (BListAddElt (*LatchsO, (int) OutPut) ) 
return (GNL_MEMORY FULL) ; 

} 

break; 

case GNL_TRISTATE_COMPO: 

TriCompo = (GNL_TRISTATE_COMPONENT) Component I; 
OutPut = GnlTriStateOutput (TriCompo) ; 
if (BListAddElt (*TristatesO / (int ) OutPut ) ) 
return ( GNL_MEMORY_FULL ) ; 



break; 



default : 



fprintf (stderr, 
" ERROR: %s aborted because of unknown component type\n", 
GNL_TOOL_NAME) ; 

exit (1) ; 

} 

} 

return { GNL_OK) ; 

} 

/* v 

/* GnlCleanVarForVerif ication */ 
/* ^ 

void GnlCleanVarForVerif ication (Gnl) 
GNL Gnl; 

{ 

int i ; 

int j ; 

BLIST Bucket I; 

GNL__VAR VarJ; 

BLIST HashTableNames ; 



HashTableNames = GnlHashNames (Gnl) ; 

for (i=0; i<BListSize (HashTableNames); i++) 

{ 

Bucketl = (BLIST) BListElt (HashTableNames, i) ; 
for (j=0; j<BListSize (Bucketl); j++) 

{ 

VarJ s (GNL__VAR) BListElt (Bucketl, j); 
SetGnlVarHook (VarJ, NULL) ; 
SetGnlVarDistance (VarJ, 0) ; 

} 

} 

} 
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/* ^ 

/* GnlGetVarCoinmonStringSize 
*/ 

/* it/ 

int GnlGetVarCommonStringSize (Varl, Var2) 

GNL_VAR Varl; 

GNL_VAR Var2 ; 

{ 

int LI ; 

int L2 ; 

int Common; 
int i ; 

int Min; 



if (Istrcmp (GnlVarName (Varl), GnlVarName (Var2))) 
return (1000000) ; 

LI = strlen (GnlVarName (Varl) ) ; 
L2 = strlen (GnlVarName (Var2) ) ; 

Min = (LI < L2 ? Ll : L2) ; 

Common = 0; 
for (i=0; i<Min; i++) 
{ 

if (GnlVarName (Varl) [i] == GnlVarName (Var2) [i] ) 
Common++; 

} 

return (Common) ; 



/* it/ 

/* GnlPrintListLinkedVar 

/*- v 

void GnlPrintListLinkedVar (File, Listl, List2) 
FILE *File; 
BLIST Listl; 
BLIST List2; 

{ 

int i ; 

GNL_VAR Varl ; 

GNL_VAR Var2 ; 



for (i=0; i<BListSize (Listl); i++) 
{ 

Varl = (GNL_VAR) BListElt (Listl, i) ; 
Var2 = (GNL_VAR) BListElt (List2, i) ; 
fprintf (File, " Ir ) ; 

GnlPrintFormatSignalName (File, GnlVarName (Varl), 20); 
fprintf (File, " <--> "); 

GnlPrintFormatSignalName (File, GnlVarName (Var2) , 20); 
fprintf (File, M \n") ; 

} 

fprintf (File, "\n M ); 
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/* 

/* GnlSortClosestNames 



/* 

GNL_STATUS GnlSortClosestNames (Listl, List2) 



BLIST 
BLIST 

int 
int 

GNL_VAR 

GNL_VAR 

int 

BLIST 

BLIST 

int 

GNL_VAR 
int 



Listl; 
List2 ; 



i; 
j ; 

Varl; 
Var2 ; 

Distance ; 
NewList ; 
Listvar ; 

Found; 
VarAssoc; 

Be s t Index ; 



for (i=0; i<BListSize (Listl); i++) 
{ 

Varl = (GNL_VAR) BListElt (Listl, i) ; 
if (GnlVarHook (Varl) ) 

{ 

VarAssoc = (GNL_VAR) GnlVarHook (Varl) ; 

/* we look for this var assoc in 'List2 ? and remove it 

Found = 0; 

for (j=0; j<BListSize (List2) ; j++) 
{ 

Var2 = (GNL_VAR) BListElt (List2, j); 
if (VarAssoc == Var2) 

{ 

Found = 1; 
break; 

} 

} 

if (Found) 

BListDellnsert (List2, j+1); 
else 

{ 

fprintf (stderr, 

" ERROR: Var <%s> will be associated to several Variables: %s, ... 
GnlVarName (Varl) , GnlVarName (VarAssoc) ) ; 
exit (1); 

} 

continue; 

} 

for (j=0; j<BListSize (List2) ; j++) 
{ 

Var2 = (GNL_VAR) BListElt (List2, j); 

Distance = GnlGetVarCommonStringSize (Varl, Var2) ; 
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if {Distance > GnlVarDi stance (Varl) ) 

{ 

SetGnlVarDistance (Varl, Distance) ; 
VarAssoc = Var2; 
Bestlndex = j ; 

} 



SetGnlVarHook (Varl, VarAssoc) ; 
BListDellnsert (List2, Bestlndex+l) ; 

} 

if (BListSize (List2) != 0) 

{ 

fprintf (stderr, 

" ERROR: Some variables not associated in the second netlist\n") 
exit (1) ; 

} 

for (i=0; i<BListSize (Listl) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (Listl, i) ; 
if (BListAddElt (List2, (int) GnlVarHook (Varl))) 
return (GNL_MEMORY FULL) ; 

} 



return (GNL_OK) ; 

} 



/* 

/* GnlModifyGnllnterf aceForVerif 

/* 

GNL_STATUS GnlModi f yGnl Int erf aceForVer i f 
Gnl; 



GNL 
BLIST 
BLIST 
BLIST 
BLIST 
BLIST 
BLIST 



(Gnl, Pis, POs, PIOs, DffsO, 
LatchsO, TristatesO) 



Pis; 

POs; 

PIOS; 

DffsO; 

LatchsO; 

TristatesO; 



BLIST 
BLIST 
BLIST 
int 

GNL_VAR 
GNL_VAR 
GNL_VAR 
GNL_VAR 
GNL_COMPONENT 
GNL_SEQUENTIAL_COMPONENT 
GNL TRISTATE COMPONENT 



Inputs ; 
Outputs ; 
NewList ; 

i ; 

Varl ; 
Input ; 
OutPut; 
OutPutBar; 
Component I; 

SeqCompo ; 
TriCompo; 



Inputs = Gnl Inputs (Gnl) ; 
Outputs = GnlOutputs (Gnl) ; 
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BSize (Inputs) = 0; 
BSize (Outputs) = 0; 

for (i=0; i<BListSize (Pis); i++) 
{ 

Varl = (GNL_VAR) BListElt (Pis, i) ; 
if (BListAddElt (Inputs, (int)Varl)) 
return (GNLJVEMORY FULL) ; 

} 

for (i=0; i<BListSize (PIOs) ; i++) 

{ 

Varl = (GNL__VAR) BListElt (PIOs, i) ; 
if (BListAddElt (Inputs, (int)Varl)) 
return (GNL_MEMORY_FULL) ; 

} 

for (i=0; i<BListSize (POs) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (POs, i) ; 
if (GnlVarRangeSize (Varl) == 1) 

{ 

if (BListAddElt (Outputs, (int)Varl)) 
return (GNL_MEMORY FULL) ; 

} 

} 

for (i=0; i<BListSize (PIOs) ; i++) 
{ 

Varl = (GNL__VAR) BListElt (PIOs, i) ; 
if (GnlVarRangeSize (Varl) == 1) 
{ 

if (BListAddElt (Outputs, (int)Varl)) 

return (GNL_MEMORY FULL) ; 

} 

} 

GnlResetVarHook (Gnl) ; 

for (i=0; i<BListSize (Gnl Components (Gnl)); i++) 

ComponentI = (GNL__COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
switch (Gnl Component Type (ComponentI)) { 
case GNL_S EQUENT I AL_COMPO : 

SegCompo = ( GNL_S EQUENT I AL_COMPONENT) ComponentI ; 

OutPut = GnlSequentialCompoOutput (SeqCompo) ; 

OutPutBar = GnlSequentialCompoOutputBar (SeqCompo) 

if (OutPut) 

{ 

SetGnlVarHook (OutPut , 

GnlSequentialCompoInput (SeqCompo) ) ; 

else /* Only output bar */ 

{ 

SetGnlVarHook (OutPutBar, 

GnlSequentialCompoInput (SeqCompo) ) ; 

break; 
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case GNL_TR I STATE_COMPO : 

TriCompo - ( GNLJTR I STATE_COMPONENT) Component I; 
OutPut = GnlTriStateOutput (TriCompo) ; 
SetGnlVarHook (OutPut, GnlTriStatelnput (TriCompo)); 
break; 

default : 

fprintf (stderr, " ERROR: unknown component\n") ; 
exit (l) ; 

} 



for (i=0; i<BListSize (Df f sO) ; i++) 
{ 

Varl = (GNL__VAR) BListElt (DffsO, i) ; 
if (BListAddElt (Inputs, (int)Varl)) 

return (GNL_MEMORY_FULL) ; 
Input = (GNL_VAR) GnlVarHook (Varl) ; 
if (BListAddElt (Outputs, (int) Input)) 

return (GNL MEMORY FULL) ; 

} 

for (i=0; i<BListSize (LatchsO) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (LatchsO, i) ; 
if (BListAddElt (Inputs, (int)Varl)) 

return (GNL_MEMORY_FULL) ; 
Input = (GNL__VAR) GnlVarHook (Varl) ; 
if (BListAddElt (Outputs, (int) Input) ) 

return (GNL MEMORY FULL) ; 

} 

for (i=0; i<BListSize (TristatesO) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (TristatesO, i) ; 
if (BListAddElt (Inputs, (int) Varl)) 

return (GNL_MEMORY_FULL) ; 
Input = (GNL_VAR) GnlVarHook (Varl) ; 
if (BListAddElt (Outputs, (int) Input)) 

return (GNL MEMORY FULL) ; 

} 

return (GNL_OK) ; 



/* 

/* GnlReplaceBuf f er */ 
/* 1 

/* Replaces buffers components by a new function: outbuffer = inbuffer */ 

/ j 

GNL_STATUS GnlReplaceBuf fer (Gnl) 
GNL Gnl ; 

{ 

BLIST Components ; 
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int 

GNL_COMPONENT 

GNL_BUF_COMPONENT 

GNL_VAR 

GNL_VAR 

GNL_NODE 

GNL FUNCTION 



1 ; 

Component I ; 
Buf Compol; 
Output ; 
Input; 
NewNode ; 
NewFunction; 



Components = GnlComponents (Gnl) ; 
if (! Components) 
return (GNL_OK) ; 

for (i=0; i<BListSize (Components) ; i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) 1= GNLJBUFJCOMPO) 
continue; 

Buf Compol = (GNL_BUF_COMPONENT) ComponentI ; 

Output = GnlBuf Output (Buf Compol) ; 
Input = GnlBuf Input (Buf Compol) ; 

/* if there is already a function associated then it is the case 
/* of a multi -source signal. We abort for now. 
i f { Gnl Var Func t i on ( Output ) ) 

{ 

fprintf {stderr, " ERROR: <%s> is a multi-source signal\n" , 
GnlVarName (Output) ) ; 

exit (1) ; 

} 

if (GnlFunctionCreate (Gnl, Output, NULL, &NewFunction) ) 

return (GNL__MEMORY_FULL) ; 
SetGnlVarFunction (Output, NewFunction) ; 

if (GnlCreateNodeForVar (Gnl, Input, &NewNode) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlFunctionOnSet (NewFunction, NewNode) ; 
if (BListAddElt (GnlFunctions (Gnl) , (int) Output) ) 
return (GNL__MEMORY_FULL) ; 

BListDel Insert (Components, i+1) ; 
i--; 



GnlFreeBuf Component (BufCompol) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlPrintPortAssociationsFile 

/* 

void GnlPrintPortAssociationsFile (OutAssocFile, TopGnll, TopGnl2) 
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FILE *OutAssocFile ; 

GNL TopGnll; 
GNL TopGnl2; 



fpnntf (OutAssocFile, File automatically generated by %s %s\n", 

GNL_TOOL_NAME , GNLJVLAPIT_VERSION) ; 
fprintf (OutAssocFile, " Date:"); 
GnlPrintDate (OutAssocFile) ; 
fprintf (OutAssocFile, "\n lf ) ; 
fprintf (OutAssocFile, "\n"); 

fprintf (OutAssocFile, " Ports Associations between ■ %s and ^s'.\n" ; 

GnlEnvInput (), GnlEnvRef erence () ) ; 
fprintf (OutAssocFile, "\n"); 

fprintf (OutAssocFile, » Inputs Associations\n" ) ; 

fprintf (OutAssocFile, " \n") ; 

GnlPrintListLinkedVar (OutAssocFile, Gnllnputs (TopGnll) , 

Gnllnputs (TopGnl2) ) ; 
fprintf (OutAssocFile, " Outputs Associations\n" ) ; 

fprintf (OutAssocFile, " \n") ; 

GnlPrintListLinkedVar (OutAssocFile, GnlOutputs (TopGnll), 
^ GnlOutputs (TopGnl2)) ; 

/* 

/* GnlAnalyzeAssociationLine 

/* 

GNL_STATUS GnlAnalyzeAssociationLine (SLine, Namel, Name2) 



char 


*SLine; 


char 


**Namel; 


char 


**Name2 ; 


char 


Tempi [2000] ; 


char 


Temp2 [2000] ; 


int 


i; 


int 


j ; 



*Namel = *Name2 = NULL; 
if (strlen (SLine) < 2) 
return (GNL_0K) ; 

i - 1; 

while (SLine [i] != ' \0') 
{ 

Tempi [i-l] = SLine [i] ; 
if (Tempi [i-l] » • ) 
{ 

Tempi [i-l] = ' \0'; 
break; 

} 

i++; 

} 

if (Templ[i-1] ]= '\0') 
return (GNL_OK) ; 
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while ( (SLine [i] =='<)&& (SLine [i] 1= '\0')) i++; 

if (SLine [i] == »\0») 
return (GNL_OK) ; 

if ( (SLine [i] != *<') && (SLine [i+1] != '-■) (SLine[i+2] ! = '-•) && 
(SLine [i+3] ! = *>')) 
return (GNL_OK) ; 

i = i+4; 

if (SLine [i] == T \0') 
return (GNL_OK) ; 

while ( (SLine [i] == ' 1 ) && (SLine [i] != '\0')) i++; 

if (SLine [i] , \0') 
return (GNL_OK) ; 

j=0; 

while ( (SLine [i] !=»')&& (SLine [i] != '\0')) 
{ 

Temp2 [j] = SLine [i] ; 

j++; 
i++ ; 

} 

Temp2[j] = '\0»; 

if ((*Namel = (char*) calloc (strlen (Tempi) +1, sizeof (char))) == NULL) 

return ( GNL_MEMORY_FULL ) ; 
strcpy (*Namel, Tempi) / 

if ((*Name2 = (char*) calloc (strlen (Temp2)+1, sizeof (char))) == NULL) 

return (GNL_MEMORY_FULL) ; 
strcpy (*Name2, Temp2) ; 

return (GNL_OK) ; 

} 



/* 

/* GnlReadFileAssoc 

/* 

GNL_STATUS GnlReadFileAssoc (InputAssocFileName , Listlnputsl, 

ListOutputsl , Lis t Inputs2 , ListOutput s2 ) 
char * InputAssocFileName; 

BLIST *Li st Inputs 1 ; 
BLIST *ListOutputsl; 
BLIST *ListInputs2 ; 
BLIST *List0utputs2 / 



{ 



FILE 

char 

int 

int 

char 



*OutFile; 
SLine [2000] ; 
Index; 
Mode ; 
*Namel; 



-*/ 
*/ 
■*/ 
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char *Name2; 



if ( (OutPile = fopen (Input As socFileName, "r")) == NULL) 

fprintf (stderr, " ERROR : cannot open file 1 %s 1 \n u f 
InputAssocFileName) ; 

exit (1) ; 

} 

if (BListCreateWithSize (l, Listlnputsl) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, ListOutputsl) ) 

return <GNL_MEMORY_FULL) ; 
if (BListCreateWithSize {1, Listlnputs2) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, List0utputs2) ) 

return ( GNL_MEMORY_FULL ) ; 

Mode = 0; 
Index = 0; 

while { (SLine [Index] = getc (OutFile) ) »= EOF) 
{ 

if (SLine [Index] == '\n') 

{ 

SLine [Index] = '\0 ? ; 
Index = 0; 

if Ustrcmp (SLine, " Inputs Associations")) 
Mode = 1; 

if (istrcmp (SLine, " Outputs Associations ") ) 
Mode = 2 ; 

if (GnlAnalyzeAssociationLine (SLine, &Namel, &Name2)) 
return (GNL_MEMORY_FULL) ; 



if (Namel) 
{ 

if (Mode == 1) 
{ 

if (BListAddElt (*ListInputsl, (int) Namel) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (*ListInputs2 , (int) Name2 ) ) 

return (GNL_MEMORY_FULL) ; 

else if (Mode == 2) 

{ 

if (BListAddElt (*ListOutputsl, (int) Namel)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (*ListOutputs2, ( int ) Name2 ) ) 

return (GNL MEMORY FULL) ; 

} 

} 

} 

else 

Index++ ; 
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} 

f close (OutFile) ; 
return (GNL OK) ; 



/* */ 

/* GnlModifyGnllnterf aceWithUserAssoc */ 
/* */ 

void GnlModifyGnllnterf aceWithUserAssoc (Gnll, Gnl2, Listlnputsl, 

ListOutputsl, Listlnputs2 , 



GNL Gnll; 
GNL Gnl2 ; 

BLIST Listlnputsl; 

BLIST ListOutputsl; 

BLIST Listlnputs2 ; 

BLIST List0utputs2 ; 

int i ; 

int j ; 

char * InputNamel; 

int Found ; 

GNL_VAR Input J; 



List0utputs2) 



for (i=0; i<BListSize (Listlnputsl) ; i++) 

{ 

InputNamel = (char* ) BListElt (Listlnputsl, i) ; 
Found = 0; 

for (j=0; j<BListSize (Gnllnputs (Gnll)); j++) 
{ 

Input J = (GNL_VAR) BListElt (Gnllnputs (Gnll), j); 
if (Istrcmp (InputNamel, GnlVarName (InputJ))) 

{ 

Found - 1; 

free (InputNamel) ; 

BListElt (Listlnputsl, i) = (int) InputJ; 
BListDellnsert (Gnllnputs (Gnll), j+1); 
break; 

} 

} 

if {) Found) 

{ 

fprintf (stderr, 

" ERROR: Input signal '%s' not found in ■ %s'\n", 
InputNamel, GnlName (Gnll) ) ; 

exit (1) ; 

} 

} 

if (BListSise (Gnllnputs (Gnll)) 1= 0) 
{ 

fprintf (stderr, " ERROR; unassociated input signals: '*) ; 
for (j=0; j<BListSize (Gnllnputs (Gnll)); j++) 
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{ 

InputJ = (GNL_VAR) BListElt (Gnllnputs (Gnll), j); 
fprintf (stderr, "%s », GnlVarName (InputJ)); 

fprintf (stderr, "\n"); 
exit (l); 

} 

BListQuickDelete (fcGnllnputs (Gnll) ) ; 
SetGnllnputs (Gnll, Listlnputsl) ; 

for (i=0; i<BListSize ( Li st Input s2 ) ; i++) 

InputNamel = (char* ) BListElt (Listlnputs2 , i) ; 
Found = 0; 

for |j=0; j<BListSize (Gnllnputs (Gnl2)) ; j++) 

InputJ = (GNL_VAR) BListElt (Gnllnputs (Gnl2) , j ) ; 
if (Istrcmp {InputNamel, GnlVarName (InputJ))) 

Found - 1; 

free (InputNamel) ; 

BListElt (Listlnputs2, i) = (int) InputJ; 
BListDellnsert (Gnllnputs (Gnl2), j+1); 
break; 

} 

} 

if ( I Found) 
{ 

fprintf (stderr, 

" ERROR: Input signal 1 %s f not found in ^s'Xn", 
InputNamel, GnlName (Gnl2)); 

exit (1) ; 

} 

} 

if (BListSize (Gnllnputs (Gnl2) ) I = 0) 

fprintf (stderr, " ERROR: unassociated input signals: ») ; 
for (j=0; j<BListSize (Gnllnputs (Gnl2)) ; j++) 

InputJ = (GNL_VAR) BListElt {Gnllnputs (Gnl2) , j); 
fprintf (stderr, "%s GnlVarName (InputJ)); 

fprintf (stderr, "\n"); 
exit (1); 

} 

BListQuickDelete (&GnlInputs (Gnl2) ) ; 
SetGnllnputs (Gnl2, Listlnputs2) ; 



for (i=0; i<BListSize (ListOutputsl) ; i++) 

InputNamel = (char*) BListElt (ListOutputsl, i) ; 
Found =0; 

for (j=0; j<BListSize (GnlOutputs (Gnll)); j++) 
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{ 

InputJ = (GNL_VAR) BListElt (GnlOutputs (Gnll) , j); 
if (istrcrap (InputNamel, GnlVarName (inputJ))) 

Found = 1 ; 

free (InputNamel) ; 

BListElt (ListOutputsl, i) = (int) InputJ; 
BListDellnsert (GnlOutputs (Gnll), j+1); 
break; 

} 

} 

if (! Found) 
{ 

f print f (stderr, 

" ERROR: Output signal »%s' not found in ? %s'\n n , 
InputNamel , GnlName (Gnl 1 ) ) ; 

exit (l); 

} 



BListQuickDelete (^GnlOutputs (Gnll) ) ; 
SetGnlOutputs (Gnll, ListOutputsl) ; 



for (i=0; i<BListSize (ListOutputs2 ) ; i++) 

InputNamel = (char*) BListElt (ListOutputs2 , i) ; 
Found = 0 ; 

for (j=0; j<BListSize (GnlOutputs (Gnl2)); 
{ 

InputJ = (GNL_VAR) BListElt (GnlOutputs (Gnl2) , j); 
if (Istrcmp (InputNamel, GnlVarName (InputJ))) 

Found = 1; 

free (InputNamel) ; 

BListElt (ListOutputs2, i) = (int) InputJ; 
BListDellnsert (GnlOutputs (Gnl2) , j+1); 
break; 

} 

} 

if (! Found) 

{ 

fprintf (stderr, 

" ERROR: Output signal 1 %s • not found in ^s'Xn' 1 , 
InputNamel, GnlName (Gnl2)); 

exit (1) ; 

} 

} 

BListQuickDelete (&GnlOutputs (Gnl2) ) ; 
SetGnlOutputs (Gnl2, ListOutputs2 ) ; 

} 

z* 

/* CmpGnlVarld 

/* 
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int CmpGnlVarld (Varl, Var2) 
GNL_VAR *Varl; 
GNL_VAR *Var2 ; 

{ 

if (GnlVarld (*Varl) < GnlVarld <*Var2)) 
return (-1) ; 

if (GnlVarld (*Varl) == GnlVarld (*Var2)) 
return (0) ; 

return (1) ; 

} 



/* 

/* GnlEcVerif ication 

/* 

GNL_STATUS GnlEcVerif ication () 
{ 



int 


i; 


GNL 


Gnl; 


GNL 


Gnll; 


BLIST 


ListGnlsl; 


BLIST 


ListGnls2; 


LIBC__LIB 


GnlLib; 


GNL_LIB 


HGnlLib; 


int 


Done; 


FILE 


*OutFile; 


GNL_S TATUS 


GnlStatus; 


GNL 


TopGnll; 


GNL 


TopGnl2; 


GNL_NETWORK 


GlobalNetworkl ; 


GNL_NETWORK 


GlobalNetwork2; 


BLIST 


PISl; 


BLIST 


POsl; 


BLIST 


PIOsl; 


BLIST 


DffsOl; 


BLIST 


LatchsOl; 


BLIST 


TristatesOl; 


BLIST 


PIs2; 


BLIST 


POs2 ; 


BLIST 


PIOs2; 


BLIST 


Dffs02; 


BLIST 


Latchs02; 


BLIST 


Tristates02; 


int 


MaxNbNodes; 


int 


NbMay Errors ; 


BLIST 


GnllMayErrors ; 


BLIST 


Gnl2MayErrors ; 


int 


NbErrors; 


BLIST 


GnllErrors; 


BLIST 


Gnl2 Errors; 


BLIST 


GnlBadPatterns; 


GNL_VAR 


Varl ; 


GNL_VAR 


Var2 ; 


BLIST 


ListAssocIn; 


BLIST 


ListAssocOut ; 
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FILE *OutAssocFile ; 

FILE *InputAssocFile; 

BLIST Listlnputsl; 

BLIST Listlnputs2 ; 

BLIST ListOutputsl ; 

BLIST ListOutputs2 ; 



if (GnlEnvInput () ) 

{ 

if ( (OutFile = fopen (GnlEnvInput () , »r w )) == NULL) 
{ 

fprintf (stderr, » ERROR: Cannot Open Input File f %s'\n M , 

GnlEnvInput { ) ) ; 
return ( GNL_C ANNOT_0 PEN OUT F I LE ) ; 

} 

fclose (OutFile) ; 

} 

if (GnlEnvRef erence {) ) 

{ 

if ((OutFile = fopen (GnlEnvRef erence () , »r")) NULL) 

fprintf (stderr, " ERROR: Cannot Open Reference File ' %s'\n", 

GnlEnvRef erence () ) ; 
return (GNL_CANNOT__OPEN_OUTFILE) ; 

} 

fclose (OutFile) ; 

} 

if ((OutFile = fopen (GnlEnvLib () , "r")) == NULL) 
{ 

fprintf (stderr, " ERROR: Cannot Open Library File ^s'Xn", 

GnlEnvLib { ) ) ; 
return (GNL_CANNOT_OPEN LIBRARY) ; 

} 

fclose (OutFile) ; 

if (GnlEnvInputFormat () 1= GNL INPUT VLG) 

{ 

fprintf (stderr, 

" ERROR: Verification must be done on Verilog netlist input\n"); 
return (GNL_CANNOT_OPEN INPUTFILE) ; 

} 

fprintf (stderr, "\n Reading Verilog file [%s] ...Xn", 

GnlEnvInput () ) ; 
if (GnlRead (GnlEnvInput () , &ListGnlsl) ) 
{ 

fprintf (stderr, " ERROR: Cannot Open Input File '%s'\n ,r , 

GnlEnvInput ( ) ) ; 
return (GNL_CANNOT OPEN INPUTFILE) ; 

} 

fprintf (stderr, " Verilog Netlist Analyzed\n" ) ; 

fprintf (stderr, "\n Reading Verilog file [%s] ...\n", 
GnlEnvRef erence () ) ; 
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if (GnlRead (GnlEnvRef erence () , &ListGnls2) ) 
{ 

fprintf (stderr, " ERROR : Cannot Open Input File ' %s , \n", 

GnlEnvRef erence ( ) ) ; 
return (GNL_CANNOT_OPEN_INPUTFILE) ; 

} 

fprintf (stderr, " Verilog Netlist Analyzed\n" ) ; 
fprintf (stderr, ,f \n") ; 

/* Sort and prints the list 'ListGnls T by putting first the top 
/* level modules 

SortTopLevelModules (ListGnlsl) ; 
SortTopLevelModules (ListGnls2) ; 

if (! GnlEnvTop () ) 
{ 

Gnll = (GNL) BListElt (ListGnlsl, 0) ; 
TopGnll = Gnll; 
fprintf (stderr, 

" WARNING: Top Level Module is [%s] by default\n", 

GnlName (TopGnll) ) ; 

} 

else 

{ 

/* Taking the top level module from the user 

TopGnll = NULL; 

for (i=0; i<BListSize (ListGnlsl) ; i++) 
{ 

Gnll = (GNL) BListElt (ListGnlsl, i) ; 

if ( ! strcmp (GnlName (Gnll) , GnlEnvTop ( ) ) ) 

{ 

TopGnll = Gnll; 
break; 

} 

} 

} 

if (TopGnll == NULL) 

{ 

fprintf (stderr, " ERROR: cannot find top-level module [%s] \ 

GnlEnvTop { ) ) ; 
return (GNL_CANNOT_FIND_TOP_LEVEL) ; 

} 

if ( I GnlEnvTop {) ) 
{ 

Gnll = (GNL) BListElt (ListGnls2, 0) ; 
TopGnl2 = Gnll; 
fprintf (stderr, 

" WARNING: Top Level Module is [%s] by default\n" , 

GnlName (TopGnl2) ) ; 

} 

else 

{ 

/* Taking the top level module from the user 
TopGnl2 = NULL; 

for (i=0; i<BListSize (ListGnls2) ; i++) 

{ 
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Gnll = (GNL) BListElt (ListGnls2, i) ; 
if ( ! strcmp (GnlName (Gnll) , GnlEnvTop { ) ) ) 
{ 

TopGnl2 = Gnll; 
break; 

} 

} 

} 

if (TopGnl2 == NULL) 
{ 

fprintf (stderr, " ERROR : cannot find top-level module [%s]\n ,, / 

GnlEnvTop ( ) ) ; 
return (GNL_CANNOT_FIND_TOP LEVEL) ; 

} 

/* we create the Global network. 

if (GnlCreateNetwork (TopGnll, &GlobalNetworkl) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlCreateNetwork (TopGnl2, &GlobalNetwork2) ) 

return (GNL_MEMORY_FULL) ; 

/* Reading and building the technology library 
fprintf (stderr, "\n Reading Library [%s] ...\n", 

GnlEnvLib < ) ) ; 
if (LibRead (GnlEnvLib ( ) , &GnlLib) ) 
{ 

fprintf (stderr, " ERROR: Library analysis aborted\n") ; 
return ( GNL_ERROR_L IBRARY READING) ; 

} 

fprintf (stderr, " Library analyzed\n") ; 

/* Checking correctness of the network 1 GlobalNetwork ' . 
if ( (GnlStatus = Gnl Che ckNet work (GlobalNetworkl) ) ) 

return (GnlStatus) ; 
if ((GnlStatus = GnlCheckNetwork (GlobalNetwork2 ) ) ) 

return (GnlStatus) ; 

fprintf (stderr, 

"\n Checking Hierachical interfaces from top module [%s] \n" , 
GnlName (TopGnll) ) ; 

/* We verify the correct connection between user components and 
/* their definitions and update some fields (Ref Count) . 
if (GnlUpdateNCheckHierarchylnterface (GlobalNetworkl, TopGnll, 

ListGnlsl) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlUpdateNCheckHierarchylnterface (GlobalNetwork2 , TopGnl2, 

ListGnls2) ) 

return (GNL_MEMORY__FULL) ; 

/* Peforming full flattening for both net lists */ 
fprintf (stderr, 

"\n Performing Flattening of modules in [%s] (f ile= ' %s 1 ) \n M , 
GnlName (TopGnll) , GnlEnvInput ( ) ) ; 
if (GnlFlattenFullGnlComponents (GlobalNetworkl, TopGnll, ListGnlsl) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, » Flattening done\n") ; 
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fprintf (stderr, 

"\n Performing Flattening of modules in [%s] { f ile= * %s ' ) \n" , 
GnlName (TopGnl2 ) , GnlEnvRef erence ( ) ) ; 
if {GnlFlattenFullGnlComponents (GlobalNetwork2 , TopGnl2, ListGnls2) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, » Flattening done\n"); 

/* We remove the buffers from the two netlists */ 
if (GnlReplaceBuf f er (TopGnll) ) 

return ( GNL_MEMORY__FULL ) ; 
if (GnlReplaceBuf fer (TopGnl2)) 

return (GNL_MEMORY_FULL) ; 

/* We link each component of all the Gnls in the network with the */ 
/* libc cells of same name. */ 
fprintf (stderr, " \n M ); 

fprintf {stderr, " Linking Components With Libc Cells\n" ); 
if (GnlLinkLib (GlobalNetworkl , TopGnll, GnlLib) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlLinkLib (GlobalNetwork2 , TopGnl2, GnlLib)) 

return (GNL__MEMORY_FULL) ; 

/* We modify the original GNL_USER_COMPONENT components according to * / 
/* to their linking libc cell. */ 
fprintf (stderr, » \n ,r ); 

fprintf (stderr, " Building Cell Functionalities \n" ) ; 
if (GnlReplaceAllComponentsWithLinkLibCells (GlobalNetworkl, TopGnll, 

GnlLib, 0)) 

return (GNL_MEMORY_FULL) ; 
if (GnlReplaceAllComponentsWithLinkLibCells (GlobalNetwork2 , TopGnl2 , 

GnlLib, 0)) 

return ( GNL_MEMORY_FULL ) ; 

/* We extract the Primarys IOs of both netlists and outputs of Dffs, */ 

/* latches, Tri-states */ 

if (GnlExtractTypeOfSignalsInGnl (TopGnll, &Plsl, &POsl, &PIOsl, 

ScDffsOl, SLatchsOl, &Tristates01) ) 

return (GNL__MEMORY__FULL) ; 

if (GnlExtractTypeOfSignalsInGnl (TopGnl2 , &PIs2 , &P0s2, &PIOs2 , 

&Df f s02 , &Latchs02 , &Tristates02 ) ) 

return (GNL_MEMORY_FULL) ; 



fprintf 


(stderr, " 


DESIGN: 


[%s] (file= 


' %s 1 ) \n" 








GnlName (TopGnll) 


, GnlEnvInput ( ) ) ; 






fprintf 


(stderr, " 




Pis 


%6d\n", 


BListSize 


(PIsl) ) ; 


fprintf 


(stderr, " 




POs 


%6d\n", 


BListSize 


(POSI) ) ; 


fprintf 


(stderr, " 




PIOs 


%6d\n" , 


BListSize 


(PIOsl) ) ; 


fprintf 


(stderr, " 




Dffs 


%6d\n" , 


BListSize 


(Dff sOl) ) ; 


fprintf 


(stderr, » 




Latches = 


%6d\n" , 






BListSize 


(LatchsOl) ) ; 








fprintf 


(stderr, " 




Tristates = 


%6d\n", 








BListSize 


(TristatesOl) ) ; 








fprintf 


(stderr, 


\n») ; 











fprintf (stderr, " DESIGN: [%s] (f ile= ' %s ' ) \n" , 
GnlName (TopGnl2) , GnlEnvRef erence { ) ) ; 
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fprintf 


(stderr, " 


Pis 


= %6d\n", 


BListSize 


(PIS2) ) ; 


f printf 


(stderr, " 


POs 


= %6d\n", 


BListSize 


(POs2) ) ; 


fprintf 


(stderr, " 


PIOs 


= %6d\n", 


BListSize 


(PIOS2) ) ; 


fprintf 


(stderr, » 


Dffs 


= %6d\n", 


BListSize 


(Df f s02) ) 


fprintf 


(stderr, « 


Latches 


= %6d\n'\ 








BListSize 


(Latchs02 ) ) ; 








fprintf 


(stderr, " 


Tristates = %6d\n" , 








BListSize 


(Tristates02) ) ; 








fprintf 


(stderr, ,f \n M ); 








if (BListSize (PIsl 


) != BListSize 


(Pls2) ) 







{ 

fprintf (stderr, " ERROR: Number of Pis are dif f erent . \n" ) ; 
exit (1) ; 

} 

if (BListSize (POsl) != BListSize (POs2)) 
{ 

fprintf (stderr, " ERROR: Number of POs are dif f erent An" ) ; 
exit (1); 

} 

if (BListSize (PIOsl) != BListSize (PIOs2) ) 
{ 

fprintf (stderr, " ERROR: Number of PIOs are dif f erent . \n" ) ; 
exit (1) ; 

} 

if (BListSize (DffsOl) != BListSize (Dffs02) ) 

{ 

fprintf (stderr, " ERROR : Number of Dffs are dif f erent . \n" ) ; 
exit (1) ; 

} 

if (BListSize (LatchsOl) != BListSize (LatchsOl) ) 

{ 

fprintf (stderr, " ERROR: Number of Latches are dif f erent . \n" ) ; 
exit (1); 

} 

if (BListSize (TristatesOl) 1= BListSize (Tristates02) ) 
{ 

fprintf (stderr, " ERROR: Number of TriStates are dif f erent . \n" ) ; 
exit (1) ; 

} 

GnlCleanVarForVerif ication (TopGnll) ; 
GnlCleanVarForVerif i cat ion (TopGnl2) ; 

qsort (BListAdress (PIsl), BListSize (PIsl), sizeof (GNL_VAR) , 
CmpGnlVarld) ; 

qsort (BListAdress (PIOsl), BListSize (PIOsl), sizeof (GNL_VAR) , 
CmpGnlVarld) ; 

/* We sort the names in the two lists according to their distance */ 

GnlResetVarHook (TopGnll) ,* 

GnlResetVarHook (TopGnl2) ; 

if (GnlSortClosestNames (PIsl, PIs2)) 

return (GNL_MEMORY_FULL) ; 
if (GnlSortClosestNames (POsl, P0s2)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlSortClosestNames (PIOsl , PIOs2) ) 
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return (GNL_MEMORY_FULL) ; 
if (GnlSortClosestNames (DffsOl, Dffs02)) 

return (GNL_MEMORY_FULL) ; 
if (GnlSortClosestNames (LatchsOl, Latchs02)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlSortClosestNames (TristatesOl , Tristates02 ) ) 

return (GNL_MEMORY_FULL) ; 



if (GnlModifyGnllnterfaceForVerif 
return ( GNL_MEMOR Y_FULL ) ; 

if (GnlModifyGnllnterfaceForVerif 

return (GNL_MEMORY_FULL) ; 

MaxNbNodes = GnlEnvMaxBddNode ( ) ; 
if (MaxNbNodes == 0) 
MaxNbNodes = 500; 



(TopGnll, PIsl, POsl, PIOsl, DffsOl, 
LatchsOl, TristatesOl) ) 



(TopGnl2, PIs2, P0s2, PIOs2, Dffs02, 
Latchs02 , Tristates02 } ) 



/* If the user asked for reading the ports associations in the */ 
/* file then we take them into account. */ 
if (GnlEnvInput Assoc ()) 

{ 

if (GnlReadFileAssoc (GnlEnvInput Assoc () , ScListlnputsl, 

6cListOutputsl, &ListInputs2, &List0utputs2 ) ) 
return (GNL_MEMORY_FULL) ; 

GnlModif yGnllnterf ace WithUser Assoc (TopGnll , TopGnl2 , 

Listlnputsl , ListOutputsl , 
^ Listlnputs2, ListOutputs2 ) ; 

fprintf (stderr, " Inputs Associations\n ! ' ) ; 

fprintf (stderr, " \n"); 

GnlPrintListLinkedVar (stderr, Gnllnputs (TopGnll) , 

Gnllnputs (TopGnl2) ) ; 

fprintf (stderr, M Outputs Associations\n") ; 

fprintf (stderr, " \n") ; 

GnlPrintListLinkedVar (stderr, GnlOutputs (TopGnll) , 

GnlOutputs (TopGnl2) ) ; 

/* If the user asked for printing the ports associations then we */ 
/* do it. */ 
i f ( GnlEnvOutput As soc ( ) ) 

{ 

if ( (OutAssocFile = fopen ( GnlEnvOutput As s oc () , '¥■)) == NULL) 

fprintf (stderr, 

" WARNING: Cannot Open Ports Associations File 1 %s , ...\n", 
GnlEnvOutputAssoc () ) ; 

} 

else 

{ 

fprintf (stderr. 
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" Printing Ports Associations in file ' %s'...\n", 
GnlEnvOutput Assoc ( ) ) ; 

GnlPrintPortAssociationsFile (OutAssocFile , TopGnll, TopGnl2) 
fclose (OutAssocFile) ; 

} 

} 



/* Creating list of inputs assoc */ 
if (BListCreate (&ListAssocIn) ) 

return ( GNL_MEMORY_FULL ) ; 
for (i=0; i<BListSize (Gnllnputs (TopGnll) ) ; i++) 

{ 

Varl = (GNL__VAR) BListElt (Gnllnputs (TopGnll), i) ; 
Var2 = (GNL_VAR) BListElt (Gnllnputs (TopGnl2), i) ; 
if (BListAddElt (ListAssocIn, (int)Varl)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (ListAssocIn, (int)Var2)) 

return ( GNL_MEMORY_FULL ) ; 

} 

/* Creating list of outputs assoc 
if (BListCreate (^ListAssocOut ) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<BListSize (GnlOutputs (TopGnll)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (TopGnll), 
Var2 = (GNL_VAR) BListElt (GnlOutputs (TopGnl2) , 
if (BListAddElt (ListAssocOut , (int)Varl)) 

return (GNL__MEMORY_FULL) ; 
if (BListAddElt {ListAssocOut, (int)Var2)) 

return (GNL_MEMORY_FULL) ; 

} 

fprintf (stderr, "\n") ; 
fprintf (stderr, " Performing Equivalence Checking. .. \n" ) ; 
if (GnlEquivCheckGnl (TopGnll, TopGnl2, ListAssocIn, ListAssocOut, 

MaxNbNode s , 

&NbMayErrors , &GnllMayErrors , &Gnl2MayErrors , 
&NbErrors , &GnllErrors , &Gnl2Errors , 
&GnlBadPat terns) ) 

{ 

fprintf (stderr, " ERROR: Critical Problem During 
Verif ication\n M ) ; 

exit (1) ; 

} 

fprintf (stderr, "\n") ,- 

fprintf (stderr, " Verification done !\n"); 
fprintf (stderr, "\n") ; 



return (GNL_OK) ; 

} 

/* EOF 



i); 
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} 

-gate { 

return ( C_GATE ) ; 
} 

(norl | not) { 

yylval . ival = C__NOT ; 
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cparse.l 



*{ 

/* 

/* 
/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


cparse . 1 


Version: 


1.1 


Modifications : 




Documentation : 




Class: non 




Inheritance : 





#include <stdio.h> 
#include <strings.h> 
ftinclude "c- tokens .h" 



char namebuf[256] 
extern int yylineno; 



/* to store temporaly the string 



NAME 
CR 

BLANK 



[a-zA-Z_0-9] [\S\/\<\>\ . 0-9a-2A-2__\ [\] \ (\) ] * 

[\n] 

[\\ \t] 



%% 



.model 



. end 



{ 

return ((int) '='); 

} 

{ 

return (C_MODEL>) ; 

} 
{ 

return (C_END) ; 
} 



. inputs 



. outputs 



.gate 



(norl | not) 



{ 

return (C_INPUTS) ; 
} 

{ 

return (C_OUTPUTS) ; 
} 

{ 

return (CJ3ATE) ; 

} 
{ 

yylval.ival = C_NOT; 
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return (C_NOT) ; 

} 



(and2 | and3 | and4 | and) { 

yylval.ival = C_AND; 
return (C AND) ; 



(nand2 | nand3 | nand4 | nand) { 

yylval . ival = C__NAND ; 
return (C NAND) ; 



(or2 | or3 | or4 | or) 



} 



yylval.ival = C_OR; 
return (C OR) ; 



} 



(nor2 | nor3 | nor4 | nor) { 

yylval.ival = C_NOR; 
return (C_NOR) ; 

} 

(xor2 | xor3 | xor4 | xor ) { 

yylval.ival = C_XOR ; 

return (C_XOR) ; 

} 

(xnor2 | xnor3 | xnor4 | xnor) { 

yylval.ival = C_XNOR; 

return (C_XNOR) ; 

} 



{ 

yylval.ival = C_ZERO; 
return (C_ZERO) ; 

} 
{ 

yylineno++ ; 

} 

{ 

strcpy (namebuf ,yytext) ; 
yylval. sval = namebuf; 
return (C_NAME) ; 

} 



{CR} 
{NAME} 



/* 

/* yywrap 
/* 

yywrap ( ) 

{ 
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return (1) ; 

} 



/*- 



-*/ 



o 
ci 

H 

m 

m 
m 
O 

m 
m 
m 
o 
o 
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*/ 






File: 


cparse .y 






*/ 


Version: 


1.1 




*/ 




Modifications : 






*/ 




Documentation : 




*/ 


*/ 




Class: none 






*/ 




Inheritance : 






*/ 





#include <stdio.h> 
#include <strings .h> 

#include "blist.h" 
# include "gnl .h" 



/* 

/* ERROR MESSAGES 

/* 

#define ERR__NEVER_DECLARED \ 

"# Error (l.%d) : Signal <%s> is not declared" 



/* 

/* EXTERN 



/* 

int 

extern char* 
GNL STATUS 



yy 1 ineno ; 

yytext ; 
GnlStatus; 



/* 

/* GLOBAL VARIABLES 



/* 

BLIST 
extern GNL 
GNL_VAR 
GNLJVAR 
int 
int 
char 



ListOfGnls; /* The main list storing all the GNLs 
CurrentGnl; /* The current Gnl /Module we process 
Var; 



VarRight; 
VarMsb; 
VarLsb ; 
*NewName; 
GNL_FUNCT I ON Ne wFunc t i on ; 

BLIST VarListSignal ; 

BLIST ListDef Param; 

char *InstanceName; 
GNL_NODE C s t Node ; 
int TheGate; 



/* Msb of current Var. 
/* Lsb of current Var. 



*/ 

*/ 



/*--- 
%} 

%union 



{ 

int ival; 
char *sval; 
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%start c nl 



/* Types for non - terminal s . 
%type <ival> gate 



/* Types 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 

%token 



for terminals 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 
<ival> 



C_OR 

C_NOR 

C_AHD 

C_NAND 

C_XOR 

C_XNOR 

C_NOT 

CJVIODEL 

C^INPUTS 

CJDUTPUTS 

C_END 

C_GATE 

C ZERO 



% token <sval> C NAME 



c nl 



yylineno = 1; /* Initialize at Irst line */ 

if (BListCreate (kListOf Gnls) ) 

return (GNL_MEMORY_FULL) ; 

} 

list module def 



list module def 



: /* no modules */ 

list module def module def 



module def 



C MODEL C NAME 



{ 

if (GnlCreate ($2, ScCurrentGnl) ) 

return { GNL_MEMORY_FULL ) ; 

} 

C_INPUTS list_inputs 
C_OUTPUTS list_outputs 
{ 

if ( (GnlStatus = GnlCreateAllSignals ( Current Gnl )) ) 
return (GnlStatus) ; 



} 



body 
C END 



list_inputs 



list_inputsl 
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list_outputs 



list_outputsl 



list_inputsl 



{ 



C_NAME 

/* We create a Var corresponding to the port, 
if ( (GnlStatus = GnlVarCreateAnciAddlnHashTable 

(CurrentGnl, $1, &Var) ) ) 

{ 

if (GnlStatus == GNL_VAR_EXISTS) 
return (GNL_VAR_EXISTS) ; 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlVarLineNumber (Var, yylineno) ; 

SetGnlVarDir (Var, GNL_VAR INPUT) / 



} 



list_inputsl C_NAME 
{ 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(CurrentGnl, $2, &Var) ) 



{ 



if (GnlStatus == GNL__VAR_EXISTS) 
return (GNL VAR EXISTS) ; 



return (GNL_MEMORY_FULL) ; 

} 

SetGnlVarLineNumber (Var, yylineno) ; 

SetGnlVarDir (Var, GNL_VAR__INPUT) ; 



} 



list_outputsl : C_NAME 

{ 



/* We create a Var corresponding to the port, 
if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(CurrentGnl , $1 , &Var) ) ) 

{ 

if (GnlStatus = = GNL_VAR_EXISTS) 
return (GNL_VARJEXISTS) ; 

return (GNL_MEMORY_FULL) ; 

} 

SetGnlVarLineNumber (Var, yylineno) ; 

SetGnlVarDir (Var, GNL VAR OUTPUT) ; 
} ~ ~ 

list_outputsl C_NAME 

{ 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(CurrentGnl, $2, &Var) ) ) 

{ 
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} 



if {GnlStatus == GNL_VAR_EXISTS) 
return (GNL_VAR_EXISTS) ; 

return ( GNL_MEMORY FULL) ; 

} 

SetGnlVarLineNumber (Var, yylineno) ; 

SetGnlVarDir (Var, GNL_VAR_OUTPUT ) ; 



body 



list_assigns_instances 



list__assigns_instances : 

I list_assigns_instances assign_or__instance 



assign_or instance 



instance 



instance 



gate 



CJ3ATE gate 

{ 



if (BListCreate (&VarListSignal) ) 
return ( GNL_MEMORY__FULL ) ; 

list_signals 

{ 

if (GnlAnalyzelnstance (CurrentGnl, TheGate, 

NULL, 

NULL, VarListSignal, 
yylineno, 1) ) 



} 


return { GNL_MEMORY__FULL ) ; 


C_NOT 








{ TheGate 
C_NOR 


= 263 


/* 


G_N0T in tokens. h */;} 


{ TheGate 
C_OR 


= 262; 


/* 


G_N0R in tokens. h */} 


{ TheGate 
C_AND 


= 260; 


/* 


G_0R in tokens. h */} 


{ TheGate 
C_NAND 


- 259; 


/* 


G_AND in tokens. h */} 


{ TheGate 
C_XOR 


= 261; 


/* 


G_NAND in tokens. h */} 


{ TheGate 
C_XNOR 


= 266; 


/* 


G_X0R in tokens. h */} 


{ TheGate 
C_2ER0 


= 267; 


/* 


GJCNOR in tokens. h */} 


{ TheGate 


= 0; / 


* G 


_N0R in tokens. h */} 



list_signals 

| list_signalsl 
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list_signalsl 



: C NAME 



C NAME 



if (GnlGetVarFromName (CurrentGnl, $3, &Var) ) 
i f ( GNL_VAR_NOT_EX I STS ) 

{ 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

( Current Gnl , $3 , &Var) ) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (CurrentGnl) , Var} ) 

return (GNL_MEMORY__FULL) ; 
SetGnlNbLocal (CurrentGnl , 

GnlNbLocal (CurrentGnl) +1) ; 



else 



} 



} 



return ( GNL_MEMORY_FULL ) ; 



if (BListAddElt (VarListSignal , (int)Var)) 
return ( GNL_MEMOR Y_FULL ) ; 

list_signalsl C NAME C NAME 

{ 

if | GnlGetVarFromName (CurrentGnl, $4, &Var) ) 

if (GNL_VAR_NOT_EXISTS ) 
{ 

if ( (GnlStatus = GnlVarCreateAndAddlnHashTable 

(CurrentGnl, $4, &Var) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (CurrentGnl), Var)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (CurrentGnl , 

GnlNbLocal (CurrentGnl) +1) ; 



else 



} 



} 



return (GNL_MEMORY FULL) ; 



} 



if (BListAddElt (VarListSignal, (int)Var)) 
return (GNLJVIEMORY FULL) ; 



%% 
/*■ 



/* yyerror 
/* 

yyerror ( ) 

{ 



fprintf (stderr, "C-READER (l.%d): syntax error near "%s'\n\ 
yylineno, yytext) ; 

exit (l); 
} 
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#include < stdio . h> 
ttinclude <stdlib.h> 
#include <ctype.h> 
#include <string.h> 
#include <malloc.h> 
#include <memory.h> 
#include <stdarg.h> 

struct MEMORY_BUFFER_REC 

{ struct MEMORYJBUFFERJREC *next; } ; 

typedef struct MEMORY_BUFFER_REC MEM0RYJ3UFFER_REC; 

# include "dmp_util .h" 

#define _mmb_size_no 3 0 

static int _mmb_size [__mmb_size_no] = { 

4, 8, 12, 16, 20, 24, 28, 32, 36, 40 

, 44, 48, 52, 56, 60, 64, 76, 80, 96,100 

, 104, 108,120,132,148,156, 160,276,392,548} ; 
static struct MEMORY JBUFFER_REC *_mmb_ptr [_mmb_size_no] = { 
NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL 

, NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL 

, NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL } • 
#if (DEBUGGINGS) 

static int _mmb_cnt [_mmb_size_no] = { 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}/ 
void mmb_usage (void) 

{ int i ; 

print f(" MMB USAGE REPORT \n"); 

for (i=0 ; i<_mmb_size__no; i++) 
^ printf ( "MMB [%2d] size=%3d count=%6d\n" , i ,_mmb_size [i] , _mmb__cnt [i] ) ; 

#endif 

void malloc_fail {) 

{ fprintf (stderr, » ERROR : memory allocation error, not enough memory \n") 
exit(l); } 

#if (DEBUGGING) 
#include <assert.h> 

static unsigned int max_mm_size=0 ; 
static int mem_size__used = 0; 

int get_mem_used(void) { return (mem size used); } 
#endif 

/* 

#define mmg_malloc (n) malloc (n) 

#define MEMORY_BLOCK_SIZE (256*1024) /* 256K */ 
#define MIN_MBLOCK_SIZE (12 8) /* 12 8K */ 

struct MEMORY_BLOCK_REC 

{ struct MEMORY_BLOCK_REC *next; 

char *ptr; 

int size; 

} ; 

typedef struct MEMORY_BLOCK_REC MEMORY_BLOCK_REC ; 
Static MEMORY_BL0CK_REC *avl_mblk=NULL, *used_mblk=NULL; 
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static void split jnem_block (struct MEMORY_BLOCK_REC *p) 
{ int i,reduced=l, sz; 

struct MEMORY_BUFFER_REC *ptr; 

while (reduced) { 
reduced^ 0 ; 

for (i=0;i<3 && i<_mmb_size_no; i++) { 
sz = _mmb_size [i] ; 
#if (DEBUGGING) 

SZ 4- = 8 ; 

#endif 

if (p->size >= sz) { 

reduced = 1; 
ptr = (MEMORY_BUFFER_REC *) p->ptr; 
ptr->next = _mmb_ptr[i] ; 

_mmb_ptr [i] = ptr; 

p->size -= sz; 
p->ptr += SZ; 

} 

} 

} 

} 

void *dmp_malloc (int n) 
{ int sz; 

void *ptr; 
#if DMP_OFF DEBUGGING 

ptr = (char *) malloc (n) ; 

memset ( (char *) ptr,0,n) ; 
#else 

register struct MEMORY_BLOCK_REC *amb, *prev=NULL; 
#if (DEBUGGING) 

assert ( (n%4) ==0) ; 

sz = n + 8 ; 
#else 

sz = n ; 
#endif 

if (avl_mblk==NULL) { 

avljnblk = amb = (struct MEMORY_BLOCK_REC *) malloc (sizeof ( struct 
MEMORY_BLOCK_REC) ) ; 

amb->ptr = (char *) malloc (MEMORY_BLOCK_S I ZE) ; 
#if (DEBUGGING) 

mem_size_used +- MEMORYJBLOCK SIZE; 
#endif 

if (amb->ptr==NULL) malloc_f ail ( ) • 
memset ( (char *) amb->ptr, 0 , MEMORY_BLOCK_SIZE) ; 
amb- >size= MEMORY_BLOCK_SIZE ; 
amb->next= NULL; 
} else { 

for (amb=avl_mblk;amb!=NULL; prev=amb, amb=amb->next ) 
if (amb->size>=sz) break; 
if (amb==NULL) { 

prev->next= amb= (struct MEMORY JBLOCK_REC *) malloc (sizeof ( struct 
MEMORY_BLOCK_REC) ) ; 

amb->ptr = (char *) malloc (MEMORY_B LOCK SIZE) ; 
#if (DEBUGGING) 

mem_size_used += MEMORY_BLOCK_S I ZE ; 

#endif 

if (amb->ptr==NULL) malloc_f ail ( ) ; 
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memset ( (char *) amb->ptr , 0 , MEMORY_BLOCK_SIZE) ; 
amb->size = MEMORY_BLOCK_SIZE ; 
amb->next= NULL; 

} 

} 

amb ->size - = s z ; 

ptr = (void *) amb->ptr; 

amb->ptr += sz; 

if (amb->size<32) { 

split_mem_block (amb) ; 

if (prev==NULL) avljnblk = amb->next; 
else prev->next = amb->next; 

amb->next = used_mblk; 
used_mblk = amb; 

} 

#endif 

return (ptr) ; 

} 

/* 

#if (DEBUGGING) 
#define DETECT 1 
#define ANALYSIS 2 
#define LOCATE 3 

#define MALLOC_S TREAM '7tmp/_malloc_strearn_" 
#define FREE_S TREAM "/tmp/_f ree__stream_" 
#define MEMLE AK_S TREAM M /tmp/_mem_leak_" 
#define FREEERR_S TREAM "/tmp/_f ree__err__ n 
#define DETECT_BUF_S I ZE 64 
#define MEM_ANY_S I Z E 64 
#define LEAKFLAG ■?» 
#def ine FERRFLAG • ? ' 
#def ine OK_FLAG 1 . ' 

static int memleak_detecting=0 ,memleak_locating=0 ; 

static int memleak_hold_chking=0 ; 

static int maddr_no=0 , f addr_no=0 ; 

static void *maddr_buf [DETECT_BUF__SIZE] ; 

static void *f addr_buf [DETECTJBUF_SIZE] ; 

static FILE *mfd=NULL, *f fd-NXJLL; 

static FILE *mafd=NULL, *fafd=NULL; 

static unsigned int no_of_maddr=0 , no_of_f addr=0 ; 

static char maddr_f lag [DETECT_BUF_SIZE] , f addr_f lag [DETECT_BUF_SIZE] ; 

static int maddri =DETECT_BUF_S IZE , f addr i =DETECT_BUF_S IZE ; 

struct MEMOR Y__ANY_RE C 

{ struct MEMORY_ANY_REC *next; 

void **addr; 

char *flag; 

int match, no; } ; 
typedef struct MEMORY_ANY_REC MEMORY_ANY_REC ; 
static struct MEMORY_ANY_REC *mem_any_l i s t =NULL ; 

static void dump_maddr (void *ptr) 
{ if (ptr J =NULL) { 

maddr_buf [maddr_no++] = ptr; 

no_of _maddr++ ; 
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} 

if (maddr_no>0) 

if ( (ptr==NULL) || (maddr_no — DETECT_BUF_SIZE) ) { 

(void) f write (maddr_buf, sizeof (void *) , maddr_no, mf d) ; 
maddr_no = 0; 

} 

} 

static void dump^f addr (void *ptr) 
{ if (ptri^NULL) { 

f addr__buf [f addr_no++] = ptr; 

no_of_f addr++; 

} 

if (faddr_no>0) 

if ( (ptr==NULL) || (faddr_no = = DETECT_BUF_SIZE) ) { 

(void) fwrite (faddrjouf , sizeof (void *) , f addr__no, f fd) ; 
f addr_no = 0 ; 

} 

} 

static struct MEMORY_ANY_REC *get__mem_any_rec (void) 
{ void *addr [MEM_ANY_SIZE] ; 

Struct MEMORY__ANY_REC *ptr ; 

int i,no; 

no = f read (addr, sizeof (void *) , MEM_ANY_SIZE, mf d) / 
if (no==0) return (NULL) ; 

ptr = (struct MEMORY_ANY_REC *) malloc (sizeof (struct MEMORY_ANY REC) ) ; 
ptr->match =0; ~ 
ptr->next = NULL; 
ptr->no = no; 

ptr->flag = (char *) malloc (sizeof (char) *MEM_ANY_SIZE) ; 
ptr->addr = (void *) malloc (sizeof (void * ) * MEM__AN Y_S I Z E ) ; 
for (i = 0,-i<no;i++) { 

ptr- >f lag [i] =LEAKFLAG; 

ptr->addr [i] =addr [i] ; 

} 

return (ptr) ; 

} 

static void open memany stream (int type) 
{ 

if (type == DETECT) { 

mf d = fopen (MALLOCJSTREAM, "w") ; 

ffd = f open (FREE__STREAM, "w") ; 

memleak_detecting = l ; 

memleak__locating = 0; 

assert (mfd! =NULL) ; 

assert (ffd! =NULL) ; 
} else if (type == ANALYSIS) { 

memleak_detecting = 0; 

memleak_locating = 0; 

mfd = f open (MALLOC_STREAM, M r") ; 

ffd = f open (FREE_STREAM, "r" ) ; 

mafd = f open (MEMLEAK_STREAM, "w" ) ; 

fafd = f open (FREEERR_STREAM, f, w" ) ; 

fprintf (stderr, "««< MEMORY LEAKING ANALYZING »»> please be patient 
■ •An"); 

assert (mfd ! =NULL) ; 
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assert ( f f d 1 =NULL) ; 
assert (mafd ! =NULL) ; 
assert (fafd!=NULL) ; 
} else if (type == LOCATE) { 

mafd = f open (MEMLEAK_STREAM , "r") ; 
fafd = f open (FREEERR_STREAM, "r") ; 

fprintf (stderr, "<<<<< MEMORY LEAKING LOCATING >>>>>\n M ); 
memleak_detecting = 0; 
memleak_locating = 1; 
assert (mafd I =NULL) ; 
assert ( fafd I =NULL) ; 
^ } else { fprintf (stderr, » open_memany_stream type error\n n ); } 

static void close__memany stream (int type) 
{ 

assert ( type==DETECT || type —LOCATE || type== ANALYSIS) ; 
if ( type==DETECT) { 

assert (mfd I =NULL && ffd!=NULL); 

dump_maddr (NULL) ; 

dump_f addr (NULL) ; 

fprintf (stderr, » [] # of mem alloc (free) = 
%d(%d) \n" ,no_of_maddr,no of f addr) ; 
} ~ " 

if (mfd!=NULL) { f close (mfd) ; mfd=NULL; } 
if (ffd!=NULL) { fclose(ffd); f f d-NULL; } 
if (mafd!=NULL) { f close (maf d) ; mafd=NULL; } 
if (fafd!=NULL) { f close (fafd) ; fafd=NULL; } 

} 

void memleak_analysis_of f (void) { memleak_hold_chking=l ; } 
void memleak__analysis_on(void) { memleak_hold_chking=0 ■ } 
void memleak_analysis_init (char c) 
{ if (c=='T') op en_memany_st ream (DETECT) ; 

else if (c== l C) open_memany_stream (LOCATE) ; 

memleak_hold__chking = 0; 

} 

void memleak_ana lysis (char c) 

{ int i, j ,k, free_no,mleak=0, ferr=0; 

void *faddr [MEM_ANY_SI2E] ; 

char f lag [MEM_ANY_SIZE] ; 

struct MEMOR Y_AN Y_RE C *head; 

if (c== ' C ) close_memany_stream (LOCATE) ; 

if (c!='T I ) return; 

(void) close_memany_stream (DETECT) ; 

(void) open_memany_stream (ANALYSIS) ; 

while (1) { 

free_no = f read (f addr, sizeof (void *) , MEM_ANY_SIZE, f f d) ; 
for (i=0;i<free_no;i++) flagfi] = FERRFLAG; 

for (i=0;i<free_no;i-f+) { 

if ( mem_any_l i s t = =NULL ) mem_any_list = get_mem_any_rec ( ) ; 
head = mem_any__list ; 
while (head!=NULL) { 

for ( j =0 ; j <head- >no; j ++) 
if (! (head- >f lag [ j ] ==OK_FLAG) ) 
if (head- >addr[j]==f addr [i] ) { 
flag [i] =head->f lag [j ] =OK_FLAG; 
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head- >match++ ; 
break; 

} 

if (j<head->no) break; 
if (head->next==NULL) { 

head->next = get_mem any rec(); 

} " " 

head=head- >next ; 

if (head==NULL) { /* EOF */ 

flag[i] = FERRFLAG; 

break; 

} 

} 

} 

while (mem_any_list ! =NULL) { 

if ( (mem_any_list->match==MEM_ANY_siZE) || (f ree_no ! -MEM_ANY__SIZE) ) { 
head = mem_any_list->next ; 

f write <mem_any_list->f lag, sizeof (char) , mem_any_list- >no, maf d) ; 
for { k= 0 ; k<mem_any_l i s t - >no ; k++ ) 

if (mem_any_list->flag[k]==LEAKFLAG) mleak++; 
f ree (mem__any_list- >addr) ; 
f ree (mem_any_list->f lag) ; 
free (mem_any_list ) ; 
mem_any_list = head; 

} 

else break; 

} 

if (free_no>0) { 

fwrite (flag, sizeof (char) , f ree_no, f af d) ; 
for (k=0 ; k<f ree_no; k++) 

if (flag [k] —FERRFLAG) ferr++; 

} 

if ( f re e__no <MEM__ANY__S IZE ) { /* DONE! */ 

if (mleak) fprintf (stderr, " ! ! ! WARNING !!! %d possible memory leak 
detected\n t1 ,mleak) ; 

else if (free_no==0) fprintf (stderr, "WARNING! ALL memory allocated are 
not freed. \n" ) ; 

else fprintf (stderr, " :") GOOD NEWS!! NO memory leak found. \n") ; 

if (ferr) 

fprintf (stderr, » ! ! ! WARNING ! ! ! %d possible memory free error 
detected\n n , ferr) ; 

if (max_mm_size>1024*5) 

fprintf (stderr, " Max Memory Usage: %d KBytes\n" , max_mm_size/1024 ) 
else fprintf (stderr," Max Memory Usage: %d Bytes \n" ,max_mm__size) ; 
break; 

} 

} 

(void) close_memany_stream (ANALYSIS) ; 
static void mleak error (int kind) 

{ t 

if (kind) fprintf (stderr, " possible memory leaking detected . \n n ) ; 
^ else fprintf (stderr, " possible incorrect memory free detected . \n" ) ; 

static void catch_maddr (void *ptr) 
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{ if ( maddr i > =DETE CT_BUF_S I Z E ) { 

(void) f read (maddr_f lag, sizeof (char) , DETECT_BUF_SIZE, maf d) ; 
maddri = 0 ; 

} 

if (maddr_f lag [maddri++] ==LEAKFLAG) { 
mleak_error (1) ; 

} 

} 

static void catch_f addr (void *ptr) 
{ if ( f addr i >=DETECT_BUF__S I ZE ) { 

(void) fread(faddr_f lag, sizeof (char) , DETECT_BUF_SIZE / fafd) ; 

faddri = 0; 

} 

if (f addr_f lag [f addri++] —FERRFLAG) { 
mleak_error (0) ; 

} 

} 

static void * meTnleak_any (void *ptr) 
{ 

assert (ptr I =NULL) ; 

if (memleak_hold_chking) return; 

if (memleak_detecting) dumpjnaddr (ptr) ; 

if (memleak__locating ) catchjriaddr (ptr) ; 

static void * f err_any (void *ptr) 
{ 

assert (ptr i=NULL) ; 

if (memleak_hold_chking) return; 

if (memleak_detecting) dump_f addr (ptr) ; 

if (memleak_locating ) catch_f addr (ptr) ; 

#endif 



#if DEBUGGING 

void dmp_error (char *s) 

{ 

fprintf (stderr, "dmp_error () : : %s\n",s); exit(l); 



void *dmp_set_bound (void *ptr,int i) 
{ int *I; 

I = (int *) ptr; 

I[0] = I [_mmb_size [i] /sizeof (int) +1] = i ; 
ptr = (void *) &(i [1] ) ; 
return (ptr) ; 



void *dmp_chk_bound (void *ptr, int i) 
{ int *I; 

I = (int *) ptr; 

I - (int *) &{l [-1] ) ; 

if (l[0]l=i) dmp_error ("free__mb_ptr underflow"); 

if (I [_mmb_size [i] /sizeof (int) +1] !=i) dmp_error ( "f ree_rabjptr underflow"); 
ptr = (void *) I; 
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memset ( (char *) ptr , 0x99 , _mmb_size [i] +8 ) 
return (ptr) ; 

} 

#endif 



void * get_mb_ptr (int i) 
{ void *ptr; 

#if DMP_OFF && DEBUGGING 

ptr = (char *) malloc (_mmb_size [i] ) ; 

memset ((char *) ptr , 0 , _mmb_size [i] ) ; 
#else 

if (_mmb__ptr [i] != NULL) { 

ptr = (void *) _mmb_ptr [i] ; 

_mmb_ptr[i] = _mmb_ptr [i] - >next ; 
#if DEBUGGING 

memset ((char *) ptr , 0 , _mmb_size [i] +8) ; 
#else 

memset {(char *) ptr, 0,_mmb_size [i] ) ; 
#endif 

} 

else { 
#if ( DEBUGG ING > 1 ) 

_mmb_cnt [i] ++; 
#endif 

ptr = (void *) dmp_malloc (_mmb_size [i] ) ; 
#if (DEBUGGING) 

max_mm_size + = _mmb_size [i ] ; 
#endif 
} 

#if (DEBUGGING) 

memleak_any (ptr) ; 

ptr - dmp_set_bound (ptr , i) ; 
#endif 
#endif 

return (ptr) ; 

} 

#if (DEBUGGING) 

void check_jnb_ptr (void *p,int i) 

{ register struct MEMOR Y_BUF FER_RE C *mb; 

#if ( DEBUGGING > 1 0 ) 

for (i=0 ; i<_mmb_size_no; i++) 

#endif 

for (mb = _mmb_ptr [i] ; mbi=NULL; mb=mb->next) 
if (mb p) { 

dmp_error ("fatal error: free a pointer more than once ..."); 

} 

#endif 

void f ree_mb_j>tr (void *p,int i) 

{ register struct MEMORY_BUFFER_REC *mb; 

#if DMP_OFF ScSc DEBUGGING 

free(p) ; 
#else 

#if (DEBUGGING) 

p = dmp__chk_bound (p, i) ; 
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f err_any (p) ; 
#endif 

#if (DEBUGGING>2) 

check_mb_ptr (p, i) ; 
#endif 

mb = ( MEMOR Y_BUFFER_REC *) p; 
mb->next = „mmb__ptr [i] ; 
_mmb_ptr [i] = mb; 
#endif 

} 

char text_buffer utility 

void * mm_dyn_buf fer {int elem_no,int elem_size, void *ptr,int ALLOC) 
{ int n, *i; 

register int 1 , h, mid, use; 

#if DMP_OFF && DEBUGGING 

n = (elem_si2e*elem_no+3) /sizeof (int) *sizeof (int) + sizeof (int); 
if (ALLOC) 

{ i = (int *) malloc (n) ; 

memset ( (char *) i,0,n); 

i [0] = elem_no ; 

ptr = (void *) {Sci [1] ) ; 

return (ptr) ; 
} else if (ptr ! -NULL) { 

i = (int *) ptr; 

ptr = (&i [-1] ) ; 

free (ptr) ; return (NULL) ; 
} else return (NULL) ; 

#else 

#if DEBUGGING 
int posl; 

if (! ALLOC) /* 0 for free */ 
{ if (ptr == NULL) return (NULL) ; 

ferr_any (ptr) ; 

i = (int *) ptr; 

elem_no = i [-1] ; 

} 

n = (elem_size*elem_no+3) /sizeof (int) *sizeof (int) + sizeof (int) * 2 
if (! ALLOC) {/* 0 for free */ 
if ( n > _mmb__size [_mmb_size_no-l] ) { 

ptr = (&i[-2]) ; 

i = (int *) ptr; 

if (i [0] !=elem_no || i [1] !-elem_no) /* p [0] =p [1] =64 ; */ 
dmp_error("non mm_dyn_buf f er free detected!"); 
} else { 

ptr = (&i [-1] ) ; 
i = (int *) ptr; 

posl = 1+ (elem_no*elem_size+3) /sizeof (int) ; 
if (i [posl] !=elem_no) /* p [0] =p [65] =64 ; */ 

dmp_error ( n mm__dyn_buf f er ary may be overflow!"); 

} 

#else 
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if (I ALLOC) /* 0 for free */ 
{ if (ptr == NULL) return (NULL) ; 

i = (int *) ptr; 

elem__no = i [-1] ; 

ptr = <&i [-1] ) ; 

} 

n = (elem_size*elem_no+3) /sizeof (int) *sizeof (int) + sizeof(int) 
#endif 

if ( n > _mmb_size [_mmb_size no-1] ) 

{ 

if (ALLOC) 

{ i = (int *) malloc(n); 
#if DEBUGGING 

max__mm_size += n; 

mem_size_used += n; 
#endif 

if (i==NULL) malloc_fail () ; 
memset ( (char *) i,0,n); 
i [0] = elem_no; 
#if DEBUGGING 

/* for double check! */ 

i [1] = elem_no ; 

ptr = (void *) {&i [2] ) ; 

#else 

ptr = (void *) (&i [1] ) • 

#endif 

#if (DEBUGGING) 

memleak__any (ptr) ; 
#endif 

return (ptr) ; 

} 

else { 
#if DEBUGGING>1 

memset ({char *) ptr, 0x99, n) ; 

#endif 

^ free(ptr); return (NULL) ; /* will be free all together! */ } 

use = 1 - 0; h = _mmb_size_no-l; 

while (l<=h) 

{ mid = (l+h)/2; 

if (_mmb_size [mid] <n) 

use = 1 - mid+1 ; 
else if (_mmb_size [mid] >n) 
{ use = mid; 
h = mid-1; 

} 

else { use = mid; break; } 



if (ALLOC) 

{ if (_mmb_ptr [use] 1= NULL) { 
i = (int *) _mmb_ptr [use] ; 
_mmb_ptr [use] = _jnmb_ptr [use] ->next ; 
memset ((char *) i^^mmb size [use] ) ; 

} 
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else { 
#if DEBUGGING 

max__mm_size += _mmb_size [use] ; 
#endif 

#if (DEBUGGINGS) 

_mmb_cnt [use] ++; 

#endif 

i - (int *) dmp_malloc (__mmb size [use] ) 

} 

i [0] = elem_no; 
#if DEBUGGING 

posl = 1+ (elem_no*elem_size+3 ) /sizeof (int ) 

i [posl] = elem_no ; 
#endif 

ptr = (void *) (&i [1] ) ; 
#if (DEBUGGING) 

memleak_any (ptr) ; 
#endif 

return (ptr) ; 

} 

else 

{ struct MEMORY_BUFFER_REC *mb; 

#if (DEBUGGING>2) 

check_mb_ptr (ptr, use) ; 
#endif 



#if (DEBUGGING>1) 

memset( (char *) ptr , 0x99; _mmb_size [use] ) ; 
#endif 

mb = (MEMORY_BUFFER_REC *) ptr; 
mt>~>next = _mmb_j)tr [use] ; 
_mmb_ptr [use] = mb; 

return (NULL) ; 

} 

#endif 
} 

char * copy_char_array (char *ary) 
{ char *aryl; 
int i ; 

if (ary = = NULL) return (NULL) ; 

aryl - get_char_array ( sizeof_char_array (ary) ) 

for (i=0; i<sizeof_char_array (ary) ;i++) 

aryl [i] = ary [i] ; 

return (aryl) ; 

} 

char * copy__st ring (char *s) 
{ char *sl; 

if (s == NULL) return (NULL) ; 

si = get_text_buf fer (strlen(s) ) ; 

strcpy (si, s) ; 



E-HUBBLE-20 



dmp_util.c 



return (si) ; 

} 



char *var_text_buf fer (char ♦format, . . .) 

{ 

int 1 ; 

va_list args; 
char *res; 

static FILE *var_fp=NULL; 

va_start (args , format) ; 
if (var_fp==NULL) 

var_fp = fopen( n /dev/null M , "w" ) ; 
1 = vf printf ( var_f p , format , args ) ; 
res = get_text_buf f er (1) ; 
vsprint f (res , format , args) ; 
va_end (args) ; 
return (res) ; 

} 

char * cat_st rings (int n, ...) 
{ va_list args; 

char **sary, *str, *head; 

int i,sz=0; 

va_start (args,n) ; 
#if (DEBUGGING) 

assert (n<=32 ) ; 
#endif 

sary = get_ptr_buf f er (n) ; 
for (i=0;i<n;i++) { 

sary[i] = va_arg{args, char *) ; 

if (sary [i] !=NULL) sz+= strlen (sary [i] ) ; 

} 

va__end (args) ; 

head = str = get_text_buf f er (sz+1) ; 
for (i=0;i<n;i++) { char *c; 
if (sary [i] i -MULL) 

for (c=sary[i] ; *ci= , \0 I ; C++) { 
*str++ = *c; 

} 

} 

*str = ' \0' ; 

f ree__ptr_buf fer (sary) ; 

return (head) ; 

} 
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#ifndef DMPJJTILJDEF 

#define DMP_UTIL_DEF 1 

typedef char text_buffer; 

typedef char char_array; 

typedef int int_buffer; 

typedef float f loat_buf f er ; 

typedef short short_int ; 

typedef short_int short_int_buf f er ; 

#define get_ptr_buf f er (n) mm_dyn_buf f er ( (n) , sizeof (void *) , (void *)NULL,1) 
#define f ree_ptr_buf f er (p) mm_dyn_buff er ( 0 , sizeof (void *) , (void *)(p),0) 

#define get_int_buf f er (n) (int *) mm_dyn_buf fer ( (n) , sizeof ( int ), (void 
*)NULL, 1) 



tdefine get__f loat_buf f er (n) (float *) mm_dyn_buf fer { (n) , sizeof (float ), (void 
*)NULL, 1) 

#define f ree_int_buf f er (p) mm_dyn_buf fer (0 , sizeof (int ), (void *)(p),0) 

#define f ree_f loat_buf f er (p) mm_dyn_buf fer (0 , sizeof (float ), (void *)(p),0) 

#define get_short_int_buf f er (n) (short_int *) 
mm_dyn_buf f er ( (n) , sizeof (short_int) , (void *)NULL,l) 

#define f ree_short_int_buf f er (p) mm_dyn_buf fer (0 , sizeof {short int) , (void 
*) (p) ,0) 

#define get_text_buf f er (1) (char *) 

mm_dyn_buf fer ( ((( (int) (1) ) +4) /sizeof (void *) ) , sizeof (void *) , (void *)NULL,1) 

#define f ree__text_buf f er (p) mm_dyn_buf fer (0 , sizeof (void *) , (void *)(p),0) 

#define get_char_array (1) (char *) mm_dyn_buf fer (( 1 ), sizeof (char) , (void 
*)NULL, 1) 

#define f ree_char_array (p) mm_dyn_buf fer (0, sizeof (char) , (void *)(p),0) 
void *get_mb_jptr (int) ; 

void *mm_dyn_buf fer (int, int, void *,int); 

#define sizeof_char_array (p) { ( (p) ==NULL) ?0 : ( ( ( (int *) (p) ) [-1] ) ) ) 
#define sizeof_ptr_buf f er (p) { ( (p) ==NULL) ?0 : ( { (int *)(p))[-l])) 
ttdefine sizeof_int_buf f er (p) ( ( (p) ==NULL) ?0 : ( ( (int *)(p))[-l])) 
ttdefine sizeof_f loat_buf f er (p) ( ( (p) ==NULL) ?0 : ( { (int *) (p) ) [-1])) 
#define cat_2string (si , s2) cat_strings (2 , si , s2 ) 
#define cat_3 string (si , s2, s3) cat_strings (3, si, s2, s3) 
#def ine cat_4string ( si , s2 , s3 , s4 ) cat_strings (4,31,32,33,34) 
#define cat__5string (si , s2 , s3 , s4 , s5 ) cat_strings (5 , si , s2 , s3 , s4 , s5 ) 



char * copy_string (char *) ; 

char * var_text_buf fer (char *format, . . . ) ; 
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char * copy_char_array (char *) ; 
char * cat_strings (int , ...); 



/* 

memory management routine 

v 

#endif 
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#include "blist.h 11 
# inc 1 ude " gnl . h " 

#define LJNAME 257 
#define L_FLOAT 25 8 
#define L_INV 259 
#define L_NOTINV 260 
#define L_UNKN0WN 2 61 
#define L_GATE 262 
#define L_PIN 2 63 
typedef union { 

int ival / 

char *sval; 

GNL_NODE nval ; 

float fval; 

} YYSTYPE; 
extern YYSTYPE yyliblval; 
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/* 






/* 


File: 


ls2min . c 


/* 


Version : 


1. 1 


/* 


Modifications : 




/* 


Document - a t" i nn • 




/* 






/* 


Class : none 




/* 


Inheritance : 




/* 






/* 













#include <stdio.h> 



#include "blist.h" 

#include "gnl .h" 

#include "gnlmint .h" 

# inc lude " gnl cube . h " 



/* */ 

extern void GnlCubeFree (); 

/* v 

/* define */ 

/* v 

#defme FOUNDJJO_VAR 0 
# define ONLY_ONE_VAR 1 
ftdefine MORE__THAN_ONE_VAR 2 

v 

/* LsUpdateVarSet */ 
/* ic/ 



void LsUpdateVarSet (VarSet, Cube, NbCells) 
unsigned *VarSet; 
GNL_CUBE Cube; 
int NbCells; 

{ 

unsigned *CubeHigh; 
unsigned * Cube Low; 



CubeHigh = GnlCubeHigh (Cube) ; 
CubeLow = GnlCubeLow (Cube) ; 

while (NbCells--) 

* (VarSet++) | = GnlCubeVars (* (CubeHigh++) , * (CubeLow++) ) ; 



/* 

/* LsRemoveSpecif iedVar 

/* 

int LsRemoveSpecif iedVar (VarSet, VarMask, CellNb, NbCells) 
unsigned *VarSet; 
unsigned VarMask; 
int CellNb; 
int NbCells; 
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{ 

if ( (VarSet [CellNb] &= -VarMask) ! = 0) 
return (1) ; 

while (NbCells-- && (*(VarSet++) == 0)); 
return (NbCells >= 0) ; 

} 

/* 

/* LsGetFirstVar 

/* 

int LsGetFirstVar (VarSet, NbCells, VarMask) 
unsigned * VarSet; 
int NbCells; 
unsigned *VarMask; 

{ 

while (1) 

{ 

NbCells- -; 

if (NbCells 0) 

{ 

if (VarSet [NbCells] != 0) 
{ 

*VarMask = VarSet [NbCells] ; 

*VarMask ={*VarMask) & ~((*VarMask) - 1) ; 

return (NbCells) ; 

} 

} 

else 

return ( -1) ; 

} 

} 



/* 

/* LsCubeReverseVariable 

/* 

void LsCubeReverseVariable (Cube, CellNb, VarMask) 
GNL_CUBE Cube; 
int CellNb; 
unsigned VarMask; 

{ 

GnlCubeHigh(Cube) [CellNb] A = (VarMask); 
GnlCubeLow(Cube) [CellNb] A = (VarMask); 

} 

/* 

/* LsCubeRemoveVariable 

/* 

void LsCubeRemoveVariable (Cube, CellNb, VarMask) 
GNL_CUBE Cube; 
int CellNb; 
unsigned VarMask; 

{ 
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GnlCubeHigh(Cube) [CellNb] &= - (VarMask) ; 



GnlCubeLow(Cube) [CellNb] |= (VarMask); 

} 

/* 

/* LsCubeRemoveVariable */ 
/* *i 



int LsMonoFormVarExists (Cube, VarSet, NbCells) 
GNL_CUBE Cube; 
unsigned *VarSet; 
int NbCells; 

{ 

unsigned *High; 
unsigned *Low; 



High = GnlCubeHigh(Cube) ; 
Low = GnlCubeLow(Cube) ; 

while (NbCells--) 
{ 

if (GnlCubeSignif icantVars (* (High++) , * (Low++) , * (VarSet++) ) ) 
return (1) ; 

} 

return (0) ; 

} 



/* 

/* GnlCubeCompatible */ 

/* i(/ 

/* Assumption: Size < 0 indicates that only (High, Low) should be */ 

/* considered. Otherwise the complete Cube has to be processed. */ 

/* 



int GnlCubeCompatible (Cube, High, Low, NbCells, Typelnstantiate) 
GNL_CUBE Cube; 
unsigned *High; 
unsigned *Low; 
int NbCells; 
int Typelnstantiate; 

{ 

unsigned *CubeHigh; 
unsigned *CubeLow; 



if (NbCells <= 0) 
{ 

NbCells = -NbCells; 

return ( IGnlCubeVarClash (*High, *Low, 

GnlCubeHigh(Cube) [NbCells] , 
GnlCubeLow(Cube) [NbCells] , 
Typelnstantiate) ) ; 

} 



for (CubeHigh = GnlCubeHigh (Cube) , CubeLow = GnlCubeLow (Cube) ; NbCells- - 
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(High++) , (Low++) , (CubeHigh++) , (CubeLow++) ) 

{ 

if (GnlCubeVarClash (*(High), * (Low) # * (CubeHigh) , * (CubeLow) , 

Typelnstantiate) ) 

return (0) ; 

} 

return (1) / 

} 

/* v 

/* Lslnstantiate */ 

/*-- v 

/* Given the (High, Low) parts of an instantiator , find the Cubes */ 

/* compatible with it. The instantiator uses the conventionnal Cube */ 

/* values: 00 for normal form variable, 11 for complement form variable */ 

/* and 01 for absence of variable (10 is not used) */ 

z* * / 

GNL_STATUS Lslnstantiate (ListMaxCoverCubes , High, Low, NbCells, 

CompatibleList, Typelnstantiate) 
BLIST ListMaxCoverCubes ; 
unsigned *High; 
unsigned *Low; 
int NbCells ; 

BLIST CompatibleList ; 
int Typelnstantiate; 



{ 



int i ; 

GNL_CUBE Cube I, - 



} 



for (i=0; i<BListSize (ListMaxCoverCubes); i++) 

Cubel = (GNL_CUBE) BListElt (ListMaxCoverCubes, i) ; 

if (GnlCubeCompatible (Cubel, High, Low, NbCells, Typelnstantiate)) 

if (BListAddElt (CompatibleList, (int) Cubel)) 
return ( GNLJMEMORY FULL) ; 

} 

} 

return (GNLjOK) ; 



/* 

/* LsRemoveCubeVars 

/* 

int LsRemoveCubeVars (VarSet, Cube, Nbcells) 

unsigned *VarSet; 

GNL_CUBE Cube; 

int Nbcells; 

{ 

unsigned VarsRemain; 

unsigned *CubeHigh; 

unsigned *CubeLow; 
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CubeHigh = GnlCubeHigh (Cube) ; 
CubeLow = GnlCubeLow(Cube) ; 
VarsRemain = 0; 
while (Nbcells--) 
{ 

VarsRemain | = ( * (VarSet++ ) &= GnlCubeNonVars ( * (CubeHigh++ ) , 

* (CubeLow++) ) ) ; 



return (VarsRemain != 0); 

} 

/* 

/* GnlCubelsATautologyForVarSet 

/* 

int GnlCubelsATautologyForVarSet (Cube, VarSet, NbCells) 
GNL_CUBE Cube; 
unsigned *VarSet; 
int NbCells; 



{ 



unsigned * CubeHigh; 
unsigned * CubeLow; 



CubeHigh = GnlCubeHigh (Cube) ; 
CubeLow = Gnl CubeLow (Cube) ; 

while (NbCells--) 

{ 

if (GnlCubeSignif icantVars (* (CubeHigh++) , * (CubeLow++) , 

* (VarSet++) ) ) 

return (0) ; 

} 

return (1) ; 

} 

/* v 

/* LsDetermineTautology */ 

/* * 7 

/* This procedure returns 1 iff a "tautology" Cube exists in list */ 
/* 'LCubes ' . */ 
/* 

z ^ 

int LsDetermineTautology (LCubes, VarSet, NbCells) 
BLIST LCubes; 
unsigned * VarSet; 
int NbCells; 

{ 

int i ; 

GNL__CUBE Cube I; 



for (i=0; i<BListSize (LCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (LCubes, i) ; 

if (GnlCubelsATautologyForVarSet (Cubel, VarSet, NbCells)) 
return (1) ; 
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return (0) 



/* 

/* LsChooseBestVar */ 

/* 

GNL_STATUS LsChooseBestVar (ListCubes, VarSet, NbCells, VarMaskBest, 

CellNbBest) 

BLIST ListCubes; 

unsigned *VarSet; 

int NbCells; 

unsigned *VarMaskBest ; 

int *CellNbBest; 

{ 

int MaxONOFFOccur ; 

int MinDif f erence ; 

int NbONOccur; 
int NbOFFOccur ; 

int TotalOccur; 
unsigned VarMask; 
unsigned *VarSetl; 
int CellNb; 
int i ; 
GNL_CUBE Cubel; 



*CellNbBest = 0; 
MaxONOFFOccur = 0; 

MinDif f erence = BListSize (ListCubes) + 1; 

if (MintCopy (VarSet, NbCells, &VarSetl) ) 
return ( GNL _MEMORY_FULL ) ; 

while ((CellNb = LsGetFirstVar (VarSetl, NbCells, &VarMask) ) >= 0) 

(void)LsRemoveSpecif iedVar (VarSetl, VarMask, CellNb, NbCells); 
NbONOccur = NbOFFOccur = 0; 

for (i=0; i<BListSize (ListCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

if (GnlCubeSignificantONVars (GnlCubeHigh (Cubel ) [CellNb], 

GnlCubeLow (Cubel) [CellNb] , 

VarMask) ) 

NbONOccur++; 
else if (GnlCubeSignif icantOFFVars { 

GnlCubeHigh (Cubel) [CellNb] , 
GnlCubeLow (Cubel) [CellNb] , 
VarMask) ) 

NbOFFOccur++ ; 

} 

if (((TotalOccur = NbONOccur + NbOFFOccur) > MaxONOFFOccur) || 
( (TotalOccur == MaxONOFFOccur) && 
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(IntDif f (NbONOccur, NbOFFOccur) < MinDif f erence) ) ) 

{ 

MaxONOFFOccur = TotalOccur; 

MinDif f erence = IntDif f (NbONOccur , NbOFFOccur); 
*CellNbBest = CellNb; 
*VarMaskBest = VarMask; 

} 



} 

free ( (char* ) VarSetl) ; 
return (GNL OK) ; 



/* 

/* GnlCubeUniVar 

/* 

int GnlCubeUniVar (Cube, VarSet, NbCells, UVarCubeHigh, UVarCubeLow, 

UVar Ce 1 iNumbe r ) 

GNL_CUBE Cube; 

unsigned *VarSet; 

int NbCells ; 

unsigned * UVarCubeHigh ; 

unsigned * UVarCubeLow; 

int *UVarCellNumber; 



{ 



unsigned *CubeHigh; 

unsigned *CubeLow; 

unsigned CubeVars; 

int i ; 

int FoundOne 1=0; 



*UVarCellNumber = -l; 
CubeHigh = GnlCubeHigh (Cube) ,- 
CubeLow = GnlCubeLow(Cube) ; 

f °r (i = 0; i < NbCells; i++, CubeHigh++, CubeLow++, VarSet++) 

CubeVars = GnlCubeSignif icantVars (*CubeHigh, *CubeLow, *VarSet) 

switch (MintHasMoreOrLessThanOne_l (CubeVars)) { 

case 1: /* More than one "l" found */ 

return (MORE_THAN_ONE_VAR) ; 

case 0: /* Only one "1" found */ 

if (*UVarCellNumber >= 0) 

return (MORE_THAN_ONE_VAR) ; 
* UVarCubeHigh = *CubeHigh & * VarSet ; 
* UVarCubeLow = *CubeLow | ~*VarSet; 
*UVarCellNumber = i; 
FoundOne_l = 1; 
break; 

default : 

/* No "1" found */ 
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} 



} 



} 

return (FoundOne_l ? ONLY_ONE_VAR : FOUND_NO_VAR) 



/* LsDetermmeUmvar */ 
/* . 

/* This procedure returns 1 iff a Univar Cube exists in list ListCubes */ 

z* v 

mt LsDetermineUnivar (ListCubes, VarSet, NbCells, UVarHigh, UVarLow, 

UVarCellNumber) 

BLIST ListCubes; 
unsigned *VarSet; 
int NbCells; 
unsigned * UVarHigh; 
unsigned * UVarLow; 
int *UVarCellNumber; 



{ 



int i ; 
GNL_CUBE Cubel; 



for (i=0; i<BListSize (ListCubes); i++) 

{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

if (ONLY_ONE_VAR == GnlCubeUniVar (Cubel, VarSet, NbCells, 

UVarHigh, UVarLow, UVarCellNumber)) 

return (1) ; 

} 

return (0) ; 



/ 



/* 

/* LsDetermineVariableForms */ 
/* 

/* This procedure calculates a Cube indicating the forms in which the */ 
/* variables appear in the Cubes of the List. Convention is the */ 
/* following: */ 
/* 00 (11) : var appears only in complement (direct) form. */ 
/* 01 : var does not appear, 10 : var appears in both forms. */ 
/* ^ 

GNL_STATUS LsDetermineVariableForms (ListCubes, NbCells, VarSet, NewCube) 
BLIST ListCubes ; 
int NbCells; 
unsigned * VarSet; 
GNL_CUBE *NewCube; 

{ 

int i ; 

GNL_CUBE Cubel; 



/ 



if (GnlCubeFullAndCreate (NbCells, NewCube)) 
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return ( GNL_MEMOR Y__FULL ) ; 

for (i=0; i<BListSize (ListCubes) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
GnlCubeCumulativeMult (*NewCube, Cubel, NbCells); 

} 

while (NbCells--) 
{ 

GnlCubeHigh(*NewCube) [NbCells] &= VarSet [NbCells] ; 
GnlCubeLow(*NewCube) [NbCells] | = -VarSet [NbCells] ; 

return (GNL_OK) ; 

} 

/* v 

/* LsTautologyProof */ 

/* v 

/* This procedure returns 1 iff a ListCubes is a tautology for vars in */ 

/* VarSet. VarSet can be changed. */ 

/* #/ 

GNLJSTATUS LsTautologyProof (ListCubes, NbCells, VarSet, Proof) 

BLIST ListCubes; 
int NbCells; 
unsigned *VarSet; 
int *Proof; 

{ 

BLIST CurListCubes ; 

BLIST NewListCubesO ; 

BLIST NewListCubesl; 
int CellNb; 

unsigned VarFormHigh; 

unsigned VarFormLow; 

GNL_CUBE CubeForms; 

unsigned *VarSetl; 

BLIST ListAuX; 



if (BListCreateWithSize (BListSize (ListCubes), &NewList Cubes 1) ) 
return { GNL_MEMORY_FULL ) ; 

if ((CurListCubes = (BLIST) calloc (1, sizeof (BLIST_REC) ) ) = = NULL ) 
return ( GNLJVIEMOR YJFULL ) ; 

CurListCubes->Size = ListCubes - >Size ; 
CurListCubes ->NbElt = ListCubes - >NbElt ; 
CurListCubes ->Adress = ListCubes - >Adress ; 



*Proof = -1; 

while (LsDetermineUnivar (ListCubes, VarSet, NbCells, ^VarFormHigh, 

& VarFormLow, &CellNb) ) 

{ 

Lslnstantiate (CurListCubes, & VarFormHigh, &VarFormLow , -CellNb, 
NewListCubesl, INVERSE_INSTANTI ATE ) ; 
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if (BListSize (NewLi s t Cubes 1) == 0) 

*Proof = 0; 
else if ( ILsRemoveSpecif iedVar (VarSet, 

GnlCubeVars (VarFormHigh, VarFormLow) , 

CellNb, NbCells)) 

* Proof = 3; 

else if (LsDetermineTautology (NewListCubesl, VarSet, NbCells)) 
*Proof = 3; 

if (*Proof >= 0) 
{ 

BListQuickDelete ( &Ne wLi s t Cubes 1) ; 
free ((char *) CurListCubes) ; 
return (GNL_OK) ; 

} 

CurListCubes ->Size = NewLi st Cubes 1- >Size ; 
CurListCubes ->NbElt = NewListCubesl- >NbElt ; 
CurListCubes->Adress = NewListCubesl- >Adress ; 
NewListCubesl->NbElt = 0; 

} 

while (1) 
{, 

if (LsDetermineVariableForms (CurListCubes, NbCells, VarSet, 

&CubeForms) ) 

return ( GNL_MEMORY_FULL ) ; 

if ( ILsMonoFormVarExists (CubeForms , VarSet, NbCells)) 
break; 

/* Test if all variables are monoforms */ 
if ( ILsRemoveCubeVars (VarSet, CubeForms, NbCells)) 

* Proof = 0; 
else 

{ 

Lslnstantiate (CurListCubes, GnlCubeHigh (CubeForms) , 
GnlCubeLow( CubeForms) , 

NbCells, NewListCubesl, INVERSE_ INSTANT I ATE) ; 

/* 3 pterms with at least two variables cannot constitute */ 
/* a tautology */ 
if (BListSize (NewListCubesl) < 4) 
* Proof = 0; 

} 

if (*Proof >= 0) 

{ 

BListQuickDelete ( ScNewLi s t Cubes 1) / 
free ((char *) CurListCubes); 

GnlCubeFree (&Cube Forms) ; 

return (GNL_OK) ; 

} 
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CurListCubes->Size = NewListCubesl - >Size ; 
CurLi st Cubes ->MbElt = NewListCubesl - >NbElt ; 
CurListCubes->Adress - NewListCubesl->Adress ; 
NewListCubesl ->NbElt = 0; 

GnlCubeFree (&CubeForms) ; 

} 

GnlCubeFree UCubeForms) ; 

if (LsChooseBestVar (CurListCubes , VarSet, NbCells, &VarFormHigh, 

&CellNb) ) 
return ( GNL _MEMORY_FULL ) ; 

if (BListCreateWithSize (BListSize (CurListCubes), &Ne wList Cubes 0) ) 

return ( GNL_MEMORY_FULL ) ; 
/* BEWARE : CurListCubes is tied to NewListCubesl */ 

/* Instantiate on Complement Form */ 
VarFormLow = ~0; /*--> Simulate DC variables */ 

Lslnstantiate (CurListCubes, &VarFormHigh, ^VarFormLow, -CellNb, 
NewListCubesO , 

INVERSE_INSTANTIATE) ; 
/* Instantiate on Direct Form */ 

Lslnstantiate (CurListCubes, &VarFormHigh, ScVarFormLow, -CellNb, 
NewListCubesl , 

DIRECT_INSTANTTATE ) ; 

(void) LsRemoveSpecifiedVar (VarSet, GnlCubeVars (VarFormHigh, VarFormLow), 

CellNb, NbCells) ; 

if (BListSize (NewListCubesO) > BListSize (NewListCubesl)) 

{ 

ListAux = NewListCubesO; 
NewListCubesO = NewListCubesl ; 
NewListCubesl = ListAux; 

} 

if (MintCopy (VarSet, NbCells, &VarSetl) ) 
return (GNL_MEMORY__FULL) ; 

if (LsTautologyProof (NewListCubesO, NbCells, VarSet, Proof)) 
return ( GNL_MEMORY_FULL ) ; 

if (*Proof ScSc LsTautologyProof (NewListCubesl, NbCells, VarSetl, Proof)) 
return ( GNL_MEMORY_FULL ) ; 

BListQuickDelete ( &NewList Cubes 1 ) ; 
BListQuickDelete ( &NewList Cubes 0 ) ; 
free ((char *) CurListCubes); 
free ((char *) VarSetl); 

return (GNL_OK) ; 

} 

/* fe/ 



E-HUBBLE-35 



Is2min.c 



/* LsInclusionTest */ 



GNL_STATUS LsInclusionTest (ListMaxCoverCubes , Cube, NbCells, Proof) 
BLIST ListMaxCoverCubes ; 
GNL_CUBE Cube; 
int NbCells ,- 

int *Proof; 

{ 

int i ; 

BLIST CompatibleList ; 

unsigned * VarSet; 



if (BListCreate (&CompatibleList) ) 
return (GNL_MEMORY_FULL) ; 

if (Lslnstantiate (ListMaxCoverCubes, GnlCubeHigh (Cube) , 

GnlCubeLow(Cube) , NbCells, CompatibleList, 
DIRECT_INSTANTIATE) ) 
return (GNL_MEMORY_FULL) ; 

if (BListSize (CompatibleList) == 0) 

{ 

* Proof = 0; 

BListQuickDelete (&CompatibleList ) ; 
return (GNL_OK) ; 

} 

if (MintCreatelnitO (NbCells, &VarSet) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (CompatibleList); i++) 

{ 

LsUpdateVarSet (VarSet, (GNL_CUBE) BListElt (CompatibleList, i) , 
NbCells) ; 

} 

if ( ILsRemoveCubeVars (VarSet, Cube, NbCells)) 
{ 

*Proof = 1; 
free ( (char*) VarSet) ; 
BListQuickDelete (^CompatibleList ) ; 
return (GNL_0K) ; 

} 

if (LsDetermineTautology (CompatibleList, VarSet, NbCells)) 

* Proof = 2; 
free ( (char*) VarSet) ; 
BListQuickDelete (^CompatibleList ) ; 
return (GNL_0K) ; 

} 

if (LsTautologyProof (CompatibleList, NbCells, VarSet, Proof)) 
return ( GNL_MEMORY_FULL ) ; 

free { (char*) VarSet) ; 
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BListQuickDelete (&CompatibleList ) ; 
return (GNL_OK) ; 

} 



/* i[/ 

/* LsCubeExpand */ 

/* i[/ 

/* This procedures takes a cube 'Cube' as input and tries to expand it */ 
/* in several directions. Set variables (the one occuring in the Cube) */ 
/* are checked with their reverse value in order to get a new cube. If */ 
/* the cube is still included in • ListMaxCoverCubes 1 and then the */ 
/* expansion is kept otherwise we try the next set variable. */ 
/* 



GNL_STATUS LsCubeExpand (NbVar, NbCells, Cube, ListMaxCoverCubes, 

ExpandCube ) 

int NbVar; 

int NbCells; 

GNL_CUBE Cube; 

BLIST ListMaxCoverCubes; 

GNL_CUBE * ExpandCube; 

{ 

unsigned * VarSet; 
unsigned VarMask; 
int CellNb; 
int Included; 



if (MintCreatelnitO (NbCells, &VarSet) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlCubeCopy (NbCells, Cube, ExpandCube)) 
return ( GNL_MEMORY_FULL ) ; 

LsUpdateVarSet (VarSet, Cube, NbCells); 

while ((CellNb = LsGetFirstVar (VarSet, NbCells, &VarMask) ) >- 0) 
{ 

(void) LsRemoveSpecifiedVar (VarSet, VarMask, CellNb, NbCells); 

/* We modify the cube by reverseing the value of the set var */ 
LsCubeReverseVariable ( *ExpandCube , CellNb, VarMask) ; 

if (LsInclusionTest (ListMaxCoverCubes, *ExpandCube, NbCells, 

^Included) ) 
return (GNL_MEMORY_FULL) ; 

if (Included) 

LsCubeRemoveVariable (*ExpandCube, CellNb, VarMask) ; 
else 

LsCubeReverseVariable ( *ExpandCube , CellNb, VarMask) ; 

} 

free ((char *) VarSet) ; 
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return (GNL_OK) ; 

} 



/* 

/* LsMinListCubesPoor */ 

/* 

/* Procedure which performs the 2-level minimization on a list of cubes 

/* 'ListOnCubes ' with a don't care set expressed by T ListDCCubes ' 

/* 

GNL_STATUS LsMinListCubesPoor (ListOnCubes, ListDCCubes, NbVar, 

MinimizedListCubes ) 

BLIST ListOnCubes ; 
BLIST ListDCCubes; 
int NbVar; 
BLIST *MinimizedListCubes ; 

{ 

int i; 

int j ; 

int NbCells; 

GNL_CUBE Cubel; 

GNL_CUBE Cube J; 

BLIST ListMaxCoverCubes ; 

GNL_CUBE ExpandCube; 

GNL_CUBE NewCube; 



NbCells = NbOfCells (NbVar, BITS_PER_INT) ; 

/* The Max cover is the Union of theOn set and DC set */ 
if (BListCreate (^ListMaxCoverCubes) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (ListOnCubes); i++) 
{ 

if (BListAddElt {ListMaxCoverCubes, BListElt (ListOnCubes, i) ) ) 
return ( GNL_MEMOR Y_FULL ) ; 

} 

for (i=0; i<BListSize (ListDCCubes); i++) 
{ 

if (BListAddElt (ListMaxCoverCubes, BListElt (ListDCCubes, i) ) ) 
return (GNL_MEMORY FULL) ; 

} 

/* we copy 'ListOnCubes' into 'List Cubes' */ 
if (BListCreate (MinimizedListCubes) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i<BListSize (ListOnCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListOnCubes, i) ; 
if (GnlCubeCopy (NbCells, Cubel, &NewCube) ) 

return ( GNL_MEMORY__FULL ) ; 
if (BListAddElt { *MinimizedListCubes , (int) NewCube) ) 

return (GNL_MEMORY FULL) ; 

} 
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for (i=0; i<BListSize { *MinimizedListCubes) ; i++) 

{ 

Cubel = (GNL_CUBE) BListElt ( *MinimizedListCubes , i) ; 
#ifdef BUG 

/* We try to Expand the Cubel. The expanded cube is now * 
I * f ExpandCube ' . * / 

if (LsCubeExpand {NbVar, NbCells, Cubel, ListMaxCoverCubes , 
&ExpandCube) ) 
return (GNL_MEMORY_FULL) ; 

/* We replace the old cube 'Cubel r by its expansion */ 
GnlCubeFree (&CubeI) ; 

BListElt (*MinimizedListCubes, i) = (int) Cubel = (int) ExpandCube; 

#endif 

for (j=i+l ; j<BListSize (*MinimizedListCubes) ; j++) 

CubeJ = (GNL_CUBE) BListElt { *MinimizedListCubes , j); 
if (GnlCube Included (NbCells, CubeJ, Cubel)) 
{ 

(void) BListDellnsert ( *MinimizedListCubes , j+l) ; 
GnlCubeFree (&CubeJ) ; 
j--; 

} 

} 

} 

BListQuickDelete (&ListMaxCover Cubes ) ; 
return (GNL_OK) ; 



/* 

/* GnlSimplifyWithCube 

/* 

static BLIST G_ListCubeSameSize [5000] ; 

void GnlSimplifyWithCube (NbCells, Cube, Index, MaxCubeSize) 
int NbCells; 
GNL_CUBE Cube; 
int Index; 
int MaxCubeSize; 

{ 

int i ; 

int j ; 

GNL_CUBE CubeJ; 
BLIST NewList; 



for (i=Index; i <= MaxCubeSize; 

{ 

NewList = (BLIST) G_ListCubeSameSize [i] ; 
for (j=0; j<BListSize (NewList); j++) 
{ 

CubeJ = (GNL_CUBE) BListElt (NewList, j); 
if (GnlCube Included (NbCells, CubeJ, Cube)) 

{ 
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(void)BListDellnsert (NewList, j+l) ; 
GnlCubeFree UCubeJ) ; 



/* 

/* GnlAddSimplif iedCube 

/* 

GNL_STATUS GnlAddSimplif iedCube (NbCells, Cube, Index) 
int NbCells ; 

GNL_CUBE Cube; 
int Index; 

{ 

int i ; 
BLIST NewList; 
GNL_CUBE Cubel ; 



if ( !G_ListCubeSameSize [Index] ) 
{ 

if {BListCreateWithSize (1, &NewList) ) 
return (GNL_MEMORY_FULL) ; 

G_ListCubeSameSize [Index] = NewList; 

if (BListAddElt (NewList, (int) Cube)) 
return ( GNL _MEMORY_FULL) ; 

return (GNL_OK) ; 



NewList = G_ListCubeSameSize [Index] ; 
for (i=0; i<BListSize (NewList); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (NewList, i) ; 

if (Gnl Cube Identical (Cube, Cubel, NbCells) ) 

return (GNL_OK) ; 

} 

} 

if (BListAddElt (NewList, (int) Cube)) 

return { GNL_MEMORY_FULL ) ; 
return (GNL OK) ; 



/* Gnl Cube Image 



int GnlCubelmage (NbVar, Cubel, Cube2) 
int NbVar ; 

GNL_CUBE Cubel ; 
GNL_CUBE Cube 2; 

{ 

int LitCompleraent; 
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int 


i ; 


int 


Presl; 


int 


Pres2 ; 


int 


Vail; 


int 


Val2; 



LitComplement = -1; 

for (i=0; i<NbVar; i++) 
{ 

Presl = ((Vail = MintBitValue (GnlCubeHigh (Cubel) , i+1)) 
MintBitValue (GnlCubeLow (Cubel) , i+1) ) ; 

Pres2 = ( (Val2 = MintBitValue (GnlCubeHigh (Cube2 ) , i+1)) == 
MintBitValue (GnlCubeLow (Cube2 ) , i+1)); 

if (Presl i= Pres2) 
return (0) ; 

if (Presl && Pres2) 
{ 

if (Vail == Val2) 
continue; 

/* We already encountered a complement literal. */ 
if (LitComplement != -1) 
return (0) ; 

LitComplement = i; 

} 

} 

/* case where the two cubes are exactly the same */ 
if (LitComplement == -1) 
return (0) ; 

/* we modify 'Cubel' : ex: cubel = a.b.c, cube2 = a.Ib.c 
/* cubel becomes : cubel = a.c */ 
MintResetBitValue (GnlCubeHigh (Cubel) , LitComplement+1) ; 
MintSetBitValue (GnlCubeLow (Cubel) , LitComplement+1) ; 

return (1) ; 



/* 

/* LsMinListCubes */ 

/* 

/* Procedure which performs a trivial 2 -level minimization, the list 
/* 'ListDCCubes ' is not taken into account in the minimization. 



GNL_STATUS LsMinListCubes (ListOnCubes , ListDCCubes, NbVar, 

MinimizedListCubes) 

BLIST ListOnCubes ; 
BLIST ListDCCubes ; 
int NbVar; 
BLIST *MinimizedListCubes ; 
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int i ; 

int j ; 

int k; 

int NbCells; 

int MaxCubeSize ; 

int CubeSize; 

BLIST NewList; 



GNL_CUBE NewCube ; 

GNL_CUBE Cube I; 

GNL_CUBE Cube J; 

GNL_CUBE CubeK; 

int RetryNewList ; 

int Added; 



NbCells = NbOfCells (NbVar, BITS_PER_INT) ; 

/* we reset the array represententing all the cubes sorted by size */ 
for (i=0; i<5000; i++) 
{ 

G_ListCubeSameSize [i] = NULL; 

} 

/* We copy each cube an put it inthe right place according to its */ 
/* number of litteral (e.g its size). */ 
MaxCubeSize = 0; 

for (i=0; i<BListSize (ListOnCubes) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListOnCubes, i) ; 
if (GnlCubeCopy (NbCells, Cubel, &NewCube) ) 
return (GNL_MEMORY_FULL) ; 

CubeSize = GnlCubeL it Number (NewCube, NbCells) ; 

if (CubeSize >= 5000) 
{ 

fprintf (stderr, 

" ERROR: problem of internal memory allocation\n M ) ; 

exit (1); 

} 

if (CubeSize > MaxCubeSize) 
MaxCubeSize = CubeSize; 

if ( !G_ListCubeSameSize [CubeSize] ) 

{ 

if (BListCreateWithSize (1, &NewList) ) 

return (GNL_MEMORY_FULL) ; 
G_ListCubeSameSize [CubeSize] = NewList; 

NewList = G_ListCubeSameSize [CubeSize] ; 

if (BListAddElt (NewList, (int) NewCube) ) 
return (GNL MEMORY FULL) ; 

} 

for (i=0; i <= MaxCubeSize; i++) 
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{ 

if (i == 0) 
{ 

/* Particular case where the one of the cube of size 0 */ 
/* is a tautology. */ 
/* If yes we return already. */ 
NewList = (BLIST)G_ListCubeSameSize [0] ; 
for (j=0; j<BListSize (NewList); 

CubeJ = (GNL__CUBE) BListElt (NewList, j); 
if (GnlCubelsTautology (CubeJ, NbCells) ) 
{ 

if (BListCreateWithSize (1, MinimizedListCubes) ) 

return ( GNL JVIEMOR Y_FULL ) ; 
if (BListAddElt ( *MinimizedListCubes , (int) CubeJ) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

} 

continue; 

} 

NewList - (BLIST)G_ListCubeSameSize [i] ; 
for (j=0; j<BListSize (NewList); 

CubeJ- (GNL_CUBE) BListElt (NewList, j); 
RetryNewList = 0; 

for (k=j+l; k<BListSize (NewList); k++) 
{ 

CubeK = (GNL_CUBE) BListElt (NewList, k) ; 

/* r CubeJ' and 'CubeK' have all the same literals except*/ 
/* one complemented: ex: a.b.c and a. Ib.c */ 
if (GnlCubelmage (NbVar, CubeJ, CubeK)) 
{ 

GnlCubeFree (&CubeK) ; 
BListDellnsert {NewList, k+1) ; 

/* 'CubeJ' is now a cube with one less literal. We * / 
/* will add the new cube in the i-1 list and remove*/ 
/* it from the present i-th list. */ 
BListDellnsert (NewList, j+1) ; 

/* We scan all the bigger cubes than this one and */ 
/* try to remove them. */ 
/* We start from Index list 'i'. */ 
GnlSimplifyWithCube (NbCells, CubeJ, i, 

MaxCubeSize) ; 

/* we add the simplified cube of size ' in the */ 
/* list of index i-1. */ 
if (GnlAddSimplifiedCube (NbCells, CubeJ, i-1)) 
return (GNL_MEMORY__FULL) ; 

i--; 

RetryNewList = 1; 
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break; 

} 

} 

if (RetryNewList) 
break; 

} 

} 

if (BListCreateWithSize (1, Minimi zedList Cubes ) ) 
return ( GNL_MEMORY_FULL) ; 

for (i=l; i MaxCubeSize; i++) 

{ 

MewList = (BLIST) G_ListCubeSameSize [i] ; 
if (INewList) 
continue ; 

for (j=0; j<BListSize (NewList) ; j++) 

{ 

CubeJ = (GNL_CUBE) BListElt {NewList, j); 
if (BListAddElt { *MinimizedListCubes , (int) CubeJ)) 
return (GNL_MEMORY FULL) ; 

} 

BListQuickDelete (&NewList) ; 

} 

for (i=0; i<BListSize ( *MinimizedListCubes ) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt ( *MinimizedListCubes , i) ; 

for (j=i+l; j<BListSize (*MinimizedListCubes) ; j++) 

CubeJ = (GNL_CUBE) BListElt (*MinimizedListCubes , j); 
if (GnlCubelncluded (NbCells, CubeJ, Cubel)) 

{ 

(void)BListDellnsert ( *MinimizedListCubes , j+l) ; 
GnlCubeFree (&CubeJ) ; 
j--; 

} 

} 

} 



/ 



* 



fprintf (stderr, » Gain = %d -> %d\n", BListSize (ListOnCubes) , 
BListSize (*MinimizedListCubes) } ; 

*/ 

return (GNL OK) ; 

} 

/* 

/* GnlMakeFunctionsFlattenable *, 
/* 

GNL_STATUS GnlMakeFunctionsFlattenable (Gnl, MaxCubes) 
GNL Gnl; 
int MaxCubes ; 
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{ 

return (GNL_OK) ; 

} 



/* LsMinGnl 



/* When this procedure is invoking Fields 'GnlFunctionOnSetCubes' and */ 
/* 1 GnlFunctionOnSetCubes 1 of each function must have been set. The */ 
/* 2 -level minimization will try to minimize 'GnlFunctionOnSetCubes* of */ 
/* each function according to the don't care set 'GnlFunctionOnSetCubes'*/ 
/* So this list will be physically modified and pointed Cubes can be */ 
/* physically freed. */ 
/*■ If 'RecreateNode' is 1 then the ' FunctionOnSet ' nodes are removed */ 
/* and recreated from the ' FunctionOnS et Cubes ' expression. If not */ 
/* the 'FunctionOnSet' are preserved. */ 



GNL_STATUS LsMinGnl (Gnl, RecreateNode) 



GNL 


Gnl; 




int 


RecreateNode ; 


int 




NbVar; 


int 




NbCells; 


int 




i; 


GNL_FUNCTION 


FunctionI ; 


BLIST 




ListOnCubes; 


BLIST 




ListDCCubes; 


BLIST 




MinimizedListCubes; 


GNL_VAR 




Varl ; 


GNL 




NewGnl ; 


BLIST 




ListVariables ; 


GNL_NODE 




NewNode ; 


int 




Ratio; 



/* number of variables in the design. 

NbVar = BListSize (Gnllnputs (Gnl)) + BListSize (GnlOutputs (Gnl)) + 
BListSize (GnlLocals (Gnl) ) ; 

/* Number ot Ints to code the variables. 
NbCells = NbOfCells (NbVar, BITS_PER_INT) ; 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

ListOnCubes = GnlFunctionOnSetCubes (FunctionI) ; 
ListDCCubes = GnlFunctionDCSetCubes (FunctionI); 



#ifdef TRACE 

/* Printing the cubes . . . 
GnlListCubesPrint (stderr, NbVar, 

GnlFunctionOnSetCubes (FunctionI) ) ; 

#endif 
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if (BListSize (ListOnCubes) < 100) 
{ i 

if (LsMinListCubes (ListOnCubes, ListDCCubes, NbVar, 

ScMinimizedListCubes) ) 
return (GNL_MEMORY_FULL) ; 

/* Replacing the Old On set expression by the minimized one */ 
BListDelete ( ^ListOnCubes , GnlCubeFree) ; 
GnlFunctionOnSetCubes (FunctionI) = MinimizedListCubes; 

} 

else /* For big functions... */ 

{ 

Ratio = GnlListCubesLitNumber (ListOnCubes, NbCells) / 

BListSize (ListOnCubes) ; 
if (Ratio > 10) 

{ 

if (LsMinListCubes (ListOnCubes, ListDCCubes, NbVar, 

^MinimizedListCubes) ) 
return (GNL_MEMORY_FULL) ; 

/* Replacing the Old On set expression by the minimized one*/ 
BListDelete ( &List On Cubes , GnlCubeFree) ; 
GnlFunctionOnSetCubes (FunctionI) = MinimizedListCubes; 

} 

} 

} 

if ( ! RecreateNode) 
return (GNL__OK) ; 

/* we delete all the nodes of 'Gnl 1 . */ 
GnlFreeNodesSegments (Gnl) ; 

if (BListCreate (^ListVariables) ) 

return ( GNL_MEMORY_FULL ) ; 
for (i=0; i<BListSize (Gnllnputs (Gnl)); 
{ 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnl), i) ; 
if (BListAddElt (ListVariables , (int)Varl)) 
return <GNL_MEMORY FULL) / 

} 

for (i=0; i<BListSize (GnlOutputs (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnl), i) ; 
if (BListAddElt (ListVariables, (int) Varl) ) 
return ( GNL_MEMOR Y FULL) ; 

} 

for (i=0; i<BListSize (GnlLocals (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlLocals (Gnl), i) ; 
if (BListAddElt (ListVariables, (int) Varl)) 
return (GNL__MEMORY_FULL) ; 



for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 
{ 
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Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 

ListOnCubes = GnlFunctionOnSetCubes (FunctionI) ; 
if (GnlGetNodeFromListCubes (Gnl, ListVariables , ListOnCubes, 

&NewNode) ) 
return (GNL__MEMORY_FULL) ; 
SetGnlFunctionOnSet (FunctionI, NewNode) ; 

} 

return (GNL_OK) ; 

} 

/* 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


lsf act . c 


Version: 


l . 1 


Modifications : 




Document a. t ion : 




Class: none 




Inheritance : 





/* 

#define TRACE_F ACTOR I Z AT ION 
*/ 

#include <stdio.h> 

#include "blist.h" 

#include "gnl .h" 

#include "gnlmint . h" 

# inc lude 11 gnl cube . h " 

#include "lsf act. h" 

#include "gnlopt .h" 

#include "blist.e" 

/* 

extern void LsGlobalDivisorFree (); 

extern void GnlCubeFree () ; 

extern GNL_STATUS LsDivGainFunction {); 

extern GNL_STATUS LsDivChoiceFunction (); 

extern GNL_S TATUS LsExtractGainFunction (); 

extern GNL_S TATUS LsExtractChoiceFunction (); 

/* 

/* GLOBAL VARIABLES */ 
/* 

static LS__OPT_PANEL G_Opt Panel ; 

static int G_NbVar; 
static int G_NbCells; 

/* 

#define NB_STEP_FACTOR I Z AT I ON 13 

static int STEP__FACT [NB_STEP_FACTORI ZATION] = 

{100, 90, 80, 70, 60, 50, 40, 30, 20, 14, 8, 1, 0}; 



/* 

/* KernelSearchForDivision */ 

/* 

GNL_STATUS KernelSearchForDivision (ListListCubes , NbVar, 

KerNbMax, LastLKer, LastLLKer, 
Li s tEqua t ToCons i der ) 

BLIST ListListCubes ; 
int NbVar; 
int KerNbMax ; 



E-HUBBLE-48 



lsfact.c 



BLIST *LastLKer; 

BLIST *LastLLKer; 

BLIST ListEquatToConsider; 



int NbCubeMax; 

int i ; 

int I ; 

int NbCubel; 

BLIST ListCubesI; 



#ifdef TRACE_FACTORI ZATION 
fprintf (stderr, 

" Factorization: Global Kernel Extraction For DivisionXn") 

#endif 

if (BListSize (*LastLKer) == 0) 
{ 

NbCubeMax = 0; 



for (i = 0/ i < BListSize (ListListCubes) ; i++) 

ListCubesI = (BLIST) BListElt (ListListCubes, i) ; 
if (BListSize (ListCubesI) > NbCubeMax) 
NbCubeMax = BListSize (ListCubesI) ; 

if (BListCreateWithSize (5*NbCubeMax, LastLLKer) ) 

return (GNL_MEMORY_FULL) ; 
(*LastLLKer) ->NbElt = 5*NbCubeMax; 

} 

/* SEARCH OF GLOBAL KERNELS 

for |i = 0; i < BListSize (ListEquatToConsider); i++) 

I = (int)BListElt (ListEquatToConsider, i) ; 
ListCubesI = (BLIST) BListElt (ListListCubes, I); 
NbCubel = BListSize (ListCubesI) ; 
if (NbCubel > 1) 

if (LsExtractGlobalKernels (ListCubesI, I, 

*Las tLKer , *Las tLLKer , 
KerNbMax, 

G_Nb Var, 
G__NbCells) ) 
return (GNL_MEMORY_FULL) ; 



return (GNL_OK) ; 

} 

/* 

/* LsDivAlgebraic 

/* 

GNL__STATUS LsDivAlgebraic (ListCubes, CoKernel, Rest) 
BLIST ListCubes; 
GNL_CUBE CoKernel; 
BLIST *Rest; 



E-HUBBLE-49 



lsfactx 



int i ; 

GNL_CUBE Cube I; 
GNL_CUBE NewCube; 



if (BListCreateWithSize (1, Rest)) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i<BListSize (ListCubes) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
if ( IGnlCubelncluded (GJSTbCells, Cubel, 
CoKernel) ) 

{ 

if (GnlCubeCopy (GJSTbCells, Cubel, ScNewCube) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (*Rest, (int) NewCube) ) 
return ( GNL JVIEMORY FULL) / 

} 

} 



return (GNL_OK) ; 

} 

/* 

/* IntMemberOf List 

/* 

int IntMemberOfList (L, Int) 
BLIST L; 
int Int ; 

{ 

int i ; 



for (i = 0; i < BListSize (L) ; i++) 

if ((int) ( (L->Adress) [i] ) == Int) 
return (1) / 
return (0) ; 

} 



LsUpDateListKernels 


*/ 




List 1 LAllKer 1 is modified by this procedure. 




*/ 



GNL_STATUS LsUpDateListKernels (LAllKer, ListEq, ListRemoved) 
BLIST LAllKer; 
BLIST ListEq; 
BLIST ListRemoved; 

{ 

LS_GLOB_DIVISOR Boxl ; 

int i ; 

int k; 
int IndexK; 
BLIST ListCok; 
LS_COKERNEL CokK; 
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i = 0; 

while (i < BListSize (LAllKer) ) 
{ 

Boxl = <LS_GLOB_DIVISOR) BListElt (LAllKer, i) / 
ListCok = LsGlobDivisorCokernels (Boxl) ; 
k = 0; 

while (k < BListSize (ListCok)) 
{ 

CokK = (LS__COKERNEL) BListElt (ListCok, k) ; 
IndexK = LsCokernel Function (CokK) ; 
if (IntMemberOfList (ListEq, IndexK)) 
{ 

LsCokernelFree (ScCokK) ; 
BListDellnsert (ListCok, k + 1) ; 

} 

else 
k++; 

} 

if (BListSize (ListCok) == 0)/* We delete all the cokernels 

if (BListAddElt (ListRemoved, (int)BoxI)) 

return (GNL_MEMORY__FULL) ; 
LsGlobalDivisorFree (&BoxI) ; 
/* We then delete the couple I 
BListDellnsert (LAllKer, i + 1) ; 

} 

else 
i++ ; 

} 

return (GNL_OK) ; 

} 



/* 

/* LsExtendListCubes 

/* 

GNL_STATUS LsExtendListCubes (LCube, NbCelBefore, NbCelNow) 
BLIST LCube ; 
int NbCelBefore; 
int NbCelNow; 

{ 

int k; 
GNL_CXJBE CubeK; 
GNL_CUBE ExtCube; 



for (k = 0; k < BListSize (LCube); k++) 

{ 

CubeK = (GNL_CUBE) BListElt (LCube, k) ; 

if (GnlCubeAndExtend (NbCelBefore, NbCelNow, CubeK, ScExtCube) ) 
return ( GNL_MEMORY_FULL ) ; 

GnlCubeStructFree (CubeK) ; 

GnlCubeHigh (CubeK) = GnlCubeHigh (ExtCube) ; 
GnlCubeLow (CubeK) = GnlCubeLow (ExtCube) ; 
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free ((char *) ExtCube); 

} 

return (GNL OK) ; 



} 

/ 



/* # 



/* LsExtendListListCubes */ 

/* v 

GNL_STATUS LsExtendListListCubes (ListListCubes , NbVar) 

BLIST ListListCubes / 

int NbVar; 

{ 

int i ; 

int NbCelBefore; 

int NbCelNow; 

BLIST SubListI; 



NbCelBefore = (unsigned) NbOfCells (NbVar - 1, BITS_PER_INT) ; 
NbCelNow = (unsigned) NbOfCells (NbVar, BITS_PER INT) / 

if (NbCelBefore 1= NbCelNow) 
{ 

for (i = 0; i < BListSize (ListListCubes); i++) 

SubListI = (BLIST) BListElt (ListListCubes, i) ; 
if (LsExtendListCubes (SubListI, NbCelBefore, NbCelNow)) 
return (GNLJVIEMORY FULL) ; 

} 

} 

return (GNL_OK) ; 



z* 

/* LsExtendListKernels */ 
/* 1 

GNL_STATUS LsExtendListKernels (ListKer, NbVar, ExtendKernel, TypeOfStep) 
BLIST ListKer; 
int NbVar; 
int ExtendKernel ; 

int TypeOfStep; 



{ 



mt NbCelBefore; 
int NbCelNow; 
int i ; 

LS_GLOB_DIVISOR Boxl ; 

BLIST Kernel; 
BLIST ListCok; 
LS_LOC_DIVISOR Box2 ; 
GNL_CUBE Cokern; 
int k; 
GNL_CUBE CubeK; 
LS_COKERNEL CokK; 
GNL_CUBE ExtCube ; 
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NbCelBefore = (unsigned) NbOf Cells (NbVar - 1, BITS_PER_INT) ; 
NbCelNow = (unsigned) NbOfCells (NbVar, BITS_PER_INT) ; 

if (NbCelBefore NbCelNow) /* Actually nothing to extend 

return (GNL_OK) ; 

for (i = 0; i < BListSize (ListKer) ; i++) 
{ 

if (TypeOfStep == LS_FACT_DIVISION) 

{ 

Boxl = (LS_GLOB_DIVISOR)BListElt (ListKer, i) ; 
Kernel = LsGlobDivisorKernel (Boxl) ; 
ListCok = LsGlobDivisorCokernels (Boxl) ; 

} 

else 

{ 

Box2 = (LS_LOC_DIVISOR)BListElt (ListKer, i) • 
Kernel = LsLocDivisorKernel (Box2) ; 
Cokern = LsLocDivisorCokernel (Box2 ) ; 

} 

if (ExtendKernel) 

{ 

/* We extend the cubes representing the kernels, 
for (k = 0; k < BListSize (Kernel); k+ + ) 
{ 

CubeK = (GNL__CUBE)BListElt (Kernel, k) ; 
if (GnlCubeAndExtend (NbCelBefore, NbCelNow, CubeK, 

ScExtCube) ) 
return (GNL_MEMORY_FULL) ; 
GnlCubeStructFree (CubeK) ; 

GnlCubeHigh (CubeK) = GnlCubeHigh (Ext Cube) ; 
GnlCubeLow (CubeK) = GnlCubeLow (ExtCube) ; 
free ((char *) ExtCube); 

} 

} 

/* we extend the Cubes representing the cokernels. */ 
if (TypeOfStep LS_FACT_DIVISION) 

for (k = 0; k < BListSize (ListCok); k++) 
{ 

CokK = (LS__C0 KERNEL) BListElt (ListCok, k) ; 
Cokern = LsCokernelCube (CokK) ; 
if (GnlCubeAndExtend (NbCelBefore, NbCelNow, 

Cokern, &ExtCube) ) 
return (GNL_MEMORY_FULL) ; 
GnlCubeStructFree (Cokern) ; 

GnlCubeHigh (Cokern) - GnlCubeHigh (ExtCube) ; 
GnlCubeLow (Cokern) = GnlCubeLow (ExtCube) ; 
free ((char *) ExtCube); 

} 

else 

{ 

if (GnlCubeAndExtend (NbCelBefore, NbCelNow, Cokern, 

ScExtCube) ) 
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return (GNL_MEMORY__FULL) ; 
GnlCubeStructFree (Cokern) ; 

GnlCubeHigh (Cokern) = GnlCubeHigh (Ext Cube) ; 
GnlCubeLow (Cokern) = GnlCubeLow {ExtCube) ; 
free ((char *) ExtCube); 

} 



return (GNL OK) ; 



/* 

/* LsFindBestCandidate */ 

/* 

GNL_STATUS LsFindBestCandidate (Gnl, ListListCubes , ListKer, TypeOfStep, 

Threshold, GainFunction, ChoiceFunction, 
Bestlnd) 

GNL Gnl ; 

BLIST ListListCubes ; 

BLIST ListKer; 

int TypeOfStep; 

int Threshold; 

int (*GainFunction) (); 

int (*ChoiceFunction) (); 

int *BestInd; 



{ 



int i ; 

LS_GLOB_DIVISOR Boxl ; 

int GainOfThisKern; 

BLIST IndKernWithSameGain; 

LS_LOC_DIVISOR LocDivisorl; 

int MaxGain; 



MaxGain = 0 ; 

if (BListCreate (^IndKernWithSameGain) ) 

return ( GNL_MEMOR Y_FULL ) ; 
if (BListAddElt (IndKernWithSameGain, -1)) 

return (GNL_MEMORY_FULL) ; 

if (TypeOfStep == LS_FACT DIVISION) 
{ 

for (i = 0; i < BListSize (ListKer); i++) 
{ 

Boxl = (LS_GLOB_DIVISOR)BListElt (ListKer, i) ; 

/* Invoking the GAIN FUNCTION 
if ( (*GainFunction) (Gnl, ListListCubes, 
LsGlobDivisorKernel (Boxl) , 

LsGlobDivisorCokernels (Boxl) , 
G_NbCells, 
&GainOf ThisKern) ) 
return (GNL_MEMORY_FULL) ; 



E-HUBBLE-54 



Isfact.c 



if ( (GainOfThisKern > Threshold) 
(GainOfThisKern >= MaxGain) ) 

{ 

if (GainOfThisKern > MaxGain) 

{ 

IndKernWithSameGain->NbElt = 0; 

} 

if (BListAddElt ( IndKernWithSameGain, i) ) 

return { GNL_MEMOR Y_FULL ) ; 
MaxGain = GainOfThisKern; 

} 

} 

} 

else /* This is the LS_FACT_EXTRACTION */ 

{ 

for (i = 0; i < BListSize (ListKer) ; i++) 
{ 

LocDivisorl = (LS_LOC_DIVISOR) BListElt (ListKer, i) ; 
GainOfThisKern = LsLocDivisorGain (LocDivisorl) ; 

if ( (GainOfThisKern > Threshold) && 
(GainOfThisKern >- MaxGain) ) 

{ 

if (GainOfThisKern > MaxGain) 

{ 

IndKernWithSameGain~>NbElt = 0; 

} 

if (BListAddElt ( IndKernWithSameGain, i) ) 

return ( GNL_MEMORY__FULL ) ; 
MaxGain = GainOfThisKern; 

} 

} 

} 

/* we choose now the best candidate */ 
if ( (*ChoiceFunction) (Gnl, ListListCubes , ListKer, IndKernWithSameGain, 

G_NbCells, Bestlnd) ) 
return (GNL_MEMORY_FULL) ; 

BListQuickDelete (&IndKernWithSameGain) ; 

return (GNL__OK) ; 

} 



/* 

/* LsFactDivisionLoop 
/* 



GNLJSTATUS LsFactDivisionLoop (Gnl, ListListCubes, ListEqToCompute, 

LAllKer , LLAllKer, Threshold, DivisionDone) 

GNL Gnl ; 

BLIST ListListCubes; 
BLIST ListEqToCompute ; 
BLIST *LAllKer ; 
BLIST *LLAllKer ; 
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int 
int 



Threshold; 
*DivisionDone ; 



int 



I ndexBe st Candidate ; 



LS_GLOB_DIVISOR GlobDivisor I ; 


BLIST 


Kernel ; 


BLIST 


CopyList ; 


LS COKERNEL 


FirstCokBox; 


BLIST 


ListOf AllCoKern; 


BLIST 


ListCokernlnSameEquat ; 


GNL CUBE 


CoKernel ; 


int 


Tndf a 'X"Of : Fln'i] 3 1 * 


BLIST 


ListCubesI ; 


BLIST 


RestI; 


int 


j ; 


L S_COKERNEL 


CokBoxJ ; 


int 


NextlndexOfEquat 


GNL^CUBE 


NextCoKernel; 


GNL_CUBE 


Cube J ; 


BLIST 


ListRemoved; 


int 


k; 


BLIST 


List J; 


int 


m; 



*DivisionDone =0; /* No division done at that time */ 

if ( ILsOptPanelDoDiv (G_OptPanel) ) 
return (GNLjDK) ; 

/* While we found Kernels whose gain is greater than 'Threshold' we */ 
/* perforin the Division. */ 
while (1) 
{ 

/* We look for Kernels on • ListListCubes ' . */ 
if (KernelSearchForDivision (ListListCubes , 

G_NbVar , 

LsOptPanelMaxDivKer (G_Opt Panel) , 
LAllKer, LLAllKer , 

ListEqToCompute) ) 

return (GNL_MEMORY_FULL) ; 

/* We look for the Best Candidate in 1 * LAllKer 1 . This function */ 
/* returns the index of the Best Candidate. This one has a gain */ 
/* greater or equal than 'Threshold' . */ 
if (LsFindBestCandidate (Gnl, ListListCubes, * LAllKer , 

LS_FACT_D I VI S ION , Thr e s ho 1 d , 
LsOptPanelDivGainFunc (G_OptPanel) , 
LsOptPanelDivChoiceFunc (G_OptPanel) , 
SdndexBestCandidate) ) 
return (GNL_MEMORY_FULL) ; 

if (IndexBest Candidate == -1) 

{ 

BListQuickDelete (&ListEqToCompute) ; 
return (GNL_OK) ; 

} 
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else 

{ 

*DivisionDone = 1; 

GlobDivisorl = (LS__GLOB_DIVISOR) BListElt ( *LAllKer, 

IndexBestCandidate) ; 
Kernel = LsGlobDivisorKernel (GlobDivisorl) ; 

/* Creation of the sub-function corresponding to the kernel */ 
/* 'Kernel'. We add it at the end of list • ListListCubes ' . */ 
if (GnlCopyListOf Cubes (Kernel, ScCopyList, 
G_NbCells) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (ListListCubes, (int ) CopyList ) ) 

return (GNL_MEMORY_FULL) ; 

/* We have to create a new variable SFi . */ 
G_NbVar++; 

G_NbCells = (unsigned) NbOfCells (G_NbVar, BITS_PER_INT) ; 

/* We need to extend the cubes in 'ListListCubes'. */ 
if (LsExtendListListCubes (ListListCubes , 

G_NbVar) ) 
return (GNL_MEMORY_FULL) ; 

/* We need to extend the Cubes in the Kernel structures */ 
if (LsExtendListKernels (*LAllKer, 

G_NbVar, 1, 

LS_FACT_DIVISION) ) 
return (GNL_MEMORY_FULL) ; 

/* REnaming of 'Kernel' at the Cokernels level. */ 
ListEqToCompute->NbElt = 0; 

if (BListCopyNoEltCr (LsGlobDivisorCokernels (GlobDivisorl) , 

&ListOf AllCoKern) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (1, &ListCokernInSameEquat ) ) 

return (GNL_MEMORY_FULL) ; 

while (BListSize (ListOf AllCoKern) ) 
{ 

FirstCokBox = (LS_COKERNEL) 

BListElt (ListOfAllCoKern, 0) ; 
CoKernel = LsCokernelCube (FirstCokBox) ; 

if (BListAddElt (ListCokernlnSameEguat , (int ) CoKernel) ) 

return (GNL_MEMORY_FULL) ; 
IndexOfEquat = LsCokernelFunction (FirstCokBox) ; 
if (BListAddElt (ListEqToCompute , (int ) IndexOfEquat ) ) 

return (GNL_MEMORY_FULL) ; 

ListCubesI = (BLIST) BListElt (ListListCubes, 

IndexOfEquat) ; 
if (LsDivAlgebraic (ListCubesI, CoKernel, &RestI) ) 

return (GNL_MEMORY_FULL) ; 
BListDelete (&ListCubesI , GnlCubeFree) ; 

BListDellnsert (ListOf AllCoKern, 0 + 1) ; 
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/* we scan ' ListOf AllCoKern ' because there may be */ 
/* several Cokernels belonging at the equation of index*/ 
/* ' IndexOf Equat ' , Index of the lrst processed Cokernel*/ 
for (j = 0; j < BListSize (ListOf AllCoKern) ; j++) 

CokBoxJ = (LS_COKERNEL) BListElt (ListOf Al lCoKern , j); 
Next IndexOf Equat = LsCokernelFunction (CokBoxJ) ; 
if (NextlndexOf Equat IndexOf Equat) 

NextCoKernel = Ls Cokernel Cube (CokBoxJ) ; 
ListCubesI = RestI; 

if (LsDivAlgebraic (ListCubesI, NextCoKernel, 

&RestI) ) 

return (GNL_MEMORY_FULL) ; 
BListDelete ( ^ListCubesI , GnlCubeFree) ; 
if (BListAddElt (ListCokernlnSameEquat , 
(int) NextCoKernel)) 

return ( GNL_MEMORY_FULL ) ; 
BListDellnsert (ListOf AllCoKern, j + 1) ; 
j--/ 

} 

} 

/* Here, 'ListCokernlnSameEquat' contains kernels which*/ 
/* belong to equation of index 1 IndexOf Equat ' . */ 

/* we rename in equation of index r IndexOf Equat ' . Here */ 
/* we have 'ListCokernlnSameEquat 1 which is the list of*/ 
/* the Cokernels of the equation and 'RestI' which is */ 
/* the remainder of the division. We need to add one */ 
/* bit at the Cubes of list 'ListCokernlnSameEquat' */ 
/* corresponding to the new sub-function 'SFi'. Then we*/ 
/* append this list with 'RestI* in order to get the */ 
/* new form of equation of index ' IndexOf Equat ' . */ 
for (j=0; j < BListSize (ListCokernlnSameEquat); j++) 

CubeJ = (GNL_CUBE) BListElt (ListCokernlnSameEquat, j); 
MintSetBitValue (GnlCubeHigh (CubeJ) , 
G__NbVar) ; 

MintSetBitValue (GnlCubeLow (CubeJ) , 
G_NbVar) ; 

} 

if (GnlCopyListOf Cubes (ListCokernlnSameEquat , &CopyList , 

G_NbCells) ) 
return ( GNL__MEMORY_FULL ) ; 

if (BListAppend (CopyList, &RestI) ) 
return (GNL_MEMORY_FULL) / 

ListCokernlnSameEquat ->NbElt = 0; 

/* We modify the equation in ' ListListCubes ■ . */ 
BListElt (ListListCubes, IndexOf Equat ) - (int ) CopyList ; 



BListQuickDelete UListOf AllCoKern) ; 
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BListQuickDelete (&ListCokernInSameEquat ) ; 

/* This procedure returns information on objects which have been */ 
/* deleted in list ' * LAllKer ' . List ' ListRemoved ' contains pointer*/ 
/* of these objects. */ 
if (BListCreateWithSize (1, ^ListRemoved) ) 
return ( GNL_MEMORY_FULL ) ; 

if (LsUpDateListKernels ( * LAllKer , ListEqToCompute , ListRemoved)) 
return (GNL_MEMORY_FULL) ; 

/* We update list ' LLAllKer ' thanks to the list 'ListRemoved'. */ 
/* Reminder: LAllKer and LLAllKer point on same objects. */ 
for (k = 0; k < BListSize (ListRemoved); k++) 

f °r (j = 0; j < BListSize (*LLAllKer); j++) 

ListJ = (BLIST) BListElt (*LLAllKer, j); 
if (ListJ != NULL) 
{ 

for (m = 0; m < BListSize (ListJ); m++) 

if (BListElt (ListJ, m) BListElt (ListRemoved, k) ) 

BListDellnsert (ListJ, m + 1) ; 
break; 

} 

} 

} 

} 

} 

BListQuickDelete (&ListRemoved) ; 

/* We add to the list of equations to recompute later on the sub- */ 
/* function which has been created. */ 
if (BListAddElt (ListEqToCompute, (int) (BListSize (ListListCubes) -1) ) ) 
return (GNL MEMORY FULL) ; 

} 

} /* End of while (1) */ 

return (GNL_OK) ; 

} 



/* 

/* LsFactDivision 



*/ 

/* / 

GNL_STATUS LsFactDivision (Gnl, ListListCubes, Threshold, DivisionDone, 

LAllKer, LLAllKer) 

GNL Gnl ; 

BLIST *ListListCubes; 
int Threshold; 
ittt *DivisionDone ; 

BLIST *LAllKer ; 
BLIST * LLAllKer; 

{ 

int i ; 

int NbEquations; 



*/ 
*/ 
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GNL_VAR Varl; 
GNL_FUNCTION FunctionI ; 
BLIST ListCubesI; 
BLIST ListEqToCompute; 



#ifdef TRACE_FACTORI2ATION 

fprintf (stderr, » FACTORIZATION : Division\n" ) * 
#endif 

if (BListSize ( *ListListCubes ) ) 

NbEquations = BListSize (*ListListCubes) ; 
else 

NbEquations = BListSize (GnlFunctions (Gnl)) ; 

if (BListCreate ( ^ListEqToCompute) ) 
return (GNL_MEMORY_FULL) ; 

if {BListSize { *LAllKer) == 0) /* At the beginning */ 

for (i=0; i<NbEquations; i++) 

if (BListAddElt (ListEqToCompute, (int)i)) 
return (GNL MEMORY FULL) ; 

} 

/* True at the first call because after r *ListListCubes ' represents */ 
/* the current state of the boolean network. */ 
if (BListSize (*ListListCubes) == 0) 
{ 

for (i=0; i<BListSize (GnlFunctions (Gnl)); i++) 

Varl - (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 
FunctionI = GnlVarFunction (Varl) ; 
ListCubesI = GnlFunctionOnSetCubes (FunctionI) ; 
if (BListAddElt (*ListListCubes, (int) ListCubesI) ) 
return (GNL MEMORY FULL) ; 

} 

} 



if (LsFactDivisionLoop (Gnl, *ListListCubes, ListEqToCompute, LAllKer, 

LLAllKer, Threshold, DivisionDone) ) 
return ( GNL_MEMORY_FULL) ; 

return (GNL OK) ; 

} 

/* 

/* LsDeMorganSumToProd */ 
/* 1 

/* This procedure converts a sum of cubes with one single literal into */ 

/* a product of complemented literals. */ 

/* Ex: il+i2+...+in into ~il . ~i2 . . . . -in */ 
/* ' 

GNL_STATUS LsDeMorganSumToProd (ListCubes, Cube) 
BLIST ListCubes; 
GNL_CUBE *Cube; 
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int i ; 

int j ; 

int Val ; 

GNL^CUBE Cube I ; 



if (GnlCubeCreate (Cube)) 

return { GNL_MEMORY_FULL) ; 

if (GnlCubeAndStructCreatelnit (*Cube, GJtfbCells) ) 
return { GNL_MEMORY__FULL ) ; 

for (i = 0; i < BListSize (ListCubes) ; i++) 

{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
for (j = 0; j < G_NbVar; j++) 

{ 

if ({Val = MintBitValue (GnlCubeHigh (Cubel) , 3+1))== 
MintBitValue (GnlCubeLow (Cubel) , j + 1) ) 

{ 

if (Val) 
{ 

MintResetBitValue (GnlCubeHigh (* Cube) , j + 1) ; 
MintResetBitValue (GnlCubeLow (*Cube) , j + 1) ; 

} 

else 

{ 

MintSetBitValue (GnlCubeHigh (*Cube) , j + 1) ; 
MintSetBitValue (GnlCubeLow (* Cube) , j + 1) ; 

} 

} 

} 

} 

return (GNL_0K) ; 

} 

/* 

/* LsComplementeSumOf SingleVar 
/* 

GNL_STATUS LsComplementeSumOf SingleVar (ListListCubes , ComplementDone) 
BLIST ListListCubes; 
int *ComplementDone ; 

{ 

int i ; 

int j ; 

GNL_CUBE CubeJ; 

int NbOneCube; 

int Not End; 

BLIST ListCubesI; 

GNL_CUBE CubeProd; 

BLIST List Cube P r od ; 

BLIST ListOf OneVarListCubesI ; 

GNL_CUBE Cube; 
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#ifdef TRACE_FACTORI Z ATI ON 
fprintf (stderr, 

" FACTORIZATION: Complement Sum Single Var\n"); 

#endif 

if ( l LsOptPanelDoExt (GjOptPanel) ) 

{ 

* Complement Done = 0; 
return (GNL_OK) ; 

} 

for (i-0; i<BListSize (ListListCubes) ; i++) 
{ 

ListCubesI = (BLIST) BListElt (ListListCubes, i) ; 
if (BListCreateWithSize (1, &List Of OneVarListCubesI) ) 
return (GNL_MEMORY_FULL) ; 

NbOneCube = 0; 
NotEnd « 1; 
j = 0; 

while (NotEnd) 
{ 

if (j<BListSize (ListCubesI)) 

{ 

CubeJ = (GNL_CUBE) BListElt (ListCubesI, j); 
if (GnlCubeLitNumber (CubeJ, 

G_NbCells) 1) 

{ 

NbOneCube ++; 

if (BListAddElt (ListOf OneVarListCubesI , (int) CubeJ) ) 
return (GNL_MEMORY_FULL) ; 
BListDellnsert (ListCubesI, j +1); 

} 

else 

} 

else 

NotEnd = 0; 

} 

/* If at least there is a sum of cubes with unique variables then we* 
/* can complement it. */ 
if (NbOneCube > 1) 
{ 

* Complement Done = 1; 

/* we compute the complement of this sum of cubes. */ 
if (LsDeMorganSumToProd (ListOf OneVarListCubesI , &CubeProd) ) 
return (GNL_MEMORY_FULL) ; 

/* We create a sub-function corresponding to this sum of cubes. * 
if (BListCreateWithSize (1, &ListCubeProd) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (ListCubeProd, (int) CubeProd) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (ListListCubes, ( int ) ListCubeProd) ) 

return (GNL_MEMORY_FULL) ; 
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/* We create a new sub-function . */ 
G_NbVar++; 

G_NbCells = (unsigned) NbOfCells (G_NbVar, BITS_PER_INT) ; 

/* We need to extend the cubes */ 
if (LsExtendListListCubes (ListListCubes , 

GJNbVar) ) 
return ( GNL _MEMORY_FULL ) ; 

if (GnlCubeCreate (&Cube) ) 
return (GNL_MEMORY__FULL) ; 
if (GnlCubeAndStructCreatelnit (Cube, G_NbCells) ) 
return (GNL_MEMORY_FULL) ; 

MintResetBitValue (GnlCubeHigh (Cube) , G_NbVar) ; 
MintResetBitValue (Gnl Cube Low (Cube) , GJJbVar) ; ' 
if (BListAddElt (ListCubesI, (int)Cube)) 
return (GNL__MEMORY_FULL) ; 

BListDelete UListOfOneVarListCubesI , GnlCubeFree) ; 

else 

{ 

if (NbOneCube == 1) 
{ 

if (BListAddElt (ListCubesI, 

BListElt (ListOfOneVarListCubesI, 0) ) ) 
return (GNL MEMORY FULL) ; 

} 

BListQuickDelete (&ListOf OneVarListCubesI) ; 

} 

} 

return (GNL OK) ; 

} 

/* 

/* KernelSearchForExtraction 

/* 

GNL__STATUS KernelSearchForExtraction (ListCubes, NbVar, KerNbMax, 

LastListker, GainFunction, Gnl, 
ListListCubes) 

BLIST ListCubes ; 

int NbVar; 

int KerNbMax; 

BLIST *LastListker; 

GNL_STATUS ( *GainFunction) () ; 

GNL Gnl ; 

BLIST ListListCubes; 



#ifdef TRACE_F ACTOR I Z AT I ON 
fprintf (stderr, 

" FACTORIZATION: Local Kernel Extraction For ExtractionXn" ) 

#endif 
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return (LsExtractLocalKernels (ListCubes ; *LastListker , KerNbMax, 

NbVar , 

NbOf Cells (NbVar, BITS_PER_INT) , 
GainFunction, Gnl, ListListCubes) ) ; 

} 

/* 

/* LsSubstitutelnPTerm 

/* 

void LsSubstitutelnPTerm (Cubel, Cube 2 , Res) 

GNL_CUBE Cubel; 

GNL_CUBE Cube2; 

int *Res; 



{ 



} 



int 1; 
*Res s 0; 

if (GnlCubelncluded (G_NbCells, Cubel, Cube2)) 
{ 

for (i « 0; i < G_NbVar - 1; i++) 

{ 

if (MintBitValue (GnlCubeHigh (Cube2) , i + 1) == 
MintBitValue (GnlCubeLow (Cube2 ) , i + 1) ) 

{ 

/* we set it to Phi. */ 
MintResetBitValue (GnlCubeHigh (Cubel) , i + 1) ; 
MintSetBitValue (GnlCubeLow (Cubel ) , i + 1) ; 

} 

} 

MintSetBitValue (GnlCubeHigh (Cubel) , GJflbVar) ; 
MintSetBitValue (GnlCubeLow (Cubel ) , G_NbVar) ; 
*Res = 1; 

} 



/* , 

/* LsUpDateListKerExtraction */ 
/ * * 

GNLJSTATUS LsUpDateListKerExtraction (ListKern, Index, GainFunction, Gnl, 

ListListCubes) 

BLIST ListKern; 

int Index; 

GNL_STATUS ( *GainFunction) (); 

GNL Gnl ; 

BLIST ListListCubes ; 



{ 



int i ; 

LS_LOC_DIVISOR Boxl ; 

GNL_CUBE TheCommonPTerm; 

LS_L0CJDIVIS0R CurrentBox; 

GNL_CUBE CoK; 

BLIST Kernel; 

int j ; 

int k ; 

GNL_CUBE CubeK; 

int Comput eNewGain ; 
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int Res; 

int Intersect; 

int Gain; 



ComputeNewGain = 0; 

Boxl = (LS_L0C_DIVISOR)BListElt (ListKern, Index) ; 
TheCommonPTerm = LsLocDivisorCokernel (Boxl) ; 

BListDellnsert (ListKern, Index + 1) ; 

i = 0; 

while (i < BListSize (ListKern) ) 
{ 

CurrentBox = (LS_LOC_DI VISOR) BListElt (ListKern, i) ; 
CoK = LsLocDivisorCokernel (CurrentBox) ; 
Kernel = LsLocDivisorKernel (CurrentBox) ; 

/* lrst case: the cube common part is totally included in */ 
/* Cokernel. Ex: TheCommonPTerm = ab and candidate is (abed) */ 
/* [ef+g+l] then it becomes: (cdSFl) [ef+g+1] */ 
LsSubstitutelnPTerm (CoK, TheCommonPTerm, &Res) ; 

/* if not the case ... */ 
if (!Res) 
{ 

Intersect = 0; 

for (j - 0; j < G_NbVar; j++) 

{ 

if ((MintBitValue (GnlCubeHigh (CoK) , j + l) == 

MintBitValue (GnlCubeHigh (TheCommonPTerm) , j + 1) ) && 
(MintBitValue (GnlCubeLow (CoK) , j + l) == 
^ MintBitValue (GnlCubeLow (TheCommonPTerm) , j + 1) ) ) 

Intersect = 1; 
break; 

} 

} 

if (Intersect) 
{ 

/* If there is an intersection then 'TheCommonPTerm' may*/ 
/* overlap the Cube (CoK.CubeK) where 'CubeK' is one of */ 
/* the cubes of 'Kernel'. Then we have to remove this */ 
/* cube 'CubeK' */ 
k = 0; 

while (k < BListSize (Kernel)) 
{ 

CubeK = (GNL_CUBE) BListElt (Kernel, k) ; 
if (GnlCubelncluded (G_NbCells, 
CubeK, 

TheCommonPTerm) ) 

{ 

BListDellnsert (Kernel, k + 1) ; 
ComputeNewGain = 1; 

} 
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else 
k++; 



} 



/* Cleaning ... */ 
if (BListSize (Kernel) <= 1) /* if no more kernel ... * 
{ 

ComputeNewGain = 0; 
BListDellnsert (ListKern, i + l) ; 

BListQuickDelete (& (LsLocDivisorKernel (CurrentBox) ) ) ; 

GnlCubeFree (&CoK) ; 

free ( (char*) CurrentBox) ; 

} 

else 

{ 

i++; 

} 

} 

else 

{ 

ComputeNewGain = 1; 
i++ ; 

} 

if (ComputeNewGain) 

{ 

if ( (*GainFunction) (Gnl, ListListCubes , 

LsLocDivisorKernel (CurrentBox) , 
LsLocDivisorCokernel (CurrentBox) , 
G_NbCells , &Gain) ) 
return (GNL_MEMORY__FULL) ; 

SetLsLocDivisorGain (CurrentBox, Gain) ; 

} } 

return (GNL_OK) ; 

} 

/* #/ 

/* LsFactExtractionLoop */ 
/* / 

GNL_STATUS LsFactExtractionLoop (Gnl, ListCubes, ListListCubes, ListKern, 

Threshold, ExtractDone) 

GNL Gnl ; 

BLIST *ListCubes; 

BLIST *ListListCubes; 

BLIST *ListKern; 

int Threshold; 

int *ExtractDone; 

{ 

int i ; 

int j ; 

int IndexBestCandidate; 
GNL_CUBE TheCommonPTerm; 
GNL_CUBE NewComraonPTerm; 



/ 



E-HUBBLE-66 



lsfact.c 



GNL_CUBE Cube J; 

BLIST Kernel ; 

LS__LOC_DIVISOR Boxl; 

BLIST ListSubFct ; 
int Res ; 



*ExtractDone = 0 ; 

/* While there are Cokernels with a gain greater than 'Threshold 1 we * / 
/* performs the substitution. */ 
while (1) 
{ 

if (BListSize (*ListKern) == 0) 
{ 

/* we call the Cokernels research on * *ListCubes 1 */ 
if (KernelSearchForExtraction (*ListCubes, 

G_NbVar, 

LsOptPanelMaxExtKer (G_OptPanel) , 

ListKern, 

LsOptPanelExtGainFunc (G_OptPanel) , 

Gnl, 

*ListListCubes) ) 

return (GNL_MEMORY FULL) ; 

} 

/* we look for the best candidate in ' *ListKern'. */ 
if (LsFindBestCandidate (Gnl, *ListListCubes , *ListKern, 

LS_FACT_EXTRACTION, Threshold, 
LsOptPanelExtGainFunc (G_OptPanel) , 
LsOptPanelExtChoiceFunc (G_OptPanel) , 
&IndexBestCandidate) ) 
return ( GNL_MEM0R Y_FULL) ; 

if (IndexBest Candidate == -1) 

{ 

return (GNL OK) ; 

} 

else 

{ 

*ExtractDone = 1; 

Boxl = (LS_LOC__DIVISOR)BListElt (*ListKern # 

IndexBestCandidate) ; 
Kernel = LsLocDivisorKernel (Boxl) ; 
TheCommonPTerm = LsLocDivisorCokernel (Boxl) ; 

/* We create a new sub-function for the cube common part */ 
if (BListCreateWithSize (1, &ListSubFct) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlCubeCopy <G_NbCells, 

TheCommonPTerm, &NewCommonPTerm) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (ListSubFct, (int ) NewCommonPTerm) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (*ListListCubes, ( int) ListSubFct) ) 
return (GNL_MEMORY_FULL) ; 
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G_NbVar++; 

G_NbCells = (unsigned) NbOfCells (G_NbVar, BITS_PER_INT) ; 

if (LsExtendListListCubes (*ListListCubes , 

G_NbVar) ) 
return (GNL_MEMORY_FULL) ; 

if (LsExtendListKernels (*ListKern, 

GJSTbVar, 0, 
LS__FACT_EX TRACT I ON ) ) 
return ( GNL_MEMORY_FULL ) ; 

if (LsUpDateListKerExtraction (*ListKern, IndexBestCandidate , 

LsOptPanelExtGainFunc (G_OptPanel) , Gnl , 
*ListListCubes) ) 
return ( GNL_MEMORY_FULL ) ; 

for (j=0; j<BListSize (Kernel); 

CubeJ = (GNL_CUBE) BListElt (Kernel, j); 

LsSubstitutelnPTerm (CubeJ, TheCommonPTerm, &Res) ; 



BListQuickDelete (& (BoxI->Kernel) ) 
GnlCubeFree (&TheCommonPTerm) ; 
free ( (char*)BoxI) ; 

} 



return (GNL_OK) ; 

} 



/* LsFactExtraction 



GNL_STATUS LsFactExtraction (Gnl, Threshold, ListCubes, Li stList Cubes , 

ListKerExtract , ExtractDone) 

GNL Gnl ; 

int Threshold ; 

BLIST *ListCubes; 

BLIST *ListListCubes; 

BLIST *ListKerExtract ; 

int *ExtractDone; 

{ 

int i ; 

int NbEquations; 

BLIST LPTermI; 

GNL_VAR Varl; 

GNL_FUNCT I ON Funct ionl ; 



#ifdef TRACE_FACTOR I Z AT ION 

fprintf (stderr, " FACTORIZATION : Extraction\n" ) ; 
#endif 

if ( ILsOptPanelDoExt (G_OptPanel) ) 
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{ 

*ExtractDone = 0/ 
return (GNL__OK) ; 

} 

NbEquations = BListSize ( *ListListCubes ) ; 

if (BListSize (*ListCubes) 0) 
{ 

if (BListSize (*ListListCubes) == 0) 

{ 

for (i = 0; i < BListSize (GnlFunctions (Gnl) ) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (GnlFunctions (Gnl), i) ; 

FunctionI = GnlVarFunction (Varl) ; 

LPTermI = Gnl FunctionOnSet Cubes (FunctionI) ; 

if (BListAddElt ( *ListListCubes , (int) LPTermI) ) 
return ( GNL_MEMORY__FULL ) ; 
} 

NbEquations = BListSize (GnlFunctions (Gnl) ) ; 
for (i = 0; i < NbEquations; i++) 

{ 

LPTermI = (BLIST) BListElt ( *ListListCubes , i); 
if (BListAddNoEltCr (*ListCubes, LPTermI) ) 
return ( GNL_MEMORY FULL ) ; 

} 

} 

else 

{ 

for (i = 0; i < NbEquations; i++) 

{ 

LPTermI = (BLIST) BListElt ( *ListListCubes , i) ; 
if (BListAddNoEltCr (*ListCubes, LPTermI) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

if (BListSize (*ListCubes) != 0) 

if (LsFactExtractionLoop (Gnl, ListCubes, ListListCubes , 

ListKerExtract , Threshold, ExtractDone) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_0K) ; 

} 

/* 

/* LsFactorizationStep */ 
/* 

GNL_STATUS LsFactorizationStep (Gnl, ListListCubes, ListCubes, ListKerDiv, 

ListListKerDiv, ListKerExtract, DivisionDone , 
ComplementDone , ExtractDone , ThresHold) 

GNL Gnl ; 

BLIST *ListListCubes ; 
BLIST *ListCubes ; 



/ 
*/ 
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BLIST *ListKerDiv ; 

BLiIST *ListListKerDiv; 

BLIST *ListKerExtract; 
int *DivisionDone ; 

int * Comp 1 ement Done ; 

int *ExtractDone; 
int ThresHold; 

int i ; 

LS_LOC_DIVISOR LocDivisorl; 



/* If there was previously a COMPLEMENTATION or an EXTRACTION */ 
if (* Complement Done | | *ExtractDone) 

{ 

/* We need to erase everything and restart from scratch 
if (*ListKerDiv) 

BListDelete (ListKerDiv, LsGlobalDivisorFree) ; 
if (*ListListKerDiv) 

BListDelete (ListListKerDiv, BListQuickDelete) ; 
if (BListCreate (ListKerDiv) ) 

return (GNLJMEMORY FULL) ; 

} 

/* Algebraic Division */ 
if (LsFactDivision (Gnl, ListListCubes , ThresHold, DivisionDone, 

ListKerDiv, ListListKerDiv) ) 
return ( GNL_MEMOR Y__FULL ) ; 

#ifdef BUG 

/* If there was previously a DIVISION or an EXTRACTION */ 
if (*DivisionDone | | *ExtractDone) 

if (LsComplementeSumOfSingleVar ( *ListListCubes , Complement Done) ) 
return ( GNL_MEMORY__FULL ) ; 

#endif 

/* If there was previously a DIVISION or a COMPLEMENTATION 
if (*ComplementDone | | *DivisionDone) 

for (i=0; i<BListSize (*ListKerExtract) ; i++) 
{ 

LocDivisorl = (LS_LOC_DI VISOR) BListElt (*ListKerExtract , i) / 
BListQuickDelete (&LsLocDivisorKernel (LocDivisorl) ) ; 
GnlCubeFree (&LsLocDivisorCokernel (LocDivisorl) ) ; 
free ( (char*) LocDivisorl) ; 

} 

(*ListKerExtract) ->NbElt = 0; 
(*ListCubes) ->NbElt = 0/ 

} 

if (LsFactExtraction (Gnl, ThresHold, ListCubes, ListListCubes, 

ListKerExtract, ExtractDone) ) 
return (GNL_MEMORY FULL) ; 



return (GNL OK) ; 
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/* GnlGetNodeFromCube */ 
/* 

GNL_STATUS GnlGetNodeFromCube (Gnl, ListVariables , Cube, NewNode) 
GNL Gnl ; 

BLIST ListVariables; 
GNL_CUBE Cube; 
GNL_NODE *NewNode; 

{ 

int i ; 

int Num; 
int NbVar; 
int NbCells; 
int Mask; 
GNL_NODE VarNode ; 
GNL_NODE VarNot; 
int NbTreat; 
BLIST Sons; 
GNL_VAR Var; 



NbVar = BListSize (ListVariables) ; 
NbCells = NbOfCells (NbVar, BITS_PER_INT) ; 

if (GnlCreateNode (Gnl f NULL, NewNode)) 
return (GNL_MEMORY_FULL) ; 

if (GnlCubelsTautology (Cube, NbCells)) 
{ 

SetGnlNodeOp (*NewNode, GNL_CONSTANTE ) ; 
SetGnlNodeSons (*NewNode, (BLIST) 1) ; 
return (GNL_OK) ; 

} 

if (BListCreateWithSize (1, &Sons) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlNodeOp (*NewNode, GNL_AND) ; 
SetGnlNodeSons (*NewNode, Sons); 

Num = 0; 
i = 1; 

while (NbVar) 
{ 

NbVar - = (NbTreat = (NbVar > BITS_PER_INT) ? BITS PER INT : NbVar) 
Mask =1; ~ 
do { 

if (GnlCubeHigh(Cube) [Num] & Mask) 
{ 

if ( Gnl CubeLow (Cube) [Num] & Mask) 

{ 

if (GnlCreateNode (Gnl, NULL, &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (VarNode, GNL_VAR I AB LE ) ; 
Var = (GNLJVAR)BListElt (ListVariables, i-1) ; 
SetGnlNodeSons (VarNode, (BLIST) Var) ; 
if (BListAddElt (Sons, (int ) VarNode) ) 

return ( GNL_MEMORY_FULL ) ; 
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} 

} 

else if (I (Gnl Cube Low (Cube) [Num] & Mask)) 
{ 

if (GnlCreateNode (Gnl, NULL; &VarNode) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeOp (VarNode, GNL_VARIABLE ) ; 
Var = (GNL_VAR) BListElt (ListVariables , i-1) ; 
SetGnlNodeSons (VarNode, (BLIST) Var) ; 
if (GnlCreateNodeNot (Gnl, VarNode, &VarNot) ) 

return ( GNL_MEMORY_FULL ) / 
if (BListAddElt (Sons, (int) VarNot ) ) 

return (GNLJVIEMORY FULL) ; 

} 

Mask <<= l; 
i + +; 

} 

while (--NbTreat) ; 
Num++ ; 

} 

if (BListSize (Sons) == 1) 
{ 

*NewNode - (GNL_NODE) BListElt (Sons, 0) ; 

} 

return (GNLJDK) ; 

} 

/* 

/* GnlGetNodeFromListCubes */ 

/* 

GNL_STATUS GnlGetNodeFromListCubes (Gnl, ListVariables, ListCubes, 

NewNode ) 

GNL Gnl ; 

BLIST ListVariables ; 
BLIST ListCubes; 
GNL_N0DE *NewNode; 

{ 

int i ; 

GNL_CUBE Cube I ; 
BLIST Sons; 
GNL_NODE NewSon; 



/* Case of Constante 0 */ 
if (BListSize (ListCubes) == 0) 

{ 

if (GnlCreateNode (Gnl, GNL_CONSTANTE, NewNode)) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, 0) ; 
return (GNL_OK) ; 

} 

if (BListSize (ListCubes) == 1) 
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{ 

if (GnlGetNodeFromCube (Gnl, ListVariables , 

(GNL^CUBE) BListElt (ListCubes, 0), 
NewNode ) ) 
return ( GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlCreateNode (Gnl, GNL_0R , NewNode)) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize {BListSize (ListCubes), &Sons) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlNodeSons (*NewNode, Sons); 

for (i=0; i<BListSize (ListCubes); i++) 

{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

if (GnlGetNodeFromCube (Gnl, ListVariables, Cubel, &NewSon) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (Sons, (int ) NewSon) ) 

return (GNL_MEMORY FULL) ; 

} 



return (GNL_OK) ; 

} 



/* 

/* LsBuildGnlFromGnlCubes * / 

/* 

GNL_STATUS LsBuildGnlFromGnlCubes (OriginalGnl , Gnl, ListListCubes) 
GNL OriginalGnl; 
GNL Gnl ; 

BLIST ListListCubes ; 



{ 



int NbNe wFunc t i on s ; 

int i ; 

GNL_VAR Varl ; 

GNL_FUNCTI ON Function I ; 

BLIST ListCubesI; 

BLIST NodesSegments ; 

GNLJSTODE NewNode; 

GNL_VAR NewVar ; 

GN L_FUNCT I ON NewFunction; 

BLIST ListVariables ; 



NbNewFunctions = BListSize (ListListCubes) - 
BListSize (GnlFunctions (Gnl) ) ; 

for (i=0; i<NbNewFunctions; i++) 
{ 

if (GnlCreateUniqueVarWithNoTestGnlld (OriginalGnl, Gnl, 

"$F" , &NewVar) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (GnlLocals (Gnl) , (int) NewVar) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNbLocal (Gnl, GnlNbLocal (Gnl) +1) ; 
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if (GnlFunctionCreate (Gnl, NewVar, NULL , &NewFunction) ) 
return ( GNL_MEMORY_FULL ) ; 

SetGnlVarFunction (NewVar, NewFunction) ; 

if (BListAddElt (GnlFunct ions (Gnl) , { int ) NewVar ) ) 
return (GNLJVIEMORY FULL) ; 

} 

/* we delete all the nodes of 'Gnl'. 
GnlFreeNodesSegments (Gnl) ; 

if (BListCreate (&Nodes Segments) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNodesSegments (Gnl, Nodes Segments) ; 
SetGnlFirstNode (Gnl, NULL) ; 
SetGnlLastNode (Gnl, NULL); 

if (BListCreate (^ListVariables) ) 

return (GNL_MEMORY_FULL) ; 
for {i=0; i<BListSize (Gnllnputs (Gnl)); i++) 

Varl = (GNL_VAR) BListElt (Gnllnputs (Gnl), i) ; 
if (BListAddElt (ListVariables, (int) Varl)) 
return ( GNL_MEMORY FULL) ; 

} 

for (i=0; i<BListSize (GnlOutputs (Gnl)); i++) 
{ 

Varl = (GNL_VAR) BListElt (GnlOutputs (Gnl), i) ; 
if (BListAddElt (ListVariables, (int)Varl)) 
return (GNL_MEMORY FULL) ; 

} 

for (i=0; i<BListSize (GnlLocals (Gnl)); i++) 

Varl - (GNL_VAR) BListElt (GnlLocals (Gnl), i) ; 
if (BListAddElt (ListVariables, (int) Varl)) 
return (GNL_MEMORY FULL) ; 

} 

for (i=0; i<BListSize (ListListCubes) ; i++) 

Varl = (GNL_VAR) BListElt (GnlFunct ions (Gnl) , i) ; 
Functionl = GnlVarFunction (Varl) ; 
ListCubesI = (BLIST) BListElt (ListListCubes, i) ; 
if (GnlGetNodeFromListCubes (Gnl, ListVariables, ListCubesI 

&NewNode) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlFunctionOnSet (FunctionI, NewNode) ; 

BListDelete (&ListCubesI , GnlCubeFree) ; 

ListCubesI = Gnl FunctionDCSet Cubes (FunctionI) ; 
BListDelete (^ListCubesI, GnlCubeFree) ; 
SetGnlFunctionOnSetCubes (FunctionI, NULL) ; 
SetGnlFunctionDCSetCubes (FunctionI, NULL); 
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BListQuickDelete ( ScListList Cubes) / 

BListQuickDelete (&ListVariables) ; 

return (GNL_OK) • 

} 



/* 

/* LsFactorization 

/* 

GNL_STATUS LsFactorization (OriginalGnl , Gnl) 
GNL OriginalGnl; 
GNL Gnl; 



{ 



int i ; 

LS_LOCJDIVISOR LocDivisorl; 
int DivisionDone ; 

i 11 1 Comp 1 emen t Done ; 

int ExtractDone; 

BLIST ListKerDiv; 

BLIST ListKerExtract; 

BLIST ListCubes; 

BLIST ListListCubes ; 

BLIST ListListKerDiv; 



if (BListCreate (&ListKerDiv) ) 
return { GNL_MEMORY_FULL ) ; 

if (BListCreate (&ListKerExtract) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreate (&ListCubes) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreate (^ListListCubes) ) 
return (GNL_MEMORY__FULL) ; 

ListListKerDiv = NULL; 
DivisionDone = 0; 
ComplementDone = 0; 
ExtractDone = 0; 

/* We call NB_S TEP_FACTOR I Z AT I ON times the procedure below 
/* 'LsFactorizationStep' with a different TreshHold ' STEP__FACT [i] * 
for (i=0; i <NB_S TE P_FACTOR I Z AT ION ; i++) 
{ 

#ifdef TRACE_FACTORI Z AT I ON 

fprintf (stderr, » FACTORIZATION: Iteration [%d]\n" i) • 

#endif 

if (LsFactorizationStep (Gnl, &ListListCubes , &ListCubes, 

&ListKerDiv, ListListKerDiv, 
&ListKerExtract , ^DivisionDone , 
&Compl emen t Done , ScExtractDone , 
STEP__FACT[i] ) ) 
return (GNL_MEMORY_FULL) ; 
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} 

BListDelete <&ListKerDiv, LsGlobalDivisorFree) ; 
BListDelete (&ListListKerDiv, BListQuickDelete) ; 

for (i=0; i<BListSize (ListKerExtract) ; i++) 
{ 

LocDivisorl = (LS_LOC_DIVISOR) BListElt (ListKerExtract, i); 
BListQuickDelete ( &LsLocDivisorKernel (LocDivisorl) ) ; 
GnlCubeFree (&LsLocDivisorCokernel (LocDivisorl) ) ; 
free ( (char*) LocDivisorl) ; 

} 

BListQuickDelete ( &ListKerExtract) ; 

/* We rebuild a Gnl from the Cubes of 'Gnl'. */ 
if (LsBuildGnlFromGnlCubes (OriginalGnl, Gnl, ListListCubes) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* 

/* LsFactorize 

/* 

GNL_STATUS LsFactorize (OriginalGnl , Gnl, OptPanel) 
GNL OriginalGnl ; 

GNL Gnl ; 

LS_OPT_PANEL OptPanel ; 



{ 



G_OptPanel = OptPanel; 

G_NbVar = BListSize (Gnllnputs (Gnl)) + BListSize (GnlOutputs (Gnl)) + 

BListSize (GnlLocals (Gnl) ) ; 
G_NbCells = (unsigned) NbOfCells (GJNbVar, BITS_PER_1NT) ; 

if (LsFactorization (OriginalGnl, Gnl)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 



/* EOF 
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/* 
/* 

/* File: lsfact.h 

/* Version: 1.1 

/* Modifications: 

/* Documentation: 

/* 

/* 

#ifndef LSFACT_H 
#define LSFACT_H 

#define LS_FACT_DIVISION 0 

#define LS_FACT EXTRACTION 1 



*/ 
*/ 
*/ 



/* 

/* LS_GLOB_DIVISOR_REC 

/* 

typedef struct LS_GLOB_DIVISOR_STRUCT { 

BLIST Kernel; /* List of GNL__CUBE 

BLIST Cokernels; /* List of LS COKERNEL 



} 



LS_GLOBJDIVISOR_REC, *LS_GLOB_DIVISOR; 



*/ 
*/ 



#define LsGlobDivisorKernel (d) 
#def ine LsGlobDivisorCokernels (d) 

#def ine SetLsGlobDivisorKernel (d, k) 
#def ine SetLsGlobDivisorCokernels (d, c) 



( ( (d) ->Kernel) ) 
( ( (d) ->Cokernels) ) 

( ( (d) ->Kernel - k) ) 

( ( (d) ->Cokernels 



O ) 



/* 

/* LS_COKERNEL_REC 
* 



/ 

typedef struct LS_COKERNEL_STRUCT { 
int Function; /* */ 



} 



GNL_CUBE Cube; 



LS_COKERNEL_REC , *LS_COKERNEL ; 



/* */ 



#define LsCokernelFunction (c) 
#define LsCokernelCube (c) 



( ( (c) ->Function) ) 
{ ( (c) ->Cube) ) 



#def ine SetLsCokernelFunction (c, f ) 
#define Set LsCokernelCube (c , co) 



( { (c) ->Function = f ) ) 

( ( (c) ->Cube = co) ) 



/* 

/* LS_LOCJDIVISOR_REC 

/* 

typedef struct LS_LOC_DIVISOR_STRUCT { 

BLIST Kernel; /* List of GNL_CUBE 

GNL_CUBE Cokernel; /* The associated Cokernel */ 
int Gain; 



/ 



} 



LS_LOC_DIVISOR_REC / *LS_LOC_DIVISOR; 



#define LsLocDivisorKernel (d) 
#def ine LsLocDivisorCokernel (d) 



( ( (d) ->Kernel) ) 
( ( (d) ->Cokernel) ) 
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#define LsLocDivisorGain (d) ( ( (d) - >Gain) ) 

#define SetLsLocDivisorKernel (d, k) ( ( (d) ->Kernel = k) ) 

#def ine SetLsLocDivisorCokernel (d, c) ( ( (d) ->Cokernel 

#define SetLsLocDivisorGain (d, g) ( ( (d) ->Gain = g) ) 

/* EOF 



#endif 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


lsf ilter . c 


Version : 


1.1 


Modifications : 




Documentation : 




Class: none 




Inheritance : 





#include <stdio . h> 



#include "blist .h" 
#include "gnl.h" 
#include "gnlmint .h" 
#include "gnlcube . h" 
#include "lsf act .h" 
#include "gnloption.h" 



/* 

■/* EXTERN */ 

/* 

extern GNL_ENV G_GnlEnv; 

/* 

/* LsDivGainFunction */ 

/* 

GNL_STATUS LsDivGainFunction (Gnl, ListListCubes , Kernel, ListCokernels , 

NbCells, Gain) 

GNL Gnl; 
BLIST ListListCubes ; 
BLIST Kernel; 
BLIST ListCokernels ; 
int NbCells; 
int *Gain; 

{ 

int i ; 
LS_COKERNEL Coke me 1 1 ; 



if (BListSize (Kernel) <= GnlEnvMinShareLogicSize () ) 

*Gain = 0; 
return (GNL_OK) ; 

} 

*Gain = BListSize (Kernel) * (BListSize (ListCokernels) -1) ; 

for (i=0; i<BListSize (ListCokernels) ; i++) 
{ 

Cokernell = (LS_COKERNEL) BListElt (ListCokernels, i) ; 

*Gain += GnlCubeLitNumber (LsCokernelCube (Cokernell) , NbCells) * 
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(BListSize (Kernel) -1) / 



return (GNL OK) ; 



/* 

/* LsDivGainFunctionEqGates 
/* 

GNL_ STATUS LsDivGainFunctionEqGates {Gnl, ListListCubes, Kernel, 
ListCokernels, 

NbCells, Gain) 

GNL Gnl ; 

BLIST ListListCubes ; 
BLIST Kernel; 
BLIST ListCokernels ; 
int NbCells; 
int *Gain; 



*/ 
*/ 



{ 



int 



GNL_CUBE Cubel; 

int NbEqGatesKernel; 
int NbEqGatesCok; 
LS COKERNEL Cokernell; 



NbEqGatesKernel = 0; 
NbEqGatesCok = 0; 

for (i=0; i<BListSize (Kernel ) ; i++) 

{ 

Cubel = (GNL_CUBE) BListElt (Kernel, i) ; 

NbEqGatesKernel += GnlCubeLitNumber (Cubel, NbCells) ; 

} 

for (i=0; i<BListSize (ListCokernels) ; i++) 

{ 

Cubel = LsCokernelCube ( (LS_COKERNEL) BListElt (ListCokernels, i) ) ; 
NbEqGatesCok += GnlCubeLitNumber (Cubel, NbCells); 

} 

*Gain = (BListSize (ListCokernels) -1) *NbEqGatesKernel + 
(BListSize (Kernel) - 1) *NbEqGatesCok + 
BListSize (Kernel) -BListSize (ListCokernels) -2 ; 



} 



return (GNL_0K) ; 



/* 

/* LsDivChoiceFunction */ 
/* 

GNL_ STATUS LsDivChoiceFunction (Gnl, ListListCubes, ListKernels, 

IndexList, NbCells, Choice) 

GNL Gnl ; 

BLIST ListListCubes ; 
BLIST ListKernels ; 
BLIST IndexList; 
int NbCells ; 

int *Choice; 
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int i ? 

int Indexl; 
LS_GLOBJDIVISOR Boxl ; 

BLIST Lis tEquations ; 

int MinCompute; 



} 



MinCompute = 1000000; 

if (BListSize (IndexList) == 1) 

{ 

*Choice = (int) BListElt (IndexList, 0) ; 
return (GNL_OK) ; 

} 

for (i=0; i<BListSize (IndexList); i++) 
{ 

Indexl = (int) BListElt (IndexList, i) ; 
Boxl = (LS_GL0B_DIVIS0R) BListElt (ListKernels , Indexl); 
ListEquations = LsGlobDivisorCokernels (Boxl) ; 

if (BListSize (ListEquations) < MinCompute) 

*Choice = Indexl; 
^MinCompute = BListSize (ListEquations) ; 



return (GNL_OK) ; 



r* 



/* LsExtractGainFunction 
/* 

GNL_STATUS LsExtractGainFunction (Gnl, ListListCubes , Kernel, CoKernel, 

NbCells, Gain) 

GNL Gnl ; 

BLIST ListListCubes; 
BLIST Kernel; 
GNL_CUBE CoKernel; 
int NbCells; 
int *Gain; 



{ 



int NbLitt; 
int NbCube; 

*Gain = 0; 

NbCube = BListSize (Kernel) ; 

if (BListSize (Kernel) == 1) 
return (GNL_OK) ; 

if (BListSize (Kernel) <= GnlEnvMinShareLogicSize () 
return (GNL_0K) ; 
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NbLitt = GnlCubeLitNumber (CoKernel, MbCells) ; 
*Gain += NbLitt * NbCube - NbLitt - NbCube + 1; 
return (GNL OK) ; 

} 

/* 

/* LsExtractGainFunctionEqGates */ 
/* [ 

GNL_STATUS LsExtractGainFunctionEqGates (Gnl, ListListCubes , Kernel, 

CoKernel, NbCells, Gain) 

GNL Gnl ; 

BLIST ListListCubes ; 
BLIST Kernel; 
GNL_CUBE CoKernel; 
int NbCells; 
int *Gain; 

{ 

int NbLitt; 
int NbCube; 

*Gain = 0; 

if (BListSize (Kernel) == 1) 
return (GNL_OK) ; 

NbCube = BListSize (Kernel) ; 

NbLitt = GnlCubeLitNumber (CoKernel, NbCells); 
*Gain = (NbLitt- 1) * (NbCube - 1) ; 
return (GNL OK) ; 

} 

/* 

/* Nblntersect */ 

/* [ 

int Nblntersect (Cube, ListCube) 
GNL_CUBE Cube; 
BLIST ListCube; 

{ 

int i ; 

int Intersect; 

GNL_CUBE Cubel; 



Intersect = 0; 

if {ListCube -= NULL) 
return (0) ; 

f or (i = 0; i < BListSize (ListCube); i++) 

Cubel = (GNL_CUBE) BListElt (ListCube, i) ; 
if (Cube == Cubel) 
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Intersect ++; 



} 



} 

return ( Intersect) 



/* 

/* LsExtractChoiceFunction */ 
/* 

GNL_STATUS LsExtractChoiceFunction (Gnl, ListListCubes , ListKer, 

IndexList, NbCells, Bestlndex) 

GNL Gnl ; 

BLIST ListListCubes ; 
BLIST ListKer; 
BLIST IndexList; 
int NbCells; 
int *BestIndex ; 



{ 



BLIST Kernel; 

BLIST Equation; 

int i ; 

int k; 

int Intersect; 

int IntersectMin; 

int Indexl; 

LS_LOC_DIVISOR Boxl; 

GNL_CUBE CubeK ; 



IntersectMin = 1000000; 

if (BListSize (IndexList) == 1) 

{ 

*BestIndex = (int ) BListElt (IndexList, 0) ; 
return (GNL_0K) ; 

} 



if (BListCreate (&Equation) ) 
return (GNL_MEMORY_FULL) ; 

for (i = 0; i < BListSize (ListKer); i++) 

Boxl = (LS_LOC_DIVISOR) BListElt (ListKer, i) ; 

Kernel = LsLocDivisorKernel (Boxl) ,- 

for <k = 0; k < BListSize (Kernel); k++) 

CubeK = (GNL_CUBE) BListElt (Kernel, k) ; 
if (BListAddElt (Equation, (int) CubeK)) 
return (GNL MEMORY FULL) ; 

} 



for (i = 0; i < BListSize (IndexList); i++) 
Intersect = 0; 

Indexl = (int)BListElt (IndexList, i) ; 

Boxl = (LS_LOC_DIVISOR) BListElt (ListKer, Indexl); 
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Kernel = LsLocDivisorKernel (Boxl) ; 

for (k = 0; k < BListSize (Kernel); k++) 

{ 

CubeK = (GNL_CUBE) BListElt (Kernel, k) ; 
Intersect += Nblntersect (CubeK, Equation) 

} 

if (Intersect < IntersectMin) 

{ 

*BestIndex = Indexl; 
IntersectMin = Intersect; 

} 

} 

BListQuickDelete (fcEquation) ; 
return (GNL_OK) ; 

} 
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/* 






/* 


File: 


1 sker . c 


/* 


Version : 


1 . 1 




MfkH i "Ft c a t" "i r\r~i c* * 




/* 


Documentation : 




/* 






/* 


Class: none 




/* 


Inheritance : 




/* 













#include <stdio.h> 

#include ,T blist .h" 
#include "gnl .h" 
#include "gnlmint .h" 
ftinclude "gnlcube .h" 
#include "lsfact.h" 
#include "gnlopt . h" 



#include "blist .e" 

/* 

extern void GnlCubeFree () ; 
extern int GnlCubeldentical {); 
extern LS_OPT_PANEL G_Opt Panel; 



/* 

# define MAX_CALL \ 

(LsOptPanelDoOpt (G_Opt Panel) == 2 ? 5000000 : 1000000) 

/* 

/* GLOBAL VARIABLES */ 

/* [ 

static int G_NbKe rne 1 Found ; 
static GNL_CUBE GJDivisorCube; 

static int G_MaxKernels ; /* Maximum Nb divisors allowed 

static int G_NbCells ; 

static int G_NbVar; 

static BLIST G_ListKernels ; 

static BLIST G_HashListKernels ; 

static int G_IndexFunction; 

static int G_MaxCall; 

static int G_MaxCa 11 Value; 



/* 

/* LsCokernelFree 

/* 

void LsCokernelFree (Cokernel) 
LS_COKERNEL *Cokernel ; 

{ 

if ((*Cokernel) == NULL) 
return; 

GnlCubeFree (ScLsCokernelCube (*Cokernel) ) ; 
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free ( (char*) (*Cokernel) ) 
*Cokernel = NULL; 



/* 

/* LsGlobalDivisorFree */ 
/* 

void LsGlobalDivisorFree (GlobDivisor) 
LS_GLOB_DI VISOR *GlobDivisor ; 

{ 



if (LsGlobDivisorKernel ( *GlobDivisor) ) 

BListDelete ( ^LsGlobDivisorKernel (*GlobDivisor) , GnlCubeFree) ; 

if (LsGlobDivisorCokernels ( *GlobDivisor) ) 

BListDelete (&LsGlobDivisorCokernels (*GlobDivisor) , 
LsCokernelFree) ; 
free ( (char*) ( *GlobDivisor ) ) ; 
*GlobDi visor = NULL; 



/* 

/* GnlDivCommonDivisorCubeCube */ 
/* 

/* Gives to Cube 1 Cube3 1 the value of common divisor between 'Cubel' and 

/ * 1 Cube2 ' . * / 

/* 

void GnlDivCommonDivisorCubeCube (Cubel, Cube 2 , Cube3 , NbCells) 
GNL_CUBE Cubel; 
GNL_CUBE Cube2; 
GNL_CUBE Cube3; 
int NbCells ; 



while (NbCells--) 
{ 

GnlCubeHigh(Cube3) [NbCells] = GnlCubeHigh (Cubel ) [NbCells] & 

GnlCubeHigh(Cube2) [NbCells] ; 
GnlCubeLow(Cube3) [NbCells] = GnlCubeLow (Cubel) [NbCells] | 

GnlCubeLow(Cube2) [NbCells] ; 

} 



/* 

/* GnlDivQuotientExistCubeCube */ 
/* 

/* Returns 1 if the division of 'Ml' by , M2 t is not NULL, 0 otherwise 
/* 

int GnlDivQuotientExistCubeCube (Ml, M2 , NbCells) 
GNL_CUBE Ml; 
GNL_CUBE M2; 
int NbCells; 

{ 

int k; 
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int Mlvar; 
int M2var; 



/* Are variables of 'M2' included in variables of 'Ml' under normal 
/* form ? 

/* Is of M2var are included in Is of Mlvar iff M2var & -Mlvar = 0 
for (k = 0; k < NbCells; k++) 

{ 

Mlvar = GnlCubeHigh(Ml) [k] & GnlCubeLow (Ml) [k] ; 
M2var = GnlCubeHigh (M2 ) [k] & GnlCubeLow (M2) [k] ; 
if (M2var & -Mlvar) 
return (0) ; 

} 

/* Are variables of 'M2' included in variables of 'Ml' under comple- 
/* mented form ? 

/* 0s of M2var are included in 0s of Mlvar iff ~M2var & Mlvar = 0 

for (k - 0; k < NbCells; k++) 

{ 

Mlvar = GnlCubeHigh (Ml) [k] | GnlCubeLow (Ml) [k] ; 
M2var = GnlCubeHigh (M2) [k] j GnlCubeLow (M2 ) [k] ; 
if (~M2var & Mlvar) 
return (0) ; 

} 

return (1) ; 

} 



/* 

/* GnlDivQuickQuotientCubeCube */ 
/* / 

/* performs quick division of 'Ml' divided by 'M2 1 and stored in 'M3' 
/* 

void GnlDivQuickQuotientCubeCube (Ml, M2, M3 , NbCells) 
GNL_CUBE Ml; 
GNL_CUBE M2; 
GNL_CUBE M3, 
int NbCells; 

int M2var; 

while (NbCells--) 
{ 

M2var = - (GnlCubeHigh (M2) [NbCells] * GnlCubeLow (M2) [NbCells] ) ; 
GnlCubeHigh (M3) [NbCells] = GnlCubeHigh (Ml) [NbCells] & -M2var; 
GnlCubeLow (M3) [NbCells] = GnlCubeLow (Ml) [NbCells] | M2var ; 



{ 



} 

/* 
/* 
/* 
/* 
/* 
/* 



GnlDivQuotientListCubes 




*/ 


Performs the division of 'F' 


by 'Divisor' 


and stores the result in 


'Q r . 'Q 1 must have been pre- 


allocated . 


*/ 
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GNL_STATUS GnlDivQuotientListCubes (F, Divisor, Q, NbCells) 
BLIST F; 
GNL_CUBE Divisor; 
BLIST Q; 

int NbCells; 

{ 

int i ; 

GNL_CUBE Cube I ; 
GNL CUBE Cube; 



} 



for (i = 0; i < BListSize (F) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (F 7 i) ; 

if (GnlDivQuotientExistCubeCube (Cubel, Divisor, NbCells)) 

{ 

if (GnlCubeFullCreate (NbCells, &Cube) ) 
return (GNL_MEMORY_FULL) ; 

GnlDivQuickQuotientCubeCube (Cubel, Divisor, Cube, NbCells) 

if (BListAddElt (Q, (int) Cube)) 
return ( GNL_MEMORY_FULL) ; 

} 

} 

return (GNL OK) ; 



/* 

/* LsGet Kerne lHashKey 

/* 

int LsGetKernelHashKey (Kernel, NbCells) 

BLIST Kernel; 

int NbCells; 



{ 



int i ; 

int NbLit; 
GNL CUBE Cubel; 



} 



NbLit = 0; 

for (i=0; i<BListSize (Kernel); i++) 

{ 

Cubel = (GNL_CUBE) BListElt (Kernel, i) ; 
NbLit += GnlCubeLitNutnber (Cubel, NbCells); 

} 

return (20 * NbLit + BListSize (Kernel) ) ; 
/* 

return (BListSize (Kernel) ) ; 
*/ 



/* 

/* LsEguivalentKernel 
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/* 

int LsEquivalentKernel (Kernell, Kernel2, NbCells) 
BLIST Kernell; 
BLIST Kernel2; 
int NbCells; 

{ 

return (BListContextualldentical (Kernell; Kernel2, GnlCubeldentical 

NbCells) ) ; 

} 



/* 

/* LsAddOrGetKernellnHashTable */ 
/* 

GNL_STATUS LsAddOrGetKernellnHashTable {Kernel, Cokernel, IndexFunction 

Added) 

BLIST Kernel; 
GNL_CUBE Cokernel ; 
in t IndexFunct i on ; 

int *Added; 



{ 



int i ; 

int Key; 
BLIST KernelsBucket; 
LSJ3LOBJDIVISOR Divisorl ; 

LS_GLOB_DI VISOR NewDivisor; 
BLIST NewList; 
LS_COKERNEL NewCokernel ; 



/* Build a LS_COKERNEL of (IndexFunction, Cokernel) . 
if ( (NewCokernel = (LS__CO KERNEL) 

calloc (1, sizeof (LS_COKERNEL_REC) ) ) ==NULL) 
return (GNL_MEMORY_FULL) ; 
SetLsCokernelFunction (NewCokernel, IndexFunction) ; 
SetLsCokernelCube (NewCokernel, Cokernel) ; 

/* Compute the Key of the kernel 'Kernel'. */ 
Key = LsGetKernelHashKey (Kernel, G_NbCells) % 
BListSize (GJKashList Kernels) ; 

KernelsBucket = (BLIST) BListElt (G_HashListKernels , Key); 

for (i=0; i<BListSize (KernelsBucket); i++) 
{ 

Divisorl = (LS_GLOB_DIVISOR) BListElt (KernelsBucket, i) ; 
if (LsEquivalentKernel (Kernel, LsGlobDivisorKernel (Divisorl ) , 

G NbCells) ) 

{ 

if (BListAddElt (LsGlobDivisorCokernels (Divisorl ) , 
(int) NewCokernel) ) 
return (GNL_MEMORY_FULL) ; 
BListDelete (^Kernel, GnlCubeFree) ; 

* Added = 0; 
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return (GNL_OK) ; 

} 

} 

/* Otherwise we need to create a new Divisor */ 
if ( (NewDivisor = {LS_GLOBJDIVIS0R) 

calloc (1, sizeof (LS_GLOB_DIVISOR_REC) ) ) == NULL) 
return ( GNL_MEMORY_FULL ) ; 

SetLsGlobDivisorKernel (NewDivisor, Kernel) ; 
if (BListCreateWithSize (1, &NewList)) 

return ( GNL_MEMORY_FULL ) ; 
if (BListAddElt (NewList, (int ) NewCokernel ) ) 

return (GNL_MEMORY_FULL) ; 
SetLsGlobDivisorCokernels (NewDivisor, NewList) ; 

/* adding the new divisor in the Hash list of Kernels */ 
if (BListElt (G_HashListKernels, Key) == (int) NULL) 

if (BListCreateWithSize (1, &NewList) ) 
return ( GNL_MEMORY_FULL ) ; 
^BListElt (G_HashListKernels, Key) = (int ) NewList ; 

NewList = (BLIST) BListElt (G_HashListKernels , Key); 
if (BListAddElt (NewList, (int ) NewDivisor) ) 
return ( GNL_MEMORY_FULL ) ; 

/* Adding the new divisor in the List of Kernels */ 
if (BListAddElt (G_ListKernels, (int ) NewDivisor) ) 
return (GNL_MEMORY_FULL) ; 

* Added = 1; 
return (GNL_OK) ; 



/* 

/* LsExistKernel */ 

/* [ 

/* This function returns 1 if there exists a Kernel in the list of cube 

/* A kernel must be composed at least of two Cubes. 'NewCube 1 will 

/* correspond to the associated Cokernel . */ 

/* [ 

int LsExistKernel (ListCubes, Index, NewCube) 
BLIST ListCubes; 
int Index; 
GNL_CUBE NewCube; 

{ 

int i ; 

int NbCube; 
GNL_CUBE Cube I ; 
int t ; 

int d; 
unsigned mask; 
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NbCube = 0; 

t = (Index >> 1) % BITS_PER_INT; 
d = (Index >> 1) / BITS_PER_INT; 
mask = 1 << t; 

for (i = 0; i < BListSize (ListCubes) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

if (GnlCubeLiteralExistQuick (Cubel, Index, t, d, mask)) 

if (! NbCube) 

GnlCubelnitWithValue (NewCube, "?", G_NbCells) ; 

GnlDivCommonDivisorCubeCube (NewCube, Cubel , NewCube, 

G_NbCells) ; 

NbCube++; 

} 

} 

return (NbCube >= 2) ; 

} 

/* 

/* LsLocateFirstBitl */ 
/* 

int LsLocateFirstBitl (Val) 
int Val; 

{ 

int i ; 

i = 1; 

while (i <= BITS__PER_INT) 
{ 

if ( (1 « (i - l) ) & (val) ) 

return (i) ; 
i++; 

} 

return (0) ; 

} 



LsFirstCubeLiteral 


*/ 


This function returns 1 if the first literal of 


! Cube' is the "Index 


one. Returns 0 otherwise. 


*/ 



int LsFirstCubeLiteral (Index, Cube) 

int Index; 

GNL_CUBE Cube ; 

{ 

int i ; 

int Test; 

int Limit; 



Limit = (Index / 2) / BITS_PER_INT; 
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/* Bits at 1 of 'Test' tells the corresponding variable is in 'Cube' 
for (i = 0; i < Limit; i++) 

{ 

Test = -(GnlCubeHigh(Cube) [i] " GnlCubeLow (Cube) [i] ) ; 

/* If yes then the Cokernel is already known. */ 
if (Test) 

return (0) ; 

} 

/* i = Limit; */ 
Test = - (GnlCubeHigh(Cube) [i] * GnlCubeLow (Cube) [i] ) ; 

if (LsLocateFirstBitl (Test) < ((Index / 2) % BITS_PER_INT) + 1) 
return (0) ; 

return ( 1 ) ; 

} 

/* 

/* LsGetGlobalKernels */ 

/* 

/* Recursive procedure which computes all the Kernel and associated 
/* Cokernel from 'LastKernel' at index 1 Startlndex ' . */ 
/* 

GNL_STATUS LsGetGlobalKernels (LastKernel, KernelSupport , Startlndex, 

LastCokernel ) 

BLIST LastKernel; 
unsigned * KernelSupport ; 
int Startlndex; 
GNL_CUBE LastCokernel; 



{ 



mt Index; 
BLIST NewKernel; 
GNL_CUBE NewCokernel 
int Added 
int Limit 



Limit = 2 * G_NbVar; 

for (Index = Startlndex; Index < Limit; Index++) 
{ 

/* Actually this var. is not in the Support of 'LastKernel' */ 
if (KernelSupport I MintBitValue (KernelSupport, ( Index/2 ) +1 ) ) 

Index++; 
continue ; 

} 

G_MaxCall += BListSize (LastKernel) ; 
if (G_MaxCall > G_MaxCal lvalue) 
{ 

BListDelete (&LastKernel , GnlCubeFree) ; 
GnlCubeFree (&LastCokernel) ; 
return (GNL_0K) ; 
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} 

/* We check is there exists a sub-kernel in 'LastKernel' which */ 
/* starts from literal at index 'Index'. If yes we verify that */ 
/* the corresponding Cokernel ' GJDivisorCube * has as first */ 
/* literal the one of index 'Index'. If not, this means that */ 
/* kernel has been already processed. */ 
if (LsExistKernel (LastKernel, Index, G_DivisorCube) && 
LsFirstCubeLiteral (Index, G DivisorCube) ) 

{ 

if (BListCreateWithSize (2, &NewKernel) ) 
return (GNL_MEMORY_FULL) ; 

GnlDivQuotientListCubes (LastKernel, G_DivisorCube , 

NewKe rne 1 , G_NbCe lis); 

if (GnlCubeCopy (G_NbCells, LastCokernel , ^NewCokernel ) ) 
return (GNL_MEMORY_FULL) ; 

GnlCubeMultQuickCubeCube (NewCokernel, G__DivisorCube, 

NewCokernel, G__NbCells) ; 



if (LsGetGlobalKernels (NewKernel, NULL, Index + 2 - Index % 2, 

NewCokernel) ) 
return ( GNL_MEMOR Y_FULL ) ; 

if (G_NbKernelFound > G MaxKernels) 

{ 

BListDelete ( &Last Kerne 1 , GnlCubeFree) ; 
GnlCubeFree (^LastCokernel) ; 
return (GNL_OK) ; 

} 

} 

} 

/* We try to add this new kernel in the global hash List */ 
/* 'HashListKernels ' and in ' ListKernels ' */ 
if (LsAddOrGetKernellnHashTable (LastKernel, LastCokernel, 

G_IndexFunction, &Added) ) 

return (GNL_MEMORY_FULL) ; 

/* 'Added' is 1 if a new Kernel has been added and 0 otherwise */ 
G_NbKe rne 1 Found += Added; 

return (GNL_OK) ,* 

} 



/* v 

/* LsGetListCubesSupport */ 

/* - : */ 

/* This procedure creates a *unsigned representing the support of the */ 
/* variables of the list of cubes 'ListCubes'. A bit to 1 means that the*/ 
/* variable is present. */ 

z* v 

GNL_STATUS LsGetListCubesSupport (ListCubes, NbCells, CubeSupport) 
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BLIST ListCubes; 
int NbCells; 
unsigned **CubeSupport ; 

GNL_CUBE Cubel; 
int i ; 

int Cells; 



if (MintCreatelnitO (NbCells, CubeSupport) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i<BListSize (ListCubes) ; i++) 
{ 

Cubel = (GNL_CUBE) BListElt {ListCubes, i) ; 
Cells = NbCells; 
while (Cells--) 
{ 

(* CubeSupport) [Cells] |= - (GnlCubeHigh (Cubel) [Cells] " 
GnlCubeLow (Cubel) [Cells] ) ; 

} 

} 

return (GNL_OK) ; 

} 



/* 

/* LsExtractGlobalKernels */ 

/* 

GNL_S TATUS LsExtractGlobalKernels (ListCubes, IndexFunction, ListKernels 

HashListKernels , MaxKernels, 
NbVar, NbCells) 

BLIST ListCubes ; 

int IndexFunc t ion ; 

BLIST ListKernels; 

BLIST HashListKernels ; 

int MaxKernels; 

int NbVar; 

int NbCells; 



int 



i; 



GNL_CUBE Cubel; 
BLIST Kernel; 
GNL__CUBE Cokernel; 
unsigned **KernelSupport ; 



/* Setting global variables in order to not propagate them thru 
/* recursive calls. */ 
G_NbKernel Found = 0; 
G_MaxKernels - MaxKernels; 
G_NbCells = NbCells; 
G_NbVar = NbVar; 
G_MaxCall = 0; 
G_MaxCallValue = MAX_CALL; 
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GJLjistKernels = ListKernels; 
G_HashListKernels = HashListKernels ; 
G__IndexFunction = IndexFunction; 

if (GnlCubeFullCreate (G_NbCells / &G_DivisorCube) ) 

return ( GNL_MEMORY_FULL ) ; 
GnlCubelnitWithValue <G_Di visor Cube , "?" , G_NbCells) ; 



for (i = 0; i<BListSize (ListCubes) ; i + + ) 

{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

GnlDivCommonDivisorCubeCube (G_DivisorCube , Cubel , GJDivisorCube , 

NbCells) ; 

} 

/* Creating the first Kernel. */ 
if (BListCreateWithSize (1, &Kernel) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlDivQuotientListCubes (ListCubes, G_DivisorCube, Kernel, NbCells)) 

return ( GNL_MEMORY_FULL ) ; 

/* Duplicating the first Coke me 1 . */ 
if (GnlCubeCopy (NbCells, G_DivisorCube , &Cokernel) ) 
return ( GNL_MEMORY_FULL ) ; 

if (LsGetListCubesSupport (Kernel, NbCells, ScKernelSupport) ) 
return ( GNL_MEMORY_FULL ) ; 

/* Running recursively the computation */ 
if (LsGetGlobalKernels (Kernel, Ke rnel Support , 0, Cokernel) ) 
return (GNL_MEMORY_FULL) ; 

GnlCubeFree (&G_Di visor Cube) ; 
free ( Kerne iSupport) ; 



return <GNL_OK) ; 

} 

/* */ 

/* GnlQuickDivision */ 

/* */ 

GNL_S TATUS GnlQuickDivision (ListCubes, Cube, ListCubesIncluded, NbCells) 

BLIST ListCubes ; 

GNL_CUBE Cube; 

BLIST ListCubesIncluded; 

int NbCells; 

{ 

int i ; 

GNL CUBE Cubel; 



for (i-0; i<BListSize (ListCubes); i++) 
{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 
if (GnlCubelncluded (NbCells, Cubel, Cube)) 

if (BListAddElt (ListCubesIncluded, (int) Cubel)) 
return (GNL MEMOR Y_FULL ) ; 
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} 



} 

return (GNL OK) ; 



/* */ 

/* LsAddLocalKernel */ 
/* */ 

GNL_STATUS LsAddLocalKernel (Kernel, Cokernel) 
BLIST Kernel; 
GNL CUBE Cokernel; 



{ 



LS LOC DIVISOR NewLocDivisor; 



if ( (NewLocDivisor = (LS_LOC_DIVISOR) 

calloc (1, sizeof (LS_LOC_DIVISOR_REC) ) ) ==NULL) 
return ( GNL_MEMORY_FULL ) ; 

SetLsLocDivisorKernel (NewLocDivisor, Kernel) ; 
SetLsLocDivisorCokernel (NewLocDivisor, Cokernel) ; 

if (BListAddElt (G_ListKernels , (int) NewLocDivisor) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* */ 

/* LsExistLocalKernel */ 
/* */ 

GNL_STATUS LsExistLocalKernel (ListCubes, Index, Cube, ListCubesIncluded , 

Exist) 

BLIST ListCubes ; 
int Index; 
GNL_CUBE Cube; 

BLIST *ListCubesIncluded; 
int * Exist ; 



{ 



int i ; 

int NbCube ; 

GNL_CUBE Cube I ; 
int t ; 

int d ; 

unsigned mask; 



NbCube = 0; 
*Exist = 0; 

t = (Index >> 1) % BITS_PER_INT; 
d = (Index >> 1) / BITS__PER__INT; 
mask = 1 << t; 

for (i = 0; i < BListSize (ListCubes) ,- i++) 

{ 

Cubel = (GNL CUBE) BListElt (ListCubes, i) ; 
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if (GnlCubeLiteralExistQuick (Cubel, Index, t , d, mask)) 
{ 

if (NbCube == 0) 

{ 

GnlCubelnitWithValue (Cube, "?», G_NbCells) ; 
if (BListCreateWithSize {1, ListCubesIncluded) ) 
return (GNL_MEMORY_FULL) ; 

} 

GnlDivCommonDivisorCubeCube (Cube, Cubel, Cube, G_NbCells) ; 



NbCube++; 

if (BListAddElt (*ListCubesIncluded, Cubel)) 
return ( GNL_MEMOR Y_FULL ) ; 

} 



if ((NbCube ==1) || (NbCube == BListSize (ListCubes) ) ) 
{ 

BListQuickDelete (ListCubesIncluded) ; 
* Exist = 0; 
return (GNL_OK) ; 

} 

*Exist = (NbCube != 0) ; 



if ((NbCube == 1) I (*Exist) ) 

BListQuickDelete (ListCubesIncluded) ; 



return (GNL_OK) ; 

} 

/* */ 

/* LsNewLocalKernel */ 

/* */ 

int LsNewLocalKernel (Index, Cube, LastCokernel) 
int Index; 
GNL_CUBE Cube; 
GNL CUBE LastCokernel; 



{ 



int i ; 

int Limit; 



Limit = Index/2; 

for (i=0; i<Limit; i++) 

{ 

if ( (MintBitValue ( Gnl Cube Low (Cube) , i+l) == 
MintBitValue ( Gnl CubeHigh (Cube) , i+l) ) 
(MintBitValue ( Gnl CubeLow (LastCokernel) , i+l) != 
MintBitValue (GnlCubeHigh (LastCokernel) , i+l) ) ) 
return (0) ; 

} 

return (MintBitValue (GnlCubeLow (LastCokernel) , i+l) 1= 
MintBitValue (GnlCubeHigh (LastCokernel) ; i+l) ) ; 

} 
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/* */ 

/* LsGetLocalAllKernels */ 

/* 

GNL_STATUS LsGetLocalAllKernels (LastKernel, Kernel Support , Startlndex, 

LastCokernel) 

BLIST LastKernel ; 
uns i gned * Kerne 1 Support ; 

int Start Index; 

GNL_CUBE LastCokernel; 

{ 

int Index ; 

BLIST NewKernel; 
GNLJ2UBE NewCokernel ; 
int Exist 
int Limit 



if (GnlCubeLitNumber (LastCokernel, G_NbCells) > 1) 
{ 

if (LsAddLocalKernel (LastKernel, LastCokernel)) 

return ( GNL_MEMORY_FULL ) ; 
G_NbKe rne 1 Found + + ; 

if (G_NbKernel Found > G_MaxKernels) 

{ 

return (GNL_OK) ; 

} 

} 

Limit = 2 * G__HbVar; 

for (Index = Start Index; Index < Limit; Index++) 

{ 

/* Actually this var. is not in the Support of 'LastKernel' */ 
if (KernelSupport && IMintBitValue (Kernel Support, (Index/2) +1) ) 
{ 

Index++ ; 
continue; 

} 

G_MaxCall += BListSize (LastKernel) ; 
if (G_MaxCall > G_MaxCa 11 Value) 

{ 

return (GNL_OK) ; 

} 

if (LsExistLocalKernel (LastKernel, Index, G_DivisorCube , 

&NewKernel , &Exist ) ) 
return ( GNL__MEMOR Y_FULL ) ; 

if (Exist ScSc LsNewLocalKernel (Index, G_DivisorCube , LastCokernel)) 

{ 

if (GnlCubeCopy (G_NbCells, G_DivisorCube, &NewCokernel) ) 
return (GNL_MEMORY_FULL) ; 

if (LsGetLocalAllKernels (NewKernel, NULL, Index + 2 - Index % 2, 

NewCokernel) ) 
return (GNL MEMOR Y_FULL ) ; 



E-HUBBLE-98 



lsker.c 



if (GnlCubeLitNumber (LastCokernel , GJtfbCells) <= 1) 
{ 

GnlCubeFree (&LastCokernel) ; 
BListQuickDelete (&LastKernel) ; 



} 



return (GNL OK) ; 



/* 

/* LsExtractLocalKernels 

/* 

GNL_STATUS LsExtractLocalKernels (ListCubes, ListKernels, MaxKernels , 

NbVar, NbCells, GainFunction, Gnl, 

LOfLPT) 

BLIST ListCubes; 

BLIST ListKernels; 

i nt MaxKe r ne 1 s ; 

int NbVar; 

int NbCells; 

int (*GainFunction) (); 

GNL Gnl ; 

BLIST LOfLPT; 



*/ 
*/ 
*/ 



int 

GNL_CUBE 
BLIST 
GNL_CUBE 
int 



Cubel; 
Kernel ; 
Cokernel; 

Gain ; 



LS_JLOC_DIVISOR LocalDivisor ; 
unsigned * Kernel Support ; 



/* Setting global variables in order to not propagate them thru */ 
/* recursive calls. */ 
if (BListCreateWithSize (1, &G_ListKernels) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (NbVar, &G_HashList Kernels) ) 

return ( GNL_MEMORY_FULL ) ; 
G_NbKernel Found = 0; 
G_MaxKernels = MaxKernels; 
GJSbCells = NbCells; 
G_NbVar = NbVar; 
GJVIaxCall = 0; 
G_MaxCal lvalue - MAX_CALL; 

if (GnlCubeFullCreate (GJNbCells, &G_DivisorCube) ) 

return (GNL_MEM0RY_FULL) ; 
GnlCubelnitWithValue (G_DivisorCube , "?», NbCells); 



for (i=0; i<BListSize (ListCubes); i++) 

{ 

Cubel = (GNL_CUBE) BListElt (ListCubes, i) ; 

GnlDivCommonDivisorCubeCube (G DivisorCube, Cubel, G_DivisorCube, 
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NbCells) ; 

} 

/* Creating the first Kernel. 

if (BListCreateWithSize (1, ScKernel)) 

return (GNL_MEMORY_FULL) ; 
if (GnlQuickDivision (ListCubes, G_DivisorCube , Kernel, NbCells)) 

return <GNL_MEMORY_FULL) ; 

/* Duplicating the first Cokernel . 

if (GnlCubeCopy (NbCells, G_Di visor Cube , ScCokernel) ) 
return ( GNL_MEMOR Y_FULL) ; 

if (LsGetListCubesSupport (Kernel, NbCells, ^Kernel Support) ) 
return (GNL_MEMORY_FULL) ; 

/* Running recursively the computation 

if (LsGetLocalAllKernels (Kernel, Kerne 1 Support , 0, Cokernel)) 
return (GNL_MEMORY_FULL) ; 

GnlCubeFree (&G DivisorCube) ; 



for (i=0; i<BListSize (G_Li st Kernels ) ; i++) 
{ 

LocalDivisor = (LS_LOC_DIVISOR) BListElt (G_ListKernels , i) ; 
Kernel = LsLocDivisorKernel (LocalDivisor) ; 
Cokernel = LsLocDivisorCokernel (LocalDivisor) ; 

if ( (*GainFunction) (Gnl, LOfLPT, Kernel, Cokernel, NbCells, 
&Gain) ) 
return (GNL_MEMORY_FULL) ; 

SetLsLocDivisorGain (LocalDivisor, Gain) ; 

} 

/* we add the newlocal divisors to the previous stored ones 
if (BListAppend (ListKernels, &G_ListKernels) ) 
return ( GNL_MEM0R Y_FULL ) ; 

BListDelete ( &G_HashList Kernel s , BListQuickDelete) ; 

free (KernelSupport ) ; 

return (GNL_OK) ; 

} 



/* 
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/*--• 










/* 






*/ 




/* 


File: 


skiplist . c 




*/ 


/* 


Version: 


1.1 




*/ 


/* 


Modifications : 


- 




*/ 


/* 


Documentation : 






*/ 


/* 






*/ 




/* 


Class : none 






*/ 


/* 


Inheritance : 






*/ 


/* 






*/ 




/*--- 











*/ 



#include <stdio.h> 
#include <stdlib.h> 

#include "skiplist .h" 

/* */ 

/* salloc */ 

/* */ 

/* This function allocates memory for one segment of the skiplist nodes */ 
/* and returns a pointer to the allocated memory or NULL in case */ 
/* of failure. The memory is set to zero. */ 
/* */ 

static SKIPLISTJtfODE salloc (void) 
{ 

return { (SKIPLIST_N0DE) calloc (SKIPLIST_NODE_SEGMENT_SIZE , 

Sizeof (SKIPLIST_NODE_REC) ) ) ; 

} 

/* */ 

/* SkipListFreeSegment */ 

/* */ 

static void SkipListFreeSegment (Segment) 
SKIPLISTJsTODE *Segment; 

{ 

free (*Segment) ; 
* Segment = NULL; 

} 

/* */ 

/* SkipListCreateNode */ 
/* */ 

/* Each created SKIPLIST_NODE object is relative to a 'SkipList' and */ 

/* belongs to a segment of SKIPLISTJSTODE. */ 

/* You cannot free directly a specific SKIPLIST_N0DE created in */ 

/* this way, because then you free the whole segment. */ 

/* */ 

static SKIPLIST_NODE SkipListCreateNode (SkipList) 
SKIPLIST SkipList ; 

{ 

SKIPLIST_N0DE NewNode ; 
int Size; 



if (Size = BListSize (SkipListUsedNodes (SkipList) ) ) 

{ 
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NewNode = (SKIPLIST_NODE) BListElt (SkipListUsedNodes (SkipList) , Size- 

1) ; 

BListDelShif t (SkipListUsedNodes (SkipList) , Size) ; 
return (NewNode) ; 

} 

if (SkipListFirstNode (SkipList) >= SkipListLastNode (SkipList)) 

{ 

/* We create a new segment of Nodes. */ 
if ((NewNode = sallocO) == NULL) 

return (NULL) ; 
SetSkipListFirstNode (SkipList, NewNode) ; 

SetSkipListLastNode (SkipList, NewNode + S KI PL I S T_NODE_S EGMENT_S I Z E ) ,- 
if (BListAddElt (SkipListNodesSegments (SkipList), (int) NewNode) ) 
return (NULL) ; 

} 

NewNode = SkipListFirstNode (SkipList) ; 
SetSkipListFirstNode (SkipList, NewNode+1) ; 



return (NewNode) ; 



/* 

/* SkipListFreeNode 

/* 

static int SkipListFreeNode (SkipList, Node) 

SKIPLIST SkipList; 

SKIPLIST NODE Node; 



{ 



SetSkipListNodeKeyPtr (Node, NULL); 
SetSkipListNodeDataPtr (Node, NULL) ; 
SetSkipListNodeNext (Node, NULL) ; 
SetSkipListNodeDown (Node, NULL) ; 
return (BListAddElt (SkipListUsedNodes 



(SkipList) , (int) Node) ) ; 



■*/ 
*/ 
*/ 



/* 

/* SkipListlnsertRec 



*/ 
*/ 

•k 



I 



static int SkipListlnsertRec (SkipList, Node, KeyPtr, DataPtr, FirstNode) 



SKIPLIST 
SKIPLIST_NODE 
KEY_PTR 
DATA_PTR 
SKIPLIST NODE 



SkipList ; 
Node ; 
KeyPtr; 
DataPtr; 
*FirstNode; 



SKIPLIST_NODE 

SKIPLIST_NODE 

SKIPLIST_NODE 

SKIPLIST_NODE 

SKIPLIST_NODE 

IntFctPtr 

int 



CurrNode = Node; 
NewNode ; 
NewDown ; 
ThdSon; 
FthSon; 

KeyCompare = SkipListKeyCompare (SkipList) ; 
Status; 



while (SkipListNodeNext (CurrNode) && 
KeyCompare (KeyPtr, 

SkipListNodeKeyPtr (SkipListNodeNext (CurrNode))) >= 0) 
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CurrNode = SkipListNodeNext (CurrNode) ,- 

if (SkipListNodelsLeaf (CurrNode) ) 
{ 

if (!KeyCompare (KeyPtr, SkipListNodeKeyPtr (CurrNode))) 

return (-2); /* The key pointed by KeyPtr is already in the tree */ 

if ( ! (NewNode = SkipListCreateNode (SkipList) ) ) 
return (-1) ; 

SkipListSizelncr (SkipList) ; 

SetSkipListNodeKeyPtr (NewNode, KeyPtr) ; 
SetSkipListNodeDataPtr (NewNode, DataPtr) ; 

if (KeyCompare (KeyPtr, SkipListNodeKeyPtr (CurrNode)) > 0) 
{ 

SetSkipListNodeNext (NewNode, SkipListNodeNext (CurrNode) ) ; 
SetSkipListNodeNext (CurrNode, NewNode) ; 
*FirstNode = Node; 

} 

else 

{ 

SetSkipListNodeNext (NewNode, CurrNode) ; 
*FirstNode = NewNode; 

} 

return (1) ; 



*FirstNode = Node; 

Status = SkipListlnsertRec (SkipList, SkipListNodeDown (CurrNode) , 

KeyPtr, DataPtr, &NewDown) ; 

if (Status < 0) 
return (Status) ; 

if (SkipListNodeDown (CurrNode) 1= NewDown) 

SetSkipListNodeDown (CurrNode, NewDown) ; 
SetSkipListNodeKeyPtr (CurrNode, 

SkipListNodeKeyPtr (SkipListNodeDown (CurrNode) ) ) ; 

if (! Status) 
return (0) ; 

ThdSon = SkipListNodeNext (SkipListNodeNext (SkipListNodeDown (CurrNode) ) ) ; 

if (ThdSon && (FthSon = SkipListNodeNext (ThdSon) ) 
{! SkipListNodeNext (CurrNode) || 
(KeyCompare (SkipListNodeKeyPtr (FthSon) , 

SkipListNodeKeyPtr (SkipListNodeNext (CurrNode))) < 0))) 

{ 

if (! (NewNode = SkipListCreateNode (SkipList))) 
return (-1) ; 

SetSkipListNodeKeyPtr (NewNode, SkipListNodeKeyPtr (ThdSon) ) ; 
SetSkipListNodeNext (NewNode, SkipListNodeNext (CurrNode)) ; 
SetSkipListNodeNext (CurrNode, NewNode) ; 
SetSkipListNodeDown (NewNode, ThdSon) ; 



E-HUBBLE-103 



skiplist.c 



return (1) ; 

} 

return (0) ; 

} 



/* */ 

/* SkipListRemoveRec */ 

/* */ 

/* This function removes the node with the key, pointed by the given */ 

/* KeyPtr. If there was something wrong, -1 is returned. If the key, */ 

/* pointed by the given KeyPtr, was in the skip list, in the */ 

/* parameters NodesKeyPtr and NodesDataPtr the corresponding node's */ 

/* KeyPtr and DataPtr are returned and: if no node was removed from */ 

/* this level, 0 is returned, else 2 is returned. If the key, pointed */ 

/* by the given KeyPtr, wasn't in the skip list, 1 is returned. */ 

/* */ 



static int SkipListRemoveRec (SkipList, Node, PrevNode, KeyPtr, 

NodesKeyPtr, NodesDataPtr, FirstNode) 



SKIPLIST 


SkipList ; 


SKIPLIST__NODE 


Node ; 


SKIPLIST_NODE 


PrevNode ; 


KEY_PTR 


KeyPtr ; 


KEY_PTR 


*NodesKeyPtr; 


DATA_PTR 


*NodesDataPtr; 


SKIPLIST_NODE 


*FirstNode; 


SKIPLIST_NODE 


CurrNode = Node; 


SKIPLIST_NODE 


NewPrevNode = NULL; 


SKIPLIST_NODE 


PrevSon = NULL; 


SKIPLIST_NODE 


NewDown ; 


SKIPLIST_NODE 


SdSon; 


SKIPLIST_NODE 


ThdSon ; 


SKIPLISTJJODE 


Brother; 


IntFctPtr 


KeyCompare = SkipListKeyCompare (SkipList) ; 


int 


Status; 



while (SkipListNodeNext (CurrNode) && 
KeyCompare ( KeyP t r , 

SkipListNodeKeyPtr (SkipListNodeNext (CurrNode))) >= 0) 

{ 

NewPrevNode = CurrNode; 

CurrNode = SkipListNodeNext (CurrNode) ; 

} 

if (SkipListNodelsLeaf (CurrNode) ) 

{ 

if (KeyCompare (KeyPtr, SkipListNodeKeyPtr (CurrNode))) 

return (1); /* The key pointed by the KeyPtr isn't in the list */ 

*NodesKeyPtr = SkipListNodeKeyPtr (CurrNode) ; 
*NodesDataPtr = SkipListNodeDataPtr (CurrNode) ; 

if (NewPrevNode) 

{ 

SetSkipListNodeNext (NewPrevNode, SkipListNodeNext (CurrNode)) ; 
*FirstNode = Node; 
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} 

else 

{ 

*FirstNode = SkipListNodeNext (Node) ; 
if (PrevNode) 

SetSkipListNodeNext (PrevNode, SkipListNodeNext (Node) ) ; 

} 

if (SkipListFreeNode (SkipList, CurrNode) ) 
return (-1) ; 

SkipListSizeDecr (SkipList) ; 

return (2) ; 

} 

*FirstNode = Node; 

if (NewPrevNode) 

PrevNode = NewPrevNode; 

if (PrevNode) 

{ 

PrevSon = 

SkipListNodeNext (SkipListNodeNext (SkipListNodeDown (PrevNode) ) ) ; 
if (KeyCompare (SkipListNodeKeyPtr (PrevSon) , 

SkipListNodeKeyPtr (CurrNode) ) >= 0) 
PrevSon = SkipListNodeNext (SkipListNodeDown (PrevNode) ) ; 

} 

Status = SkipListRemoveRec (SkipList, SkipListNodeDown (CurrNode) , PrevSon, 

KeyPtr, NodesKeyPtr, NodesDataPtr , ScNewDown) ; 

if (Status != 1) 

{ 

if (SkipListNodeDown (CurrNode) ! = NewDown) 

Set SkipListNodeDown (CurrNode, NewDown) ; 
Se t SkipLi s tNodeKeyP t r ( CurrNode , 

SkipListNodeKeyPtr (SkipListNodeDown (CurrNode) ) ) ; 

} 

if (Status < 2) 
return (Status) ; 

if ( (SdSon = SkipListNodeNext (SkipListNodeDown (CurrNode))) && 
(KeyCompare (SkipListNodeKeyPtr (SdSon) , 

SkipListNodeKeyPtr (SkipListNodeNext (CurrNode))) < 0)) 

return (0) ; 
if (Brother = NewPrevNode) 

{ 

SdSon = SkipListNodeNext (SkipListNodeDown (Brother) ) ; 
ThdSon = SkipListNodeNext (SdSon) ; 

if (! KeyCompare (SkipListNodeKeyPtr (ThdSon), 
SkipListNodeKeyPtr (CurrNode) ) ) 

{ 
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/* Brother has only two sons, so we union them under Brother * 
SetSkipListNodeNext (Brother, SkipListNodeNext (CurrNode)) ; 
if (SkipListFreeNode (SkipList, CurrNode) ) 

return ( -1) ; 
return (2) ; 
} 

/* Brother has three sons, so we borrow one from it 
SetSkipListNodeDown (CurrNode, ThdSon) ; 

SetSkipListNodeKeyPtr (CurrNode, SkipListNodeKeyPtr (ThdSon)); 
return (0) ; 

} 

Brother = SkipListNodeNext (CurrNode) ; 

SdSon = SkipListNodeNext (SkipListNodeDown (Brother) ) ; 
ThdSon = SkipListNodeNext (SdSon) ; 

if (ThdSon && 

(! SkipListNodeNext (Brother) || 
(KeyCompare (SkipListNodeKeyPtr (ThdSon) , 
^ SkipListNodeKeyPtr (SkipListNodeNext (Brother))) < 0) ) ) 

/* Brother has three sons, so we borrow one from it */ 
SetSkipListNodeDown (Brother, SdSon) ; 

SetSkipListNodeKeyPtr (Brother, SkipListNodeKeyPtr (SdSon)); 
return (0) ; 

} 

/* Brother has only two sons, so we union them under CurrNode */ 
SetSkipListNodeNext (CurrNode, SkipListNodeNext (Brother)); 
if (SkipListFreeNode (SkipList, Brother)) 

return (-1) ; 
return (2) ; 

} 

/* 

/* SkipListCreate */ 

/* 

/* This function creates a balanced deterministic skip list. 
/* It returns 0 if everything is OK, and 1 otherwise. 

/* 

int SkipListCreate (SkipList, KeyCompare) 
SKIPLIST *SkipList; 
IntFctPtr KeyCompare; 

BLIST NewList; 

if ((*SkipList = (SKIPLIST) calloc (1, sizeof (SKIPLIST_REC) ) ) ==NULL) 
return (1) ; 

SetSkipListKeyCompare (*SkipList, KeyCompare) ; 

/* Creating List of nodes segments */ 
if (BListCreate (&NewList) ) 
return (1) ; 

SetSkipListNodesSegments (*SkipList, NewList); 
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/* Creating List of used nodes */ 
if (BListCreate (&NewList) ) 

return (1) ; 
SetSkipListUsedNodes (*SkipList / NewList) ; 

return (0) ; 

} 

/* SkipListQuickDelete */ 

/* v 

/* This function frees memory from the whole skip list without freeing */ 
/* key and data pointers in each node. */ 

/* , 

/ */ 

voxd SkipListQuickDelete (SkipList) 

SKIPLIST *SkipList; 

{ 

if (*SkipList NULL) 
return; 

BListDelete (ScSkipListNodesSegments (*SkipList) , SkipListFreeSegment) ; 
BListQuickDelete (ScSkipListUsedNodes <*SkipList) ) ; 
free (*SkipList) ; 
*SkipList = NULL; 

} 

/* #/ 

/* SkipListDelete */ 

/* v 

/* This function frees memory from the whole skip list including */ 
/* key and data pointers in each node. */ 

/* *; 

void SkipListDelete (SkipList, KeyDelete, DataDelete) 
SKIPLIST *SkipList; 
VoidFctPtr KeyDelete; 
VoidFctPtr DataDelete ; 

{ 

SKIPLIST_NODE CurrNode ; 

if (*SkipList == NULL) 
return; 

if (CurrNode = SkipListRoot (*SkipList) ) 

while (SkipListNodeDown (CurrNode) ) 

CurrNode = SkipListNodeDown (CurrNode) ; 

while (CurrNode) 

{ 

KeyDelete (SkipListNodeKeyPtr (CurrNode)); 
DataDelete (SkipListNodeDataPtr (CurrNode) ) ; 
CurrNode = SkipListNodeNext (CurrNode) ; 

} 

} 

SkipListQuickDelete (SkipList) ; 

} 
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/* */ 

/* SkipListFindData */ 

/* */ 

/* This function returns pointer to data, located in the node with a */ 
/* key pointed by the given KeyPtr. If the key pointed by the given */ 
/* KeyPtr dosn't exist in the skip list, NULL is returned. */ 
/* */ 

DATAJPTR SkipListFindData (SkipList, KeyPtr) 
SKIPLIST SkipList; 
KEY_PTR KeyPtr; 

{ 

S KI PL I ST_NODE Cur rNode ; 
IntFctPtr KeyCompare ; 



if (1 SkipList) 
{ 

fprintf (stderr, "ERROR : The skip list doesn't exist !\n"); 
return (NULL) ; 

} 

CurrNode = SkipListRoot (SkipList) ; 
p= KeyCompare = SkipList KeyCompare (SkipList) ; 

™\ if ( l CurrNode || (KeyCompare (KeyPtr, SkipListNodeKeyPtr (CurrNode)) < 0) ) 

return (NULL) ; 

nj while (1) 

O while (SkipListNodeNext (CurrNode) && 

M KeyCompare (KeyPtr, 

s SkipListNodeKeyPtr (SkipListNodeNext (CurrNode))) >= 0) 

y. CurrNode = SkipListNodeNext (CurrNode) ; 

^ if (SkipListNodelsLeaf (CurrNode) ) 

iy break; 

O CurrNode - SkipListNodeDown (CurrNode) ; 

if (! KeyCompare (KeyPtr, SkipListNodeKeyPtr (CurrNode))) 

return (SkipListNodeDataPtr (CurrNode) ) ; 
else 

return (NULL) ; 

} 



/* 

/* SkipListlnsert */ 

/* */ 

/* This function inserts a given pointer to data into the skip list */ 

/* according to a key, pointed by a given pointer. It returns 0, if */ 

/* everything is OK, 1 if the node with key, pointed by a given */ 

/* pointer, is already stored in the skip list; and -1 otherwise. */ 

/* */ 

int SkipListlnsert (SkipList, KeyPtr, DataPtr) 
SKIPLIST SkipList; 
KEY_PTR KeyPtr; 
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DATA PTR 



DataPtr; 



IntFctPtr 
SKIPLIST_NODE 
SKIPLIST_NODE 
int 



KeyCompare ; 
NewNode ; 
NewDown ; 
Status ; 



if (! SkipList) 

{ 

fprintf (stderr, "ERROR: The skip list doesn't exist !\n"); 
return (-1) ; 

} 



KeyCompare = SkipList KeyCompare (SkipList) ; 

if ( ISkipListRoot (SkipList) } 
{ 

if { i (NewNode = SkipListCreateNode (SkipList))) 

return (1) ; 
SetSkipListNodeKeyPtr (NewNode, KeyPtr) ; 
SetSkipListNodeDataPtr (NewNode, DataPtr) ; 
SetSkipListRoot (SkipList, NewNode) ; 
SkipListSizelncr (SkipList) ; 
return (0) ; 

} 

Status = SkipListlnsertRec (SkipList, SkipListRoot (SkipList), 

KeyPtr, DataPtr, &NewDown) ; 

if (! Status) 
return (0) ; 

if (Status -1) 
return (-1) ; 

if (Status == -2) 
return (1) ; 



if ( 1 (NewNode = SkipListCreateNode (SkipList))) 
return (1) ; 

SetSkipListNodeKeyPtr (NewNode, SkipListNodeKeyPtr (NewDown) ) / 
SetSkipListNodeDown (NewNode, NewDown) ; 
SetSkipListRoot (SkipList, NewNode) ; 
return (0) ; 

} 



/* ±/ 

/* SkipListRemove */ 

/* 

/* This function removes the node with the key, pointed by the given */ 
/* KeyPtr. If there was something wrong, -1 is returned. If the key, */ 
/* pointed by the given KeyPtr, was in the skip list, 0 is returned */ 
/* and in the parameters NodesKeyPtr and NodesDataPtr the corresponding */ 
/* node's KeyPtr and DataPtr are returned. Otherwise 1 is returned. */ 
/* ic/ 

int SkipListRemove (SkipList, KeyPtr, NodesKeyPtr, NodesDataPtr) 
SKIPLIST SkipList ; 
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KEY__PTR 
KEY_PTR 
DATA_PTR 

{ 

SKIPLIST_NODE 
SKIPLIST_NODE 
IntFctPtr 
int 



KeyPtr; 
*NodesKeyPtr ; 
*NodesDataPtr; 

Root ; 
NewDown ; 
Key Compare ; 
Status ; 



if (!SkipList) 
{ 

fprintf (stderr, "ERROR: The skip list doesn't exist !\n n ); 
return (1) ; 

} 

Root = SkipListRoot (SkipList) ; 

KeyCompare = SkipListKeyCompare (SkipList) ; 

if (!Root) 
return (1) ; 

if (SkipListNodelsLeaf (Root)) 
{ 

if (IKeyCompare (KeyPtr, SkipListNodeKeyPtr (Root))) 
{ 

* Nodes KeyPtr = SkipListNodeKeyPtr (Root) ; 
*NodesDataPtr = SkipListNodeDataPtr (Root) ; 
if (SkipListFreeNode (SkipList, Root)) 

return (-1) ; 
SetSkipListRoot (SkipList, NULL) ; 
SkipListSizeDecr (SkipList) ; 
return ( 0 ) ; 

} 

return (1) ; 

} 

Status = SkipListRemoveRec (SkipList, SkipListNodeDown (Root), NULL, 

KeyPtr, NodesKeyPtr, NodesDataPtr , &NewDown) ; 

if (Status != 1) 

{ 

if (SkipListNodeDown (Root) != NewDown) 

SetSkipListNodeDown (Root, NewDown) ; 
Set SkipListNodeKeyPtr (Root , 

SkipListNodeKeyPtr (SkipListNodeDown (Root) ) ) ; 

} 



if (Status < 2) 
return (Status) ; 



if ( ISkipListNodeNext (SkipListNodeDown (Root))) 
{ 

SetSkipListRoot (SkipList, SkipListNodeDown (Root)) ; 
if (SkipListFreeNode (SkipList, Root)) 
return ( -1) ; 

} 
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return (0) ; 

} 



/* */ 

/* SkipListFirstData */ 

/* */ 

/* This function initializes the iterator to point on the first node */ 

/* of the skip list. It returns pointer to the first data, or NULL, if */ 

/* the given skip list doesn't exist or is empty. In the second */ 

/* parameter the corresponding pointer to key is returned. */ 

/* */ 



DATA_PTR SkipListFirstData (SkipList, FirstKeyPtr) 
SKIPLIST SkipList ; 

KE Y_PTR * F i r s t Key P t r ; 

{ 

if (! SkipList) 
{ 

fprintf (stderr, "ERROR: The skip list doesn't exist !\n n ); 
* FirstKeyPtr = NULL; 
return (NULL) ; 

} 

if ( i SkipListRoot (SkipList)) 

{ 

SetSkipListCurrNode (SkipList, NULL) ; 
*FirstKeyPtr = NULL; 
return (NULL) ; 

} 

SetSkipListCurrNode (SkipList, SkipListRoot (SkipList) ) ; 

while (SkipListNodeDown (SkipListCurrNode (SkipList) ) ) 
SetSkipListCurrNode (SkipList , 

SkipListNodeDown (SkipListCurrNode (SkipList) ) ) ; 

*FirstKeyPtr = SkipListNodeKeyPtr (SkipListCurrNode (SkipList) ) ; 
return (SkipListNodeDataPtr (SkipListCurrNode (SkipList) ) ) ; 

} 



/* */ 

/* SkipListNextData */ 

/* */ 

/* This function returns the next pointer to data, or NULL, if the */ 

/* iterator reached the end of the skip list. One must call to the */ 

/* SkipListFirstData function before this one. In the second */ 

/* parameter the corresponding pointer to key is returned. */ 

/* */ 



DATA__PTR SkipListNextData (SkipList, NextKeyPtr) 
SKIPLIST SkipList; 
KEY_PTR *NextKeyPt r ; 

{ 

if (! SkipListCurrNode (SkipList)) 
{ 

*NextKeyPtr = NULL; 
return (NULL) ; 

} 
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SetSkipListCurrNode (SkipList, 

SkipListNodeNext (SkipListCurrNode (SkipList) ) ) ; 

if (SkipListCurrNode (SkipList)) 

{ 

*NextKeyPtr = SkipListNodeKeyPtr (SkipListCurrNode (SkipList)); 
^return (SkipListNodeDataPtr (SkipListCurrNode (SkipList))); 

*NextKeyPtr = NULL; 
return (NULL) ; 

} 

/* v 



/* SkipListPrint */ 

/* - : v 

/* This function prints all keys and corresponding data, which stored */ 

/* in the given skip list, in ascending order of the keys. */ 

/* The function receives as parameters pointer to functions that get */ 

/* KeyPtr and DataPtr respectively and print the key and data pointed */ 

/* by them. * / 

/* , 

void SkipListPrint (SkipList, PrintKey, PrintData) 

SKIPLIST SkipList; 

VoidFctPtr PrintKey; 

VoidFc t Pt r PrintData ; 

{ 

KEY__PTR KeyPtr; 

DATA__PTR DataPtr; 

if (SkipList == NULL) 
{ 

print f ("The skip list doesn't exist l\n M ); 
return; 

} 

if ( ISkipListRoot (SkipList)) 
{ 

print f ("The skip list is empty !\n H ); 
return; 

} 

printf ("The contents of the skip list:\n"); 

for (DataPtr = SkipListFirstData (SkipList, &KeyPtr) ; 
DataPtr; 

^ DataPtr = SkipListNextData (SkipList, &KeyPtr) ) 

printf {" ») ; 
PrintKey (KeyPtr) ; 
PrintData (DataPtr) ; 

} 

} 
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/* 






nic . 


/* 


VCl blUII . 


/* 


Modifications : 


/* 


Documentation : 


/* 




/* 


Class : none 


/* 


Inheritance : 


/* 








#ifndef SKIPLIST H 
#define SKIPLIST_H 

#include "blist.h" 



skiplist.h 
1.1 



*/ 
*/ 



*/ 
*/ 
*/ 
*/ 

*/ 
*/ 



#include "blist.e" 

#def ine SKIPLIST_NODE_SEGMENT_SIZE 

typedef void *KEY_PTR; 
typedef void *DATA PTR; 



100 



/* 

/* SKIPLIST_NODE_STRUCT 

/* 

typedef struct SKIPLIST_NODE__STRUCT { 



KEY_PTR 
DATA_PTR 

struct SKIPLIST_NODE_STRUCT 
struct SKIPLIST NODE STRUCT 



KeyPtr ; 
DataPtr; 
*Next ; 
*Down ; 



SKIPLIST_NODE_REC, *SKIPLIST_NODE; 

#define SkipListNodelsLeaf (n) 
#define SkipListNodeKeyPtr (n) 
#define SkipListNodeDataPtr (n) 
#define SkipListNodeNext (n) 
#define SkipListNodeDown (n) 

#def ine SetSkipListNodeKeyPtr (n, k) 
#def ine SetSkipListNodeDataPtr (n, d) 
#define SetSkipListNodeNext (n, b) 
#define Set SkipListNodeDown (n, s) 



( ( (n) ->Down) == NULL) 
( ( (n) ->KeyPtr) ) 

( ( (n) ->DataPtr) ) 
( ( (n) ->Next) ) 
( ( (n) ->Down) ) 

( ( (n) ->KeyPtr = k) ) 
( ( (n) ->DataPtr = d) ) 
(n) ->Next = b) ) 
( ( (n) - >Down = s) ) 



/* 

/* SKIPLIST_STRUCT 
* 



/ 

typedef struct SKIPLIST_STRUCT { 



BLIST 
BLIST 

SKIPLIST_NODE 
SKIPLIST_NODE 
SKIPLIST_NODE 
SKIPLIST_NODE 
int 

IntFctPtr 



NodesSegments; /* Segments of SKIPLIST NODE * 



UsedNodes ; 

FirstNode; 
LastNode; 
Root; 
CurrNode ; 
Size; 

Key Compare ; 



/* allocated nodes, 
/* which were removed 



/* For iterator 
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} 

SKIPLISTJREC, *SKIPLIST; 



#define SetSkipListKeyCompare (s, f ) (( (s) ->Key Compare = f ) ) 

z v 

/* SkipListCreate */ 

/* v 

/* This function creates a balanced deterministic skip list. */ 
/* It returns 0 if everything is OK, and 1 otherwise. */ 

z* v 

mt SkipListCreate (SKIPLIST*, IntFctPtr) ; 

/* v 

/* SkipListQuickDelete */ 

/* */ 

/* This function frees memory from the whole skip list without freeing */ 

/* key and data pointers in each node. */ 

/* v 

void SkipListQuickDelete (SKIPLIST*) ; 

z* v 

/* SkipListDelete */ 

/* v 

/* This function frees memory from the whole skip list including */ 
/* key and data pointers in each node. */ 

/*_ *, 

void SkipListDelete (SKIPLIST* , VoidFctPtr, VoidFctPtr) ; 

/* it/ 

/* SkipListFindData */ 

/* it/ 

/* This function returns pointer to data, located in the node with a */ 
/* key pointed by the given KeyPtr. If the key pointed by the given */ 
/* KeyPtr dosn't exist in the skip list, NULL is returned. */ 
/* it/ 

DATA_PTR SkipListFindData (SKIPLIST, KEY_PTR) ; 
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/* it/ 

/* SkipListlnsert */ 

/* +1 

/* This function inserts a given pointer to data into the skip list */ 

/* according to a key, pointed by a given pointer. It returns 0, if */ 

/* everything is OK, 1 if the node with key, pointed by a given */ 

/* pointer, is already stored in the skip list; and -1 otherwise. */ 

/* ic/ 

int SkipListlnsert (SKIPLIST, KEY_PTR, DATA_PTR) ; 

/* i(/ 

/* SkipLi st Remove */ 

/* it/ 

/* This function removes the node with the key, pointed by the given */ 

/* KeyPtr. If there was something wrong, -1 is returned. If the key, */ 

/* pointed by the given KeyPtr, was in the skip list, 0 is returned */ 

/* and in the parameters NodesKeyPtr and NodesDataPtr the corresponding */ 

/* node's KeyPtr and DataPtr are returned. Otherwise 1 is returned. */ 

/* ic/ 

int SkipListRemove (SKIPLIST, KEY_PTR, KEY_PTR* , DATA_PTR*) ; 

/* v 

/* SkipListlnitlterator */ 

/* v 

/* This function initializes the iterator to point on the first node */ 

/* of the skip list. It returns pointer to the first data, or NULL, if */ 

/* the given skip list doesn't exist or is empty. In the second */ 

/* parameter the corresponding pointer to key is returned. */ 

z* v 

DATA_PTR SkipListFirstData (SKIPLIST, KEY_PTR*) ; 

/* ; 

/* SkipListNextData */ 

/* v 

/* This function returns the next pointer to data, or NULL, if the */ 

/* iterator reached the end of the skip list. One must call to the */ 

/* SkipListFirstData function before this one. In the second */ 

/* parameter the corresponding pointer to key is returned. */ 

/* v 

DATAJPTR SkipListNextData (SKIPLIST, KEY_PTR*) ; 

/* ic/ 

/* SkipListPrint */ 

/* v 

/* This function prints all keys and corresponding data, which stored */ 

/* in the given skip list, in ascending order of the keys. */ 

/* The function receives as parameters pointer to functions that get */ 

/* KeyPtr and DataPtr respectively and print the key and data pointed */ 

/ * by them . * / 

z* v 

void SkipListPrint (SKIPLIST, VoidFctPtr, VoidFctPtr) ; 

/* EOF */ 

#endif 
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/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 

/* 

/* Timing Info attached to GNL_VAR 

/* 

typedef struct GNL_TTMING_INFO_STRUCT 

{ 







*/ 




File : 


time . h 


*/ 




Version: 


1.1 




*/ 


Modifications : 






*/ 


Documentation : 




*/ 
*/ 


*/ 



float 


ArrivalTimeFall ; 


float 


ArrivalTimeRise ; 


float 


RequiredTimeFall ; 


float 


Requi redTimeRi s e ; 


float 


TransitionTimeFall; 


float 


TransitionTimeRise; 


float 


OutCapacitance ; 


int 


OutFanout ,- 


int 


Tag; 


void 


*Hook; 



} 

GNL_TIMING_INFO_REC , * GNL_T I M ING_ I NF0 ; 

#def ine GnlTiminglnf oArrivalFall (n) ( (n) 
#define GnlTiminglnf oArrivalRise (n) ( (n) 
#def ine GnlTiminglnf oRequiredFall (n) 
#def ine GnlTiminglnf oRequiredRise (n) 
#def ine GnlTiminglnf oFanout (n) 
#define GnlTiminglnf oCapa (n) ( (n) 

#def ine GnlTiminglnf oTransitionFall (n) 
#def ine GnlTiminglnf oTransitionRise (n) 
#define GnlTiminglnf oTag (n) ( (n) 

#define GnlTiminglnf oHook (n) ( (n) 



*/ 



- >ArrivalTimeFall ) 

->ArrivalTimeRise) 

{ (n) ->RequiredTimeFall) 
( (n) - >Requi redTimeRi se) 
( (n) ->OutFanout) 

- >0utCapaci tance ) 

( (n) ->TransitionTimeFall) 
( (n) ->TransitionTimeRise) 

->Tag) 

->Hook) 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



SetGnlTiminglnfoArrivalFall (n, b) ( (n) ->ArrivalTimeFall = b) 
SetGnlTiminglnf oArrivalRise (n, b) ( (n) ->ArrivalTimeRise = b) 
SetGnlTiminglnf oRequiredFall (n, b) ( (n) ->RequiredTimeFall 

SetGnlTiminglnf oRequiredRise (n, b) ( (n) ->RequiredTimeRise 



SetGnlTiminglnf oFanout (n, b) 

SetGnlTiminglnf oCapa (n, b) ( (n) 

SetGnlTiminglnfoTransitionFall (n, b) 

SetGnlTiminglnf oTransitionRise (n, b) 

SetGnlTiminglnf oTag (n, b) ( (n) 

SetGnlTiminglnf oHook (n, b) { (n) 



b) 
b) 



{ (n) ->OutFanout = b) 

- >OutCapacitance = b) 

{ (n) ->TransitionTimeFall = b) 
( (n) ->TransitionTimeRise = b) 

->Tag = b) 

->Hook = b) 



/* 

typedef enum { 
PORT^IN, 
PORT_OUT f 
PORT_INOUT, 
PORT_LOCAL 
} GNL_PORT_DIR; 



7 
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GNL_VAR 

GNL_ASSOC 

char 

int 

float 

float 

float 

int 

int 

GNL_PORT_DIR 

BLIST 

BLIST 



/* Critical Var on*/ 



/* 

/* GNL_CRITICAL_PATH 

/* 

typedef struct GNL_CRITICAL_PATH_STRUCT 
{ 

CriticalVar ; 

CriticalAssoc ; 
*InstName; 
Fanout ; 

Incr ; 

Arrival Time ; 
RequiredTime ; 

KindOf Time; 
Tag; 

Directions- 
Predecessors; /* GNL_CR I TI CAL_PATH */ 
Successors; /* GNL_CRITICAL PATH */ 
} 



■*/ 



GNL_CRITICAL_PATH_REC , * GNL_CR I T I CAL_PATH ; 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



GnlCritPathCriticalVar (n) 
GnlCritPathCriticalAssoc (n) 
GnlCritPathlnstName (n) 
GnlCritPathFanout (n) 
GnlCritPathlncr (n) 
GnlCritPathArrTime (n) 
GnlCritPathReqTime (n) 
GnlCritPathKindOf Time (n) 
GnlCritPathTag (n) 
GnlCritPathPredecessors (n) 
GnlCritPathSuccessors (n) 



( (n) ->CriticalVar) 
( (n) ->CriticalAssoc) 

( (n) ->InstName) 
( (n) ->Fanout) 
( (n) ->Incr) 
( (n) ->ArrivalTime) 
{ (n) ->RequiredTime) 
{ (n) ->KindOfTime) 
( (n) ->Tag) 
( (n) - >Predecessors) 
( (n) - >Successors) 



SetGnlCritPathCriticalVar (n, b) 
SetGnlCritPathCriticalAssoc (n, b) 
SetGnlCritPathlnstName (n, b) 
SetGnlCritPathFanout (n, b) 
SetGnlCritPathlncr (n, b) 
SetGnlCritPathArrTime (n, b) 
SetGnlCritPathReqTime (n, b) 
SetGnlCritPathKindOf Time (n, b) 
SetGnlCritPathTag(n, b) 
SetGnlCritPathPredecessors (n, b) 
SetGnlCritPathSuccessors (n, b) 



( (n) ->CriticalVar = b) 
( (n) ->CriticalAssoc = b) 

( (n) ->InstName = b) 
( (n) ->Fanout = b) 
( (n) ->Incr = b) 
( (n) ->ArrivalTime = b) 
( (n) ->RequiredTime = b) 

( (n) ->KindOfTime 

( (n) ->Tag - b) 
( (n) ->Predecessors = b) 

( (n) ->Successors = 



b) 



b) 



/* 

/* GNL PATH ELEM 



/* 

typedef struct GNL_PATH_ELEM_STRUCT 
{ 

char *InPort; 
char *OutPort ; 

GNL__VAR CriticalVar; 
GNL_C0MP0NENT Compo ; 
char * Ins tName ; 

int Fanout ; 

float Riselncr; 
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} 



float 
float 
float 
float 
float 



Falllncr; 
RiseArrivalTime ; 
FallArrivalTime ; 
RiseRequiredTime ; 
FallRequiredTime ; 



GNL PATH ELEM REC, *GNL PATH ELEM; 



#define GnlPathElemlnPort (n) 
#define GnlPathElemOutPort (n) 
#define GnlPathElemCompo (n) 
#define GnlPathElemFanout (n) 
#def ine GnlPathElemCriticalVar (n) 
#define GnlPathElemlnstName (n) 
#define GnlPathElemRiseArrTime (n) 
#def ine GnlPathElemFallArrTime <n) 
#define GnlPathElemRiseReqTime (n) 
#def ine GnlPathElemFallReqTime (n) 
#define Gnl PathElemRi seiner (n) 
#define GnlPathElemFalllncr (n) 



(n) ->InPort) 
(n) ->OutPort) 
(n) ->Compo) 
(n) ->Fanout ) 
(n) ->CriticalVar) 

( (n) ->InstName) 
(n) ->RiseArrivalTime) 
(n) ->FallArrivalTime) 
(n) ->RiseRequiredTime) 
(n) ->FallRequiredTime) 
( (n) ->RiseIncr) 
( (n) ->FallIncr) 



#define SetGnlPathElemlnPort (n, b) ( (n) 
#define SetGnlPathElemOutPort (n, b) ( (n) 
#define Set GnlPathElemCompo (n, b) ( (n) 
#def ine SetGnlPathElemFanout (n, b) ( (n) 
#define SetGnlPathElemCriticalVar {n, b) 
#def ine SetGnlPathElemlnstName (n, b) 
#define SetGnlPathElemRiseArrTime (n, b) 
#define SetGnlPathElemFallArrTime (n, b) 
#define SetGnlPathElemRiseReqTime (n, b) 
#define SetGnlPathElemFallReqTime (n, b) 
#define SetGnlPathElemRi seiner (n, b) 
#define SetGnlPathElemFalllncr (n, b) 



>InPort = b) 
>OutPort = b) 
>Compo = b) 
>Fanout = b) 

(n) ->CriticalVar = b) 
(n) ->InstName = b) 
(n) ->RiseArrivalTime = b) 
(n) ->FallArrivalTime = b) 
(n) ->RiseRequiredTime - b) 
(n) ->FallRequiredTime = b) 
(n) ->RiseIncr = b) 
(n) ->FallIncr = b) 



/* */ 

/* GNL_CLOCK */ 

/* */ 

typedef struct GNL_CLOCK_STRUCT 

{ 

GNL_VAR SourceClock; 

char *HierNameOfGnlClok; 

float ArrivalTime ; 

float RequiredTime; 

float SetupTime; 

BLIST Sequentiallnstances; /* GML_SEQUENTIAL___COMPONENT */ 

BLIST SeqhierlnstNames; /* char */ 

/* SeqhierlnstNames [i] is the global 
name including the hierarchy, it 
corresponds to Sequentiallnstances [i] */ 

} 



GNL_CLOCK_REC , * GNL_CLOCK ; 



#define GnlClockSourceClock (n) 
#define GnlClockHierNameOf GnlC 
#define GnlClockArrTime (n) 
#def ine GnlClockReqTime (n) 
#def ine GnlClockSetupTime (n) 



( (n) ->SourceClock) 
(n) ( (n) ->HierNameOfGnlClok) 

( (n) ->ArrivalTime) 
( (n) ->RequiredTime) 
{ (n) ->SetupTime) 
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#def ine GnlClockSeqlnst (n) ( (n) ->SequentialInstances) 

#def ine GnlClockSeqHierlnstNames (n) ( (n) ->SeqhierInstNames) 



#define SetGnlClockSourceClock (n, b) 
#def ine SetGnlClockHierNameOf GnlClok (n, 
#define SetGnlClockArrTime (n, b) 
#define SetGnlClockReqTime (n, b) 
#define SetGnlClockSetupTime (n, b) 
#define SetGnlClockSeqlnst (n, b) 
#define SetGnlClockSeqHierlnstNames (n, b) 



( (n) ->SourceClock = b) 
b) ( (n) ->HierNameOf GnlClok = b) 

( (n) ->ArrivalTime = b) 
( (n) ->RequiredTime = b) 
( (n) ->SetupTime = b) 
( (n) ->SequentialInstances = b) 
( (n) ->SeqhierInstNames = b) 



/* 

/* TIME_SEQUENTIALJBLEM 

/* 

typedef struct TIME_SEQUENTIAL ELEM STRUCT 

{ " ~ 

GNL_SEQUENTIAL_COMPONENT SeqComp; 
BLIST HierlnstPath; 
float SlackAtOutput; 

TIME_SEQUENTIAL_ELEM_REC , * T IME_S EQUENT I AL_ELEM ; 



-*/ 
-*/ 



} 



#define TimeGetSeqElemSeqComp (n) 
#def ine TimeGetSeqElemHierlnstPath (n) 
#def ine TimeGetSeqElemSlackAtOutput (n) 



{ (n) ->SeqComp) 

( (n) ->HierInstPath) 
( (n) ->SlackAtOutput) 



#define SetTimeGetSeqElemSeqComp (n, b) 
#define SetTimeGetSeqElemHierlnstPath (n, b) 
#define SetTimeGetSeqElemSlackAtOutput {n, b) 



( (n) ->SeqComp = b) 

{ (n) ->HierInstPath = b) 

( (n) ->SlackAtOutput = b) 



/* 

#define RISE 
#define FALL 

/* 

/* 



' R ' 
' F 1 



v 

Global Variable of Traversal of the Netlist */ 



extern GNL_US ER__C0MPONENT 
extern BLIST 



G_Cur rent Component ; 
G__PileOf Component ; 



#define MAX_FLOAT 9999 

/* 

/* 



■*/ 
*/ 



EOF 
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/* ic/ 

/* */ 

/* File: timecomp.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* Description: */ 

/* */ 

/* ie/ 



#include <stdio.h> 



#ifdef MEMORY /* if one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 



#include 


"blist .h" 


tinclude 


"gnl .h" 


#include 


"libc_mem. h" 


#include 


"libc_api .h" 


#include 


" gnlestim. h" 


#include 


"time.h" 


tinclude 


"bbdd.h" 


#include 


"gnllibc.h" 


#include 


"gnlmap . h" 


#include 


"gnloption.h 


#include 


"gnllibc.h" 


#include 


"blist .e" 


#include 


"libutil -e" 


#include 


"timeutil . e" 


#include 


"timecomp.e" 


#include 


"timepath. e" 


#include 


"timef an. e" 



#define MAX_CELL_NUMBER 3 0000 

/* v 

/* EXTERN */ 

/* v 

extern GNL_ENV G_GnlEnv; 

/* it/ 



/* v 

/* Global Variable of Traversal of the Netlist */ 

GNL_USER__C0MP0NENT G_CurrentComponent ; 

BLIST G_PileOf Component ; 

/* ie/ 

/* ic/ 

int GnlFloatEqual (float a, float b, int precision) 

float f, puiss = 1.0; 
int i ; 
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for (i=0 ; i< precision ; i++) 
puiss *= 10; 

if (a > b) 

f = (a - b) * puiss ; 
else 

f = (b - a) * puiss; 

i = (f < 1) ? 1 : 0; 

return (i) ; 

} 

z* 

float GnlMaxFloat (float a, float b) 
{ 

float Max; 

Max = a; 
if (Max < b) 
Max = b; 

return (Max) ; 

} 

z* 

float GnlMinFloat (float a, float b) 
{ 

float Min; 

Min = a; 
if (Min > b) 
Min - b; 

return (Min) ; 

} 

z* 

z* 

/* GnlGetHierarchycallnstName */ 

/* 

GNL_STATUS GnlGetHierarchycallnstName (char *InstanceName, 

char **HierarchycalName) 

{ 

char *Strl, *Str2, *InstName; 
int i ; 

GNL_USER_COMPONENT AuxUserCompo ; 

InstName = NULL ; 

if (BListSize (G_Pi leOf Component ) ) 
{ 

AuxUserCompo = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 0) ; 
Str2 = GnlUserComponentlnstName (AuxUserCompo) ; 
if (GnlStrCopy (Str2, &InstName) ) 

return ( GNL_MEMORY_FULL) ; 
for (i=l ; i < BListSize (G_PileOf Component) ; i++) 

Strl = InstName; 
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if (GnlStrAppendStrCopy (Strl # GnlEnvFlattenStr ( ) , ^InstName) ) 

return (GNL_MEMORY_FULL) ; 
free (Strl) ; 
Strl = InstName; 

AuxUserCompo = ( GNL_USER__COMPONENT ) BListElt (G_PileOf Component , i) ; 
Str2 = GnlUserComponentlnstName (AuxUserCompo) ; 
if (GnlStrAppendStrCopy (Strl, Str2, ^InstName) ) 

return ( GNL_MEMOR Y__FULL ) ; 
free (Strl) ; 

} 

if (InstanceName) 

{ 

Strl = InstName ; 

if (GnlStrAppendStrCopy (Strl, GnlEnvFlattenStr () , fcinstName) ) 

return (GNL_MEMORY_FULL) ; 
free (Strl) ; 
Strl = InstName; 

if (GnlStrAppendStrCopy (Strl, InstanceName , ^InstName) ) 

return (GNL_MEMORY_FULL) ; 
free (Strl) ; 

} 

} 

else 

if (InstanceName) 

if (GnlStrCopy (InstanceName, SdnstName) ) 
return (GNL_MEMORY_FULL) ; 
*HierarchycalName = InstName; 
return (GNL OK) ; 

} 

/* 

1 */ 

/* SetGnlCritPathlnstNameFromUserCompo */ 

/* ^ 

GNL_STATUS SetGnlCritPathlnstNameFromUserCompo ( GNL_CR I T I CAL PATH CritPath, 

char ^InstanceName) ~ 

char *HierarchycalName; 

if (I CritPath || i InstanceName) 
return (GNL_OK) ; 

if (GnlGetHierarchycallnstName (InstanceName, &HierarchycalName) ) 
return (GNL_MEMORY_FULL) ; 

SetGnlCritPathlnstName (CritPath, HierarchycalName) ; 
return (GNL OK) ; 

} 

/* 

/* GnlPrintCritPath */ 
/* 1 

void GnlPrintCritPath (BLIST ListCritPath, float *ClockFreqValue, 
float *CombPathValue) 

{ 

GNL__CRITICAL_PATH CritPath; 
LIBC_CELL Cell; 
GNL_COMPONENT Compo ; 

GNL_VAR Var, Formal, StartVar, EndVar; 

int i, IsSequential; 
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GNL_ASSOC Assoc; 



CritPath = ( GNL_CRI T I CAL_PATH ) BListElt (ListCritPath, 

BListSize (ListCritPath) -1) ; 
StartVar = GnlCritPathCriticalVar (CritPath) ; 
CritPath = ( GNL_CR I T I C AL_P ATH ) BListElt (ListCritPath, 0) ; 
EndVar = GnlCritPathCriticalVar (CritPath) ; 

IsSeguential = (IStartVar || I EndVar) ; 

fprintf (stderr, « Point\t\t\t\t\tFanout\tIncr\tPath\n») ; 

fprintf (stderr, " 

\n") ; 

for (i= BListSize (ListCritPath) -1; i >= 0; i--) 

CritPath = (GNL_CRITICAL_PATH) BListElt (ListCritPath, i) ; 
if ( IGnlCritPathPredecessors (CritPath) [| 
IGnlCritPathSuccessors (CritPath) ) 

Var = GnlCritPathCriticalVar (CritPath) ; 
if (Var) 

{ 

if ( iGnlCritPathPredecessors (CritPath) ) 

/* the input external delay is depending of constraint timing */ 
/* For the moment it is 0.0 (later we have to do that */ 
fprintf (stderr, » input external delay\t\t\t\tO . 0\t0 . 0 \n n ); 

fprintf (stderr, « %s " , GnlVarName (Var)); 

if ( IGnlCritPathPredecessors (CritPath) ) 

fprintf (stderr, « (in) \n\t\t\t\t\ t\t » ) ; 
else 

fprintf (stderr, " (out) \n\t\t\t\t\t\t ") ; 
fprintf (stderr, »% . 2f \t% . 2f » , GnlCritPathlncr (CritPath), 

GnlCritPathArrTime (CritPath) ) ; 
if (GnlCritPathKindOfTime (CritPath) == RISE) 

fprintf (stderr, " Rising\n"); 
else 

fprintf (stderr, » Falling\n ,T ) ; 

} 

Assoc = GnlCritPathCriticalAssoc (CritPath) ; 
if (Assoc) 

{ 

Compo = GnlAssocTraversallnfoComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 
Formal = GnlAssocFormalPort (Assoc) ; 
GnlGetCellFromGnl Compo (Compo, &Cell) ; 
if (Cell) 

{ 

fprintf (stderr, " %s", GnlCritPathlnstName (CritPath)); 

fprintf (stderr, »/%s %s", (char *) Formal, GnlVarName (Var) ) ; 

fprintf (stderr, » (%s) \n\t\t\t\t\t » , LibCellName (Cell) ) ; 
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if (IsSequential && i==0) 

fprintf (stderr, \t0 . 00\t% . 2f " , Gnl Crit Pat hArr Time (CritPath) ) 
else 

fprintf (stderr, " %d\t% . 2f \t% . 2f ' » , 

GnlCritPathFanout (CritPath) , 
GnlCritPathlncr (CritPath) , 
GnlCritPathArrTime (CritPath) ) ; 
if (GnlCritPathKindOfTime (CritPath) == RISE) 
fprintf (stderr, » Rising\n") ; 
else 

fprintf (stderr, " Falling\n" ) ; 

} 

} 

} 

CritPath = (GNL_CRITICAL_PATH) BListElt (ListCritPath , 0) ; 
fprintf (stderr, Data Arrival Time \t\t\t\t\t% . 2f \n" , 

GnlCritPathArrTime (CritPath) ) ; 

if (IsSequential) 

{ 

if (GnlCritPathlncr (CritPath) != 0.0) 

fprintf (stderr, » Setup Time \t\t\t\ t\t\t% . 2f \n" , 

GnlCritPathlncr (CritPath) ) ; 

if (*ClockFreqValue < 

GnlCritPathlncr (CritPath) + GnlCritPathArrTime (CritPath) ) 
*ClockFreqValue = GnlCritPathlncr (CritPath) + 
^ GnlCritPathArrTime (CritPath) ; 

else 
{ 

if (*CombPathValue < GnlCritPathArrTime (CritPath)) 
*CombPathValue = GnlCritPathArrTime (CritPath) ; 

fprintf (stderr, " 

---\n»); 

fprintf (stderr, " (Path is unconstrained) \n\n" ) ; 

} 



/* GnlGetOnePathFromCritPath 



GNL_STATUS GnlPrintNEquivalPathFromOneCri tPath ( GNL_CR I T I CAL_PATH CritPath, 

BLIST ListCritPath, int *NumberOf Paths , 

int IsSequential, 

float *ClockFreqValue, 

float *CombPathValue, 

float MinSlackForSeqPath, 

float MinSlackForCombPath, 
^ BLIST ListPathClockFreq) 

GNL__CRITICAL_PATH Predecessor; 
GNL_CR I T I C AL_P ATH EndCritPath; 

GNL_VAR var, StartVar, EndVar; 

int i ; 

float Slack; 
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if (ICritPath || l ListCritPath) 
return (GNL_OK) ; 

if (NumberOf Paths <= 0) 
return (GNLJDK) ; 

if (BListAddElt (ListCritPath, CritPath) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlCritPathPredecessors (CritPath) ) 
{ 

for (i=0; i < BListSize (GnlCritPathPredecessors (CritPath)); i++) 

Predecessor = ( GNL_CR I T I CAL__PATH ) BListElt ( 

GnlCritPathPredecessors (CritPath) , i) ; 

GnlPrintNEquivalPathFromOneCritPath (Predecessor, ListCritPath, 
NumberOf Paths, IsSequential, ClockFreqValue , 
CombPathValue, MinSlackForSeqPath, 

MinSlackForCombPa th , 

ListPathClockFreq) ; 
BListDelShift (ListCritPath, BListSize (ListCritPath)); 

} 

else 

{ 

if (*NumberOf Paths > 0) 
{ 

EndCritPath = ( GNL_CR I T I CAL_P ATH ) BListElt (ListCritPath, 0) ; 
Slack = GnlCritPathReqTime (EndCritPath) - 
GnlCritPathArrTime (EndCritPath) ; 

StartVar = GnlCritPathCriticalVar (CritPath) ; 
EndVar = GnlCritPathCriticalVar (EndCritPath) ; 
if { I IsSequential) 

{ 

if (StartVar && GnlFloatEqual (MinSlackForCombPath, Slack, 4)) 

GnlPrintCritPath (ListCritPath, ClockFreqValue, CombPathValue) ; 
( *NumberOf Paths ) - - ; 

} 

else 
{ 

if (GnlFloatEqual (MinSlackForSeqPath, Slack, 4)) 

if (BListAddElt (ListPathClockFreq, BListElt (ListCritPath, 0) ) ) 
return ( GNL_MEMOR Y FULL) ; 

} 

return (GNL_0K) ; 

} 

else 
{ 

if (IStartVar || iEndVar) 
{ 

GnlPrintCritPath (ListCritPath, ClockFreqValue, CombPathValue) ; 
(*NumberOf Paths) --; 

} 

} 
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} 

return (GNL_OK) ; 

} 



/ 



/* 

/* GnlComparePathToCurrentPath */ 

/* 

int GnlComparePathToCurrentPath (GNL_PATH_COMPONENT Path, 

BLIST CurrentPath) 

{ 

int i ; 

GNL_PATH_COMPONENT Previous ; 
GNL JJSER__COMPONENT Compo I ; 

if (IPath) 
return (0) ; 

Compol = GnlPathComponent Component (Path) ; 
Previous = GnlPathComponentPrevious (Path) ; 
for (i= BListSize (CurrentPath) -1 ; i >=0; i--) 
{ 

if (Compol != (GNL_USER_COMPONENT) BListElt (CurrentPath, i ) ) 

return (0) ; 
if (Previous && (i == 0)) 

return (0) ; 
if (IPrevious && (i > 0) ) 

return (0) ; 
if (Previous) 

{ 

Compol = GnlPathComponent Component (Previous) ; 
Previous = GnlPathComponentPrevious (Previous) ; 

} 

} 

return (1) ; 

} 

/* 

/* TiminglnfoCorrespToCurrentPathFromVar () */ 
/* 

GNLJSTATUS GnlTiminglnf oCorrespToCurrentPathFromVar ( 

GNL_VAR Var 7 
GNL__TIMING_INFO *TimingInf o , 
unsigned int *Key 7 
int *Rank) 

{ 

GNL_STATUS GnlStatus ; 

BLIST ListTiminglnfo, ListPaths; 

GNL CurrentGnl ; 

GNL__USER_COMPONENT Current Component ; 

char * I n s t anc eName ; 

BLIST SubList, SubListForTiming/ 



*Rank = 0; 

if (BListSize (G_PileOf Component) ) 
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{ 

/* we take the last element of the pile */ 
/* e.g the current instance. */ 
CurrentComponent = ( GNL_USER__COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 
CurrentGnl = GnlUserComponentGnlDef (CurrentComponent) ; 

/* we access the hash list. */ 
ListPaths = GnlListPathComponent (CurrentGnl) ; 
InstanceName = GnlUserComponentlnstName (CurrentComponent) ; 
*Key = KeyOfName (InstanceName, BListSize (ListPaths)); 
SubList = (BLIST) BListElt (ListPaths, *Key) ; 

*Rank = BListMemberOf List (SubList, G_PileOf Component , 

GnlComparePathToCurrentPath) ; 

ListTiminglnfo = (BLIST) GnlVarTraversallnf oHook (Var) ; 
if ( ! ListTiminglnfo) 

{ 

if (BListCreateWithSize (BListSize (ListPaths), ^ListTiminglnfo) ) 

return (GNL_MEMORY_FULL) ; 
BSize (ListTiminglnfo) = BListSize (ListPaths) ; 
SetGnlVarTraversallnfoHook (Var, (void*) ListTiminglnfo) ; 

if (BListCreateWithSize (BListSize (SubList), ^SubListForTiming) ) 

return ( GNL_MEMORY_FULL ) ; 
BSize (SubListForTiming) = BListSize (SubList) ; 
BListElt (ListTiminglnfo, *Key) = (int) SubListForTiming ; 
*TimingInfo = (GNL_TIMING INFO) NULL; 

} 

else 
{ 

SubListForTiming = (BLIST) BListElt (ListTiminglnfo, *Key) ; 
if ( (SubListForTiming) 

{ 

if (BListCreateWithSize (BListSize (SubList) , ^SubListForTiming) } 

return (GNL_MEMORY_FULL) ; 
BSize (SubListForTiming) = BListSize (SubList); 
^ BListElt (ListTiminglnfo, *Key) = (int) SubListForTiming; 

*TimingInfo = (GNLJTIMING_INFO) BListElt (SubListForTiming, *Rank-l) ; 

} 

else 

*TimingInfo = (GNL_TIMING_INFO) GnlVarTraversallnf oHook (Var) ; 
return (GNL_OK) ; 

} 



/* v 

/* GnlComputeCapaAndFanoutFromSeqCell */ 

/* + / 

/* Doc procedure GnlComputeCapaAndFanoutFromSeqCell : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)' 1 . 

- it does not include the wire capacitance. 
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- the GNL_ASSOC is a connector of a Sequential component. 

*/ 

/* 

GNL_STATUS GnlCornputeCapaAndFanoutFromSeqCell (GNL_ASSOC Assoc, 

float *Capa, 

int * Fanout, 

LIBC_LIB Lib) 

{ 

LIBC_CELL Cell; 

LIBC_PIN Pinln; 

GNL_ASSOC AssocI; 

char * Formal; 

LIB C_KFATOR KF; 

float AuxCapa ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 
Formal = (char *) GnlAssocFormalPort (Assoc); 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return <GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; 

AuxCapa = LibPinCapa (Pinln) ; 
if (AuxCapa -= 0.0) 

AuxCapa = LibDef aultlnputPinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap (KF) [1], 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
(*Fanout) ++; 
return (GNL_OK) ; 

} 

/* 

/* GnlComputeCapaAndFanoutFrom3State */ 

/* 

/* Doc procedure GnlComputeCapaAndFanoutFrom3 State : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)". 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a 3state component. 

*/ 

/* 

GNL_STATUS GnlComputeCapaAndFanoutFrom3State (GNL_ASSOC Assoc, 

float *Capa, 
int * Fanout, 

LIBC_LIB Lib) 

{ 

LIBC_CELL Cell; 
LIBC_PIN Pinln; 
GNL_ASSOC AssocI; 
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char * Formal; 

LIB C_KFATOR KF; 
float AuxCapa; 
GNL__TRISTATE_COMPONENT TriStateCompo ; 

TriStateCompo = 

(GNL_TRISTATE_COMPONENT) GnlAs socTr aver sal Inf oComponent (Assoc) ; 
Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 
Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == 0UTPUT_E ) 

return (GNL_OK) ; 

AuxCapa = LibPinCapa (Pinln) ; 
if (AuxCapa == 0.0) 

AuxCapa = LibDef ault Input PinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap(KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
(*Fanout) ++; 
return (GNL_0K) ; 

} 

/* i[/ 

GNL_STATUS TimeGet Forma lFromAssocAndActual (GNL_ASSOC Assoc, GNL__VAR Actual, 

GNL VAR * Formal) 

{ 

GNL_VAR AuxActual, AuxFormal, IndexFormalVar , SplitActual J; 

GNL_USER__COMPONENT UserCompo ; 

GNL GnlDefCompo; 

char * IndexFormalName ; 

int i, j, Index, Lef tFormlndex, RightFormlndex; 

BLIST ListSplitActuals ; 

GNL_STATUS GnlStatus ; 



*Formal = (GNL_VAR) NULL; 

UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversal Inf oComponent (Assoc) ; 
GnlDefCompo = GnlUserComponentGnlDef (UserCompo) ; 

AuxActual = GnlAssocActualPort (Assoc) ; 
AuxFormal = GnlAssocFormalPort (Assoc) ; 

if (GnlVarlsVar (AuxActual)) 
{ 

* Formal = AuxFormal; 
return (GNL_0K) ; 

} 

else 
{ 

ListSplitActuals = GnlNodeSons ( (GNL_NODE) AuxActual) ; 
LeftFormlndex = GnlVarMsb (AuxFormal) ; 
RightFormlndex = GnlVarLsb (AuxFormal) ; 
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if (Lef tFormlndex < RightFormlndex) 

Index = Lef tFormlndex- 1 ; 
else 

Index = Lef tFormlndex+l ; 
for (j=0; j<BListSize (ListSplitActuals) ; j++) 

{ 

if (Lef tFormlndex < RightFormlndex) 

Index++ ; 
else 

Index-- ; 

SplitActualJ = <GNL_VAR) BListElt (ListSplitActuals, j); 
if (SplitActualJ == Actual) 

{ 

if (GnlVarlndexName (AuxFormal, Index, SdndexFormalName) ) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlGetVarFromName (GnlDef Compo, 

IndexFormalName , &IndexFormalVar) ) ) 

{ 

free (IndexFormalName) ; 

if (GnlStatus == GNL_VAR_NOTJSXISTS) 

{ 

fprintf (stderr, " ERROR: cannot find var\n n ); 
return (GNL_VAR_NOT_EXISTS) ; 

} 

return (GNL_MEMORY_FULL) ; 

} 

* Formal = IndexFormalVar ; 
return (GNL_OK) ; 

} 

} 

} 

return (GNL_OK) ; 

} 



/* */ 

/* */ 

/* GnlComputeCapaAndFanoutFromUserCompo */ 
/* */ 



/* Doc procedure GnlComputeCapaAndFanoutFromUserCompo : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)". 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a UserComponent 

*/ 

/* */ 

GNL_STATUS GnlComputeCapaAndFanoutFromUserCompo (GNL_ASSOC Assoc, 

float *Capa, 

int * Fanout, 

LIBC_LIB Lib, 

GNL_VAR Actual, 

int Tag) 

{ 

GNL_VAR Var, Formal, Varl, AuxFormal; 
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GNL_USER_COMPONENT UserCompo ; 
GNL_TTMING_INFO Timinglnfo; 



LIBC_CELL 

LIBCJPIN 

GNL_STATUS 

LIBC_KFATOR 

float 

int 

GNL_ASSOC 
BLIST 

unsigned int 
int 



Cell; 
Pin; 

GnlStatus; 
KF ; 

AuxCapa ; 
Rank , i ; 
Assoc I ; 

Interface; 

Key; 
AuxVarlsInout; 



UserCompo = (GNLJJSER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) =~ GNL FORMAL CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

if (!(Pin = LibGetPinFromNameAndCell (Cell, (char *) Formal))) 

return (GNL_0K) ; 
if (LibPinDirection(Pin) == OUTPUT_E) 
return (GNL_OK) ; 

AuxCapa = LibPinCapa (Pin) ; 
if (AuxCapa =- 0.0) 

AuxCapa = LibDef aultlnputPinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap (KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
(*Fanout) ++; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n M , 
GnlUserComponentName (UserCompo) , 
GnlUser Component Ins tName (UserCompo) ) ; 

return (GNL_OK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return ( GNL_MEM0RY_FULL ) ; 
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if (GnlStatus = TimeGetFormalFromAssocAndActual (Assoc, Actual, 
ScAuxFormal ) ) 

return (GnlStatus) ; 

AuxVarlsInout = (GnlVarDir (Actual) == GNL_VAR_INOUT) ; 

if (GnlComputeCapaAndFanoutFromVar (AuxFormal, Lib, Tag, 1, 
AuxVarlsInout) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal , 

^Timinglnfo, &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 
BListDelShift (G_PileOf Component, BListSize (GJPileOf Component) ) ; 

*Capa += GnlTiminglnfoCapa (Timinglnfo) ; 
*Fanout +^ GnlTiminglnf oFanout (Timinglnfo) ; 



return (GNL_OK) ; 

} 

/* *i 

/* GnlComputeCapaAndFanoutFromAssoc */ 
/* + 1 



/* Doc procedure GnlComputeCapaAndFanoutFromAssoc : 

- For a given GNL__ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)". 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a (user component "hierrachycal block or 
generic cell", Sequential component "Flops or Latches", TriStates) . 



*/ 

/* #/ 

GNL_STATUS GnlComputeCapaAndFanoutFromAssoc (GNL_ASSOC Assoc, 

float *Capa, 



int * Fanout, 

LIBC_LIB Lib, 
GNL_VAR Actual, 
int Tag) 

GNL_STATUS GnlStatus / 

int Rank; 
GNL_C0MP0NENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 

if (GnlStatus = GnlComputeCapaAndFanoutFromSeqCell (Assoc, Capa, 

Fanout, Lib) ) 

return (GnlStatus) ; 
break; 

case GNL_USER_COMPO : 

if (GnlComputeCapaAndFanoutFromUserCompo (Assoc, Capa, Fanout, 

Lib, Actual, Tag)) 
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return (GNL_MEMORY_FULL) ; 
break; 

case GNL_TRISTATE_C0MPO: 

if (GnlStatus = GnlComputeCapaAndFanoutFrom3 State (Assoc, 

Capa, Fanout, Lib)) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlGetVarFromFormalPortAndHierBlock */ 
/* 

GNL_ASSOC GnlGetAssocFromFormalPortAndHierBlock (GNL__VAR Formal, 

GNL_USER_COMPONENT HierBlock, 
GNL VAR * Actual) 



{ 



BLIST Interface, ListSplitActuals ; 

GNL_VAR AuxFormal, AuxActual, Spli tActual J, IndexFormalVar ; 
int i, j, Lef tFormlndex, RightFormlndex, Index; 

GNL_ASSOC Assocl; 

char * IndexFormalName ; 

GNL_STATUS GnlStatus ; 

* Actual = (GNL_VAR) NULL; 
if (I Formal j| i HierBlock) 
return ( (GNL_ASSOC) NULL) ; 

if ( IGnlUserComponentGnlDef (HierBlock) ) 
return ( (GNL_ASSOC) NULL) ; 

Interface = GnlUserComponentlnterf ace (HierBlock) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

Assocl = (GNL_ASSOC) BListElt (Interface, i) ; 
AuxFormal = GnlAssocFormalPort (Assocl) ; 
AuxActual = GnlAssocActualPort (Assocl) ; 
if {Formal == AuxFormal) 

{ 

*Actual = AuxActual; 

if ( ! GnlVarlsVar (AuxActual ) ) 

return ( (GNL_ASSOC) NULL) ; 
return (Assocl) ; 

} 

if ( !GnlVarIsVar (AuxActual)) 
{ 

Lef tFormlndex = GnlVarMsb (AuxFormal) ; 
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Right Formlndex = GnlVarLsb (AuxFormal) ; 

if (Left Formlndex < Right Formlndex) 

Index = Lef t Formlndex- 1; 
else 

Index = Lef tFormlndex+l ; 

ListSplitActuals = GnlNodeSons { (GNL_NODE) AuxActual) ; 
for (j=0; j < BListSize (ListSplitActuals); j++) 

{ 

if (Lef t Formlndex < RightFormlndex) 

Index* + ; 
else 

Index- - ; 

SplitActualJ = (GNL_VAR) BListElt (ListSplitActuals, j); 
GnlVarlndexName (AuxFormal, Index, &IndexFormalName) ; 
if ( (GnlStatus 
=GnlGetVarFromName (GnlUserComponentGnlDef (HierBlock) , 

IndexFormalName, &IndexFormalVar ) ) ) 

{ 

if (GnlStatus == GNL__VAR_NOT_EXISTS) 
{ 

free (IndexFormalName) ; 
cont inue ; 

} 

return ( (GNL_ASSOC) NULL) ; 

} 

free (IndexFormalName) ; 

if (Formal == IndexFormalVar) 

{ 

*Actual = SplitActualJ; 
return (AssocI) ; 

} 

} 

} 

} 

return ( (GNL_ASSOC) NULL) ; 

} 

/* 

/* GnlComputeCapaAndFanoutFromVar */ 

/* 

/* Doc procedure GnlComputeCapaAndFanoutFromVar : 

- For a given GNL_VAR (Var) : 

- Compute the output capacitance and the fanout of 
the net "Var" . 

- it does not include the wire capacitance. 

*/ 

/* 

GNL_S TATUS GnlComputeCapaAndFanoutFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
int Tag, 
int Inoutlsln, 
int Varlslnout) 

{ 

GNL_VAR AuxVar, Actual; 

GNL_ASSOC AuxAssocVar; 
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int i, Fanout, Rank; 

GNL_STATUS GnlStatus ; 

BLIST AssocDests, Lef tVarAssigneds , ListTiminglnf o 

SubList; 

GNL_TIMING_INFO Timinglnfo, AuxTiminglnf o; 
GNL_USER_COMPONENT InstOf Gnl ; 

float Capa; 
unsigned int Key; 

int AuxVarlsInout ; 



if ((GnlStatus = Gnl Timing I nf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (Timinglnfo) 

{ 

if ( (GnlVarDir (Var) == GNL_VAR_INOUT) && Inoutlsln) 
{ 

AuxTiminglnf o = GnlTiminglnf oHook (Timinglnfo) ; 
if ( 'AuxTiminglnf o) 

{ 

if (GnlCreateTiminglnf o (&AuxTimingInf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlTiminglnfoHook (Timinglnfo, AuxTiminglnf o) ; 

} 

else 

return (GNL_0K) ; 
Timinglnfo = GnlTiminglnf oHook (Timinglnfo) ; 

} 

} 

else 

{ 

if (GnlCreateTiminglnf o (ScTiminglnf o) ) 
return (GNL_MEMORY_FULL) ; 

if ( IBListSize (GJPileOf Component) ) 

SetGnlVarTraversallnfoHook (Var; (void*) Timinglnfo) ,- 
else 

{ 

ListTiminglnfo = (BLIST) GnlVarTraversallnf oHook (Var) ; 
SubList = (BLIST) BListElt (ListTiminglnfo, Key); 

BListElt (SubList, Rank-1) = (int) Timinglnfo; 

} 

if ( (GnlVarDir (Var) == GNL_VAR_INOUT) Inoutlsln) 

{ 

if (GnlCreateTiminglnf o (^AuxTiminglnf o) ) 

return <GNL_MEMORY_FULL) ; 
SetGnlTiminglnfoHook (Timinglnfo, AuxTiminglnf o) ; 
Timinglnfo = GnlTiminglnf oHook (Timinglnfo) ; 

} 

} 

if (GnlTiminglnf oTag (Timinglnfo) == Tag) 

return (GNL_OK) ; 
SetGnlTiminglnf oTag (Timinglnfo, Tag) ; 
Capa = 0.0; 
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Fanout = 0 ; 

if (GnlVarDir (Var) == GNL_VAR_OUTPTJT | | 

(GnlVarDir (Var) == GNLJVAR_INOUT && llnoutlsln) ) 

{ 

if ( IBListSize (G__PileOf Component ) ) 

{ 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) == GNL_VAR_OUTPUT | | 

(GnlVarDir (Var) == GNL_VAR_INOUT ! Inoutlsln) ) */ 

{ 

SetGnlTiminglnfoCapa (Timinglnfo, Capa) ; 
SetGnlTiminglnf oFanout (Timinglnfo, 1) ; 
return (GNL_OK) ; 

} 

} 

else 

{ 

InstOfGnl = (GNL_USER__COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShif t (G_PileOf Component , BListSize ( G_PileOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

&Actual) ; 

if ( I AuxAssocVar ) 
{ 

if (BListAddElt (G__PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlComputeCapaAndFanoutFromVar (Actual, Lib, Tag, 0, 0)) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Actual , ^AuxTiminglnf o , 

&Key, ScRank) ) 

return (GNL_MEMORY_FULL) ; 

Capa += GnlTiminglnf oCapa (AuxTiminglnf o) ; 
Fanout += GnlTiminglnf oFanout (AuxTiminglnf o) ; 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

if (GnlGetDestinationsOfVar (Var, &AssocDests , &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (Lef tVarAssigneds ) ; i++) 
{ 

AuxVar = (GNLJVAR) BListElt (Lef tVarAssigneds , i) ; 
if (GnlComputeCapaAndFanoutFromVar (AuxVar, Lib, Tag, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxVar, &AuxTimingInf o, 
&Key, 

&Rank) ) 
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return { GNL_MEMORY_FULL) ; 

Capa += GnlTiminglnf oCapa (AuxTiminglnf o) ; 
Fanout + = GnlTiminglnf oFanout (AuxTiminglnf o) ; 

} 

BListQuickDelete <&Lef tVarAssigneds) ; 

for (i=0; i < BListSize (AssocDests) ; i++) 
{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocDests, i) ; 

if ( (GnlStatus = Gnl Compute Cap aAndFanoutFromAssoc (AuxAssocVar, &Capa, 

&Fanout, Lib, Var, Tag))) 

return (GnlStatus) ; 

} 

BListQuickDelete (&AssocDests) ; 

SetGnlTiminglnf oCapa (Timinglnf o, Capa) ; 
SetGnlTiminglnf oFanout {Timinglnf o, Fanout) ; 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeCapaAndFanoutFromGnl */ 

/* */ 

/* Doc procedure GnlComputeCapaAndFanoutFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the output capacitance and the fanout on each 
GNL_VAR . 

*/ 

/* ic/ 

GNL_STATUS GnlComputeCapaAndFanoutFromGnl (GNL Gnl, 

LIBC_LIB Lib, 
int Tag) 

{ 

GNL_VAR Var; 

int i, j, J; 

GNL_STATUS GnlStatus ; 

GNL GnlCompol; 

GNL_COMPONENT Component I ; 

BLIST Components , Bucket I ; 

Components = GnlComponents (Gnl) ; 

for (i-0; i<BListSize (Components) ; i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (Gnl Component Type (ComponentI) != GNL_USER_COMPO) 
continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

{ 

/* if (Stringldentical (GnlName (GnlCompol), "cat_register_block-rtl " ) ) 
J=j;*/ 

if (BListAddElt (G_PileOf Component , ( GNL_US ER__COMPONENT ) ComponentI) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlComputeCapaAndFanoutFromGnl (GnlCompol, Lib, Tag)) 



E-HUBBLE-137 



timecomp.c 



return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize ( G_PileOf Component ) ) ; 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 
{ 

Bucketl = (BLIST) BListElt {GnlHashNames (Gnl), i) • 
for (j=0; j < BListSize (Bucketl); j++) 
{ 

Var - (GNL_VAR) BListElt (Bucketl, j); 
if (!Var || GnlVarlsVss (Var) || GnlVarlsVdd (Var) ) 
continue ; 

if (Stringldentical (GnlVarName (Var), "F376")) 
J=j; 



if (GnlComputeCapaAndFanoutFromVar (Var, Lib, Tag, 1, 0)) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) GNL_VAR_INOUT ) 

if (GnlComputeCapaAndFanoutFromVar (Var, Lib, Tag, 0, 0)) 

return (GNL_MEMORY_FULL) ; 

} 

} 

return (GNL_OK) ; 

} 

/* it/ 

/* Gnl Compute Cap aAndFanout FromNe t work */ 
/* if/ 

/* Doc procedure Gnl ComputeCapaAndFanout FromNe t work : 
- For a given Network (GNL_NETWORK) : 

- Hierarchicaly compute the output capacitance and the fanout on each 
GNL_VAR . 

/* i(/ 

GNL__S TATUS Gnl Compute Cap aAndFanout FromNe t work (GNL_NETWORK Nw, 

LIBC LIB Lib) 

{ 

GNL TopGnl ; 

GNL_S TATUS GnlStatus / 
int Tag; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
Tag = GnlNetworkTag (Nw) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate ( &G_PileOf Component) ) 
return (GNL__MEMORY__FULL) ; 

if ((GnlStatus = GnlComputeCapaAndFanoutFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL_OK) ; 
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/* it/ 

void GnlGetArrivalTimeRiseAndFallSwitchTimingSence (LIBC_PIN Pinln, LIBC_PIN 
PinOut, 

float DelayR, float DelayF, 

float TimeRiseln, float TimeFallln, 

float *TimeRise, float *TimeFall) 

{ 

LIBC_TIMING Timing ; 

*TimeRise = *TimeFall = 0.0; 
if (IDelayR && IDelayF) 
return ; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 
if ( I Timing) 
return; 

switch (LibTimingSense (Timing) ) 
{ 

case POSITIVE_UNATE_E: 

*TimeRise = DelayR + TimeRiseln; 
*TimeFall = DelayF + TimeFallln; 
break; 

case NEGATIVE_UNATE_E : 

*TimeRise = DelayR + TimeFallln; 
*TimeFall = DelayF + TimeRiseln; 
break; 

case NON_UNATE_E: 

*TimeRise = DelayR + TimeRiseln; 
if (TimeRiseln < TimeFallln) 

*TimeRise = DelayR + TimeFallln; 

*TimeFall = DelayF + TimeFallln; 
if (TimeFallln < TimeRiseln) 

*TimeFall = DelayF + TimeRiseln; 
break; 

' } 
} 

/* ie/ 

/* GnlComputeArrivalTimeAtOutputOf CombCell */ 

/* ie/ 

/* Doc procedure GnlComputeArrivalTimeAtOutputOf CombCell : 

- For a given a GNL_USER_COMPONENT (UserCompo) generic cell and 
GNL_ASSOC (AssocOutput) (output GNL_ASSOC of UserCompo) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 

*/ 

/* #/ 

GNL_STATUS GnlComputeArrivalTimeAtOutputOf CombCell (GNL_USER_COMPONENT 
UserCompo, 

GNL_ASSOC AssocOutput, 



E-HUBBLE-139 



timecomp.c 



float *MaxTimeRise , 
float *MaxTimeFall, 
float *MaxOutTransRise, 
float *MaxOutTransFall , 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 



LIBC__CELL 

LIBC_PIN 

int 

GNL_ASSOC 

char 

GNL_VAR 

GNL_TIMING_INFO 
float 

float 
BLIST 
GNL_STATUS 
unsigned int 



Cell; 

PinOut, Pinln; 
i, Fanout, Rank; 
Assoc I; 

* Formal ; 
Var, Varl; 
TimingI ; 

InTransRise, InTransFall, OutTransR, OutTransF, 
DelayR, DelayF, TimeRise, TimeFall, Time, MaxTime; 
Length, WireCapa, WireResistance , OutCapa; 
Interface ; 
GnlStatus; 
Key; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (AssocOutput ) ; 

Formal = (char *) GnlAssocFormalPort (AssocOutput) ; 

if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlUserComponent Interface (UserCompo) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVar (Varl)) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
continue ; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (Pinln) != INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 
continue ; 
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if (WithRec) 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(Varl , kTimingl , &Key , &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance , 

Fanout, Cell, Pinln, PinOut , 

&DelayR , &OutTransR , 

&DelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnfoArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MaxTime = *MaxTimeRise ; 

if (MaxTime < *MaxTimeFall) 

MaxTime = *MaxTimeFall ; 
Time = TimeRise; 
if (Time < TimeFall) 

Time = TimeFall; 



if (MaxTime < Time) 

{ 

*MaxTimeRise = TimeRise; 
*MaxTimeFall = TimeFall; 
*MaxOutTransRise = OutTransR; 
*MaxOutTransFall = OutTransF; 

} 
} 

return (GNL_OK) ; 

} 



/* ie/ 

/* GnlComputeArrivalTimeFrom3State */ 

/* ie/ 

/* Doc procedure GnlComputeArrivalTimeFrom3 State : 
- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc) " . 

*/ 

/* ie/ 

GNL_STATUS GnlComputeArrivalTimeFrom3 State (GNL_ASSOC Assoc, 

float *MaxTimeRise, 
float *MaxTimeFal 1 , 
float *MaxOutTransRise, 
float *MaxOut Trans Fall , 
LIBC_LIB Lib, 
int Tag, 
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int WithRec) 

LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AssocI ; 

char *Formal; 
GNL_VAR Var, Varl; 

GNL_TIMING_INFO TimingI ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, MaxTime, Time; 
float Length, WireCapa, WireResistance, OutCapa; 

BLIST Interface; 
GNL__TRISTATE_COMPONENT TriStateCompo; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



TriStateCompo = (GNL_TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlTriStateCompoInf oCell (TriStateCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc); 

if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_0K) ; 
if (LibPinDirection (PinOut) INPUT__E ) 

return (GNL__OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriStateCompo) ; 
for (i=0; i < BListSize (Interface) ; i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( L AssocI) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 

if (IVarl) 
continue; 

if (GnlVarlsVar (Varl)) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 
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Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (Pinln) != INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 

continue ; 
if (WithRec) 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return ( GNL_MEMOR Y_FULL ) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT ) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI); 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall; OutCapa, WireResistance , 
Fanout, Cell, Pinln, PinOut, 
&DelayR, &OutTransR, 
&DelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnfoArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 



MaxTime = *MaxTimeRise; 

if (MaxTime < *MaxTimeFall) 

MaxTime = *MaxTimeFall ; 
Time = TimeRise; 
if (Time < TimeFall) 

Time = TimeFall; 

if (MaxTime < Time) 

{ 

*MaxTimeRise = TimeRise; 
*MaxTimeFall = TimeFall; 
*MaxOutTransRise = OutTransR; 
*MaxOutTransFall = OutTransF; 

} 
} 

return (GNL_OK) ; 

} 

/* 

/* GnlComputeArrivalTimeFromSeqCell */ 

/* it/ 

I* Doc procedure GnlComputeArrivalTimeFromSegCell : 
- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc) " . 

*/ 



E-HUBBLE-143 



timecomp.c 



/* 

GNL_STATUS GnlComputeArrivalTimeFromSeqCell (GNL_ASSOC 

float *MaxTimeRise, 
float *MaxTimeFall , 
float *MaxOutTransRise , 
float *MaxOut Trans Fall, 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 



-*/ 



Assoc, 



LIBC_CELL 
LIBCJPIN 
int 

GNL_ASSOC 
char 
GNL_VAR 

GNL__TIMING_INFO 
float 

float 
BLIST 

GNL__S EQUENT 1 AL_COMPONENT 
GNL STATUS 



Cell; 

PinOut, Pinln; 
i , Fanout , Rank ; 
Assoc I; 

* Formal; 
Var, Varl; 
TimingI ; 

InTransRise, InTransFall, OutTransR, OutTransF, 
DelayR, DelayF, TimeRise, TimeFall; 

Length, WireCapa, WireResistance , OutCapa; 
Interface ,- 

SeqCompo; 
GnlStatus; 



unsigned int 



Key; 



SeqCompo = (GNL_S EQUENT I AL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (I (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) INPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G__WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlSequentialCompoInterf ace (SeqCompo) ; 
/* for (i=0; i < BListSize (Interface); i++) */ 
{ 

/* AssocI = (GNL_ASSOC) BListElt (Interface, i) ; */ 

Assoc I = GnlSequentialCompoClockAssoc (SeqCompo) ; 

if (!AssocI) 

return (GNL_OK) ; 
/* continue; */ 

Varl = GnlAssocActualPort (AssocI) ; 

if (IVarl) 
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return (GNL_OK) ; 
/* continue; */ 

if (GnlVarlsVar (Varl) ) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
return (GNL_OK) ; 
/* continue; */ 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (1 (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
return (GNLjDK) ; 
/* continue; */ 

if (LibPinDirection(Pinln) i= INPUT_E) 
return (GNL_OK) ; 
/* continue; */ 

if ( 'LibGetArcTiming (Pinln, PinOut) ) 
return (GNL_OK) ; 
/* continue; */ 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return ( GNL_MEMORY_FULL ) ; 

i f ( GnlTiminglnf oCorrespToCurrent Pat hFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return ( GNL_MEMOR Y_FULL) ; 
InTransRise = GnlTiminglnf oTransitionRise (Timingl) ; 
InTransFall = GnlTiminglnf oTransitionFall (Timingl) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance , 
Fanout, Cell, Pinln, PinOut, 
&DelayR, &OutTransR, 
&DelayF, &OutTransF) ; 

if (*MaxOutTransRise < OutTransR) 

*MaxOutTransRise = OutTransR ; 
if (*MaxOutTransFall < OutTransF) 

*MaxOutTransFall = OutTransF; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (Timingl) , 
GnlTiminglnfoArrivalFall (Timingl) , 
ScTimeRise, &TimeFall) ; 

if (*MaxTimeRise < TimeRise) 

*MaxTimeRise = TimeRise; 
if <*MaxTimeFall < TimeFall) 

*MaxTimeFall = TimeFall; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromUserCompo */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromUserCompo : 
- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 
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- Compute the transition ( falling and rising) 
on the net "GnlAssocActualPort (Assoc)"; this net is connected to 
hierarchycal block or combinational cell 
*/ 

/* 

GNL^STATUS Gn IComputeArrivalTimeFromUserCompo (GNL_ASSOC Assoc, 

float *TimeRise, 
float *TimeFall, 
float *TransRise, 
float *TransFall / 
LIBC_LIB Lib, 
GNL_VAR Actual , 
int Tag, 
int WithRec) 

{ 

GNL_VAR Formal, AuxFormal; 

GNL_USER_COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 
unsigned int Key; 



UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) 
Formal = GnlAssocFormalPort (Assoc) ,- 

if (GnlUser Component Formal Type (UserCompo) == GNL_FORMAL_CHAR ) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = GnlComputeArrivalTimeAtOutputOf CombCell (UserCompo, 

Assoc, TimeRise, 
TimeFall, TransRise, 
TransFall, Lib, 
Tag, WithRec) ) 

return (GnlStatus) ,- 
return (GNL__OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final est imation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

} 

return (GNL_OK) ; 

} 

/* If the actual net is a VDD or a VSS then no timing to compute * 
if (GnlVarlsVar (Actual)) 

if (GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)) 
{ 

*TimeRise = 0.0; 
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*TimeFall = 0.0; 
*TransRise = 0.0; 
*TransFall = 0.0; 
return (GNL_OK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo) ) 
return ( GNL_MEMORY_FULL) ; 

if (GnlStatus = Time Get Forma lFromAssocAndActual (Assoc, Actual, 

&AuxFormal) ) 

return (GnlStatus) ; 
if (GnlComputeArrivalTimeFromVar (AuxFormal, Lib, Tag, WithRec, 0, 0) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal , ScTiminglnf o, 
&Key, 

&Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

*TimeRise = GnlTiminglnf oArrivalRise (Timinglnfo) ; 
*TimeFall = GnlTiminglnf oArrival Fall (Timinglnfo) ; 
*TransRise = GnlTiminglnf oTransitionRise (Timinglnfo) ; 
*TransFall = GnlTiminglnf oTransitionFall (Timinglnfo) ; 



return <GNL_0K) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromAssoc */ 

/* */ 



/* Doc procedure GnlComputeArrivalTimeFromAssoc : 

- For a given GNL_ASS0C (Assoc) : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

*/ 

/* */ 

GNL_S TATUS GnlComputeArrivalTimeFromAssoc (GNL_ASSOC Assoc, 

float *TimeRise, 

float *TimeFall, 

float *TransRise, 

float *TransFall, 

LIBC_LIB Lib, 

GNL_VAR Actual, 

int Tag, 

int WithRec) 

{ 

GNL_S TATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 
switch (GnlComponentType (GnlCompo) ) { 
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case GNL_SEQUENTIAL_COMPO : 

*TimeRise = *TimeFall = *TransRise = *TransFall = 0.0; 
if (GnlStatus = GnlComputeArrivalTimeFromSeqCell (Assoc, 

TimeRise , 

TimeFall, TransRise, TransFall, Lib, Tag, WithRec) ) 
return (GnlStatus) ; 
break; 

case GNL_USER_COMPO : 

if (GnlStatus = Gn 1 Compu te Arrival Time FromUserCompo (Assoc, 

TimeRise, TimeFall , 
TransRise, TransFall , Lib, 
Actual, Tag, WithRec)) 

return (GnlStatus) ; 
break; 

case GNL_TRISTATE_COMPO : 

if (GnlStatus = GnlComputeArrivalTimeFrom3 State (Assoc, 

TimeRise, TimeFall , 
TransRise, TransFall, Lib, Tag, 
WithRec) ) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default: 

GnlError (12 /* Unknown component */) ; 

} 

return (GML_OK) ; 

} 

/* */ 

/* GnlComputeSetupHoldTimeFromSeqCompo */ 

/* */ 

GNL_STATUS Gnl Compute SetupHoldTimeFromSeqCompo ( 

GNL_SEQUENTIAL_COMPONENT SeqCompo, 
char *PinInName / 
GNL_TIMING_INFO Timinglnf oOf Pin, 

float *TimeRise, 
float ♦TimeFall, 
LIBCJLIB Lib, 
int WithRec) 

{ 

L1BC_CELL Cell; 

LIBC_PIN PinClock, Pinln; 

int Fanout , Rank ; 

GNL__ASSOC AssocClock; 

GNL_VAR VarClock; 
char *ClockName; 
GNLJTIMING_INFO TimingClock; 

float InTransRise, InTransFall, OutTransR, OutTransF; 

float Length, WireCapa, OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 
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unsigned int Key; 



*TimeRise = 0.0; 
*TimeFall = 0.0; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

if (!(PinIn = LibGetPinFromNameAndCell (Cell, PinlnName) ) ) 

return (GNL_OK) ; 
AssocClock = GnlSequentialCompoClockAssoc (SeqCompo) ; 
ClockName = (char *} GnlAssocPormalPort (AssocClock) ; 
VarClock = GnlAssocActualPort (AssocClock) ; 
if (GnlVarlsVar (VarClock) ) 
if (GnlVarlsVdd (VarClock) || GnlVarlsVss (VarClock)) 
return (GNLJDK) ; 

if (i(PinClock = LibGetPinFromNameAndCell (Cell, ClockName) ) ) 
return (GNL_OK) ; 

if (GnlComputeArrivalTimeFromVar (VarClock, Lib, 0, WithRec, 1, 0)) 

return (GNL_MEMORY_FULL) ; 
if (GnlTiminglnf oCorrespToCurrentPathFromVar (VarClock, 

&TimingClock, &Key, &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingClock) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingClock) ; 

Fanout = GnlTiminglnf oFanout (Timinglnf oOf Pin) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 

OutCapa = WireCapa + GnlTiminglnf oCapa (Timinglnf oOf Pin) ; 

LibDelayArcCellRiseSetup (InTransRise, InTransFall, OutCapa, Cell, Pinln, 

PinClock, TimeRise) ; 
LibDelayArcCellFallSetup (InTransRise, InTransFall, OutCapa, Cell, Pinln, 

PinClock, TimeFall) ; 

return (GNL_0K) ; 

} 

/* */ 

/* GnlComputeSetupHoldTimeFromVar */ 

/* */ 

GNL_STATUS GnlComputeSetupHoldTimeFromVar (GNL_VAR Var, 

GNL__TIMING__INFO Timinglnf oOf Var , 

LIBC_LIB Lib, 

float *MaxSetupTimeR, 

float *MaxSetupTimeF) 

{ 

GNL_ASSOC AssocI; 
GNL_STATUS GnlStatus ; 

BLIST AssocDests, Lef tVarAssigneds ; 

GNL_C0MP0NENT GnlCompo ; 

GNL_S EQUENT I AL_COMPONENT SeqCompo ; 

int i ; 

float MaxTimeR, MaxTimeF, TimeRise, TimeFall; 

char * Formal; 



E-HUBBLE-149 



timecomp.c 



if (GnlGetDestinationsOfVar (Var, SAssocDests, &Lef tVarAssigneds) ) 
return ( GNL_MEMORY_FULL ) ; 



BListQuickDelete ( &Lef tVarAssigneds) ; 



*MaxSetupTimeR = *MaxSetupTimeF = 0.0; 
for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

AssocI = (GNL_ASS0C) BListElt (AssocDests, i) ; 
GnlCompo = GnlAssocTraversallnf oComponent (AssocI) ; 
if (GnlComponentType (GnlCompo) 1= GNL_SEQUENTIAL_COMPO) 
continue ,- 



SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlCompo; 
Formal = (char *) GnlAssocFormalPort (AssocI) ; 

if (GnlStatus = GnlComputeSetupHoldTimeFromSeqCompo (SeqCompo, Formal, 
TiminglnfoOfVar, &TimeRise, fcTimeFall, Lib, 0)) 
return (GnlStatus) ; 
if ( *MaxSetupTimeR < TimeRise) 

*MaxSetupTimeR = TimeRise; 
if (*MaxSetupTimeF < TimeFall) 
*MaxSetupTimeF ~ TimeFall; 

} 

BListQuickDelete (&AssocDests) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromVar */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromVar : 
- For a given GNL_VAR (Var) : 

- Compute the arrival time (falling and rising) of 
the net "Var" . 

*/ 

/* */ 

GNL_STATUS GnlComputeArrivalTimeFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 

int Tag, 

int WithRec, 

int Inoutlsln, 

int Varlslnout) 

{ 

GNL_VAR AuxVar, Actual ; 

GNL_ASSOC AuxAssocVar; 
int i, Fanout, Rank, J; 

GNL_STATUS GnlStatus ; 

BLIST AssocSources , RightVarAssigneds ; 

GNL_TIMING_INFO Timinglnfo, AuxTiminglnf o; 
GNL_USER_COMPONENT InstOf Gnl ; 

float TimeRise, TimeFall, TransRise, TransFall, MaxTime, 

Time ; 

float MaxTimeRise, MaxTimeFall, MaxTransRise , MaxTransFall ; 

float MaxSetupTimeR, MaxSetupTimeF; 

unsigned int Key; 
int AuxVarl s Inout ; 
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if (Stringldentical (GnlVarName (Var) , "F376")) 
J=i; 

if (GnlVarlsVar (Var) ) 

if (GnlVarlsVdd (Var) | | GnlVarlsVss (Var) ) 
return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar {Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlVarDir (Var) GNL__VAR_INOUT ) && Inoutlsln) 

Timinglnfo = (GNLJTIMINGJENFO) GnlTiminglnf oHook (Timinglnfo) ; 

if (GnlTiminglnf oTag (Timinglnfo) == Tag) 

return (GNL_OK) ; 
SetGnlTiminglnf oTag (Timinglnfo, Tag) ; 

TimeRise = TimeFall = MaxTimeRise = MaxTimeFall = 0.0; 
TransRise = TransFall = MaxTransRise = MaxTransFall = 0.0; 

if (GnlVarDir (Var) == GNL_VAR_INPUT | | 

(GnlVarDir (Var) == GNL_VAR__ I NOUT Inoutlsln) ) 

{ 

if (!BListSize (G_PileOf Component) ) 
{ 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) == GNL_VAR_ I N PUT | | 

(GnlVarDir (Var) == GNL_VAR_INOUT Inoutlsln)) */ 

{ 

SetGnlTiminglnf oArrivalRise (Timinglnfo, MaxTimeRise) ; 
SetGnlTiminglnfoArrivalFall (Timinglnfo, MaxTimeFall) ; 
SetGnlTiminglnfoTransitionRise (Timinglnfo, MaxTransRise) ; 
SetGnlTiminglnfoTransitionFall (Timinglnfo, MaxTransFall) ; 

return (GNL_OK) ; 

} 

} 

else 
{ 

InstOfGnl = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

SActual) ; 

if (! AuxAssocVar) 

{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return ( GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

} 

if (! (GnlVarlsVar (Actual) 

(GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)))) 

{ 

AuxVarlsInout = (GnlVarDir (Var) == GNL_VAR_ INOUT ) ; 
if (GnlComputeArrivalTimeFromVar (Actual, Lib, Tag, 
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WithRec, 1, AuxVarlsInout) ) 
return (GNLJ4EMORYJFULL) ; 
if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(Actual, ^AuxTiminglnf o, 

&Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Actual) == GNL_VAR__INOUT) 

Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook 
(AuxTiminglnf o) ; 

MaxTimeRise = GnlTiminglnf oArrivalRise (AuxTiminglnf o) ; 
MaxTimeFall = GnlTiminglnf oArrivalFall (AuxTiminglnf o) ; 
MaxTransRise = GnlTiminglnf oTransitionRise (AuxTiminglnf o) ; 
MaxTransFall = GnlTiminglnf oTransitionFall (AuxTiminglnf o) ; 

} 

if (BListAddElt (G_PileOf Component, InstOfGnl) ) 
return (GNL_MEMORY_FULL) ; 

} 

} 

if (GnlGetSourcesOf Var (Var, &AssocSources, &RightVarAssigneds ) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (RightVarAssigneds) ; i++) 

{ 

AuxVar = (GNL_VAR) BListElt (RightVarAssigneds , i) ; 

if (GnlVarlsVar (AuxVar) ) 

if {GnlVarlsVdd (AuxVar) | | GnlVarlsVss (AuxVar) ) 
continue; 
if (GnlVarlsVar (AuxVar) ) 

if (GnlVarlsVdd (AuxVar) || GnlVarlsVss (AuxVar)) 
continue ; 

if (GnlComputeArrivalTimeFromVar (AuxVar, Lib, Tag,WithRec, 1, 0)) 
return ( GNL_MEMORY_FULL) ; 

if (GnlTiminglnf OCorrespToCurrentPathFromVar (AuxVar , ^AuxTiminglnf o , 

&Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 

MaxTime = MaxTimeRise; 

if (MaxTime < MaxTimeFall) 

MaxTime = MaxTimeFall; 
Time = GnlTiminglnfoArrivalRise (AuxTiminglnf o) ; 
if (Time < GnlTiminglnf oArrivalFall (AuxTiminglnf o) ) 
Time = GnlTiminglnf oArrivalFall (AuxTiminglnf o) ; 

if (MaxTime < Time) 

{ 

MaxTimeRise = GnlTiminglnfoArrivalRise (AuxTiminglnf o) ; 
MaxTimeFall = GnlTiminglnf oArrivalFall (AuxTiminglnf o) ; 
MaxTransRise = GnlTiminglnf oTransitionRise (AuxTiminglnf o) ; 
MaxTransFall = GnlTiminglnf oTransitionFall (AuxTiminglnf o) ; 

} 

} 

BListQuickDelete (&RightVarAssigneds) ; 
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for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt {AssocSources, i) ; 
TimeRise = TimeFall = 0.0; 
TransRise = TransFall = 0.0; 

if { (GnlStatus = GnlComputeArrivalTimeFromAssoc (AuxAssocVar, &TimeRise, 

&TimeFall, &TransRise, 
fcTransFall, Lib, Var, 
Tag, WithRec))) 

return (GnlStatus) ; 

MaxTime = MaxTimeRise; 

if (MaxTime < MaxTimeFall) 

MaxTime = MaxTimeFall; 
Time = TimeRise; 
if (Time < TimeFall) 

Time = TimeFall; 

if (MaxTime < Time) 

{ 

MaxTimeRise = TimeRise; 
MaxTimeFall = TimeFall; 
MaxTransRise = TransRise; 
MaxTransFall = TransFall; 

} 

} 

BListQuickDelete (SAssocSources ) ; 

SetGnlTiminglnfoArrivalRise (Timinglnfo, MaxTimeRise) ; 
SetGnlTiminglnfoArrivalFall (Timinglnfo, MaxTimeFall) ; 
SetGnlTiminglnf oTransitionRise (Timinglnfo, MaxTransRise) ,- 
SetGnlTiminglnf oTransitionFall (Timinglnfo, MaxTransFall) ; 

/* *MaxSetupTimeR = *MaxSetupTimeF = 0.0; 
GnlComputeSetupHoldTimeFromVar (Var, Timinglnfo, Lib, 

&MaxSetupTimeR, &MaxSetupTimeF) ; 
SetGnlTiminglnfoArrivalRise (Timinglnfo, 

GnlTiminglnfoArrivalRise (Timinglnfo) + MaxSetupTimeR) ; 
SetGnlTiminglnfoArrivalFall (Timinglnfo, 

GnlTiminglnfoArrivalFall (Timinglnfo) + MaxSetupTimeF) ; 

if (MaxSetupTimeR | | MaxSetupTimeF) 

if (GnlStatus = GnlUpdateArrTimeOf RightVarAssigneds (Var) ) 
return (GnlStatus) ;*/ 



return (GNL_OK) ; 

} 

/* 

/* TimePutAssocSourceOfVarOnRight */ 
/* 

static void TimePutAssocSourceOfVarOnRight (GNL VAR Var) 

{ 

int i , j , el; 

GNL_ASSOC AssocI; 

BLIST AssocSources, RightVarAssigneds, ListAssoc; 
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GnlGetSourcesOf Var (Var, &AssocSources, &RightVarAssigneds) ; 
ListAssoc = GnlVarTraversallnf oListAssoc (Var) ; 
for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (AssocSources, i) ; 

j = BListMemberOf List (ListAssoc, AssocI, Intldentical) ; 



el = BListElt (ListAssoc, BListSize (ListAssoc) -1) ; 

BListElt (ListAssoc, BListSize (ListAssoc) -1) = BListElt (ListAssoc, j - 

1) ; 

BListElt (ListAssoc, j -1) = el; 

} 

BListQuickDelete (&AssocSources) ; 
BListQuickDelete (&RightVarAssigneds) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromGnl */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the arrival time (falling and rising) on each 
net GNL_VAR. 

*/ 

/* */ 

GNL_S TATUS GnlComputeArrivalTimeFromGnl (GNL Gnl, 

LIBC_LIB Lib, 

int Tag) 

{ 

GNL_VAR Var; 

int i, j, J; 

GNL_S TATUS GnlStatUS ; 

GNL GnlCompol ; 

GNL_COMPONENT Component I ; 

BLIST Components, Bucket I ; 



Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlComputeArrivalTimeFromGnl (GnlCompol, Lib, Tag)) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize (G__PileOf Component ) ) ; 

} 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl) , i) ; 
for (j=0; j < BListSize (Bucketl) ; j++) 
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{ 

Var = (GNL_JVAR) BListElt (Bucketl, j); 

if (!Var) 
continue; 

if (GnlVarlsVar (Var) ) 

if (GnlVarlsVdd (Var) || GnlVarlsVss (Var)) 
continue; 



TimePutAssocSourceOfVarOnRight (Var) ; 
if (Stringldentical (GnlVarName (Var), "F376")) 
J=i; 

if (GnlComputeArrivalTimeFromVar (Var, Lib, Tag, 1, 0, 0) ) 
return (GNLJVTEMORY FULL) ; 

} 

} 



return (GNL_OK) ; 

} 



/* 

/ */ 

/* GnlComputeArrivalTimeFromNetwork */ 

/* 1 

f ^ 

/* Doc procedure GnlComputeArrivalTimeFromNetwork : 
- For a given Network (GNL_NETWORK) : 

- Hierarchicaly compute the arrival time (falling and rising) on each 
net GNL_VAR . 

/* 

GNL_STATUS GnlComputeArrivalTimeFromJTetwork (GNL_NETWORK Nw, 

LIBC LIB Lib) 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatUS ; 
int Tag; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1) ; 
Tag = GnlNetworkTag (Nw) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate ( &G_PileOf Component ) ) 
return (GNL_MEMORY_FULL) ; 

if { (GnlStatus = GnlComputeArrivalTimeFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL_0K) ; 

} 



/*- 



■*/ 
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GnlGetRequiredTimeRiseAndFallSwitchTimingSence (LIBC_PIN Pinln, LIBC PIN 
PinOut, ' ~ 

float DelayR, float DelayF, 

float TimeRiseOut, float TimeFallOut, 

float *TimeRise, float *TimeFall) 



LIBC_TIMING Timing; 

*TimeRise = *TimeFall = MAX_FLOAT; 
if (IDelayR && IDelayF) 
return; 



Timing = LibGetArcTiming (Pinln, PinOut) ; 

if (! Timing) 
return; 

switch (LibTimingSense (Timing) ) 

case POSITIVE_UNATE_E: 

*TimeRise = TimeRiseOut - DelayR; 
*TimeFall = TimeFallOut - DelayF; 
break; 



case NEGATIVE_UWATE_E : 

*TimeFall = TimeRiseOut - DelayR; 
*TimeRise = TimeFallOut - DelayF; 
break; 



case NONJJNATEJ2: 

*TimeRise = TimeRiseOut - DelayR; 
if (*TimeRise > TimeFallOut - DelayF) 
*TimeRise = TimeFallOut - DelayF; 

*TimeFall = TimeFallOut - DelayF; 

if (*TimeFall > TimeRiseOut - DelayR) 

*TimeFall = TimeRiseOut - DelayR; 
break; 



} 

/* v 

/* GnlComputeRequiredTimeAtOutputOfCombCell */ 

/* '„„*, 

/* Doc procedure GnlComputeRequiredTimeAtOutputOf CombCell : 

- For a given a GNL_USER_COMPONENT (UserCompo) generic cell and 
GNL_ASSOC (AssocOutput) (output GNL_ASSOC of UserCompo) : 
- Compute the required time {falling and rising) 

*/ 

z* v 

GNL_STATUS GnlComputeRequiredTimeAtOutputOf CombCell ( 
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GNL_USER_COMPONENT UserCompo, 

GNL_ASSOC Assoclnput, 

float *MinTimeRise , 

float *MinTimeFall, 

LIBC_LIB Lib, 

int Tag, 

int WithRec) 



LIBC_CELL 

LIBC_PIN 

int 

GNL_ASSOC 

char 

GNL_VAR 

GNL_TIMING_INFO 
float 

float 
BLIST 
GNL_STATUS 
unsigned int 



Cell; 

PinOut, Pinln; 
i , Fanout , Rank ; 
AssocI ; 

* Formal; 
Var, Varl; 
TimingI ; 

InTransRise, InTransFall, OutTransR, OutTransF, 
DelayR, DelayF, TimeRise, TimeFall, MinTime, Time; 
Length, WireCapa, WireResistance, OutCapa; 
Interface; 
GnlStatus; 
Key; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoclnput) ; 

Formal = (char *) GnlAssocFormalPort (Assoclnput) ; 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI , &Key , &Rank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR_INOUT) 

TimingI = ( GNL__TIMING_INFO ) GnlTiminglnf oHook (TimingI) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (PinOut) 1= OUTPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 

continue ; 
if (WithRec) 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0) 
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return (GNL_MEMORY_FULL) ; 



if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(Varl, &TimingI, &Key, &Rank) ) 

return ( GNL _MEMORY_FULL ) ; 



Fanout = GnlTiminglnfoFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (GJWireLoad, Length, Lib) ; 
OutCapa = WireCapa + Gnl Timing I nfoCapa (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR, &OutTransR, 
&DelayF, &OutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnfoRequiredRise (TimingI) , 
GnlTiminglnfoRequiredFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MinTime = *MinTimeRise; 

if (MinTime > *MinTimeFall) 

MinTime = *MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 



if (MinTime > Time) 

{ 

*MinTimeRise = TimeRise ; 
*MinTimeFall = TimeFall; 

} 
} 

return (GNL_OK) ; 

} 



/* 

/* GnlComputeRequiredTimeFromUserCompo 

/* 

/* Doc procedure GnlComputeRequiredTimeFromUserCompo : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

- This GNL_ASSOC is connected to a user component. 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFromUserCompo (GNL_ASSOC Assoc, 

float *TimeRise, 
float *TimeFall, 
LIBC_LIB Lib, 
GNL_VAR Actual, 
int Tag, 
int WithRec) 
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GNL_VAR Var, Formal, AuxFormal; 

GNL_USER_COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 
unsigned int Key; 
int AuxVarlsInout; 



UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) / 

Formal - GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL FORMAL CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = GnlComputeRequiredTimeAt Output Of CombCell (UserCompo, 

Assoc , TimeRise , 
TimeFall, Lib, Tag, WithRec) ) 

return (GnlStatus) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

return (GNL_OK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return (GNL_MEMORY_FULL) ; 

if (GnlStatus = TimeGet Forma lFromAssocAndActual (Assoc, Actual, 
SAuxFormal) ) 

return (GnlStatus) ; 

AuxVarlsInout = (GnlVarDir (Actual) GNL_VAR_ I NOUT ) ; 
if (GnlComputeRequiredTimeFromVar (AuxFormal, Lib, Tag, WithRec, 1, 
AuxVarlsInout) ) 

return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (AuxFormal) == GNL_VAR__INOUT) 

Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook (Timinglnfo) ; 
BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

*TimeRise = GnlTiminglnf oRequiredRise (Timinglnfo) ; 
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*TimeFall = GnlTiminglnf oRequiredFall (Timinglnfo) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlComputeRequiredTimeFromSeqCell 

/* 

/* Doc procedure GnlComputeRequiredTimeFromSeqCell : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

- This GNL_ASSOC is connected to a sequential component. 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFromSeqCell (GNL_ASSOC Assoc, 

float *MinTimeRise, 
float *MinTimeFall , 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 



{ 



GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AssocI; 
char * Formal; 

GNL_VAR Var, Var I; 

GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, Time, MinTime; 
float Length, WireCapa, WireResistance, OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatUS ; 

unsigned int Key; 



SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) OUTPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

fcTimingl, &Key, &Rank) ) ) 

return (GnlStatus) ; 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlSequentialCompoInterf ace (SeqCompo) ; 
for (i=0; i < BListSize (Interface); i++) 
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{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( ! AssocI) 
continue ; 

Varl = GnlAssocActualPort (AssocI) ; 
if (IVarl) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection(PinOut) != OUTPUT__E) 
continue; 

if ( I LibGetArcTiming (Pinln, PinOut) ) 
continue; 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0)) 
return ( GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

ScTimingl, &Key, &Rank) ) ) 
return (GnlStatus) ; 

Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&De 1 ayR , &0ut Trans R , 
SiDelayF, &OutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oRequiredRise (TimingI) , 
GnlTiminglnf oRequiredFall (TimingI) , 
&TimeRise 7 &TimeFall) ; 



MinTime = *MinTimeRise; 

if (MinTime > *MinTimeFall) 

MinTime = *MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 

if (MinTime > Time) 

{ 

*MinTimeRise = TimeRise; 
*MinTimeFall = TimeFall; 

} 

} 

return (GNL_OK) ; 

} 

/* */ 
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/* GnlComputeRequiredTimeFrom3 State */ 

/* 

/* Doc procedure GnlComputeRequiredTimeFrom3 State : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

- This GNL_ASSOC is connected to a tristate component. 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFrom3State (GNL_ASSOC Assoc, 

float *MinTimeRise , 
float *MinTimeFall , 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 

{ 

GNL_TRISTATE_COMPONENT TriState ; 

LIBCJZELL Cell; 
LIBCJPIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AsbocI; 
char * Formal; 

GNL_VAR Var, Varl ,- 

GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, MinTime, Time; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_S TATUS GnlStatus ; 

unsigned int Key; 



TriState = ( GNL__TR I S TATE_COM PONENT ) GnlAssocTraversallnf oComponent (Assoc) ; 
Cell = GnlTriStateCompoInfoCell (TriState) ; 
Var = GnlAssocActualPort (Assoc) ; 
Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if {! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI , &Key , &Rank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriState) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (!AssocI) 
continue ; 
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Varl = GnlAssocActualPort (AssocI) ; 
if (!VarI) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue,* 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (1 (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection(PinOut) != OUTPUT_E) 
continue; 

if ( ! LibGetArcTiming (Pinln, PinOut) ) 

continue; 
if (WithRec) 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 

Fanout = GnlTiminglnfoFanout (Timing I) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell ( InTransRise , InTransFall , OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , &OutTransR , 
&DelayF, ScOutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oRequiredRise (TimingI) , 
GnlTiminglnf oRequiredFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MinTime = *MinTimeRise ; 

if (MinTime > *MinTimeFall ) 

MinTime = *MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall ; 

if (MinTime > Time) 

{ 

*MinTimeRise = TimeRise; 
*MinTimeFall = TimeFall; 

} 
} 

return (GNL_OK) ; 

} 

/* 4/ 

/* GnlComputeReguiredTimeFromAssoc */ 

/*-- */ 

/* Doc procedure GnlComputeRequiredTimeFroraAssoc : 
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- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

*/ 

/* 

GNL_STATUS GnlComputeReguiredTimeFromAssoc (GNL_ASSOC Assoc, 

float *TimeRise, 
float *TimeFall, 
LIBC_LIB Lib, 
GNL_VAR Actual, 
int Tag, 
int WithRec) 

{ 

GNL_STATUS Gnl Status ; 

GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 

*TimeRise = *TimeFall = 0.0; 
break; 

if (GnlStatus - GnlComputeRequiredTimeFromSeqCell (Assoc, 

TimeRise, 

TimeFall, Lib, Tag, WithRec)) 

return (GnlStatus) ; 
break; 



case GNL_USER_COMPO : 

if (GnlStatus = GnlComputeRequiredTimeFromUserCompo (Assoc, 

TimeRise, TimeFall, Lib, 
Actual, Tag, WithRec)) 

return (GnlStatus) ; 
break; 

case GNL_TRISTATE_COMPO: 

if (GnlStatus = GnlComputeRequiredTimeFrom3State (Assoc, 

TimeRise, TimeFall, Lib, 
Tag, WithRec)) 

return (GnlStatus) ,* 
break; 



case GNL_MACRO_C0MP0 : 
break; 



default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 



return (GNL_0K) ; 

} 

/* „j 

I* TimeSortListByRequiredTime */ 

/* «i 

static void TimeSortListByRequiredTime (BLIST List, BLIST ListRequireTime) 
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int i, k, IndexMin, el; 

float Min; 

k = 0; 

while (k < BListSize (ListRequireTime) ) 
{ 

Min = MAX_FLOAT; 
IndexMin = k; 

for (i = k; i < BListSize (ListRequireTime); i++) 

if (*( (float *) BListElt (ListRequireTime, i) ) < Min) 
IndexMin = i; 

Min = *( (float *) BListElt (ListRequireTime, i) ) ; 

} 

el = BListElt (ListRequireTime, IndexMin); 

BListElt (ListRequireTime, IndexMin) = BListElt (ListRequireTime, k) 
BListElt (ListRequireTime, k) = el; 

el = BListElt (List, IndexMin); 

BListElt (List, IndexMin) = BListElt (List, k) ; 
BListElt (List, k) = el; 

k++ ; 

} 



} 



/* 

/* GnlComputeRequiredTimeFromVar */ 
/* 

/* Doc procedure GnlComputeRequiredTimeFromVar : 
- For a given GNL_VAR (Var) : 

- Compute the required time (falling and rising) of 
the net "Var" . 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
int Tag, 
int WithRec, 
int Inoutlsln, 
int Varlslnout) 

{ 

GNL_VAR AuxVar, Actual; 

GNL_AS SOC AuxAs soc Var ; 

int i, Fanout, Rank, Elt, J; 

GNL_STATUS GnlStatus ; 

BLIST AssocDests , Lef tVarAssigneds , 

Li stAssoc , ListRequireTime ; 
GNL_TIMING_INFO Timinglnfo, AuxTiminglnf o; 
GNL_USER_COMPONENT InstOf Gnl ; 

float TimeRise, TimeFall, Time, MinTime, *Real; 

float MinTimeRise, MinTimeFall; 

f loat MaxSetupTimeR, MaxSetupTimeF; 

unsigned int Key; 



E-HUBBLE-165 



timecomp.c 



int AuxVarlsInout ; 

if (Stringldentical (GnlVarName (Var) , M F376")) 
J-i; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlVarDir (Var) == GNL_VAR_INOUT) && Inoutlsln) 

Timinglnfo = (GNL_JTMING_INFO) GnlTiminglnf oHook (Timinglnf o) ; 
if (GnlTiminglnfoTag (Timinglnfo) == Tag) 

return (GNL_OK) ; 
SetGnlTiminglnf oTag (Timinglnfo, Tag) ; 
TimeRise = TimeFall = MinTimeRise = MinTimeFall = 0.0; 

if ( (GnlVarDir (Var) == GNL_VAR_OUTPUT) | | 

(GnlVarDir (Var) == GNL_VAR_INOUT I Inoutlsln) ) 

if ( ! BListSize (G_PileOf Component ) ) 

{ 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) == GNL_VAR_OUTPUT | | 

(GnlVarDir (Var) == GNL_VAR_ I NOUT && I Inoutlsln) ) */ 

SetGnlTiminglnf oRequiredRise (Timinglnfo , MinTimeRise) ; 
SetGnlTiminglnf oRequiredFall (Timinglnfo, MinTimeFall) ; 
return (GNL_OK) ; 

} 

} 

else 

{ 

InstOfGnl = ( GNL_USER_COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

ScActual) / 

if ( ! AuxAssocVar) 
{ 

if (BListAddElt (G__PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlComputeRequiredTimeFromVar (Actual, Lib, Tag,WithRec, 0, 0)) 

return (GNL_MEMORY_FULL) ; 
if ((GnlStatus = GnlTiminglnf OCorrespToCurrentPathFromVar (Actual, 

&AuxTimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

TimeRise = GnlTiminglnf oRequiredRise (AuxTiminglnf o) ; 
TimeFall = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 
if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return (GNL_MEMORY_FULL) ; 

MinTime = MinTimeRise; 

if (MinTime > MinTimeFall) 
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MinTime = MinTimeFall; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 

if (MinTime > Time) 

{ 

MinTimeRise = TimeRise; 
MinTimeFall = TimeFall; 

} 

} 

} 

if (GnlGetDestinationsOfVar (Var, &AssocDests, &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

ListAssoc = GnlVarTraversallnfoListLef tAssign (Var) ; 

if (BListCreateWithSize (BListSize (LeftVarAssigneds), &ListRequireTime) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i < BListSize (LeftVarAssigneds); i++) 

AuxVar = (GNL_VAR) BListElt (LeftVarAssigneds, i) ; 

if (GnlComputeRequiredTimeFromVar (AuxVar, Lib, Tag, WithRec, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (AuxVar, 

ScAuxTiminglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

MinTime = MinTimeRise; 

if (MinTime > MinTimeFall) 

MinTime = MinTimeFall; 
Time = GnlTiminglnf oReguiredRise (AuxTiminglnf o) ; 
if (Time > GnlTiminglnf oRequiredFall (AuxTiminglnf o) ) 

Time = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 

Real = (float *) calloc (1, sizeof (float)); 
(*Real) = Time; 

if (BListAddElt (ListRequireTime , (int) Real)) 
return ( GNL__MEMORY_FULL ) ; 

if (MinTime > Time) 
{ 

MinTimeRise = GnlTiminglnf oRequiredRise (AuxTiminglnf o) ; 
MinTimeFall = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 

} 

/* Tri of ListAssoc by required time */ 

TimeSortListByRequiredTime (ListAssoc, ListRequireTime) ; 
BListDelete <&ListRequireTime, BListElemFree) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
ListAssoc = GnlVarTraversallnfoListAssoc (Var) ; 

if (BListCreateWithSize (BListSize (AssocDests) , &ListRequireTime) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

AuxAssocVar = (GNL_ASS0C) BListElt (AssocDests, i) ; 
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TimeRise = TimeFall = 0.0; 

if (GnlComputeRequiredTimeFromAssoc (AuxAssocVar , &TimeRise, 

&TimeFall, Lib, Var, Tag, WithRec) ) 

return (GNL_MEMORY_FULL) ; 

MinTime = MinTimeRise; 

if (MinTime > MinTimeFall) 

MinTime = MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 

Real = (float *) calloc (1, sizeof (float)); 
(*Real) = Time; 

if (BListAddElt (ListReguireTime , (int) Real)) 
return ( GNL_MEMORY_FULL ) ; 

if (MinTime > Time) 

{ 

MinTimeRise = TimeRise; 
MinTimeFall = TimeFall; 

} 

} 

/* Tri of ListAssoc by required time */ 

TimeSortListByRequiredTime (ListAssoc, ListRequireTime) ; 
BListDelete (^ListRequireTime, BListElemFree) ; 
BListQuickDelete (SAssocDests) ; 

SetGnlTiminglnfoRequiredRise (Timinglnfo, MinTimeRise) ; 
SetGnlTiminglnfoRequiredFall (Timinglnfo, MinTimeFall) ; 

/* *MaxSetupTimeR = *MaxSetupTimeF = 0.0; 
GnlComputeSetupHoldTimeFromVar (Var, Timinglnfo, Lib, 

&MaxSetupTimeR, &MaxSetupTimeF) ; 
SetGnlTiminglnfoRequiredRise (Timinglnfo, 

GnlTiminglnfoRequiredRise (Timinglnfo) - MaxSetupTimeR) ; 
SetGnlTiminglnfoRequiredFall (Timinglnfo, 

GnlTiminglnfoRequiredFall (Timinglnfo) - MaxSetupTimeF) ; 

*/ 

return (GNL_OK) ; 

} 



/* 

/* GnlComputeRequiredTimeFromGnl */ 

/* v 

/* Doc procedure GnlComputeRequiredTimeFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the required time (falling and rising) on each 
net GNL_VAR. 

*/ 

/* #/ 

GNL_STATUS GnlComputeRequiredTimeFromGnl (GNL Gnl, 

LIBC_LIB Lib, 

int Tag) 

GNL_VAR Var; 
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int i, j ; 

GNL_STATUS GnlStatus ; 

GNL GnlCompol; 

GNL_COMPONENT Component I ; 

BLIST Components, Bucketl; 

Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (Gnl Component Type (ComponentI) != GNL_USER_COMPO ) 
continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

{ 

if (BListAddElt (G__PileOf Component, (GNL_USER_COMPONENT) ComponentI) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = GnlComputeRequiredTimeFromGnl (GnlCompol, Lib, Tag)) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component, BListSize (G_Pi leOf Component) ) ; 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 
for (j=0; j < BListSize (Bucketl); j++) 

Var = (GNL_VAR) BListElt (Bucketl, j); 
if (J Var || GnlVarlsVss (Var) || GnlVarlsVdd (Var)) 
continue; 

if (GnlComputeRequiredTimeFromVar (Var, Lib, Tag, 1, 1, 0)) 
return (GNL_MEMORY FULL) ; 

} 



return (GNL_OK) ; 

} 



-*/ 
-*/ 



/* 

/* GnlComputeRequiredTimeFromNetwork */ 
/* 

/* Doc procedure GnlComputeRequiredTimeFromNetwork : 
- For a given Network (GNL_NETWORK) : 

- Hierarchicaly compute the required time (falling and rising) on eac 
net GNL_VAR. 

/* v 

GNL_STATUS GnlComputeRequiredTimeFromNetwork (GNL_NETWORK Nw, 

LIBC LIB Lib) 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 
int Tag; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
Tag = GnlNetworkTag (Nw) ; 
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TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component) ) 
return ( GNL_MEMORY_FULL ) ; 

if ( (GnlStatus =GnlComputeRequiredTimeFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL_OK) ; 

} 

/*--■ 

; */ 

GnlGetSensFromArcTimingAndlnputArrivalTime (LIBC_PIN Pinln, LIBC_PIN PinOut , 

float TimeRiseln, float TimeFallln, 
int *SensRise, int *SensFall) 

{ 

LIBC_TIMING Timing; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 

switch (LibTimingSense (Timing) ) 

case POSITIVE_UtTATE_E: 
*SensRise = RISE; 
*SensFall = FALL; 
break; 

case NEGATIVE_UNATE_E : 
*SensRise = FALL; 
*SensFall = RISE; 
break; 

case NON_UNATE_E: 
*SensRise = RISE; 
if (TimeRiseln < TimeFallln) 
*SensRise = FALL ; 

*SensFall = FALL; 

if (TimeFallln < TimeRiseln) 

*SensFall = RISE; 
break; 

} 

} 

/* 

extern GNL_S TATUS GnlGetCritPathFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
GNL_CRITICAL_PATH *CritPath, 
GNL__CRITICAL_PATH CritSuccessorPath, 
int KindOfTime, 

int *IsCombPath, int *IsSeqPath, int Start, 
int Varlslnout) ; 

/* 

*/ 
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/* GnlGetCritPathAtOutputOfCombCell */ 

/* ^ 

GNL_STATUS GnlGetCritPathAtOutputOf CombCell (GNL_USER_COMPONENT UserCompo, 

GNL_ASSOC Assoc, 
LIBC_LIB Lib, 
GNL_CRITICAL_PATH *CritPath, 
GNL_CRITICAL__PATH CritSuccessorPath, 
int *IsCombPath, int *IsSeqPath) 



{ 



LIBC__CELL Cell; 
LIBC_PIN PinOut, Pinln; 

in t i, Fanout, Rank, SensRise, SensFall; 

GNL_ASSOC AssocI ; 

char * Formal; 

GNL_VAR Var, Varl; 

GNL_TIM1NG_INF0 TimingI ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance, OutCapa; 

float SlackRise, SlackFall, MinSlack; 

BLIST Interface; 
GNLJ3TATUS GnlStatus ; 

int KindOf Time ; 

GNL_CR I T I C AL_P ATH CritPredecessorPath; 
unsigned int Key; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if ( i (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

ScTimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G__WireLoad, Length, Lib) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI); 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI); 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
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continue ; 

if (LibPinDirection (Pinln) != INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 
inTransRise = GnlTiminglnfoTransitionRise (TimingI) ,* 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
ScDelayR, &OutTransR, 
&DelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

if (IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath) , TimeRise, 

4) 

IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath), TimeFall, 

4) ) 

continue; 

if ((GnlStatus ~ GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 
SetGnlCritPathFanout (*CritPath, Fanout) ; 
SetGnlCritPathArrTime (*CritPath, 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime (*CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCritPathKindOfTime (*CritPath, 

GnlCritPathKindOf Time (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlUserComponentlnstName (UserCompo) ) ; 
GnlGetSensFromArcTimingAndlnputArrivalTime (Pinln, PinOut, 

GnlTiminglnfoArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&SensRise, &SensFall) ; 
if (GnlCritPathKindOfTime (CritSuccessorPath) == RISE) 

{ 

SetGnlCritPathlncr (*CritPath, DelayR) ; 
KindOfTime = SensRise; 

} 

else 

{ 

SetGnlCritPathlncr (*CritPath, DelayP) ; 
KindOfTime = SensFall; 
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} 

if (GnlGetCritPathFromVar (Varl, Lib, &CritPredecessorPath, 
*CritPath, KindOfTime, 
IsCombPath, IsSeqPath, 1, 0)) 
return (GNL_MEMORY_FULL) ; 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

return (GNL_0K) ; 

} 

/* 

/* GnlGetCritPathFromUserCompo */ 
/* 

GNL__STATUS GnlGetCritPathFromUserCompo (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 

GNL_CRITICAL_PATH *CritPath, 

GNL_CRITICAL_PATH CritSuccessorPath, 

int KindOfTime, 
^ int *IsCombPath, int *IsSeqPath) 

GNL_VAR Var, Formal; 

GNL_USER_COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 

GNL_CRITICAL_PATH CritPredecessorPath; 

float SlackRise, SlackFall, MinSlack; 

unsigned int Key; 



UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversal Inf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL__FORMAL_CHAR) 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

if (GnlStatus = GnlGetCritPathAtOutputOf CombCell (UserCompo, 

Assoc, Lib, CritPath, 
CritSuccessorPath, 
IsCombPath, IsSeqPath) ) 

return (GnlStatus) ; 
return (GNL_0K) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
^ GnlUserComponentlnstName (UserCompo) ) ; 

return (GNL OK) ; 
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if (BListAddElt (G_PileOf Component , UserCompo) ) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Formal, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

SlackRise = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 
SlackFall = GnlTiminglnf oReguiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 
if ( IGnlFloatEqual (MinSlack, SlackRise, 4) 
ScSc IGnlFloatEqual (MinSlack, SlackFall, 4) ) 
{ 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 
return (GNLJDK) ; 

} 

if ((GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ,- 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 

SetGnlCritPathArrTime (*Crit Path, GnlCritPathArrTime (CritSuccessorPath) ) 
SetGnlCritPathReqTime (*CritPath, GnlCritPathReqTime (CritSuccessorPath) ) 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlncr (*CritPath, 0.0); 

if (GnlGetCritPathFromVar (Formal, Lib, &CritPredecessorPath, 

*CritPath, KindOf Time , IsCombPath, IsSeqPath, 0, 0) ) 
return (GNL_MEMORY_FULL) ; 
GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 

return (GNL_OK) ; 

} 

/* i(/ 

/* GnlGetCritPathFromSeqCell */ 

/* if/ 

GNL_STATUS GnlGetCritPathFromSeqCell (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CR I T I CAL_PATH *CritPath, 
GNL_CRITICAL PATH CritSuccessorPath) 

{ 

LIBC_CELL Cell; 

LIBC_PIN PinOut; 

int i, Rank; 

GNL^ASSOC AssocI; 

char *Formal ; 

GNL__VAR Var; 

GNL__TIMING_INFO TimingI ; 

float SlackRise, SlackFall, MinSlack; 
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GNL_STATUS GnlStatus ; 

int KindOfTime; 

GNL_CRITICAL_PATH CritPredecessorPath; 
GNL_S EQUENT I AL_COMPONENT SegCompo ; 
unsigned int Key; 



SeqCompo = (GNL_S EQUENT I AL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) / 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (MPinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) != OUTPUTJE ) 

return (GNL_OK) / 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 

MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 

SlackRise = GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnf oArrivalRise (TimingI) ; 

SlackFall = GnlTiminglnf oRequiredFall (TimingI) - 

GnlTiminglnf oArrivalFall (TimingI) ; 

if ( iGnlFloatEqual (MinSlack, SlackRise, 4) 
&& IGnlFloatEqual (MinSlack, SlackFall, 4) ) 
return (GNL_OK) ; 

if ((GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
SetGnlCritPathCriticalAssoc (*CritPath, Assoc); 
SetGnlCr itPathArrTime ( *Cri tPath , 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime (*CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCri tPathKindOf Time ( *CritPath, 

GnlCritPathKindOfTime (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlSequentialCompoInstName (SeqCompo) ) ; 
SetGnlCritPathlncr (*CritPath, GnlCritPathArrTime (*CritPath) ) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlGetCritPathFromlnputOfSeqCell */ 

/* 

GNL_STATUS GnlGetCritPathFromlnputOf SeqCell (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CR I T I CAL_PATH *CritPath, 
GNL_CR I T I CAL_PATH CritSuccessorPath, 
int KindOfTime) 
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int i, Rank; 

char * Formal ; 

GNL_VAR Var; 
GNL_TIMING_INFO Timinglnfo; 

float TimeRise, TimeFall, MinSlack; 

BLIST Interface; 

GNL_STATUS GnlStatUS ; 

GNL_CR I T I CAL_PATH CritPredecessorPath; 

GNL_SEQUENTIAL__COMPONENT SeqCompo ; 

int IsCombPath, IsSeqPath; 

unsigned int Key; 



Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc); 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 

(ASSOC) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc); 

SetGnlCritPathFanout (*CritPath, GnlTiminglnf oFanout (Timinglnfo)); 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlSequentialCompoInstName (SeqCompo) ) ; 

if (GnlStatus = GnlComputeSetupHoldTimeFromSeqCompo (SeqCompo, Formal, 
Timinglnfo, &TimeRise, &TimeFall, Lib, 0)) 
return (GnlStatus) ; 
if (GnlGetCritPathFromVar (Var, Lib, ^CritPredecessorPath, 

*CritPath, KindOfTime, &IsCombPath, &IsSeqPath, 1, o) ) 
return (GNL_MEMORY_FULL) ; 

if (KindOfTime == RISE) 
{ 

SetGnlCritPathArrTime (*CritPath, GnlTiminglnf oArrivalRise 
(Timinglnfo) ) ; 

SetGnlCritPathReqTime (*CritPath, GnlTiminglnf oRequiredRise 
(Timinglnfo) ) ; 

^ SetGnlCritPathlncr (*CritPath, TimeRise); 

else 
{ 

SetGnlCritPathArrTime (*CritPath, GnlTiminglnf oArrivalFall 
(Timinglnfo) ) ; ; 

SetGnlCritPathReqTime (*CritPath, GnlTiminglnf oRequiredFall 
(Timinglnfo) ) ; 

SetGnlCritPathlncr (*CritPath, TimeFall); 
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GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) 
return (GNL_OK) ; 

} 

/* 

/* GnlGetCritPathFromSState */ 
/* 

GNL_STATUS GnlGetCritPathFrom3State (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CR I T I CAL_P ATH *CritPath, 
GNL__CR I T I CAL_P ATH CritSuccessorPath, 
int *IsCombPath, int *IsSeqPath) 



{ 



LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank, SensRise, SensFall; 

GNL_ASSOC Assod; 

char * Formal; 

GNL_VAR Var, Varl; 

GNL_TIMING_INFO TimingI ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance , OutCapa; 

float SlackRise, SlackFall, MinSlack; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

int KindOfTime; 

GNL_CRITICAL_PATH CritPredecessorPath ; 

GNL_TRISTATE_COMPONENT Tr is tateCompo ; 

unsigned int Key; 



TriStateCompo = (GNL_TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (i (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriStateCompo) ; 
MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 
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AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (lAssod) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (IVarl) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if (!(PinIn = LibGetPinFromMameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection(Pinln) != INPUT JE) 
continue ; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT) 

TimingI = ( GNL_T I M I NG__ INFO) GnlTiminglnf oHook (TimingI) ,- 
InTransRise = GnlTiminglnf oTransitionRise (TimingI); 
InTransFall = GnlTiminglnf oTransitionFall (TimingI); 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&De 1 ayR , &0u t TransR , 
&DelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

if (IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath) , TimeRise, 

&& IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath), TimeFall, 

continue; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 
SetGnlCritPathFanout (*CritPath, Fanout) ; 
SetGnlCritPathArrTime (*CritPath, 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime (*CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCritPathKindOfTime (*CritPath, 

GnlCritPathKindOfTime (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlTriStatelnstName (TriStateCompo) ) ; 
GnlGetSensFromArcTimingAndlnputArrivalTime (Pinln, PinOut, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
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&SensRise, &SensFall) ; 
if (GnlCritPathKindOfTime (CritSuccessorPath) == rise) 

SetGnlCritPathlncr (*CritPath, DelayR) ; 
KindOfTime = SensRise; 

} 

else 
{ 

SetGnlCritPathlncr (*CritPath, DelayF) ; 
KindOfTime = SensFall; 

} 

if (GnlStatus = GnlGetCritPathFromVar (Varl, Lib, 

&CritPredecessorPath, 
*CritPath, KindOfTime, 
IsCombPath, IsSeqPath, 1, 0)) 

return (GnlStatus) ,- 
^ GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlGetCritPathFromAssoc */ 

/* 

GNL_STATUS GnlGetCritPathFromAssoc (GNL_ASS0C Assoc, 

LIBC_LIB Lib, 
GNL_CRITICAL__PATH *CritPath, 
GNL_CRITICAL_PATH CritSuccessorPath , 
int KindOfTime, 
int *IsCombPath, int *IsSeqPath) 

GNL^STATUS GnlStatus / 

int Rank; 
GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_C0MP0 : 

if (GnlStatus = GnlGetCritPathFromSeqCell (Assoc, Lib, 

CritPath, CritSuccessorPath) ) 

return (GnlStatus) ; 
* IsSeqPath = 1; 
break; 

case GNL_USER_C0MP0 : 

if (GnlStatus = GnlGetCritPathFromUserCompo (Assoc, Lib, 

CritPath, CritSuccessorPath, 
KindOfTime , 

IsCombPath, IsSeqPath) ) 

return (GnlStatus) ; 
break; 

case GNL_TRISTATE_COMPO: 

if (GnlStatus = GnlGetCritPathFrom3State (Assoc, Lib, 

CritPath, CritSuccessorPath, 
IsCombPath, IsSeqPath) ) 
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return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default: 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL_OK) ; 

} 

/* it/ 

/* GnlGetCritPathFromVar */ 
/* 

GNL_STATUS GnlGetCritPathFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
GNL_CR I T I CAL_PATH *CritPath, 
GNL_CRITICAL_PATH CritSuccessorPath, 
int KindOfTime, 

int *IsCombPath, int *IsSeqPath, int Start, 
int Varlslnout) 

{ 

GNL_VAR Varl, Actual; 

GNL_ASSOC AuxAssocVar ; 

int i, Rank; 

GNL_STATUS GnlStatus ; 

GNL_TIMING__INFO Timinglnfo, TimingI; 

float ArrivalTime, RequiredTime , 

SlackRise, SlackFall, MinSlack; 
GNL_USER_COMPONENT InstOf Gnl ; 

GNL_CRITICAL_PATH CritPredecessorPath, CritPredecessorPath2 ; 

BLIST AssocSources , RightVarAssigneds ; 

unsigned int Key; 
int AuxVarlsInout ; 



if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR_ INOUT Start) 

Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook (Timinglnfo) ; 

if ((GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalVar (*CritPath, Var) ; 

if (KindOfTime == RISE) 

{ 

ArrivalTime = GnlTiminglnf oArrivalRise (Timinglnfo) ; 
RequiredTime = GnlTiminglnf oRequiredRise (Timinglnfo) ; 

else 

{ 

ArrivalTime = GnlTiminglnf oArrivalFall (Timinglnfo) ; 
RequiredTime = GnlTiminglnf oRequiredFall (Timinglnfo) ; 
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} 

MinSlack = RequiredTime - ArrivalTime; 
SetGnlCritPathArrTime (*CritPath, ArrivalTime) ; 
SetGnlCritPathReqTime (*CritPath / RequiredTime) ; 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlncr (*CritPath, 0.0); 

if (GnlVarDir (Var) == GNL_VAR_INPUT | | 

(GnlVarDir (Var) == GNL__VAR_ INOUT && Start)) 

{ 

if (IBListSize (G__PileOf Component ) ) 
{ 

/*if (GnlVarDir (Var) == GNL_VAR_ INPUT | | 

(GnlVarDir (Var) -= GNL_VAR_IN0UT && Start))*/ 

{ 

*IsCombPath = 1,- 
return (GNL_OK) ; 

} 

} 

else 

{ 

InstOfGnl = ( GNL_USER_COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var , 
InstOfGnl , ^Actual) ; 

if ( ! AuxAssocVar) 

{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

i f (GnlTiminglnf oCorrespToCurrent PathFromVar (Actual , 
&TimingI , &Key , &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Actual) == GNL_VAR__INOUT && Start) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 
SlackRise = GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnf oArrivalRise (TimingI) ; 
SlackFall = GnlTiminglnf oRequiredFall (TimingI) - 

GnlTiminglnf oArrivalFall (TimingI) ; 
MinSlack = GnlCritPathReqTime (*CritPath) - 

GnlCritPathArrTime (*CritPath) ; 
if ( IGnlFloatEqual (MinSlack, SlackRise, 4) 

IGnlFloatEqual (MinSlack, SlackFall, 4) ) 
return (GNL_0K) ; 
if ( (GnlStatus = GnlCreateCritPath (&CritPredecessorPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath2 = NULL; 

SetGnlCritPathCriticalAssoc (CritPredecessorPath, AuxAssocVar) ; 

SetGnlCritPathArrTime 
(CritPredecessorPath, GnlCritPathArrTime (*CritPath) ) ; 

SetGnlCritPathReqTime 
(CritPredecessorPath, GnlCritPathReqTime (*CritPath) ) ; 
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SetGnlCritPathKindOfTime (CritPredecessorPath, KindOfTime) / 
GnlAddSuccessorToCritPath (CritPredecessorPath, *CritPath) ; 
SetGnlCritPathlncr (CritPredecessorPath, 0.0) ; 

AuxVarlsInout = (GnlVarDir (Var) == GNL_VAR__ I NOUT ) ; 
if (GnlGetCritPathFromVar (Actual, Lib, &Crit Predecessor Path2 , 

CritPredecessorPath, KindOfTime , 
IsCombPath, IsSeqPath, 1, AuxVarlsInout) ) 
return (GnlStatus) ; 
GnlAddPredecessorToCritPath (CritPredecessorPath, 
CritPredecessorPath2) ; 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 
if (BListAddElt (GJPileOf Component , InstOfGnl) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlCritPathlncr (CritPredecessorPath, 0.0) ; 
return (GNL_OK) ; 

} 

} 

/* in this section we compute the Successor critical Path from Var */ 

if (GnlGetSourcesOfVar (Var, ScAssocSources , ^RightVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (RightVarAssigneds) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (RightVarAssigneds, i) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

SlackRise = GnlTiminglnf oRequiredRise (Timinglnfo) ~ 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

SlackFall = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 

if { GnlFloatEqual (MinSlack, SlackRise, 4) | | 
GnlFloatEqual (MinSlack, SlackFall, 4) ) 

{ 

if (GnlGetCritPathFromVar (Varl , Lib, ^CritPredecessorPath, 

*CritPath, KindOfTime, 
IsCombPath, IsSeqPath, 1, 0)) 
return ( GNL_MEMORY_FULL ) ; 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

} 

BListQuickDelete (&RightVarAssigneds) ; 

for (i=0; i < BListSize (AssocSources) ; i++) 
{ 

AuxAssocVar = (GNL___ASSOC) BListElt (AssocSources, i) ; 

if (GnlGetCritPathFromAssoc (AuxAssocVar, Lib, ^CritPredecessorPath, 

*CritPath, KindOfTime, 

IsCombPath, IsSeqPath) ) 
return (GNLJYIEMORY FULL) ; 



E-HUBBLE-182 



timecomp.c 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

BListQuickDelete (&AssocSources) ; 
return (GNL_OK) ; 

} 

/* + / 

/* GnlGetMinSlackFromlnputsOf Sequentiallnst */ 

/* it/ 

/* Doc procedure GnlGetMinSlackFromlnputsOf Sequentiallnst : 

- Getting the slack minimal attached to the inputs of sequential instances 
of a given netlist (GNL) . 

/* it/ 

GNL_STATUS GnlGetMinSlackFromlnputsOf Sequentiallnst (GNL Gnl, float 
*MinSlack) 

{ 

GNL_VAR Var; 

int i , Rank ; 

GNL_STATUS GnlStatus ; 

GNL__T I M ING__ I NFO Timinglnfo; 
float Slack; 
GNL___SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_COMPONENT Component I ; 

GNL GnlCompol ; 
unsigned int Key; 



for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if (GnlComponentType (ComponentI) == GNL USER COMPO) 
{ " ~ 

GnlCompol = GnlUserComponentGnlDef ( (GNLJJSER_COMPONENT) ComponentI) ; 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component, (GNL_USER_COMPONENT) ComponentI)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = GnlGetMinSlackFromlnputsOf Sequentiallnst (GnlCompol, 

MinSlack) ) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component) ) ; 

} 

if (GnlComponentType (ComponentI) 1= GNL_SEQUENTIAL_COMPO ) 
continue ; 

SeqCompo = ( GNL__S EQUENT I AL_COMPONENT ) ComponentI; 
Var = GnlSequentialCompoInput (SeqCompo) ; 
if (GnlVarlsVss (Var) || GnlVarlsVdd (Var)) 
continue ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
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/* fprintf (stderr , "%s\t% . 2f \t% . 2f \%2 . f » , GnlSequentialCompoInstName 
(SeqCompo) , Gnl Timing Inf oArrivalRise (Timinglnfo) , GnlTiminglnf oRequiredRise 
(Timinglnf o) , GnlTiminglnf oCapa (Timinglnfo) ) ; 
*/ 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

if (*MinSlack > Slack) 
*MinSlack = Slack; 

Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 

if (*MinSlack > Slack) 
*MinSlack = Slack; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlGetSequentialCritPathFromGnl */ 

/* ic/ 

/* Doc procedure GnlGetSequentialCritPathFromGnl : 

- Getting the slack minimal attached to the inputs of sequential instances 
of a given netlist (GNL) . 

/* *i 

GNLJSTATUS GnlGetSequentialCritPathFromGnl (GNL Gnl, LIBC_LIB Lib, 

BLIST ListOfCritPaths, 

float MinSlack) 

{ 

GNL_VAR Varm- 
int i, Rank; 
GNL_STATUS GnlStatus ; 
GNL_TIMING_INFO Timinglnfo ; 
float Slack; 
GNL_S EQUENT I AL_COMPONENT SeqCompo ; 
GNL_COMPONENT Component I ; 
GNL GnlCompol; 
GNL_ASSOC Assoc; 
GNL_CR I T I C AL_P ATH CritPath; 
unsigned int Key; 



for (i=0; i < BListSize (GnlComponents (Gnl) ) ; i++) 
{ 

ComponentI = (GML_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 

if (Gnl Component Type (ComponentI) == GNL USER COMPO) 
{ " ~ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return ( GNL JVIEMORY_FULL ) ; 
if (GnlStatus = GnlGet Sequent ialCritPathFromGnl (GnlCompol, Lib, 

ListOfCritPaths, MinSlack)) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize ( G_PileOf Component ) ) ; 
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} 

} 

if (GnlComponentType (ComponentI ) != GNL_SEQUENTIAL_COMPO) 
continue; 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI; 
Assoc = GnlSequentialCompoInputAssoc (SeqCompo) ; 
if ( !Assoc) 

continue; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 

continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

kTiminglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

Slack = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

if (MinSlack == Slack) 
{ 

if (GnlStatus = GnlGetCritPathFromlnputOf SeqCell (Assoc, Lib, &CritPath, 

( GNL__CR I T I CAL_PATH ) NULL , RISE) ) 

return (GnlStatus) ; 
if (BListAddElt (ListOf CritPaths , CritPath) ) 
return ( GNL_MEMORY__FULL ) ; 

} 

else 

{ 

Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 

if (MinSlack == Slack) 
{ 

if (GnlStatus = GnlGetCritPathFromlnputOf SeqCell (Assoc, Lib, 
&CritPath, 

( GNL__CR I T I C AL_PATH ) NULL , FALL)) 

return (GnlStatus) ; 
if (BListAddElt (ListOf CritPaths , CritPath)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

return (GNL_OK) ; 

} 

/* *i 

/* GnlGetMinSlackFromOutputs */ 

/* */ 

/* Doc procedure GnlGetMinSlackFromOutputs : 

- Getting the slack minimal attached to the primary outputs of a given 
netlist (GNL) . 

/* */ 

GNL_STATUS GnlGetMinSlackFromOutputs (GNL Gnl, float *MinSlack) 
{ 

GNL_VAR Var; 
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int 

GNL_STATUS 
GNL_T I M ING_ I NFO 
float 
BLIST 

unsigned int 



i , j , Rank ; 

GnlStatus; 

Timinglnfo; 

Slack; 

Bucketl; 

Key; 



*MinSlack - MAX_FLOAT ; 

for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 

for (j=0; j < BListSize (Bucketl); j++) 

{ 

Var = (GNL_VAR) BListElt (Bucketl, j ) ; 

if (!Var || ( (GnlVarDir (Var) !^ GNL_VAR_OUTPUT) && 

(GnlVarDir (Var) ! = GNL_VAR_INOXJT) ) ) 

continue; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 

if (*MinSlack > Slack) 

*MinSlack = Slack; 
Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 

if (*MinSlack > Slack) 
*MinSlack = Slack; 

} 

} 

return (GNL_OK) ; 

} 

/* ir/ 

GNL_STATUS GnlGetCombinationalCri tPathFromGnl (GNL Gnl, LIBC^LIB Lib, 

BLIST ListOfCritPaths, 

float *MinSlackForCombPath, 
^ float *MinSlackForSeqPath) 

GNL_VAR Var; 

int i, j, Rank, IsCombPath, IsSeqPath; 

GNL_STATUS GnlStatus ; 

GNL_TIMING_INFO Timinglnfo ; 

float MinSlack, Slack; 

GNL__CR I T I C AL_ PATH CritPath; 

BLIST Bucketl; 

unsigned int Key; 



/* GnlGetMinSlackFromOutputs (Gnl , &MinSlack) ; */ 
for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 
{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 

for (j=0; j < BListSize (Bucketl); j++) 

{ 
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Var = (GNL_VAR) BListElt (Bucketl, j); 

if (!Var || ( (GnlVarDir (Var) 1= GNL_VAR_OUTPUT) && 

(GnlVarDir (Var) != GNL_VAR_INOUT) ) ) 

continue; 



if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
IsCombPath = isSeqPath = 0; 

if (GnlTiminglnfoArrivalRise (Timinglnf o) > GnlTiminglnf oArrivalFall 
(Timinglnfo) ) 

{ 

Slack = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

if (GnlStatus = GnlGetCritPathFromVar (Var, Lib, ScCritPath, 

( GNL_CR I T I CAL_PATH ) MULL , RISE, 
ScIsCombPath, &IsSeqPath, 0, 0)) 

return (GnlStatus) ; 

} 

else 

{ 

Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 

if (GnlStatus = GnlGetCritPathFromVar (Var, Lib, &CritPath, 

( GNL_CR I T I C AL_P ATH ) NULL , FALL , 
&IsCombPath, ^IsSeqPath, 0, 0)) 
return (GnlStatus) ; 

} 



if (BListAddElt (ListOf CritPaths , CritPath) ) 

return (GNL_MEMORY_FULL) ; 
if (IsCombPath) 

if (*MinSlackForCombPath > Slack) 
*MinSlackForCombPath = Slack; 
if (IsSeqPath) 

if (*MinSlackForSeqPath > Slack) 
*MinSlackForSeqPath = Slack; 



} 

} 

return (GNL_OK) ; 

} 



/* */ 

/* GnlPrintHeadOfTimingReport */ 

/* 

/* Doc procedure GnlPrintHeadOfTimingReport : 

- Printing global parameters used for timing analysis 

*/ 

/* *i 

GNL__STATUS GnlPrintHeadOfTimingReport (GNL Gnl, 

LIBC LIB Lib) 

{ 

fprintf (stderr, " \ n » 
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fprintf (stderr, " Report\t\t : \ttiming\n" ) ; 

fprintf (stderr, " max_number_paths\t : \t%d\n" , GnlEnvPrintNbCritPath {)); 
fprintf (stderr, » Desigxi\ t\t : \t%s\n" , GnlName (Gnl)); 
fprintf (stderr, " Date\t\t\t : \t " ) ; 
GnlPrintDate (stderr) ; 
fprintf (stderr, "\n"); 



fprintf (stderr, " Operating Conditi ons\t : \t%s\n" , 

LibOperCondOcName (G_OperCond) ) ; 
fprintf (stderr, » Library\t\t : \t%s\n" , LibName (Lib)); 

fprintf (stderr, " wire Loading Model \t : \t " ) ; 
if (G_WireLoad) 

fprintf (stderr, ?, %s\n", LibWireLoadName (G_WireLoad) ) ; 
else 

fprintf (stderr, "No Wire Load\n n ); 

fprintf (stderr, " \n u ); 

fprintf (stderr, " \n") ; 

} 



/* 

/* GnlGetCritPathFromNetwork */ 

/* 

/* Doc procedure GnlGetCritPathFromNetwork : 

- Getting combinational critical path and Clock periode from a given 
Network (GNL_NETWORK) . 

*/ 

/* A/ 

GNL_STATUS GnlGetCritPathFromNetwork (GNL_NETWORK Nw, 

LIBC_L1B Lib, 
int MaxPaths , 

doubl e Ar eaWi t hou t Ne t , 

int CellNumber, 
int Print ClkDomain , 

int Printer itRegion) 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 

BLIST ListOf CritPaths , ListOf SeqCritPaths ; 

BLIST AuxList, ListOf Clocks ; 

GN L_CRI T 1 CAL_P ATH CritPath; 

int NumberOf Paths, i, Size; 

float MinSlack, ClockFreqValue, CombPathValue , MinSlackForSeqPath, 
MinSlackForCombPath; 



TopGnl = GnlNetworkTopGnl (Nw) / 

if (CellNumber > MAX_CELL_NUMBER) 
{ 

if (BListCreate (&G_PileOf Component) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListCreate (&ListOf CritPaths) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListCreate (&ListOf SeqCritPaths ) ) 
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return (GNL_MEMORY_FULL) ; 

MinSlackForCombPath = MinSlackForSeqPath = MAX_FLOAT; 

if ( (GnlStatus = GnlGetCombinationalCritPathFromGnl (TopGnl, Lib, 

ListOf CritPaths, 
^MinSlackForCombPath, 
ScMinSlackForSeqPath) ) ) 

return (GnlStatus) ; 
NumberOf Paths = MaxPaths; 

GnlPrintHeadOfTimingReport (TopGnl, Lib) ; 
ClockFreqValue = CombPathValue = 0.0; 

for (i=0; i < BListSize (ListOf CritPaths) ; i++) 
{ 

CritPath = (GNL_CRITICAL_PATH) BListElt (ListOf CritPaths , i) ; 
if (BListCreate (&AuxList) ) 

return (GNL_MEMORY_FULL) ; 
Size = BListSize (ListOf SeqCritPaths) ,- 

GnlPrintNEquivalPathFromOneCritPath (CritPath, AuxList, &NumberOf Paths, 

0, &ClockFreqValue, &CombPathValue , 
MinSlackForSeqPath, MinSlackForCombPath, 
ListOf SeqCritPaths) ; 

if (BListSize (ListOf SeqCritPaths) ! = Size) 
{ 

BListDelShif t (ListOf CritPaths , i + 1) ; 
i-~; 

} 

BListQuickDelete (&AuxList) ; 
if ( I NumberOf Paths) 
break; 

} 

BListDelete (&ListOf CritPaths , GnlFreeCritPath) ; 

if (CombPathValue) 
{ 

f print f (stderr, " 

• — \n») ; 

fprintf (stderr, " Combinational Path \t\t%.2f ns\n", CombPathValue); 

f print f (stderr, " 

\n\n") ; 

} 

MinSlack = MAX__ FLOAT ; 

GnlGetMinSlackFromlnputsOf Sequentiallnst (TopGnl, &MinSlack) ; 
if (MinSlack < MinSlackForSeqPath) 
{ 

MinSlackForSeqPath = MinSlack; 
BListQuickDelete (&ListOf SeqCritPaths) ; 
if (BListCreate (&ListOf SeqCritPaths ) ) 

return (GNL_MEMORY_FULL) ; 
if ((GnlStatus = GnlGetSequentialCritPathFromGnl (TopGnl, Lib, 

ListOf SeqCritPaths, MinSlack))) 

return (GnlStatus) ; 
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} 

else if (MinSlack == MinSlackForSeqPath) 

{ 

if ( (GnlStatus = GnlGetSequentialCritPathFromGnl (TopGnl, Lib, 

ListOf SeqCritPaths, MinSlack) ) ) 

return (GnlStatus) ; 

} 

NumberOf Paths = MaxPaths; 
ClockFreqValue = 0.0; 

for (i=0; i < BListSize (ListOf SeqCritPaths) ; i++) 
{ 

CritPath = (GNL_CRITICAL_PATH) BListElt {ListOf SeqCritPaths , i) ; 

if (BListCreate (SAuxList)) 

return (GNL_MEMORY_FULL) ; 

GnlPrintNEquivalPathFromOneCritPath (CritPath, AuxList, &NumberOf Paths , 

1, &ClockFreqValue, &CombPathValue, 
MinSlackForSeqPath, MinSlackForCombPath, 
NULL) ; 

BListQuickDelete (&AuxList) ; 
if ( ! NumberOf Paths) 
break; 

} 

BListDelete ( &ListOf SeqCritPaths , GnlFreeCritPath) ; 
if (ClockFreqValue) 

{ 

fprintf (stderr, n 

\n'M ; 

fprintf (stderr, " Clock Period \t\t\t%.2f ns\n", ClockFreqValue); 
fprintf (stderr, " Clock Frequency \t\t%.2f Mhz\n" , 

1000 * 1/ClockFreqValue) ; 

fprintf (stderr, " 

\n") ; 

} 

BListQuickDelete (&ListOf CritPaths) ; 
if (PrintCritRegion) 

if (GnlGetEpsiCriticInstancesFromGnl (TopGnl, Lib, 

MinSlackForSeqPath, MinSlackForCombPath, AreaWithoutNet ) ) 
return ( GNL_MEMORY_FULL ) ; 
BListQuickDelete (&G_PileOf Component) ; 

} 

else 
{ 

if (BListCreate (&ListOf Clocks) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlGetClocksFromNetwork (Nw, ListOf Clocks , 
PrintClkDomain) ) 

return (GnlStatus) ; 

if (BListCreate (&G_Pile0f Component ) ) 

return (GNLJYIEMORY_FULL) ; 
GnlGetMinSlackFromOutputs (TopGnl , &MinSlackForCombPath) ; 
MinSlackForSeqPath = MAX_FL0AT; 

GnlGetMinSlackFromlnputsOf Sequent iallnst (TopGnl , ScMinSlackForSeqPath) ; 
BListQuickDelete (&G_PileOf Component) ; 

if (GnlStatus = TimeExpandCritPathFromNetwork (Nw, Lib, MaxPaths, 

ListOf Clocks, AreaWithoutNet, 
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MinS lackForCombPath , 
MinSlackForSeqPath, 
PrintCritRegion) ) 

return (GnlStatus) ; 
BListDelete (ScListOf Clocks , GnlFreeClock) ; 

} 

return (GNL_OK) ; 

} 



/* TimeOptByResizing 



GNL__STATUS TimeOptByResizing ( GNL_NETWORK Nw ; 

LIBC LIB GnlLibc) 

{ 

double AreaWi thoutNet , AreaOf Nets ; 
int CellNumber; 
GNL TopGnl; 
int Tag, i; 

LIBC_CELL Buffer, Celll; 

BLIST ListBuf fers; 

float InCapaBuf fer, LimitCapaBuf f er , MaxLimitCapaBuf f er; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if ( ! GnlEnvRespectLibConstraints ( ) ) 
{ 

if (GnlLinkLib (Nw, TopGnl, GnlLibc)) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlSetListPathComponent (Nw) ) 
return ( GNL_MEMORY_FULL ) ; 

/* we resize the hash list of path component depending on the */ 
/* number of instances leading to a current Gnl . */ 
if (GnlResizeHashListPathComponent (Nw) ) 
return (GNL_MEMORY__FULL) ; 

if (GnlAddNetlistlnfoForTraversallnComponent (Nw, TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL); 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc) ) 
return (GNL_MEMORY_FULL) ; 

} 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 0, ScAreaWi thoutNet , &AreaOfNets, 

&CellNumber) ) 
return (GNLJviEMORY_FULL) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 
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if (GnlComputeRequiredTimeFroTTiNetwork (Nw, GnlLibc) ) 
return (GNL_MEMORY_FULL) ; 

fprintf (stderr, "\n"); 
fprintf (stderr, 

" Optimization By Resizing Critical Instances ... \n" ) ; 
fprintf (stderr, "\n") ; 

Tag = GnlNetworkTag (Nw) + 1; 

ListBuffers = GnlHLibCellsBuf f ers ( (GNL_LIB) LibHook (GnlLibc)); 

MaxLimitCapaBuf f er = 0.0; 

Buffer = (LIBC_CELL) NULL; 

for (i=0; i < BListSize (ListBuffers); i++) 
{ 

Celll = (LIBC_CELL) BListElt (ListBuffers, i) ; 

TimeGetlnCapaAndLimitCapa (Celll, &InCapaBuf f er , &LimitCapaBuf f er , 
GnlLibc) ; 

if (MaxLimitCapaBuf fer < LimitCapaBuf f er) 

{ 

Buffer = Celll; 

MaxLimitCapaBuf fer = LimitCapaBuf fer ; 

} 

} 

if (BListSize (ListBuffers) ) 
if (TimeOptByResizingFromGnl (TopGnl, GnlLibc, 1, &Tag, ListBuffers, 
Buffer) ) 

return ( GNL_MEMORY_FULL ) ; 



if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMOR Y_FULL ) ; 

if (GnlComputeRequiredTimeFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

if (TimeOptByResizingFromGnl (TopGnl, GnlLibc, 0, &Tag, ListBuffers, 
Buffer) ) 

return (GNL_MEMORY_FULL) ; 



CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, &AreaWithoutNet , StAreaOf Nets , 

ficCellNumber) ) 
return ( GNL_MEMORY__FULL ) ; 
fprintf (stderr, "\n"); 

return (GNLjOK) ; 

} 

/* 

/* GnlMeetLibConstraints */ 

/* ±i 

GNL_STATUS GnlMeetLibConstraints (GNL_NETWORK Nw, 
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LIBC_LIB GnlLibc) 

{ 

double AreaWithoutNet , AreaOf Nets ; 
int CellNumber; 
GNL TopGnl; 



TopGnl = GnlNetworkTopGril (Nw) ; 

if (GnlLinkLib (Nw, TopGnl, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlSetListPathComponent (Nw) ) 
return ( GNL_MEMOR Y_FULL) ; 

/* we resize the hash list of path component depending on the */ 
/* number of instances leading to a current Gnl . */ 
if (GnlResizeHashListPathComponent (Nw) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlAddNetlistlnfoForTraversallnComponent (Nw, TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL) ; 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MElYfORY_FULL ) ; 

CellNumber = 0/ 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, ^AreaWithoutNet , &AreaOfNets 

^CellNumber) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlComputeRequiredTimeFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMOR Y_FULL ) ; 

fprintf (stderr, n \n"); 
fprintf (stderr, 

" Restructuring Netlist to meet Library Constraints ... \n M ) ; 
fprintf (stderr, n \n"); 

if (TimeLimitationFanoutFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, ^AreaWithoutNet , &AreaOfNets 

&CellNumber) ) 
return (GNL_MEMORY_FULL) ; 
fprintf (stderr, n \n lr ); 



return (GNL_OK) ; 

} 
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/* TimeEstimate 

/* 

GNL_STATUS TimeEstimate ( GNLJSTETWORK Nw, 

LIBC_LIB GnlLibc, 
int PrintClkDomain, 
int PrintCritRegion) 

{ 

double AreaWithoutNet , AreaOf Nets ,- 
int CellNumber; 
GNL TopGnl / 

int PrintData; 



/* We call the construction of these data if: */ 

/* - we are in the ESTIMATION mode or */ 

/* -we are in another mode but we did not invoked the */ 

/* control f anout . */ 

if ( (GnlEnvMode () == GNL_MODE_ESTIMATION) || 

( 1 GnlEnvRespectLibConstraints ( ) && ! GnlEnvPostOpt ( ) && 
(GnlEnvMode {) 1= GNL MODE POST OPTIMIZATION) ) ) 
{ " " 

TopGnl = GnlNetworkTopGnl (Nw) ; 



if (GnlAddNetlistlnfoForTraversallnComponent (Nw, TopGnl, GnlLibc) ) 
return (GNL__MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL) ; 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc) ) 
return ( GNL J4EM0RY FULL) ; 

} 

if (GnlEnvPostOpt () | | (GnlEnvMode () == GNL_MODE_POST_OPTIMIZATION) ) 
if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

CellNumber = 0; 

PrintData = ( 1 GnlEnvRespectLibConstraints ( ) || 
( I GnlEnvPostOpt ( ) && 

(GnlEnvMode () != GNL_M0DE_P0ST_OPTIMIZATION) ) || 
(GnlEnvMode () == GNL_MODE_ESTIMATION) ); 
if (GnlGetAreaFromNetwork (Nw, GnlLibc, PrintData, SAreaWithoutNet , 

&AreaOfNets, &CellNumber) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 



if (GnlComputeRequiredTimeFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 



if (GnlGetCritPathFromNetwork (Nw, GnlLibc, GnlEnvPrintNbCritPath (), 

AreaWithoutNet, CellNumber, PrintClkDomain, 
PrintCritRegion) ) 

return ( GNL_MEMORY_FULL ) ; 
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if (GnlFreeTiminglnfoFromNetwork (Nw) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* EOF */ 



o 

« 

N 

HI 

m 

w 
o 

m 
ru 

m 
o 

o 



E-HUBBLE-195 



timecomp.e 





/* 






/* 


File: timecomp.e 




/* 


Ver*^ *i on * 1 1 




/* 


Modifications: 




/* 


Documentation: 




/* 






/* 


Description: 


*/ 


/* 











*/ 
*/ 
*/ 
*/ 

*/ 

*/ 

*/ 

*/ 
*/ 



extern int GnlFloatEqual (float a, float b, int precision); 

extern float GnlMaxFloat (float a, float b) ; 
extern float GnlMinFloat (float a, float b) ; 

extern GNL_STATUS GnlGetHierarchycallnstName (char *InstanceName , 

char **HierarchycalName) ; 

GNL_STATUS GnlComputeSetupHoldTimeFromSeqCompo ( 

GNL_SEQUENTIAL_COMPONENT SeqCompo , 

char *PinInName, 

GNL_TIMING_INFO Timinglnf oOf Pin, 

float *TimeRise, 

float *TimeFall / 

LIBCJJIB Lib, 

int WithRec) ; 

extern GNL_STATUS GnlTiminglnf oCorrespToCurrentPathFromVar (GNL_VAR Var, 

GNL_T I M I NG__ I NFO *TimingInfo, 

unsigned int *Key, 
int *Rank) ; 

extern GNL_STATUS GnlComputeCapaAndFanoutFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
int Tag, 
int Inoutlsln, 
int Varlslnout) ; 

extern GNL_STATUS GnlComputeCapaAndFanoutFromNetwork ( GNL_NETWORK Nw, 

LIBC_LIB Lib) ; 

extern GNL_ASS0C GnlGetAssocFromFormalPortAndHierBlock (GNL_VAR Formal, 

GNL_USER_COMPONENT HierBlock, 
GNLJVAR * Actual) ; 

extern GNL_STATUS GnlComputeArrivalTimeFromVar ( GNL_VAR Var, 

LIBC_LIB Lib, 
int Tag, 
int WithRec, 
int Inoutlsln, 
int Varlslnout) ; 

extern GNL_STATUS GnlComputeArrivalTimeFromNetwork (GNL_NETWORK Nw, 

LIBCJLIB Lib) ; 

extern GNL_STATUS GnlComputeRequiredTimeFromVar (GNL_VAR Var, 
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LIBC_LIB Lib, 

int Tag, 

int WithRec, 

int Inoutlsln, 

int Varlslnout) ; 

extern GNL_STATUS GnlComputeRequiredTimeFromAssoc (GNL_ASSOC Assoc, 

float *TimeRise, 
float *TimeFall, 
LIBC_LIB Lib, 
GNL_VAR Actual , 
int Tag, 
int WithRec) ; 

extern GNL_STATUS GnlComputeRequiredTimeFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib) ; 

extern void GnlGetArrivalTimeRiseAndFallSwitchTimingSence (LIBC_PIN Pinln, 

LIBC_PIN PinOut, 
float DelayR, float DelayF, 
float TimeRiseln, float TimeFallln, 
float *TimeRise, float *TimeFall) ; 

extern GNL_STATUS GnlGetCritPathFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib, 

int MaxPaths , 
double AreaWithoutNet , 

int CellNumber, 

int PrintClkDomain , 

int PrintCritRegion) ; 

extern GNL_ASSOC GnlGetAssocFromFormalPortAndHierBlock (GML_VAR Formal, 

GNL_USER_COMPONENT HierBlock, 
GNL__VAR * Actual) ; 

extern GNL_STATUS TimeGetFormalFromAssocAndActual (GNL_ASSOC Assoc, 

GNL_VAR Actual, GNL_VAR * Formal) ; 

extern GNL_STATUS TimeEstimate (GNL_NETWORK Nw, LIBCJOIB GnlLibc, 

int PrintClkDomain, 
int PrintCritRegion) ; 

extern GNL^STATUS GnlMeetLibConstraints (GNL_NETWORK Nw, 

LIBC_LIB GnlLibc) ; 

extern GNL_STATUS TimeOptByResizing (GNL_NETWORK Nw, 

LIBC_LIB GnlLibc) ; 
/* + / 

/* EOF */ 
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File: timecomp.c 




Version: 1.1 




Modifications: 




Documentation: 




Description : 


*/ 



#include <stdio.h> 

ttifdef MEMORY /* If one wants memory statistics for SUN */ 

#include <malloc.h> 

#endif 

#include "blist.h" 

#include "gnl.h" 

#include "libc_mem.h" 

#include M libc_api .h" 

#include "gnlestim. h" 

#include "time .h" 

#include "bbdd.h" 

#include "gnlmap .h" 

# inc lude " gnlopt ion . h " 

#include "blist.e" 
#include "libutil.e" 
#include "timeutil . e" 
#include " timecomp . e 11 
#include " timepath . e " 
#include " timef an . e " 



#define MAX_CELL_NUMBER 3 0000 
/* 

/* EXTERN 

/* 

extern GNL_ENV G_GnlEnv; 

/* 



/* 

/* Global Variable of Traversal of the Net list 



GNL_USER_COMPONENT G_Cur rent Component ; 

BLIST G_P ileOf Component; 

/* 



/* 

int GnlFloatEqual (float a, float b, int precision) 

float f, puiss = 1.0; 
int i; 

for (i=0 ; i< precision ; i++) 
puiss *= 10; 
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if (a > b) 

f = (a - b) * puiss ; 
else 

f = (b - a) * puiss; 

i = (f < 1) ? 1 : 0; 
return (i) ; 

} 

/* 

float GnlMaxFloat (float a, float b) 
{ 

float Max; 

Max - a; 
if (Max < b) 
Max = b; 

return (Max) ; 

} 

/* 

float GnlMinFloat (float a, float b) 
{ 

float Min; 

Min = a; 
if (Min > b) 
Min - b; 

return (Min) ; 

} 

/* 

/* 

/* GnlGetHierarchycallnstName */ 

/* 

GNL_STATUS GnlGetHierarchycallnstName (char *InstanceName, 

char **HierarchycalName) 

char *Strl, *Str2, *InstName; 
int i ; 

GNL_USER_COMPONENT AuxUserCompo ; 

Inst Name = NULL; 

if (BListSize (G_Pile0f Component ) ) 
{ 

AuxUserCompo = (GNLJUSER_COMPONENT) BListElt (G__PileOf Component , 0) ; 
Str2 = GnlUserComponentlnstName (AuxUserCompo) ; 
if (GnlStrCopy (Str2, &InstName) ) 

return (GNL_MEMORY_FULL) ; 
for (i=l; i < BListSize (G_PileOf Component ) ; i++) 

{ 

Strl = InstName; 

if (GnlStrAppendStrCopy (Strl, GnlEnvFlattenStr ( ) , SdnstName) ) 
return (GNL_MEMORY__FULL) ; 
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free (Strl) ,- 
Strl = InstName; 

AuxUserCompo = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , i) ; 
Str2 = GnlUser Component InstName (AuxUserCompo) ; 
if (GnlStrAppendStrCopy (Strl, Str2, SdnstName) ) 

return ( GNL_MEMORY_FULL ) ; 
free (Strl) ; 

} 

if (InstanceName) 

{ 

Strl = InstName; 

if (GnlStrAppendStrCopy (Strl, GnlEnvFlattenStr ( ) , fclnstName) ) 

return (GNL_MEMORY_FULL) ; 
free (Strl) ; 
Strl = InstName ,- 

if (GnlStrAppendStrCopy (Strl, InstanceName , SdnstName) ) 

return (GNL_MEMORY_FULL) ; 
free (Strl) ; 

} 

} 

else 

if (InstanceName) 

if (GnlStrCopy (InstanceName, &InstName) ) 
return ( GNL__MEMORY__FULL ) ; 
*HierarchycalName = InstName ; 
return (GNL_OK) ; 

} 



/* ic/ 

/* SetGnlCritPathlnstNameFromUserCompo */ 

/* i(/ 

GNL_STATUS SetGnlCritPathlnstNameFromUserCompo ( GNL__CR I T I CAL_PATH CritPath, 

char * InstanceName) 

{ 

char *HierarchycalName; 



if (! CritPath || ! InstanceName) 
return (GNL_OK) ; 

if (GnlGetHierarchycal InstName (InstanceName, &HierarchycalName) ) 
return (GNL_MEMORY_FULL) ; 



SetGnlCritPathlnstName (CritPath, HierarchycalName) ; 
return (GNL_OK) ; 

} 

/* 

/* GnlPrint CritPath */ 

/* ± i 

void GnlPrintCritPath (BLIST ListCritPath, float *ClockFreqValue , 
float *CombPathValue) 

{ 

GNL_CRITICAL_PATH CritPath; 
LIBC_CELL Cell; 
GNL_COMPONENT Compo ; 

GNL_VAR Var, Formal, StartVar, EndVar; 

int i, IsSequential; 

GNL_ASSOC ASSOC; 
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CritPath = { GNL_CR I T I CAL_P ATH ) BListElt (ListCritPath, 

BListSize (ListCritPath) -1) ; 
StartVar = GnlCritPathCriticalVar (CritPath) ; 
CritPath = ( GNL_CR I T I CAL_P ATH ) BListElt (ListCritPath, 0) ; 
EndVar = GnlCritPathCriticalVar (CritPath) ; 

IsSequential = (i StartVar || ! EndVar) ; 

fprintf (stderr, " Point\t\t\t\t\tFanout\tIncr\tPath\n" ) ; 

fprintf (stderr, " 

\n") ; 

for (i= BListSize (ListCritPath) -1; i >= 0; i--) 
{ 

CritPath = ( GNL__CRI T I CAL__PATH ) BListElt (ListCritPath, i) ; 
if ( IGnlCritPathPredecessors (CritPath) || 
! GnlCritPathSuccessors (CritPath) ) 

{ 

Var = GnlCritPathCriticalVar (CritPath) ; 
if (Var) 

{ 

if ( IGnlCritPathPredecessors (CritPath) ) 

{ 

/* the input external delay is depending of constraint timing */ 
/* For the moment it is 0.0 (later we have to do that */ 
fprintf (stderr, " input external delay\t\t\t\tO . 0\t0 . 0 \n") ; 

} 

fprintf (stderr, " %s " , GnlVarName (Var) ) ; 

if ( IGnlCritPathPredecessors (CritPath) ) 

fprintf (stderr, » (in) \n\t\t\t\t\t\t") ; 
else 

fprintf (stderr, » (out ) \n\t\t\t\t\t\t " ) ; 
fprintf (stderr, »% . 2f \t% . 2f " , GnlCritPathlncr (CritPath), 

GnlCritPathArrTime (CritPath) ) ; 
if (GnlCritPathKindOfTime (CritPath) == RISE) 

fprintf (stderr, " Rising\n"); 
else 

fprintf (stderr, " Falling\n"); 

} 

} 

Assoc = GnlCritPathCriticalAssoc (CritPath) ; 
if (Assoc) 

{ 

Compo = GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 
Formal = GnlAssocFormalPort (Assoc) ; 
GnlGetCellFromGnlCompo (Compo, &Cell) ; 
if (Cell) 

{ 

fprintf (stderr, " %s", GnlCritPathlnstName (CritPath)); 
fprintf (stderr, n /%s %s% (char *) Formal, GnlVarName (Var) ) ; 
fprintf (stderr, » (%s) \n\t\t\t\t\t » , LibCellName (Cell) ) ; 
if (IsSequential i==0) 

fprintf (stderr, " \t0 . 00\ t% . 2f " , GnlCritPathArrTime (CritPath)); 
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else 

f print f (stderr, "%d\t% . 2f \t% . 2f " , 

GnlCritPathFanout (CritPath) , 
GnlCritPathlncr (CritPath) , 
GnlCritPathArrTime (CritPath) ) ; 
if (GnlCritPathKindOfTime (CritPath) == RISE) 
fprintf (stderr, ,? Rising\n"); 
else 

fprintf (stderr, " Falling\n" ) ; 

} 

} 

} 

CritPath = ( GNL_CRI T I CAL_P ATH ) BListElt (ListCritPath, 0) ; 
fprintf (stderr, " Data Arrival Time \t\t\t\t\t% . 2f \n ,T , 

GnlCritPathArrTime (CritPath) ) ; 

if (IsSequential) 

{ 

if (GnlCritPathlncr (CritPath) != 0.0) 

fprintf (stderr, " Setup Time \t\t\t\t\t\t% . 2f \n" , 

GnlCritPathlncr (CritPath) ) ; 

if (*ClockFreqValue < 

GnlCritPathlncr (CritPath) + GnlCritPathArrTime (CritPath) ) 
*ClockFreqValue = GnlCritPathlncr (CritPath) + 

GnlCritPathArrTime (CritPath) ; 

} 

else 
{ 

if (*CombPathValue < GnlCritPathArrTime (CritPath)) 
*ComhPathValue = GnlCritPathArrTime (CritPath) ; 

} 

fprintf (stderr, " 

---\n») ; 

fprintf (stderr, " (Path is unconstrained) \n\n n ) ; 



} 

/* */ 

/* GnlGetOnePathFromCritPath */ 

/* */ 

GNL_STATUS GnlPrintNEquivalPathFromOneCritPath ( GNL_CR I T I CAL_P ATH CritPath, 

BLIST ListCritPath, int *NumberOf Paths , 
int IsSequential, 
float *ClockFreqValue , 
float *CombPathValue, 
float MinSlackForSeqPath, 
float MinSlackForCombPath, 
BLIST ListPathClockFreq) 

{ 

GNL_CRITICAL_PATH Predecessor; 
GNL_CR I T I C AL__PATH EndCritPath; 
GNL_VAR Var, StartVar, EndVar; 

int i ; 

float Slack; 



if (ICritPath || ! ListCritPath) 
return (GNL_OK) ; 
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if (NumberOf Paths <= 0) 
return (GNL_OK) ; 

if (BListAddElt (ListCritPath, CritPath) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlCritPathPredecessors (CritPath) ) 

{ 

for (i=0; i < BListSize (GnlCritPathPredecessors (CritPath)); i++) 
{ 

Predecessor = ( GNL_CR I T I CAL_P ATH ) BListElt ( 

GnlCritPathPredecessors (CritPath) , i) ; 

GnlPrintNEquivalPathFromOneCritPath (Predecessor, ListCritPath, 
NumberOf Paths , I sSequent ial , ClockFreqValue , 
CombPathValue, MinSlackForSeqPath, 

MinSlackForCombPath, 

ListPathClockFreq) ; 
BListDelShift (ListCritPath, BListSize (ListCritPath)); 

} 

} 

else 

{ 

if (*NumberOf Paths > 0) 
{ 

EndCritPath - ( GNL_CR I T I CAL_P ATH ) BListElt (ListCritPath, 0) ; 
Slack = GnlCritPathReqTime(EndCritPath) - 
GnlCritPathArrTime (EndCritPath) ; 

StartVar = GnlCritPathCriticalVar (CritPath) ; 
EndVar = GnlCritPathCriticalVar (EndCritPath) ; 
if ( ! IsSequential) 

{ 

if (StartVar GnlFloatEqual (MinSlackForCombPath, Slack, 4)) 

{ 

GnlPrintCritPath (ListCritPath, ClockFreqValue, CombPathValue) ; 
( *NumberOf Paths ) - - ; 

} 

else 
{ 

if (GnlFloatEqual (MinSlackForSeqPath, Slack, 4)) 

if (BListAddElt (ListPathClockFreq, BListElt (ListCritPath, 0) ) ) 
return ( GNL_MEMOR Y_FULL ) ; 

} 

return (GNL__0K) ; 

} 

else 

{ 

if (IStartVar || !EndVar) 
{ 

GnlPrintCritPath (ListCritPath, ClockFreqValue, CombPathValue); 
(*NumberOf Paths) 

} 

} 

} 

} 

return (GNL_OK) ; 
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/* 

/* 

/* GnlComparePathToCurrentPath 
/* 

int GnlComparePathToCurrentPath (GNL_PATH_COMPONENT Path, 

BLIST CurrentPath) 

{ 

int i; 
GNL__PATH_COMPONENT Previous ; 
GNL__USER__COMPONENT Compo I ; 

if (!Path) 
return (0) ; 

Compol = GnlPathComponentComponent (Path) ; 
Previous = GnlPathComponentPrevious (Path) / 
for (i= BListSize (CurrentPath) -1; i >=0; i--) 
{ 

if (Compol 1= (GNL_USER_COMPONENT) BListElt (CurrentPath, i)) 

return (0) ; 
if (Previous (i == 0) ) 

return (0) ; 
if (! Previous && (i > 0)) 

return (0) ; 
if (Previous) 

{ 

Compol = GnlPathComponentComponent (Previous) ; 
Previous = GnlPathComponentPrevious (Previous) ; 

} 

} 

return (1) ; 

} 

/* 

/* TiminglnfoCorrespToCurrentPathFromVar () 

/* 

GNL_STATUS GnlTiminglnf oCorrespToCurrentPathFromVar ( 

GNL_VAR Var, 
GNL_TIMING_INFO *TimingInf o , 
unsigned int *Key, 
int *Rank) 

{ 

GNL_ STATUS GnlStatus ; 

BLIST ListTiminglnfO; ListPaths; 

GNL CurrentGnl ; 

GNL_USER_COMPOMENT CurrentComponent ; 

char * Inst anceName ; 

BLIST SubList, SubListForTiming; 



*Rank = 0; 

if (BListSize (G_PileOf Component ) ) 

{ 

/* we take the last element of the pile */ 
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/* e.g the current instance. */ 
CurrentComponent = (GNL_USER_COMPONENT) BListElt {G__PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 
CurrentGnl = GnlUserComponentGnlDef (CurrentComponent) ; 

/* we access the hash list. */ 
ListPaths = GnlListPathComponent (CurrentGnl) ; 
InstanceName = GnlUserComponentlnstName (CurrentComponent) ; 
*Key = KeyOfName (InstanceName, BListSize (ListPaths)); 
SubList = (BLIST) BListElt (ListPaths, *Key) ; 

*Rank = BListMemberOf List (SubList, G_PileOf Component , 

GnlComparePathToCurrentPath) / 

ListTiminglnf o = (BLIST) GnlVarTraversallnf oHook (Var) ; 
if (! ListTiminglnf o) 

{ 

if (BListCreateWithSize (BListSize (ListPaths), &ListTimingInf o) ) 

return (GNL_MEMORY_FULL) ; 
BSize (ListTiminglnfo) = BListSize (ListPaths) ; 
SetGnlVarTraversallnfoHook (Var, (void*) ListTiminglnfo) ; 

Q if (BListCreateWithSize (BListSize (SubList) , ^SubListForTiming) ) 

return ( GNL_MEMORY_FULL ) ; 
Ct BSize (SubListForTiming) = BListSize (SubList) ; 

5 ™ BListElt (ListTiminglnfo, *Key) = (int) SubListForTiming; 

*TimingInfo = (GNLJTIMING_INFO) NULL; 

yj else 

□ { 

~p SubListForTiming - (BLIST) BListElt (ListTiminglnfo, *Key) ; 

s if (l SubListForTiming) 

^= if (BListCreateWithSize (BListSize (SubList), ^SubListForTiming) ) 

LJt return (GNL_MEMORY_FULL) ; 

BSize (SubListForTiming) = BListSize (SubList) ; 

5f BListElt (ListTiminglnfo, *Key) = (int) SubListForTiming; 

p *TimingInfo = (GNL_TIMING_INFO) BListElt (SubListForTiming, *Rank-l) ; 

} 

} 

else 

*TimingInfo = <GNL_TIMING_INFO) GnlVarTraversallnf oHook (Var) ; 
return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeCapaAndFanoutFromSeqCell */ 

/* */ 

/* Doc procedure GnlComputeCapaAndFanoutFromSeqCell : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)". 

- it does not include the wire capacitance. 

- the GNL__ASSOC is a connector of a Sequential component. 

*/ 
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/* 

GNL_STATUS GnlComputeCapaAndFanoutFromSeqCell (GNL_ASSOC 

float *Capa, 



Assoc , 



int 

LIBC LIB Lib) 



*Fanout , 



LIBC_CELL 
LIBC_PIN 
GNL_ASSOC 
char 

LIB C__KF ATOR 
float 



Cell; 
Pinln; 
Assoc I ; 

* Forma 1 ; 

KF; 

AuxCapa ; 



GNL SEQUENTIAL COMPONENT 



SeqCompo; 



SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(ASSOC) ; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 
Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (I (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL OK) ; 



AuxCapa = LibPinCapa (Pinln) ; 
if (AuxCapa == 0.0) 

AuxCapa = LibDefault Input PinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap (KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
(*Fanout) ++; 
return (GNL OK) ; 



} 

/* 

/* GnlComputeCapaAndFanoutFrom3State 
/* 



*/ 



*/ 



Doc procedure GnlComputeCapaAndFanoutFrom3 State : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc) " . 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a 3state component. 



/ 

GNL_STATUS GnlComputeCapaAndFanoutFrom3 State (GNL_ASS0C 



Assoc , 



Capa, 



float 
int 

LIBC LIB Lib) 



* Fanout , 



LIBC_CELL 
LIBC_PIN 
GNL_ASS0C 
char 

LIBC KFATOR 



Cell; 
Pinln; 
Assoc I ; 

* Forma 1 ; 

KF; 
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float AuxCapa; 

GNL__TR I S TATE_COMPONENT TriStateCompo ; 

TriStateCompo = 

( GNL_ TRI S TATE_COMPONENT ) GnlAssocTraversallnf oComponent (Assoc) ; 
Cell = GnlTriStateCompoInf oCell (TriStateCompo) ; 
Formal = (char *) GnlAssoc Formal Port (Assoc) ; 

if ('(Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL__OK) ; 

AuxCapa - LibPinCapa (Pinln) ,- 
if (AuxCapa == 0.0) 

AuxCapa = LibDef aultlnputPinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa; LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap (KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
( *Fanout) ++; 
return (GNL_OK) ; 

} 

/* */ 

GNL_STATUS TimeGet Formal FromAssocAndActual (GNL_ASSOC Assoc, GNL_VAR Actual, 

GNL__VAR * Formal) 

{ 

GNL_VAR AuxActual, AuxFormal, IndexFormalVar , SplitActualJ; 

GNL_USER_COMPONENT UserCompo ; 

GNL GnlDefCompo; 

char * IndexFormalName ; 

int i, j, Index, Lef tFormlndex, Right Formlndex; 

BLIST ListSplitActuals ; 

GNL_STATUS GnlStatus ; 

* Formal = (GNL_VAR) NULL; 

UserCompo = (GNL__USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
GnlDefCompo = GnlUserComponentGnlDef (UserCompo) ; 

AuxActual = GnlAssocActualPort (Assoc) ; 
AuxFormal = GnlAssocFormalPort (Assoc) ; 

if (GnlVarlsVar (AuxActual)) 

{ 

*Formal = AuxFormal; 
return (GNL_OK) ; 

} 

else 

{ 

ListSplitActuals = GnlNodeSons ( (GNLJSTODE) AuxActual) ; 
Lef t Formlndex = GnlVarMsb (AuxFormal) ; 
Right Formlndex = GnlVarLsb (AuxFormal) ; 

if (Lef t Formlndex < RightFormlndex) 
Index = LeftFormlndex-l; 
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else 

Index = Lef tFormlndex+l ; 
for (j=0; j<BListSize (ListSplitActuals) ; j++) 

{ 

if (Lef tFormlndex < RightFormlndex) 

Index++; 
else 

Index-- ; 

SplitActualJ = (GNL_VAR) BListElt (ListSplitActuals, j); 
if (SplitActualJ == Actual) 

{ 

if (GnlVarlndexName (AuxFormal , Index, &IndexFormalName) ) 
return ( GNL_MEMOR Y__F ULL ) ; 

if ( (GnlStatus = GnlGetVarFromName (GnlDef Compo, 

IndexFormalName, & Index Formal Var) ) ) 

{ 

free (IndexFormalName) ; 
if (GnlStatus == GNL_VAR_NOT_EXISTS) 
{ 

fprintf (stderr, " ERROR : cannot find var\n"); 
return (GNL_VAR_N0TJ3XISTS) ; 

} 

return (GNL_MEMORY_FULL) ; 

} 

* Formal = IndexFormalVar; 

return (GNL_OK) ; 

} 

} 

} 

return (GNL_OK) ; 

} 



/* */ 

/* */ 

/* GnlComputeCapaAndFanoutFromUser Compo */ 

/* */ 



/* Doc procedure Gnl Compute Cap aAndFanoutFromUser Compo : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc)". 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a UserComponent 

*/ 

/* */ 

GNL_STATUS GnlComputeCapaAndFanoutFromUserCompo (GNL_ASSOC Assoc, 

float *Capa, 

int *Fanout, 

LIBC_LIB Lib, 

GNL_VAR Actual, 

int Tag) 

{ 

GNL_VAR Var , Formal , Var I , AuxFormal ; 

GNL__USER_COMPONENT Us er Compo ; 
GNL_TIMING_INFO Timinglnfo; 
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LIBC_CELL 

LIBC_PIN 

GNL_STATUS 

LIB C_KFATOR 

float 

int 

GNL_ASSOC 
BLIST 

unsigned int 
int 



Cell; 
Pin; 

GnlStatus; 

KF; 

AuxCapa ; 
Rank , i ; 
Assoc I ; 

Interface; 

Key; 
AuxVa r I s I nou t ; 



UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
Formal = GnlAssocFormalPort (Assoc) ; 

if {GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

if ( ! (Pin = LibGetPinFromNameAndCell (Cell, (char *) Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pin) — OUTPUT_E) 
return (GNL_OK) ; 

AuxCapa = LibPinCapa (Pin) ; 
if (AuxCapa == 0.0) 

AuxCapa = LibDef aultlnputPinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap(KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Capa += AuxCapa; 
(*Fanout ) ++; 
return (GNL__OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

} 

return (GNL_0K) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlStatus = TimeGet Formal FromAssocAndActual (Assoc, Actual, 
&AuxFormal) ) 

return (GnlStatus) ; 
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AuxVarlsInout = {GnlVarDir (Actual) == GNL_VAR_INOUT) ; 

if (GnlComputeCapaAndFanoutFromVar (AuxFormal, Lib, Tag, 1, 
AuxVarlsInout) ) 

return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal , 

&TimingInfo, &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

*Capa + = GnlTiminglnf oCapa (Timinglnfo) ; 
*Fanout +- GnlTiminglnf oFanout (Timinglnfo) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeCapaAndFanoutFromAssoc */ 

/* */ 



/* Doc procedure Gnl Compute Cap aAndFanoutFromAssoc : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the output capacitance "Capa" and the fanout "Fanout" of 
the net "GnlAssocActualPort (Assoc) " . 

- it does not include the wire capacitance. 

- the GNL_ASSOC is a connector of a (user component "hierrachycal block or 
generic cell", Sequential component "Flops or Latches", TriStates) . 



*/ 

/* */ 

GNL_STATUS GnlComputeCapaAndFanoutFromAssoc (GNL__ASSOC Assoc, 

float *Capa, 



int *Fanout, 
LIBC_LIB Lib, 
GNL_VAR Actual, 
int Tag) 

GNL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch {Gnl Component Type (GnlCompo) ) { 

case GNL_S EQUENT I AL_COMPO : 

if (GnlStatus = GnlComputeCapaAndFanoutFromSeqCell (Assoc, Capa, 

Fanout, Lib) ) 

return (GnlStatus) ; 
break; 

case GML_USER_COMPO : 

if (GnlComputeCapaAndFanoutFromUserCompo (Assoc, Capa, Fanout, 

Lib, Actual, Tag)) 

return ( GNL_MEMORY_FULL ) ; 
break; 
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case GNL_TRISTATE_COMPO: 

if (GnlStatus = GnlComputeCapaAndFanoutFrom3 State (Assoc, 

Capa, Fanout, Lib)} 

return (GnlStatus) ; 
break; 

Case GNL_MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break ; 

} 

return <GNL_OK) ; 

} 

/* 

/* GnlGetVarFromFormalPortAndHierBlock */ 

/*---- -- - 

GNL_ASSOC GnlGetAssocFromFormalPortAndHierBlock (GNL_VAR Formal, 

GNL_ I7SER_C0MP0NENT HierBlock, 

GNL_VAR * Actual) 

{ 

BLIST Interface , ListSplitActuals ; 

GNL^VAR AuxFormal, AuxActual, Split Actual J, IndexFormalVar; 

int i, j, Lef tFormlndex, Right Formlndex, Index; 

GNL_ASSOC AssocI; 

char * IndexFormalName ; 

GNL_STATUS GnlStatus ; 

*Actual = (GNL_VAR) NULL; 
if {[Formal || ! HierBlock) 
return ( (GNL_ASSOC) NULL) ; 

if ( IGnlUserComponentGnlDef (HierBlock) ) 
return ( (GNL_ASSOC) NULL) ; 

Interface = GnlUserCoraponent Interface (HierBlock) ; 
for (i=0; i < BListSize (Interface) ; i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
AuxFormal = GnlAssocFormalPort (AssocI) ; 
AuxActual = GnlAssocActualPort (AssocI) ; 
if (Formal ~ AuxFormal) 

{ 

* Actual = AuxActual ; 
if ( IGnlVarlsVar (AuxActual)) 

return ( (GNL_ASSOC) NULL) ; 
return (AssocI) ; 

} 

if ( !GnlVarIsVar (AuxActual)) 
{ 

Lef tFormlndex = GnlVarMsb (AuxFormal) ; 
Right Formlndex = GnlVarLsb (AuxFormal) ; 

if (Lef tFormlndex < Right Formlndex) 
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Index = Lef tFormlndex-l; 
else 

Index = Lef tFormlndex+l ; 

ListSplitActuals = GnlNodeSons ( (GNL_NODE) AuxActual) ; 
for (j~0; j < BListSize (ListSplitActuals) ; j++) 

{ 

if (Lef tFormlndex < Right Formlndex) 

Index++; 
else 

Index — ; 

SplitActualJ = (GNL_VAR) BListElt (ListSplitActuals, j); 
GnlVarlndexName (AuxFormal, Index, &IndexFormalName) ; 
if { (GnlStatus 
=GnlGetVarFromName (GnlUserComponentGnlDef (HierBlock) , 

IndexFormalName, &IndexFormalVar) ) ) 

{ 

if (GnlStatus == GNL_VAR_NOT_EXISTS) 
{ 

free (IndexFormalName) ; 
continue; 

} 

return ( (GNL_ASSOC) NULL) ; 

} 

free (IndexFormalName) ; 

if (Formal =- IndexFormalVar) 

{ 

* Actual = SplitActualJ; 
return (Assoc I) ; 

} 

} 

} 

} 

return ( (GNL_ASSOC) NULL) ; 

} 

/* 

/* GnlComputeCapaAndFanoutFromVar */ 
/* 

/* Doc procedure GnlComputeCapaAndFanoutFromVar : 

- For a given GNL_VAR (Var) : 

- Compute the output capacitance and the fanout of 
the net "Var". 

- it does not include the wire capacitance. 

*/ 

/* 

GNL__STATUS GnlComputeCapaAndFanoutFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
int Tag, 
int Inoutlsln, 
int Varlslnout) 

{ 

GNL_VAR AuxVar, Actual; 

GNL_ASSOC AuxAs socVar ; 

int i, Fanout, Rank; 

GNL STATUS GnlStatus; 
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BLIST AssocDests , Lef tVarAssigneds , ListTiminglnf o , 

SubList ; 

GNL_TIMING_INFO Timinglnfo, AuxTiminglnf o; 
GNL_USER_COMPONENT InstOf Gnl ; 

float Capa; 
unsigned int Key; 

int AuxVarlsInout ; 



if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (Timinglnf o) 

{ 

if ( (GnlVarDir (Var) == GNL_VAR_INOUT | | Varlslnout) && Inoutlsln) 
{ 

AuxTiminglnf o ~ GnlTiminglnf oHook (Timinglnfo) ; 
if ( ! AuxTiminglnf o) 

{ 

if (GnlCreateTiminglnf o (^AuxTiminglnf o) ) 

return ( GNL_MEMORY__FULL ) ; 
SetGnlTiminglnf oHook (Timinglnfo, AuxTiminglnf o) ; 

} 

else 

return (GNL_OK) ; 
Timinglnfo = GnlTiminglnf oHook (Timinglnfo) ; 

} 

} 

else 

{ 

if (GnlCreateTiminglnf o (&TimingInf o) ) 
return ( GNL_MEMORY_FULL ) ; 

if (!BListSize ( G_PileOf Component ) ) 

SetGnlVarTraversallnf oHook (Var, (void*) Timinglnfo) ; 
else 

{ 

ListTiminglnf o = (BLIST) GnlVarTraversallnf oHook (Var) ; 
SubList = (BLIST) BListElt (ListTiminglnf o, Key) ; 

BListElt (SubList, Rank-1) = (int) Timinglnfo; 

} 

if ( (GnlVarDir (Var) == GNL_VAE_INOUT | | Varlslnout) && Inoutlsln) 
{ 

if (GnlCreateTiminglnf o (^AuxTiminglnf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlTiminglnf oHook (Timinglnfo, AuxTiminglnf o) ; 
Timinglnfo = GnlTiminglnf oHook (Timinglnfo) ; 

} 

} 

if (GnlTiminglnf oTag (Timinglnfo) == Tag) 

return (GNLJDK) ; 
SetGnlTiminglnf oTag (Timinglnfo, Tag) ; 
Capa = 0.0; 
Fanout = 0; 
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if (GnlVarDir (Var) == GNL_VAR_OUTPUT | | 

{GnlVarDir (Var) « GNL_VAR_ I NOUT Ilnoutlsln) ) 

{ 

if (IBListSize (G_PileOf Component ) ) 

{ 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) « GNL__VAR_OUTPUT | | 

(GnlVarDir (Var) GNL_VAR_INOUT Ilnoutlsln)) */ 

{ 

SetGnlTiminglnf oCapa (Timing Info, Capa) ; 
SetGnlTiminglnf oFanout (Timinglnf o, 1) ; 
return (GNLJDK) ; 

} 

} 

else 

{ 

InstOfGnl = (GNLJJSER__COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

SActual) ; 

if (! AuxAssocVar) 
{ 

if (BListAddElt (GJPileOf Component, InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlComputeCapaAndFanoutFromVar (Actual, Lib, Tag, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Actual , ScAuxTiminglnf o, 

&Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 

Capa += GnlTiminglnf oCapa (AuxTiminglnf o) ; 
Fanout += GnlTiminglnfoFanout (AuxTiminglnf o) ; 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

if (GnlGetDestinationsOfVar (Var, &AssocDests, &Lef tVarAssigneds ) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (Lef tVarAssigneds) ; i++) 
{ 

AuxVar = (GNL_VAR) BListElt (Lef tVarAssigneds , i) ; 
if (GnlComputeCapaAndFanoutFromVar (AuxVar, Lib, Tag, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxVar, ScAuxTiminglnf o, 
&Key, 

&Rank) ) 

return (GNL_MEMORY_FULL) ; 
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Capa += GnlTiminglnf oCapa {AuxTiminglnf o) ; 
Fanout += GnlTiminglnf oFanout (AuxTiminglnf o) ; 

} 

BListQuickDelete (&Lef tVarAssigneds) ; 

for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocDests, i) ; 

if ( (GnlStatus = GnlComputeCapaAndFanoutFromAssoc (AuxAssocVar, &Capa, 

&Fanout, Lib, Var, Tag))) 

return (GnlStatus) ; 

} 

BListQuickDelete (SAssocDests) ; 

SetGnlTiminglnf oCapa (Timinglnf o, Capa) ; 
SetGnlTiminglnf oFanout (Timinglnf o, Fanout) ; 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeCapaAndFanoutFromGnl */ 

/* */ 

/* Doc procedure GnlComputeCapaAndFanoutFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the output capacitance and the fanout on each 
GNL_VAR . 

*/ 

/* */ 

GNL_STATUS GnlComputeCapaAndFanoutFromGnl (GNL Gnl, 

LIBC_LIB Lib, 

int Tag) 

{ 

GNL_VAR Var; 

int i , j , J; 

GNL_STATUS GnlStatus ; 

GNL Gn 1 Compo I ; 

GNL_ COMPONENT Component I ; 

BLIST Components, Bucketl; 

Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSi2e (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) 1= GNL_USER_COMPO) 
continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

{ 

/* if (Stringldentical (GnlName (GnlCompol), "cat^registe^block-rtl" ) ) 
J-j;*/ 

if (BListAddElt (G__PileOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return <GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlComputeCapaAndFanoutFromGnl (GnlCompol, Lib, Tag)) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
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} 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 
for (j=0; j < BListSize (Bucketl); j++) 

{ 

Var = (GNL_VAR) BListElt (Bucketl, j ) ; 
if (!Var || GnlVarlsVss (Var) || GnlVarlsVdd (Var)) 
continue; 

/* if (Stringldentical (GnlVarName (Var), "$M23") 

| | Stringldentical (GnlVarName (Var) , 
n u_cat__register_block . reset_wdt " ) ) 
J=j;*/ 



if (GnlComputeCapaAndFanoutFromVar (Var, Lib, Tag, 1, 0)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Var) == GNL_VAR_INOUT) 

if (GnlComputeCapaAndFanoutFromVar (Var, Lib, Tag, 0, 0)) 

return <GNL_MEMORY_FULL) ; 

} 

} 

return (GNL__OK) ; 

} 

/* 

/ * GnlComputeCapaAndFanoutFromNetwork 

/* 

/* Doc procedure GnlComputeCapaAndFanoutFromNetwork : 
- For a given Network ( GNL_NETWORK ) : 

- Hierarchicaly compute the output capacitance and the fanout on e 
GNL_VAR . 

/* 

GNL_STATUS GnlComputeCapaAndFanoutFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib) 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 
int Tag; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw) +1) ; 
Tag = GnlNetworkTag (Nw) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate ( &G_PileOf Component ) ) 
return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlComputeCapaAndFanoutFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL OK) ; 
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} 

y. */ 

void GnlGetArrivalTimeRiseAndFallSwitchTimingSence (LIBC_PIN Pinln, LIBC_PIN 
PinOut , 

float DelayR, float DelayF, 

float TimeRiseln, float TimeFallln, 

float *TimeRise, float *TimeFall) 

{ 

LIBC TIMING Timing; 



*TimeRise = *TimeFall = 0.0; 
if (! DelayR && ! DelayF) 
return ; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 
if (! Timing) 
return; 

switch (LibTimingSense (Timing) ) 

{ 

case POSITIVE_UNATE_E: 

*TimeRise = DelayR + TimeRiseln; 
*TimeFall = DelayF + TimeFallln; 
break; 

case NEGATIVE_OTATE_E : 

*TimeRise = DelayR + TimeFallln; 
*TimeFall = DelayF + TimeRiseln; 
break; 



case NON_UNATE_E: 

*TimeRise = DelayR + TimeRiseln; 
if (TimeRiseln < TimeFallln) 

*TimeRise = DelayR + TimeFallln; 

*TimeFall = DelayF + TimeFallln; 
if (TimeFallln < TimeRiseln) 

*TimeFall = DelayF + TimeRiseln; 
break; 



} 

/* */ 

/* GnlComputeArrivalTimeAtOutputOfCombCell */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeAtOutputOf CombCell : 

- For a given a GNL_USER_COMPONENT (UserCompo) generic cell and 
GNL_ASSOC (AssocOutput) (output GNL_ASSOC of UserCompo) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 

*' 

/* */ 

GNL_STATUS GnlComputeArrivalTimeAtOutputOf CombCell (GNL_USER_COMPONENT 
UserCompo, 

GNL ASSOC AssocOutput, 
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float *MaxTimeRise, 
float *MaxTimeFall, 
float *MaxOutTransRise, 
float *MaxOutTransFall, 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 

{ 

LIBC_CELL Cell; 

LIBC__PIN PinOut, Pinln; 

int i, Fanout , Rank; 

GNL_ASSOC AssocI; 

char * Formal; 

GNL_VAR Var, Varl; 

GNL_TIMING__INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, Time, MaxTime ; 
float Length, WireCapa, WireResistance, OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



Cell = (LIBC__CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (AssocOutput) ; 

Formal = (char *) GnlAssocFormalPort (AssocOutput) ; 

if ( l (PinOut = LibGetPinFromNameAndCell (Cell, Formal})) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNLJDK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVar (Varl)) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (I (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (Pinln) != INPUT_E) 
continue; 

if ( ! LibGetArcTiming (Pinln, PinOut)) 
continue ; 
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if (WithRec) 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return (GNL_MEMORY_FULL) ; 

if ( GnlTiminglnf oCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , ScRank) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING_INFO) Gnl Timing I nfoHook (TimingI) ; 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 

Fanout, Cell, Pinln, PinOut, 

&De 1 ayR , &Out Tr an sR , 

&DelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MaxTime = *MaxTimeRise; 

if (MaxTime < *MaxTimeFall) 

MaxTime = *MaxTimeFall ; 
Time = TimeRise; 
if (Time < TimeFall) 

Time = Time Fall, - 

if (MaxTime < Time) 

{ 

*MaxTimeRise = TimeRise; 
*MaxTimeFall = TimeFall; 
*MaxOutTransRise = OutTransR; 
*MaxOutTransFall = OutTransF; 

} 
} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFrom3State */ 

* */ 

/* Doc procedure GnlComputeArrivalTimeFrom3 State : 
- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc) n . 

*/ 

/* */ 

GNL_STATUS GnlComputeArrivalTimeFrom3State (GNL_ASSOC Assoc, 

float *MaxTimeRise, 
float *MaxTimeFall, 
float *MaxOutTransRise, 
float *MaxOutTransFall, 
LIBCJLIB Lib, 
int Tag, 



/ 
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int WithRec) 

{ 

LIBC_CELL Cell; 

LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AssocI; 

char * Formal; 

GNL_VAR Var, Varl; 

GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, MaxTime, Time; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_TRISTATE_COMPONENT TriSt ateCompo ; 

GNLJ3TATUS GnlStatus ; 

unsigned int Key; 



TriStateCompo = (GNL_TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent 
(ASSOC) ; 

Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = {char *) GnlAssocFormalPort (Assoc) ; 

if ( i (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if ({GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriStateCompo) ; 
for (i=0; i < BListSize (Interface) ; i++) 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (lAssocI) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 

if (!VarI) 
continue; 

if (GnlVarlsVar (Varl)) 

if (GnlVarlsVdd (Varl) | | GnlVarlsVss (Varl) ) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue ; 
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Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection(Pinln) != INPUT_E) 
continue; 

if ( !LibGetArcTiming (Pinln, PinOut) ) 

continue; 
if (WithRec) 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return ( GNL__MEMORY_FULL ) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(Varl , ScTimingI , &Key , &Rank) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT ) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , &OutTransR , 
SDelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnfoArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 



MaxTime = *MaxTimeRise; 

if (MaxTime < *MaxTimeFall) 

MaxTime = *MaxTimeFall ; 
Time = TimeRise; 
if (Time < TimeFall) 

Time - TimeFall; 



if (MaxTime < Time) 

{ 

*MaxTimeRise = TimeRise; 
*MaxTimeFall = TimeFall; 
*MaxOutTransRise - OutTransR; 
*MaxOutTransFall = OutTransF; 

} 
} 

return (GNL_0K) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromSeqCell */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromSeqCell : 
- For a given GNL_ASSOC (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 
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/* 

GNL_STATUS GnlComputeArrivalTimeFromSeqCell (GNL_ASSOC 

float *MaxTimeRise, 
float *MaxTimeFall, 
float *MaxOutTransRise / 
float *MaxOutTransFall, 
LIBCJL.IB Lib, 
int Tag, 
int WithRec) 



Assoc, 



LIBC_CELL 

LIBC_PIN 

int 

GNL_ASSOC 
char 
GNL VAR 



Cell; 

PinOut, Pinln; 
i, Fanout , Rank; 
Assoc I ; 

* Formal; 
Var, Varl; 



GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance, OutCapa; 

BLIST Interface; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



SeqCompo = ( GNL_S EQUENT I AL_COMPONENT ) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (i(PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlSequentialCompoInterf ace (SeqCompo) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( ! AssocI) 
continue ; 

Varl = GnlAssocActualPort (AssocI) ; 
if (IVarl) 
continue ; 
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if (GnlVarlsVar (Varl) ) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
continue ; 



Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (Pinln) 1= INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 
continue; 

if (GnlComputeArrivalTimeFromVar (Varl, Lib, Tag, WithRec, 1, 0)) 
return { GNL_MEM0R Y_FULL ) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(Varl, fcTimingl, &Key, &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
SDelayR, &OutTransR, 
&DelayF, &OutTransF) ; 



if (*MaxOutTransRise < OutTransR) 
*MaxOutTransRise = OutTransR ; 

if (*MaxOutTransFall < OutTransF) 
*MaxOutTransFall = OutTransF; 



GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 



if (*MaxTimeRise < TimeRise) 

*MaxTimeRise = TimeRise; 
if (*MaxTimeFall < TimeFall) 

*MaxTimeFall = TimeFall; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromUserCompo */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromUserCompo : 
- For a given GNL_ASS0C (Assoc) : 

- Compute the arrival time (falling and rising) 

- Compute the transition (falling and rising) 

on the net "GnlAssocActualPort (Assoc)"; this net is connected to 
hierarchycal block or combinational cell 
*/ 

/* */ 

GNL STATUS Gnl Compute Arrival Time FromUserCompo (GNL_ASSOC Assoc, 

float *TimeRise, 
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float *TimeFall, 

float *TransRise, 

float *TransFall, 

LIBCJLIB Lib, 

GNL_VAR Actual, 
int Tag, 
int WithRec) 



GNL_VAR Formal , AuxFormal ; 

GNL_USER_COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 
unsigned int Key; 



UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL__CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = GnlComputeArrivalTimeAtOutputOf CombCell (UserCompo, 

Assoc , TimeRise , 
TimeFall , TransRise , 
TransFall, Lib, 
Tag, WithRec)) 

return (GnlStatus) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

f print f (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

} 

return (GNL_OK) ; 

} 

/* If the actual net is a VDD or a VSS then no timing to compute */ 
if (GnlVarlsVar (Actual)) 

if (GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)) 
{ 

*TimeRise = 0.0; 
*TimeFall = 0.0; 
*TransRise = 0.0; 
*TransFall = 0.0; 
return (GNL_0K) ; 

} 

if (BListAddElt (G_PileOf Component, UserCompo) ) 
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return ( GNL_MEMOR Y_FULL) ; 

if (GnlStatus = TimeGetFormalFromAssocAndActual (Assoc, Actual, 

ScAuxFormal) ) 

return (GnlStatus) ; 
if (GnlComputeArrivalTimeFromVar (AuxFormal, Lib, Tag, WithRec, 0, 0); 
return ( GNL_MEMORY_FULL ) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (AuxFormal, &TimingInfo, 
&Key, 

&Rank) ) 

return (GNL_MEMORY_FULL) ; 
BListDelShif t (G_PileOf Component , BListSize (G_JPileOf Component) ) ; 

*TimeRise = GnlTiminglnf oArrivalRise (Timinglnfo) ; 
*TimeFall = GnlTiminglnf oArrivalFall (Timinglnfo) ; 
*TransRise = GnlTiminglnf oTransitionRise (Timinglnfo) ; 
*TransFall - GnlTiminglnf oTransitionFall (Timinglnfo) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromAssoc */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromAssoc : 

- For a given GNL_ASSOC (Assoc) : 

- For a given GNL_ASSOC (Assoc) : 

~ Compute the arrival time (falling and rising) 
- Compute the transition (falling and rising) 
on the net "GnlAssocActualPort (Assoc) " . 

*/ 

/* */ 

GNL_STATUS GnlComputeArrivalTimeFromAssoc (GNL_ASSOC Assoc, 

float *TimeRise, 

float *TimeFall, 

float *TransRise, 

float *TransFall, 

LIBC_LIB Lib, 

GNL_VAR Actual, 

int Tag, 

int WithRec) 

{ 

GNL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_S EQUENT I AL_COM PO : 

*TimeRise = *TimeFall = *TransRise = *TransFall = 0.0; 
break; 

if (GnlStatus = GnlComputeArrivalTimeFromSeqCell (Assoc, 

TimeRise, 

TimeFall, TransRise, TransFall, Lib, Tag, WithRec) 
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return (GnlStatus) ; 
break; 



case GNL_USER_COMPO : 

if (GnlStatus = GnlComputeArrivalTimeFromUserCompo (Assoc, 

TimeRi se , TimeFal 1 , 
TransRise, TransFall, Lib, 
Actual, Tag, WithRec) ) 

return (GnlStatus) ; 
break; 



case GNL_TRISTATE_COMPO: 

if (GnlStatus = GnlComputeArrivalTimeFrom3State (Assoc, 

TimeRise , TimeFall , 
TransRise, TransFall, Lib, Tag, 
WithRec) ) 

return (GnlStatus) ; 
break; 



case GNL _MACRO_COMPO : 
break; 



default : 

GnlError (12 /* Unknown component */) ; 

} 



return (GNL_OK) ; 

} 

/* 

/ * GnlComputeSetupHoldTimeFromSeqCompo 

/* 

GNL_STATUS GnlComputeSetupHoldTimeFromSeqCompo ( 

GNL SEQUENT I AL_COMPONENT SeqCompo, 



char 

GNL_TIMING_INFO 

float 

float 

LIBC_LIB 

int 



*PinInName, 

Timinglnf oOf Pin, 
*TimeRise, 
*TimeFall, 
Lib, 

WithRec) 



LIBC_CELL Cell; 

LIBC_PIN PinClock, Pinln; 

int Fanout, Rank; 

GNL_ASSOC AssocClock; 

GNL_VAR VarClock; 

char *ClockName; 

GNL_TIMING_INFO TimingClock; 

float InTransRise, InTransFall, OutTransR, OutTransF; 

float Length, WireCapa, OutCapa; 

BLIST Interface; 
GNL__STATUS GnlStatus ; 

unsigned int Key; 



*TimeRise = 0.0; 
*TimeFall = 0.0; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 
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if (!(PinIn = LibGetPinFromNameAndCell (Cell, PinlnName) ) ) 

return (GNL_OK) ; 
AssocClock = GnlSequentialCompoClockAssoc (SeqCompo) ; 
ClockName = (char *) GnlAssocFormalPort (AssocClock) ; 
VarClock = GnlAssocActualPort (AssocClock) ; 
if (GnlVarlsVar (VarClock) ) 
if (GnlVarlsVdd (VarClock) | | GnlVarlsVss (VarClock) ) 
return (GNL_OK) ; 

if ( I (PinClock = LibGetPinFromNameAndCell (Cell, ClockName))) 
return (GNL_OK) ; 

if (GnlComputeArrivalTimeFromVar (VarClock, Lib, 0, WithRec, 1, 0)) 

return (GNL_MEMORY_FULL) ; 
if (GnlTiminglnf oCorrespToCurrentPathFromVar (VarClock, 

ScTimingClock, &Key, &Rank) ) 

return (GNL_MEMORY__FULL) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingClock) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingClock) ; 

Fanout = GnlTiminglnf oFanout (TiminglnfoOf Pin) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 

OutCapa = WireCapa + GnlTiminglnf oCapa (TiminglnfoOf Pin) ; 

LibDelayArcCellRiseSetup (InTransRise, InTransFall, OutCapa, Cell, Pinln, 

PinClock, TimeRise) ; 
LibDelayArcCellFallSetup (InTransRise, InTransFall, OutCapa, Cell, Pinln, 

PinClock, TimeFall) ; 



return (GNL_OK) ; 

} 

/* 

/* GnlComputeSetupHoldTimeFromVar */ 

/* 

GNL_STATUS GnlComputeSetupHoldTimeFromVar (GNL_VAR Var, 

GNL_TIMING_INFO TiminglnfoOf Var , 

LIBC_LIB Lib, 

float *MaxSetupTimeR, 

float *MaxSetupTimeF) 

{ 

GNL_ASSOC Assod; 
GNL_STATUS GnlStatUS ; 

BLIST AssocDests, Lef tVarAssigneds ; 

GNL_COMPONENT Gnl Compo ; 

GNL_S EQUENT I AL_COMPONENT SeqCompo ; 

int i; 

float MaxTimeR, MaxTimeF, TimeRise, TimeFall; 

char * Formal; 



if (GnlGetDestinationsOfVar (Var, &AssocDests, &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) / 



BListQuickDelete (&Lef tVarAssigneds) ; 
*MaxSetupTimeR = *MaxSetupTimeF = 0.0; 



E-HUBBLE-227 



timecomp2.c 



for (i=0; i < BListSize (AssocDests) ; i++) 
{ 

Assocl = (GNL_ASSOC) BListElt (AssocDests, i) ; 
GnlCompo - GnlAssocTraversallnf oCoraponent (Assocl) ; 
if (GnlComponentType (GnlCompo) != GNLJ3EQUENTIAL__C0MP0) 
continue; 

SeqCompo = (GNL_SEQUENTIAL_C0MPONENT) GnlCompo; 
Formal = (char *) GnlAssocFormalPort (Assocl); 

if (GnlStatus = GnlComputeSetupHoldTimeFromSeqCompo (SeqCompo, Formal, 
TiminglnfoOfVar, &TimeRise, &TimeFall, Lib, 0)) 
return (GnlStatus) ; 
if (*MaxSetupTimeR < TimeRise) 

*MaxSetupTimeR = TimeRise ; 
if (*MaxSetupTimeF < TimeFall) 
*MaxSetupTimeF = TimeFall; 

} 

BListQuickDelete (&AssocDests) ; 



return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromVar */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromVar : 
- For a given GNLJVAR (Var) : 

- Compute the arrival time (falling and rising) of 
the net "Var" . 

*/ 

/* */ 

GNLJSTATUS GnlComputeArrivalTimeFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 

int Tag, 

int WithRec, 

int Inoutlsln, 

int Varlslnout) 

{ 

GNL_VAR AuxVar, Actual; 

GNL_AS SOC AuxAs soc Var ; 

int i, Fanout, Rank; 

GNL_STATUS GnlStatus ; 

BLIST AssocSources , RightVarAssigneds ; 

GNL_TIMING__INFO Timinglnf o , AuxTiminglnf o ; 
GNL_US ER_C0MP0NENT InstOf Gnl ; 

float TimeRise, TimeFall, TransRise, TransFall, MaxTime, 

Time ; 

float MaxTimeRise , MaxTimeFall, MaxTransRise, MaxTransFall ; 

float MaxSetupTimeR, MaxSetupTimeF; 

unsigned int Key; 
int AuxVarlsInout ; 



if (GnlVarlsVar (Var) ) 

if (GnlVarlsVdd (Var) | | GnlVarlsVss (Var) ) 
return (GNL_0K) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 
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&TimingInf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlVarDir (Var) — GNL_VAR_ I NOUT || Varlslnout) && Inoutlsln) 
Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook (Timinglnfo) ; 

if ( GnlTiminglnf oTag (Timinglnfo) == Tag) 

return (GNL_OK) ; 
SetGnlTiminglnfoTag (Timinglnfo, Tag) ; 

TimeRise = TimeFall = MaxTimeRise = MaxTimeFall = 0.0; 
TransRise = TransFall - MaxTransRise = MaxTransFall = 0.0; 

if (GnlVarDir (Var) == GNL_VAR_ I N PUT | | 

(GnlVarDir (Var) == GNL_VAR_INOUT Inoutlsln) ) 

{ 

if ( ! BListSize (G_PileOf Component ) ) 

{ 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) == GNL_VAR_ I NPUT | | 

(GnlVarDir (Var) == GNL_VAR__INOUT && Inoutlsln) ) */ 

{ 

SetGnlTiminglnfoArrivalRise (Timinglnfo, MaxTimeRise) ; 
SetGnlTiminglnf oArrivalFall (Timinglnfo, MaxTimeFall) ; 
SetGnlTiminglnf oTransitionRise (Timinglnfo, MaxTransRise) ; 
SetGnlTiminglnfoTransitionFall (Timinglnfo, MaxTransFall) ; 

return (GNL_0K) ; 

} 

} 

else 
{ 

InstOfGnl = (GNL_USER__COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

&Actual) ; 

if (! AuxAssocVar) 
{ 

if (BListAddElt (GJPileOf Component, InstOfGnl)) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL__0K) ; 

} 

if ( ! (GnlVarlsVar (Actual) 

(GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)))) 

{ 

AuxVarlsInout = (GnlVarDir (Var) == GNL_VAR_ I NOUT ) ; 
if (GnlComputeArrivalTimeFromVar (Actual, Lib, Tag, 

WithRec, 1, AuxVarlsInout) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(Actual , &AuxTimingInf o, 

&Key, &Rank) ) 

return (GNL_MEMORY__FULL) ; 
if (GnlVarDir (Actual) GNL VAR INOUT) 
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Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook 
(AuxTiminglnf o) ; 

MaxTimeRise = GnlTiminglnf oArrivalRise {AuxTiminglnf o) ; 
MaxTimeFall = GnlTiminglnf oArrivalFall (AuxTiminglnf o) ; 
MaxTransRise = GnlTiminglnf oTransitionRise (AuxTiminglnf o) ; 
MaxTransFall = GnlTiminglnf oTransitionFall (AuxTiminglnf o) ; 

} 

if (BListAddElt (G_PileOf Component , InstOfGnl) ) 
return (GNL__MEMORY_FULL) ; 

} 

} 

if (GnlGetSourcesOfVar (Var, ^AssocSources , &RightVarAssigneds) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i < BListSize ( Right VarAssigneds) ; i++) 

{ 

AuxVar = (GNL_VAR) BListElt (RightVarAssigneds , i) ; 

if (GnlVarlsVar (AuxVar) ) 

if (GnlVarlsVdd (AuxVar) | | GnlVarlsVss (AuxVar) ) 
continue; 
if (GnlVarlsVar (AuxVar) ) 

if (GnlVarlsVdd (AuxVar) || GnlVarlsVss (AuxVar)) 
continue; 

if (GnlComputeArrivalTimeFromVar (AuxVar, Lib, Tag,WithRec, 1, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (AuxVar, ^AuxTiminglnf o 

&Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 

MaxTime = MaxTimeRise; 

if (MaxTime < MaxTimeFall) 

MaxTime = MaxTimeFall ; 
Time = GnlTiminglnf oArrivalRise (AuxTiminglnf o) ; 
if (Time < GnlTiminglnf oArrivalFall (AuxTiminglnf o) ) 
Time = GnlTiminglnfoArrivalFall (AuxTiminglnf o) ; 

if (MaxTime < Time) 

{ 

MaxTimeRise = GnlTiminglnf oArrivalRise (AuxTiminglnf o) ; 
MaxTimeFall = GnlTiminglnfoArrivalFall (AuxTiminglnf o) ; 
MaxTransRise = GnlTiminglnf oTransitionRise (AuxTiminglnf o) ; 
MaxTransFall = GnlTiminglnf oTransitionFall (AuxTiminglnf o) ; 

} 

} 

BListQuickDelete (&RightVarAssigneds) ; 

for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASS0C) BListElt (AssocSources, i) ; 
TimeRise - TimeFall = 0.0; 
TransRise = TransFall = 0.0; 

if ( (GnlStatus = GnlComputeArrivalTimeFromAssoc (AuxAssocVar, ScTimeRise, 

&TimeFall , &TransRise , 
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&TransFall, Lib, Var, 
Tag, WithRec))) 

return (GnlStatus) ; 

MaxTime = MaxTimeRise ; 

if (MaxTime < MaxTimeFall) 

MaxTime = MaxTimeFall; 
Time = TimeRise; 
if (Time < TimeFall) 

Time = TimeFall; 

if (MaxTime < Time) 

{ 

MaxTimeRise = TimeRise; 
MaxTimeFall = TimeFall; 
MaxTransRise = TransRise; 
MaxTransFall = TransFall; 

} 

} 

BListQuickDelete (&AssocSources) ; 

SetGnlTiminglnf oArrivalRise (Timinglnfo, MaxTimeRise) ; 
SetGnlTiminglnfoArrivalFall (Timinglnfo, MaxTimeFall) ; 
SetGnlTiminglnfoTransitionRise (Timinglnfo, MaxTransRise) ; 
SetGnlTiminglnf oTransitionFall (Timinglnfo, MaxTransFall) ; 

/* *MaxSetupTimeR = *MaxSetupTimeF = 0.0; 
GnlComput eSe tupHoldTimeFromVar (Var , Timinglnf o , Lib , 

&MaxSetupTimeR, &MaxSetupTimeF) ; 
SetGnlTiminglnf oArrivalRise (Timinglnf o, 

GnlTiminglnf oArrivalRise (Timinglnfo) + MaxSetupTimeR) 
SetGnlTiminglnfoArrivalFall (Timinglnfo, 

GnlTiminglnf oArrivalFall (Timinglnfo) + MaxSetupTimeF) 

if (MaxSetupTimeR | | MaxSetupTimeF) 

if (GnlStatus = GnlUpdateArrTimeOfRightVarAssigneds (Var) ) 
return (GnlStatus) ;*/ 



return (GNL_0K) ; 

} 

/* 

/* TimePutAssocSourceOfVarOnRight */ 

/* 

static void TimePutAssocSourceOfVarOnRight (GNL_VAR Var) 
{ 

int i, j, el; 

GNL_ASS0C AssocI; 

BLIST AssocSources , RightVarAssigneds , ListAssoc; 

GnlGetSourcesOfVar (Var, ScAssocSources , &RightVarAssigneds) ; 
ListAssoc = GnlVarTraversallnf oListAssoc (Var) ; 
for (i=0; i < BListSize (AssocSources); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (AssocSources, i) ; 

j =^ BListMemberOfList (ListAssoc, AssocI, Intldentical) ; 
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el = BListElt (ListAssoc, BListSize (ListAssoc) -1) ; 

BListElt (ListAssoc, BListSize (ListAssoc) -1) = BListElt (ListAssoc, j - 

1) ; 

BListElt (ListAssoc, j -1) = el; 

} 

BListQuickDelete (&AssocSources) ; 
BListQuickDelete (&RightVarAssigneds) ; 

) ;--/ 

/* GnlComputeArrivalTimeFromGnl */ 

*/ 

/* Doc procedure GnlComputeArrivalTimeFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the arrival time (falling and rising) on each 
net GNL_VAR. 

/* */ 

GNL_STATUS GnlComputeArrivalTimeFromGnl (GNL Gnl, 

LIBC_LIB Lib, 
int Tag) 

{ 

GNL_VAR Var; 

int i , j ; 

GNL_STATUS GnlStatUS ; 

GNL GnlCompol ; 

GNL_COMPONENT Component I ; 

BLIST Components, Bucketl; 



Components = GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components) ; i++) 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
continue ; 

GnlCompol = Gn lUser Component Gnl Def ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

if (BListAddElt (G_PileOf Component, (GNL_USER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlComputeArrivalTimeFromGnl (GnlCompol, Lib, Tag)) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 

} 



for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 
{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl) , i) ; 
for (j=0; j < BListSize (Bucketl); j++) 
{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 

if (IVar) 
continue; 



if (GnlVarlsVar (Var) ) 
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if (GnlVarlsVdd (Var) | | GnlVarlsVss (Var) ) 
continue ; 

TimePutAssocSourceOfVarOnRight (Var) ; 

if (GnlComputeArrivalTimeFromVar (Var, Lib, Tag, 1, 0, 0)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeArrivalTimeFromNetwork */ 

/* */ 

/* Doc procedure GnlComputeArrivalTimeFromNetwork : 
- For a given Network (GNL_NETWORK) : 

- Hierarchicaly compute the arrival time (falling and rising) on each 
net GNL_VAR . 

/* */ 

GNL STATUS GnlComputeArrivalTimeFromNetwork { GNL_NETWORK Nw, 

LIBC_LIB Lib) 

{ 

GNL TopGnl; 
GNL_STATUS GnlStatUS ; 
int ' Tag ; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
Tag = GnlNetworkTag (Nw) ; 
TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component) ) 
return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlComputeArrivalTimeFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL_OK) ; 

} 

/* */ 

/* 



/* */ 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (LIBC_PIN Pinln, LIBC_PIN 

PinOut , 

float DelayR, float DelayF, 

float TimeRiseOut, float TimeFallOut, 
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float *TimeRise, float *TimeFall) 

{ 

LIBC_TIMING Timing ; 

*TimeRise = *TimeFall = MAX_FLOAT; 
if (!DelayR IDelayF) 
return; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 

if (.'Timing) 
return ; 

switch (LibTimingSense (Timing) ) 
{ 

case POSITlVE_UNATE_E: 

*TimeRise = TimeRiseOut - DelayR; 
*TimeFall = TimeFallOut - DelayF; 
break; 

case NEGATIVE_UNATE_E : 

*TimeFall = TimeRiseOut - DelayR; 
*TimeRise = TimeFallOut - DelayF; 
break; 

case NON_UNATE_E: 

*TimeRise = TimeRiseOut - DelayR; 
if (*TimeRise > TimeFallOut - DelayF) 
*TimeRise = TimeFallOut - DelayF; 

*TimeFall = TimeFallOut - DelayF; 

if (*TimeFall > TimeRiseOut - DelayR) 

*TimeFall = TimeRiseOut - DelayR; 
break; 

} 

} 

/* 

/* GnlComputeRequiredTimeAtOutputOf CombCell */ 

/* 

/* Doc procedure Gn IComputeRe qui redTimeAtOutputOf CombCell : 

- For a given a GNL_USER__COMPONENT (UserCompo) generic cell and 
GNL_ASSOC (AssocOutput) (output GNL_ASSOC of UserCompo) : 
- Compute the required time (falling and rising) 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeAtOutputOf CombCell ( 

GNL_USER_COMPONENT UserCompo, 
GNL_ASSOC Assoc Input, 
float *MinTimeRise, 
float *MinTimeFall, 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 

{ 

LIBC CELL Cell; 
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LIBC_PIN PinOut, Pinln ; 

int i, Fanout, Rank; 

GNL__ASSOC AssocI; 
char * Formal; 

GNL_VAR Var, Varl; 

GNL__TIMING_INFO TimingI ; 

float InTransRise, inTransFall , OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, MinTime, Time; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo); 

Var = GnlAssocActualPort (Assoclnput) ; 

Formal = (char *) GnlAssocFormalPort (Assoclnput); 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return <GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 
InTransRise = GnlTiminglnf oTrans it ionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASSOC)BIjistElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (PinOut) ! = OUTPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 

continue; 
if (WithRec) 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf OCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return (GNL__MEMORY_FULL) ; 

Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (GJtfireLoad, Length, 
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Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCeli ( InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , StOutTransR , 
&DelayF, &OutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnf oRequiredRise (TimingI) , 
GnlTiminglnf oRequiredFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MinTime = *MinTimeRise; 

if (MinTime > *MinTimeFall) 

MinTime = *MinTimeFall ; 
Time = TimeRise ; 
if (Time > TimeFall) 

Time = TimeFall; 

if (MinTime > Time) 

{ 

*MinTimeRise = TimeRise ; 
*MinTimeFall = TimeFall; 

} 
} 

return (GNL_OK) ; 



/* 

/* GnlComputeRequiredTimeFromUserCompo 

/* 

/* Doc procedure GnlComputeRequiredTimeFromUserCompo : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

- This GNL_ASSOC is connected to a user component. 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFromUserCompo (GNL_ASSOC Assoc, 

float *TimeRise, 
float *TimeFall, 
LIBC_LIB Lib, 
GNL_VAR Ac t ua 1 , 
int Tag, 
int WithRec) 

{ 

GNL_VAR Var, Formal, AuxFormal; 

GNL_USER__COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 
unsigned int Key; 
int AuxVar Is Inout ; 
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UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) GNL_FORMAL_CHAR) 
{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

if (GnlStatus = GnlComputeRequiredTimeAtOutputOf CombCell (UserCompo, 

Assoc, TimeRise, 
TimeFall, Lib, Tag, WithRec) ) 

return (GnlStatus) ; 
return (GNL__OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

f print f (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

} 

return (GNL_OK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return (GNL_MEMORY_FULL) ; 

if (GnlStatus = TimeGet Forma lFromAssocAndActual (Assoc, Actual, 
SAuxFormal) ) 

return (GnlStatus) ; 

AuxVarlsInout = (GnlVarDir (Actual) == GNL_VAR_INOUT ) ; 
if (GnlComputeRequiredTimeFromVar (AuxFormal, Lib, Tag, WithRec, 1, 
AuxVarlsInout) ) 

return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (AuxFormal) -= GNL_VAR_INOUT) 

Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook (Timinglnfo) ; 
BListDelShift (G_PileOf Component , BListSize ( G_PileOf Component) ) ; 

*TimeRise = GnlTiminglnf oRequiredRise (Timinglnfo) ; 
*TimeFall = GnlTiminglnf oRequiredFall (Timinglnfo) ; 



return (GNL_OK) ,- 

/* */ 

/* GnlComputeRequiredTimeFromSeqCell */ 

/* */ 

/* Doc procedure GnlComputeRequiredTimeFromSeqCell : 
- For a given GNL_ASSOC (Assoc) : 
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- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 
- This GNL_ASSOC is connected to a sequential component. 

*/ 

/* 

GNL_STATUS GnlComputeRequiredTimeFromSeqCell (GNL_ASSOC Assoc, 

float *MinTimeRise , 
float *MinTimeFall , 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 

{ 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AssocI; 
char * Forma 1; 

GNL_VAR Var, Varl; 

GNL_TIMING_INFO TimingI ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, Time, MinTime; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if ( l (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 

InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlSequentialCompoInterf ace (SeqCompo) ; 
for (i=0; i < BListSize (Interface); i++) 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( lAssocI) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (IVarl) 
continue ; 

if (GnlVarlsVss (Varl) | | GnlVarlsVdd (Varl) ) 
continue ; 
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Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (l(PinOut = LibGetPinFrornNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection(PinOut) != OUTPUT_E) 
continue ; 

if ( ! LibGetArcTiming (Pinln, PinOut) ) 
continue; 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0)) 
return (GNL__MEMORY_FULL) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar {Varl, 

&Timing I , &Key , ScRank ) ) ) 
return (GnlStatus) ; 

Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G__WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , &OutTransR , 
&DelayF, &OutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oRequiredRise (TimingI) , 
GnlTiminglnf oRequiredFall (TimingI) , 
&TimeRise, &TimeFall) ; 



MinTime = *MinTimeRise; 

if (MinTime > *MinTimeFall) 

MinTime = *MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 



if (MinTime > Time) 
{ 

*MinTimeRise = TimeRise; 
*MinTimeFall = TimeFall; 

} 
} 

return (GNL_0K) ; 

} 



/ 



*/ 

/* GnlComputeRequiredTimeFrom3State */ 
/* */ 

/* Doc procedure GnlComputeRequiredTimeFrom3 State : 

- For a given GNL_ASSOC (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

- This GNL_ASSOC is connected to a tristate component. 

* / 

/ */ 
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GNL STATUS GnlComputeRequiredTimeFrom3 State (GNL_ASSOC Assoc, 
" float *MinTimeRise, 

float *MinTimeFall , 
LIBC_LIB Lib, 
int Tag, 
int WithRec) 

{ 

GNL_TRISTATE_COMPONENT TriState ; 

LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank; 

GNL_ASSOC AssocI; 
char * Formal; 

GNL__VAR Var , Var I ; 

GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall, MinTime, Time; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

unsigned int Key; 



TriState = (GNL_TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent (As 
Cell = GnlTriStateCompoInfoCell (TriState) ; 
Var = GnlAssocActualPort (Assoc) ; 
Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT^E ) 

return (GNL_OK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

ScTimingI, &Key, ScRank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR_INOUT) 

TimingI = (GNL_TIMING__INFO) GnlTiminglnf oHook (TimingI) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriState) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (!AssocI) 
continue ; 

Varl = GnlAssocActualPort (AssocI) ; 
if (ivarl) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (PinOut) 1- OUTPUT_E) 
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continue; 

if ( 1 LibGetArcTiming (Pinln, PinOut) ) 

continue; 
if (WithRec) 

if (GnlComputeRequiredTimeFromVar (Varl, Lib, Tag, WithRec, 0, 0)) 
return <GNL_MEMORY_FULL) ; 

if ( GnlTiminglnf oCorrespToCurrentPathFromVar 
(Varl, &TimingI, &Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 

Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G__WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell (InTransRise , InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , &OutTransR , 
&DelayF, &OutTransF) ; 

GnlGetRequiredTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oRequiredRise (TimingI) , 
GnlTiminglnf oRequiredFall (TimingI) , 
ScTimeRi se , ScTimeFal 1 ) ; 



MinTime = *MinTimeRise ; 

if (MinTime > *MinTimeFall) 

MinTime = *MinTimeFall ; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 



if (MinTime > Time) 

{ 

*MinTimeRise = TimeRise; 
*MinTimeFall - TimeFall; 

} 
} 

return (GNLjOK) ; 

} 

/* */ 

/* GnlComputeRequiredTimeFromAssoc */ 

/* */ 

/* Doc procedure GnlComputeRequiredTimeFromAssoc : 
- For a given GNL_ASS0C (Assoc) : 

- Compute the required time (falling and rising) 
on the net "GnlAssocActualPort (Assoc)". 

*/ 

/* */ 

GNLJSTATUS GnlComputeRequiredTimeFromAssoc (GNL_ASSOC Assoc, 

float *TimeRise, 

float *TimeFall, 

LIBC LIB Lib, 
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GNL_VAR Actual, 
int Tag, 
int WithRec) 

{ 

GNL_S TATUS Gn 1 S t a t u s ; 

GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 

*TimeRise = *TimeFall = 0.0; 
break; 

if (GnlStatus = GnlComputeRequiredTimeFromSeqCell (Assoc, 

TimeRise, 

TimeFall, Lib, Tag, WithRec)) 

return (GnlStatus) ; 
break; 

case GNL_USER_COMPO : 

if (GnlStatus = GnlComputeRequiredTimeFromUserCompo (Assoc, 

TimeRise, TimeFall, Lib, 
Actual, Tag, WithRec)) 

return (GnlStatus) ; 
break ; 

case GNL_TR I S TATE__COMPO : 

if (GnlStatus = GnlCoTnputeRequiredTimeFrom3State (Assoc, 

TimeRise, TimeFall, Lib, 
Tag, WithRec) ) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break ; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL OK) ; 



/* TimeSortListByRequiredTime */ 

/ : ;--;-*/ 

static void TimeSortListByRequiredTime (BLIST List, BLIST ListRequireTime) 

{ 

int i , k , IndexMin , el ; 

float Min; 

k = 0; 

while (k < BListSize (ListRequireTime) ) 

{ 

Man = MAX_FLOAT; 
IndexMin = k; 
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for (i = k; i < BListSize (ListRequireTime) ; i++) 

if (*{ (float *) BListElt (ListRequireTime, i) ) < Min) 

{ 

IndexMin = i; 

Min = *( (float *) BListElt (ListRequireTime, i) ) ; 

} 

} 

el = BListElt (ListRequireTime, IndexMin) ; 

BListElt (ListRequireTime, IndexMin) = BListElt (ListRequireTime, k) ; 
BListElt (ListRequireTime, k) = el; 

el = BListElt (List, IndexMin) ; 

BListElt (List, IndexMin) = BListElt (List, k) ; 

BListElt (List, k) = el; 

k-f + ; 

} 



} 



/* */ 

/* GnlComputeRequiredTimeFromVar */ 

,* */ 

/* Doc procedure GnlComputeRequiredTimeFromVar : 
- For a given GNL_VAR (Var) : 

- Compute the required time (falling and rising) of 
the net "Var" . 

/* */ 

GNL_STATUS GnlComputeRequiredTimeFromVar (GNL_VAR Var, 

LIBCJjIB Lib, 

int Tag, 

int WithRec, 

int Inoutlsln, 

int Varlslnout) 

{ 

GNL_VAR AuxVar , Actual ; 

GNL_ASSOC AuxAssocVar ; 

int i, Fanout, Rank, Elt; 

GNL_STATUS GnlStatus ; 

BLIST AssocDests , Lef tVarAssigneds , 

ListAssoc, ListRequireTime; 
GNL_TIMING_INFO Timinglnfo, AuxTiminglnf o ; 
GNL_USER_COMPONENT InstOf Gnl ; 

float TimeRise, TimeFall, Time, MinTime, *Real; 

float MinTimeRise, MinTimeFall; 

float MaxSetupTimeR, MaxSetupTimeF; 

unsigned int Key; 
int AuxVar I s Inout ; 



if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlVarDir (Var) == GNL_VAR_INOUT | | Varlslnout) Inoutlsln) 
Timinglnfo = ( GNL_TIMING_INFO ) GnlTiminglnf oHook (Timinglnfo) ; 
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if (GnlTiminglnf oTag (Timinglnf o) == Tag) 

return (GNL_OK) ; 
SetGnlTiminglnfoTag (Timinglnf o, Tag) ; 

TimeRise = TimeFall = MinTimeRise = MinTimeFall = 0.0; 

if ( (GnlVarDir (Var) == GNL_VAR_OUTPUT) | | 

(GnlVarDir (Var) == GNL_VAR_INOUT && Ilnoutlsln) ) 

{ 

if ( IBListSize (G_PileOf Component ) ) 

/* Take the constraint from user (for later) */ 
/*if (GnlVarDir (Var) == GNL_VAR_OUTPUT | | 

(GnlVarDir (Var) == GNL_VAR_INOUT ilnoutlsln))*/ 

SetGnlTiminglnfoRequiredRise (Timinglnfo, MinTimeRise) ; 
SetGnlTiminglnfoRequiredFall (Timinglnfo, MinTimeFall) ; 
return (GNLJDK) ; 

} 

} 

else 
{ 

InstOfGnl = ( GNL_USER_COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

^Actual) ; 

if ( I AuxAssocVar) 
{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_0K) ; 

if (GnlComputeRequiredTimeFromVar (Actual, Lib, Tag, WithRec, 0, 0)) 

return (GNL_MEMORY_FULL) ; 
if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Actual, 

SAuxTiminglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

TimeRise = GnlTiminglnf oRequiredRise (AuxTiminglnf o) ; 
TimeFall = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 
if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return (GNL_MEMORY_FULL) ; 

MinTime = MinTimeRise; 

if (MinTime > MinTimeFall) 

MinTime = MinTimeFall; 
Time = TimeRise; 
if (Time > TimeFall) 

Time = TimeFall; 

if (MinTime > Time) 

{ 

MinTimeRise = TimeRise; 
MinTimeFall = TimeFall; 

} 

} 
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} 

if (GnlGetDestinationsOfVar (Var, ScAssocDests , &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

ListAssoc = GnlVarTraversallnfoListLef tAssign (Var) ; 

if (BListCreateWithSize (BListSize {Lef tVarAssigneds) , &ListRequireTime) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i < BListSize {Lef tVarAssigneds) ; i++) 

{ 

AuxVar = (GNL_VAR) BListElt {Lef tVarAssigneds , i) ; 

if (GnlComputeRequiredTimeFromVar (AuxVar, Lib, Tag, WithRec, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar {AuxVar, 

ScAuxTiminglnf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 

MinTime = MinTimeRise; 

if (MinTime > MinTimeFall) 

MinTime = MinTimeFall; 
Time = GnlTiminglnf oRequiredRise (AuxTiminglnf o) ; 
if (Time > GnlTiminglnf oRequiredFall (AuxTiminglnf o) ) 

Time = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 

Real = (float *) calloc (1, sizeof (float)); 
(*Real) = Time; 

if (BListAddElt (ListRequireTime, (int) Real)) 
return ( GNL_MEMORY_FULL) ; 

if (MinTime > Time) 

MinTimeRise = GnlTiminglnf oRequiredRise (AuxTiminglnf o) ; 
MinTimeFall = GnlTiminglnf oRequiredFall (AuxTiminglnf o) ; 

} 

} 

/* Tri of ListAssoc by required time */ 

TimeSortListByRequiredTime (ListAssoc, ListRequireTime) ; 
BListDelete (^ListRequireTime, BListElemFree) ; 
BListQuickDelete ( &Lef tVarAssigneds) ; 
ListAssoc = GnlVarTraversallnfoListAssoc (Var) ; 

if (BListCreateWithSize (BListSize (AssocDests) , ^ListRequireTime) ) 

return (GNL_MEMORY_FULL) ; 
for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocDests, i) ; 
TimeRise = TimeFall = 0.0; 

if (GnlComputeRequiredTimeFromAssoc (AuxAssocVar, &TimeRise, 

&TimeFall, Lib, Var, Tag, WithRec)) 

return ( GNL_MEMORY_FULL ) ; 

MinTime = MinTimeRise ,- 

if (MinTime > MinTimeFall) 

MinTime = MinTimeFall; 
Time = TimeRise; 
if (Time > TimeFall) 

Time - TimeFall; 
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Real = (float *) calloc (1, sizeof (float)); 
(*Real) = Time; 

if (BListAddElt (ListRequireTime , (int) Real)) 
return ( GNL_MEMORY_FULL ) ; 

if (MinTime > Time) 

{ 

MinTimeRise = TimeRise; 
MinTimeFall = TimeFall; 

} 

} 

/* Tri of ListAssoc by required time */ 

TimeSortListByRequiredTime {ListAssoc, ListRequireTime) ; 
BListDelete (^ListRequireTime , BListElemFree) ; 
BListQuickDelete (ScAssocDests) ; 

SetGnlTiminglnf oRequiredRise (Timinglnfo, MinTimeRise) ; 
SetGnlTiminglnf oRequiredFall (Timinglnfo, MinTimeFall) ; 

/* *MaxSetupTimeR = *MaxSetupTimeF = 0.0; 
GnlComputeSetupHoldTimeFromVar (Var, Timinglnfo, Lib, 

&MaxSetupTimeR, &MaxSetupTimeF) ; 
SetGnlTiminglnf oRequiredRise (Timinglnfo, 

GnlTiminglnf oRequiredRise (Timinglnfo) - MaxSetupTimeR) ; 
SetGnlTiminglnf oRequiredFall (Timinglnfo , 

GnlTiminglnf oRequiredFall (Timinglnfo) - MaxSetupTimeF) ; 

*/ 

return (GNL_OK) ; 

} 



/* */ 

/* GnlComputeRequiredTimeFromGnl */ 

/* */ 

/* Doc procedure GnlComputeRequiredTimeFromGnl : 
- For a given GNL (Gnl) : 

- Hierarchicaly compute the required time (falling and rising) on eac 
net GNL_VAR. 

*/ 

/* */ 

GNL_S TATUS GnlComputeRequiredTimeFromGnl (GNL Gnl, 

LIBC_LIB Lib, 

int Tag) 

{ 

GNL_VAR Var; 

int i , j ; 

GNL_S TATUS Gnl S t atus ; 

GNL GnlCompol; 

GNL__C0MP0NENT Component I ; 

BLIST Components, Bucket I ; 

Components = Gnl Components (Gnl) ; 

for (i=0; i<BListSize (Components) ; i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO) 
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continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) Component I) ; 
if (GnlCompol) 

^ if (BListAddElt <G_PileOf Component , (GNLJJSER_COMPONENT) ComponentI) ) 
return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = GnlComputeRequiredTimeFromGnl (GnlCompol, Lib, Tag)) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize (GJPileOf Component ) ) ; 

} 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 

Bucket I = (BLIST) BListElt (GnlHashNames (Gnl) , i) ; 
for (j=0; j < BListSize (Bucketl) ; j++) 
{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 
if (IVar || GnlVarlsVss (Var) || GnlVarlsVdd (Var)) 
continue; 

if (GnlComputeRequiredTimeFromVar (Var, Lib,Tag, 1, 1, 0)) 
return (GNL_MEMORY_FULL) ; 

} 



return (GNL_OK) ; 

} 

/* */ 

/* GnlComputeRequiredTimeFromNetwork */ 

/* */ 

/* Doc procedure GnlComputeRequiredTimeFromNetwork : 
- For a given Network (GNL_NETWORK) : 

- Hierarchicaly compute the required time (falling and rising) on each 
net GNL_VAR. 

/* */ 

GNL STATUS GnlComputeRequiredTimeFromNetwork (GNLJSTETWORK Nw, 
~ LIBC_LIB Lib) 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 
int Tag; 

SetGnlNetworkTag (Nw, GnlNetworkTag (Nw)+1); 
Tag = GnlNetworkTag (Nw) ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component) ) 
return (GNLJVIEMORY_FULL) ; 

if ((GnlStatus =GnlComputeRequiredTimeFromGnl (TopGnl, Lib, Tag))) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component) ; 
return (GNL_0K) ; 
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*/ 

GnlGetSensFromArcTimingAndlnputArrivalTime (LIBC_PIN Pinln, LIBCJPIN PinOut, 

float TimeRiseln, float TimeFallln, 
int *SensRise, int *SensFall) 



LIBCJTIMING Timing ; 

Timing = LibGetArcTiming (Pinln, PinOut) ; 

switch (LibTimingSense (Timing) ) 

{ 

case POSITIVE_UNATE_E: 
*SensRise = RISE; 
*SensFall = FALL; 
break; 



case NEGATIVE_UNATEJE : 
*SensRise = FALL; 
*SensFall = RISE; 
break; 



case NON_UNATE_E: 

*SensRise = RISE; 
if (TimeRiseln < TimeFallln) 
*SensRise = FALL; 



*SensFall = FALL; 

if (TimeFallln < TimeRiseln) 

*SensFall = RISE; 
break; 



extern GNL_STATUS GnlGetCritPathFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
GNL_CR I T I C AL_P ATH *CritPath, 
GNL_CR I T I C AL_P ATH CritSuccessorPath, 
int KindOfTime, 

int *IsCombPath, int *IsSeqPath, int Start, 
int Varlslnout) ; 

/* 

*/ 

/* GnlGetCritPathAtOutputOfCombCell */ 

/* */ 

GNL_STATUS GnlGetCritPathAtOutputOf CombCell (GNL_USER_COMPONENT UserCompo, 

GNL_ASSOC Assoc, 

LIBC_LIB Lib, 

GNL_CR I T I C AL_P ATH *CritPath, 

GNL_CR I T I C AL__P ATH CritSuccessorPath, 

int *IsCombPath, int *IsSeqPath) 

{ 

LIBC_CELL Cell; 

LIBC PIN PinOut, Pinln; 



E-HUBBLE-248 



timecomp2x 



int i, Fanout, Rank, SensRise, SensFall; 

GNL__ASSOC AssocI; 

char * Formal; 

GNL_VAR Var, Varl; 

GNL_TIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance, OutCapa ; 

float SlackRise, SlackFall, MinSlack; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

int KindOf Time ; 

GNL_CRITICAL_PATH CritPredecessorPath ; 

unsigned int Key,- 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ,- 

if ( ' (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if { (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlUser Component Interface (UserCompo) ; 
MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL__ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (Pinln) 1= INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 
continue; 

if ((GnlStatus = GnlTiminglnf OCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) == GNL_VAR_INOUT) 

TimingI = ( GNL_T I MING__INFO ) GnlTiminglnf oHook (TimingI); 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
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InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR, &OutTransR, 
ScDelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

if ( IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath) , TimeRise, 

4) 

&& IGnlFloatEgual (GnlCritPathArrTime (CritSuccessorPath), TimeFall, 

4)) 

continue; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 
SetGnlCritPathFanout (*CritPath, Fanout) ; 
SetGnlCritPathArrTime ( *Cri tPath, 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime ( *CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCritPathKindOfTime (*CritPath, 

GnlCritPathKindOf Time (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlUserComponentlnstName (UserCompo) ) ; 
GnlGetSensFromArcTimingAndlnputArrivalTime (Pinln, PinOut, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&SensRise, ScSensFall) ; 
if (GnlCritPathKindOfTime (CritSuccessorPath) == RISE) 
{ 

SetGnlCritPathlncr (*CritPath, DelayR) ; 
KindOfTime = SensRise; 

} 

else 

{ 

SetGnlCritPathlncr (*CritPath, DelayF) ; 
KindOfTime = SensFall; 

} 

if (GnlGetCritPathFromVar (Varl, Lib, &CritPredecessorPath, 

*CritPath, KindOfTime, 

IsCombPath, IsSeqPath, 1, 0)) 
return (GNL_MEMORY_FULL) ; 
GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

return (GNL_0K) ; 

} 

/* */ 
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/* GnlGetCritPathFromUserCompo 

/* 

GNL_STATUS GnlGetCritPathFromUserCompo (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CR I T I C AL_P ATH *CritPath, 
GNL_CR I T I C AL_PATH CritSuccessorPath , 
int KindOfTime, 
int *IsCombPath / int *IsSeqPath) 

{ 

GNL_VAR Var, Formal ; 

GNL_USER_COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNLJSTATUS GnlStatus ; 

int Rank; 

GNL_CRITICAL_PATH CritPredecessorPath; 

float SlackRise, SlackFall, MinSlack; 

unsigned int Key; 



UserCompo - (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR) 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = GnlGetCritPathAtOutputOf CombCell (UserCompo, 

Assoc, Lib, CritPath, 
CritSuccessorPath, 
IsCombPath, IsSeqPath) ) 

return (GnlStatus) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

f print f (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

} 

return (GNL_OK) ; 

} 

if (BListAddElt (GJPileOf Component, UserCompo)) 
return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Formal, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

SlackRise = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 
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SlackFall = GnlTiminglnf oRequiredFall (Timinglnf o) - 

GnlTiminglnfoArrivalFall (Timinglnf o) ; 

MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 

if ( iGnlFloatEqual (MinSlack, SlackRise, 4) 
ScSc IGnlFloatEqual (MinSlack, SlackFall, 4) ) 

BListDelShift (GJPileOf Component, BListSize ( GJPileOf Component) ) ; 
return (GNL_OK) ; 

} 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 

SetGnlCritPathArrTime {*CritPath, GnlCritPathArrTime (CritSuccessorPath) ) 
SetGnlCritPathReqTime (*Cr it Path, GnlCritPathReqTime (CritSuccessorPath) ) 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlncr (*CritPath, 0.0) ; 

if (GnlGetCritPathFromVar (Formal, Lib, &CritPredecessorPath, 

*CritPath, KindOfTime, I sCombPath, IsSeqPath, 0, 0) ) 
return ( GNLJMEMOR Y_FULL ) ; 
GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetCritPathFromSeqCell */ 

/* */ 

GNL_STATUS GnlGetCritPathFromSeqCell (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CR IT I CAL_PATH *CritPath, 
GNL_CR I T I CAL_PATH CritSuccessorPath) 

{ 

LIBC__CELL Cell; 

LIBC__PIN PinOut; 

int i, Rank; 

GNL_ASSOC AssocI; 

char * Formal; 

GNL__VAR Var ; 

GNL__TIMING_INFO TimingI; 

float SlackRise, SlackFall, MinSlack; 

GNL_STATUS GnlStatus ; 

int KindOfTime; 

GNL_CR I T I CAL_PATH CritPredecessorPath; 

GNL_SEQUENT I AL_C0MP0NENT SeqCompo ; 

unsigned int Key; 



SeqCompo - (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 
Var - GnlAssocActualPort (Assoc) ; 
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Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if ( I (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) 1= OUTPUT_E ) 

return (GNL_OK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 



MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 

SlackRise = GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnf oArrivalRise (TimingI) ; 

SlackFall = GnlTiminglnf oRequiredFall (TimingI) - 

GnlTiminglnf oArrivalFall (TimingI) ; 



if ( IGnlFloatEqual (MinSlack, SlackRise, 4) 
&& IGnlFloatEqual (MinSlack, SlackFall, 4) ) 
return (GNL_OK) ; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 
SetGnlCritPathArrTime ( *CritPath, 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime ( *CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCritPathKindOfTime (*CritPath, 

GnlCritPathKindOfTime (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlSequentialCompoInstName (SeqCompo) ) ; 
SetGnlCritPathlncr (*CritPath, GnlCritPathArrTime (*CritPath) ) ; 



return (GNL_OK) ; 

} 

/* 

/* GnlGetCritPathFromlnputOf SeqCell */ 

/* 

GNL_STATUS GnlGetCritPathFromlnputOf SeqCell (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
GNL_CRITICAL_PATH *CritPath, 
GNL_CR I T I C AL_P ATH CritSuccessorPath, 
int KindOfTime) 



{ 



int i, Rank; 

char * Formal; 

GNL_VAR Var; 
GNL_TIMING_INFO Timinglnfo; 

float TimeRise, TimeFall, MinSlack; 

BLIST Interface; 

GWL_STATUS GnlStatus ; 

GNL_CR I T I CAL_P ATH Cri tPredecessorPath; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

int IsCombPath, IsSeqPath; 



E-HUBBLE-253 



timecomp2.c 



unsigned int Key; 



Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

SeqCompo = ( GNL_S EQUENT I AL_COMP0NENT ) GnlAssocTraversallnf oComponent 
(Assoc) ; 

if ( (GnlStatus = Gnl Timing Inf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 

SetGnlCritPathFanout (*CritPath, GnlTiminglnf oFanout (Timinglnfo) ) ; 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlSequentialCompoInstName (SeqCompo) ) ; 

if (GnlStatus - GnlComputeSetupHoldTimeFromSeqCompo (SeqCompo, Formal, 
Timinglnfo, &TimeRise, &TimeFall, Lib, 0)) 
return (GnlStatus) ; 
if (GnlGetCritPathFromVar (Var, Lib, &CritPredecessorPath, 

*CritPath, KindOfTime, &IsCombPath, &IsSeqPath, 1, 0) ) 
return (GNL_MEMORY__FULL) ; 

if (KindOfTime == RISE) 
{ 

SetGnlCritPathArrTime (*CritPath, GnlTiminglnf oArrivalRise 
(Timinglnfo) ) ; 

SetGnlCritPathReqTime (*CritPath, GnlTiminglnf oRequiredRise 
(Timinglnfo) ) ; 

SetGnlCritPathlncr (*CritPath, TimeRise) ; 

} 

else 

{ 

SetGnlCritPathArrTime (*CritPath, GnlTiminglnf oArrivalFall 
(Timinglnfo) ) ; ; 

SetGnlCritPathReqTime (*CritPath, GnlTiminglnf oRequiredFall 
(Timinglnfo) ) ; 

SetGnlCritPathlncr (*CritPath, TimeFall) ; 

} 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 
return (GNL__OK) ; 

} 

/* 

/* GnlGetCritPathFrom3State */ 

/* 

GNL_STATUS GnlGetCritPathFrom3State (GNL_ASS0C Assoc, 

LIBC_LIB Lib, 
GNL__CR ITI CAL_PATH *CritPath, 
GNL_CRITICAL_PATH CritSuccessorPath, 
int *IsCombPath, int *IsSeqPath) 
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{ 

LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank, SensRise, SensFall; 

GNL_ASSOC AS soc I ; 

char * Formal; 

GNL_VAR Var, Varl; 

GNLJTIMING_INFO TimingI; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance, OutCapa; 

float SlackRise, SlackFall, MinSlack; 

BLIST Interface; 
GNL__STATUS GnlStatus ; 

int KindOf Time ; 

GNL__CR I T I CAL_P ATH CritPredecessorPath; 
GNL_TR I STATE_COMPONENT TriStateCompo ; 

unsigned int Key; 



TriStateCompo = (GNL_TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlTriStateCompoInf oCell (TriStateCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAs soc Formal Port (Assoc) ; 

if (i (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNLjOK) ; 
if (LibPinDirection (PinOut) INPUT_E ) 

return (GNLJDK) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

fcTimingl, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout - GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance - LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) ; 
WireCapa = LibGetWireScaledCapaFromLength (GJWireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

Interface = GnlTriStatelnterf ace (TriStateCompo) ; 
MinSlack = GnlCritPathReqTime (CritSuccessorPath) - 

GnlCritPathArrTime (CritSuccessorPath) ; 
for (i=0; i < BListSize (Interface) ; i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if ( !AssocI) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (!VarI) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAs soc Formal Port (AssocI) ; 
if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 
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if (LibPinDirection(Pinln) 1= INPUT_E) 
continue ; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (Varl) ™ GNL_VAR_INOUT) 

TimingI = ( GNL_T I MING_I NFO ) GnlTiminglnf oHook (TimingI) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance , 
Fanout , Cell , Pinln, PinOut , 
&DelayR , &OutTransR , 
&DelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

if ( IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath), TimeRise, 

4) 

ScSc IGnlFloatEqual (GnlCritPathArrTime (CritSuccessorPath) , TimeFall, 

4)) 

continue; 

if ( (GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalAssoc (*CritPath, Assoc) ; 
SetGnlCritPathFanout (*CritPath, Fanout) ; 
SetGnlCritPathArrTime (*CritPath, 

GnlCritPathArrTime (CritSuccessorPath) ) ; 
SetGnlCritPathReqTime ( *CritPath, 

GnlCritPathReqTime (CritSuccessorPath) ) ; 
SetGnlCritPathKindOf Time ( *CritPath, 

GnlCritPathKindOfTime (CritSuccessorPath) ) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlnstNameFromUserCompo (*CritPath, 

GnlTriStatelnstName (TriStateCompo) ) ; 
GnlGetSensFromArcTimingAndlnputArrivalTime (Pinln, PinOut, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
ScSensRise, &SensFall) ; 
if (GnlCritPathKindOfTime (CritSuccessorPath) == RISE) 

{ 

SetGnlCritPathlncr (*CritPath, DelayR) ; 
KindOfTime = SensRise; 

} 

else 
{ 

SetGnlCritPathlncr (*CritPath, DelayF); 
KindOfTime = SensFall; 

} 



E-HUBBLE-256 



timecomp2.c 



if (GnlStatus = GnlGetCritPathFromVar (Varl, Lib, 

&CritPredecessorPath, 
*CritPath, KindOfTime, 
IsCombPath, IsSeqPath, 1, 0)) 

return (GnlStatus) ; 
GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlGetCritPathFromAssoc */ 

/* 

GNL_STATUS GnlGetCritPathFromAssoc (GNL_ASS0C Assoc, 

LIBC_LIB Lib, 
GNL_CRITICAL_PATH *CritPath, 
GNL_CR I T I C AL__P ATH CritSuccessorPath , 
int KindOfTime, 
int *IsCombPath, int *IsSeqPath) 

{ 

GWL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL__COMPO : 

if (GnlStatus = GnlGetCritPathFromSeqCell (Assoc, Lib, 

CritPath, CritSuccessorPath) ) 

return (GnlStatus) ; 
*IsSeqPath = 1; 
break; 

case GNL JJSER_COMPO : 

if (GnlStatus = GnlGetCritPathFromUserCompo (Assoc, Lib, 

CritPath, CritSuccessorPath, 
KindOfTime, 

IsCombPath, IsSeqPath) ) 

return (GnlStatus) ; 
break; 

case GNL_TRISTATE_COMPO : 

if (GnlStatus = GnlGetCritPathFrom3State (Assoc, Lib, 

CritPath, CritSuccessorPath, 
IsCombPath, IsSeqPath) ) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL_OK) ; 
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/* 

/* GnlGetCritPathFromVar 

/* 

GNL_STATUS GnlGetCritPathFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
GNL_CR I T I CAL_P ATH *CritPath, 
GNL_CRITICAL_PATH CritSuccessorPath, 
int KindOfTime, 

int *IsCombPath, int *IsSeqPath, int Start, 
int Varlslnout) 



-*/ 



{ 



GNL_VAR 

GNL_ASSOC 

int 

GNL_STATUS 
GNL_T I M I NG_ I NFO 
float 



Varl, Actual; 
AuxAssocVar ; 
i , Rank ; 
GnlStatus; 

Timinglnf o , Timingl ; 

ArrivalTime, RequiredTime, 
SlackRise, SlackFall, MinSlack; 
GNL_USER_COMPONENT InstOf Gnl ; 

GNL_CRITICAL_PATH CritPredecessorPath, CritPredecessorPath2 ; 

BLIST AssocSources, RightVarAssigneds ; 

unsigned int Key; 
int AuxVar I s I nou t ; 



if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if (GnlVarDir (Var) == GNL_VAR__INOUT && Start) 

Timinglnf o = ( GNL_T I M I NG_ I N FO ) GnlTiminglnf oHook (Timinglnfo) ; 

if ((GnlStatus = GnlCreateCritPath (CritPath) ) ) 

return (GnlStatus) ; 
CritPredecessorPath = NULL; 

SetGnlCritPathCriticalVar (*CritPath, Var); 

if (KindOfTime == RISE) 

{ 

ArrivalTime = GnlTiminglnf oArrivalRise (Timinglnfo) ; 
RequiredTime = GnlTiminglnf oRequiredRise (Timinglnfo) ; 

} 

else 

{ 

ArrivalTime ~ GnlTiminglnf oArrivalFall (Timinglnfo) ; 
RequiredTime = GnlTiminglnf oRequiredFall (Timinglnfo) ; 

} 

MinSlack = RequiredTime - ArrivalTime ; 
SetGnlCritPathArrTime (*CritPath, ArrivalTime) ; 
SetGnlCritPathReqTime (*CritPath, RequiredTime) ; 
SetGnlCritPathKindOfTime (*CritPath, KindOfTime) ; 
GnlAddSuccessorToCritPath (*CritPath, CritSuccessorPath) ; 
SetGnlCritPathlncr (*CritPath, 0.0); 

if (GnlVarDir (Var) == GNL_VAR_INPUT | | 

(GnlVarDir (Var) == GNL__VAR_INOUT && Start) ) 

{ 
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if (IBListSize (G_PileOf Component ) ) 

{ 

/*if (GnlVarDir (Var) == GNL_VAR_ INPUT | | 

(GnlVarDir (Var) == GNL_VAR_ INOUT && Start))*/ 

{ 

♦IsCombPath = 1; 
return (GNL_OK) ; 

} 

} 

else 
{ 

InstOfGnl = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, 
InstOfGnl, ^Actual) ; 

if ( I AuxAssocVar) 

{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Actual , 
&TimingI , &Key , &Rank) ) 

return { GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Actual) == GNL_VAR_ I NOUT && Start) 

TimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (TimingI) ; 
SlackRise - GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnf oArrivalRise (TimingI) ; 
SlackFall = GnlTiminglnf oRequiredFall (TimingI) - 

GnlTiminglnf oArrivalFall (TimingI) ; 
MinSlack = GnlCritPathReqTime (*CritPath) - 

GnlCritPathArrTime (*CritPath) ; 
if ( I GnlFloatEqual (MinSlack, SlackRise, 4) 
ScSc I GnlFloatEqual (MinSlack, SlackFall, 4) ) 
return (GNL_OK) ; 
if ( (GnlStatus = GnlCreateCritPath (&CritPredecessorPath) ) ) 

return (GnlStatus) ,* 
CritPredecessorPath2 = NULL; 

SetGnlCritPathCriticalAssoc (CritPredecessorPath, AuxAssocVar) ; 

SetGnlCritPathArrTime 
(CritPredecessorPath, GnlCritPathArrTime (*CritPath) ) ; 

SetGnlCritPat hRe qTime 
(CritPredecessorPath, GnlCritPathReqTime (*CritPath) ) ; 

SetGnlCritPathKindOfTime (CritPredecessorPath, KindOfTime) ; 

GnlAddSuccessorToCritPath (CritPredecessorPath, *CritPath) ; 

SetGnlCritPathlncr (CritPredecessorPath, 0.0) ; 

AuxVarlsInout = (GnlVarDir (Var) GNL_VAR_INOUT ) ; 
if (GnlGetCritPathFromVar (Actual, Lib, &CritPredecessorPath2 , 

CritPredecessorPath, KindOfTime, 
IsCombPath, IsSeqPath, 1, AuxVarlsInout)) 
return (GnlStatus) ; 
GnlAddPredecessorToCritPath (CritPredecessorPath, 
CritPredecessorPath2) ; 
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} 



GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 
if (BListAddElt (G_PileOf Component , InstOfGnl) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlCritPathlncr (CritPredecessorPath, 0.0) ; 
return (GNL__0K) ; 

} 

} 

/* in this section we compute the Successor critical Path from Var */ 

if (GnlGetSourcesOfVar (Var, &AssocSources, &RightVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (RightVarAssigneds) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (RightVarAssigneds, i) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

SlackRise = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 

SlackFall = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 

if ( GnlFloatEqual (MinSlack, SlackRise, 4) | | 
GnlFloatEqual (MinSlack, SlackFall, 4) ) 

{ 

if (GnlGetCritPathFromVar (Varl, Lib, ^CritPredecessorPath, 

*Cri t Path , KindOf Time , 
IsCombPath, IsSeqPath, 1, 0)) 
return (GNL_MEMORY_FULL) ; 

GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

} 

BLi stQuickDelete (&RightVarAssigneds) ; 

for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASS0C) BListElt (AssocSources, i) ; 

if (GnlGetCritPathFromAssoc (AuxAssocVar, Lib, ^CritPredecessorPath, 

*CritPath, KindOf Time, 

IsCombPath, IsSeqPath) ) 
return ( GNL_MEMORY_FULL ) ; 
GnlAddPredecessorToCritPath (*CritPath, CritPredecessorPath) ; 

} 

BLi stQuickDelete (&AssocSources) ; 
return (GNL OK) ; 



/* 

/* GnlGetMinSlackFroralnputsOfSeguentiallnst */ 
/* 
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/* Doc procedure GnlGetMinSlackFromlnputsOf Sequential Inst : 

- Getting the slack minimal attached to the inputs of sequential instances 
of a given netlist (GNL) . 

/* */ 

GNL_STATUS GnlGetMinSlackFromlnputsOf Sequentiallnst (GNL Gnl , float 

*MinSlack) 

{ 

GNL_VAR Var; 
int i, Rank; 

GNL_STATUS GnlStatus ; 

GNL_T I M I NG_ INFO Timinglnf o ; 

float Slack; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_COMP0NENT Component I ; 

GNL GnlCompol; 
unsigned int Key; 



for (i=0; i < BListSize (Gnl Components (Gnl)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
if (GnlComponentType (ComponentI) == GNL_USER_COMPO ) 

{ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI) ; 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL__USER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlGetMinSlackFromlnputsOf Sequentiallnst (GnlCompol, 

MinSlack) ) 

return (GnlStatus) ; 
BListDelShif t (G_Pile0f Component , BListSize (G_PileOf Component ) ) ; 

} 

} 

if (GnlComponentType (ComponentI) != GNL_SEQUENTIAL_COMPO) 
continue; 

SeqCompo = ( GNL_SEQUENTTAL_COMPONENT ) ComponentI; 
Var = GnlSequentialCompoInput (SeqCompo) ; 
if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 

/* fprintf (stderr, u %s\t% . 2f \ t% . 2f \%2 . f " , GnlSequentialCompoInstName 
(SeqCompo) , GnlTiminglnf oArrivalRise (Timinglnfo) , GnlTiminglnf oRequiredRise 
(Timinglnf o) , GnlTiminglnf oCapa (Timinglnfo) ) ; 
*/ 

Slack = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 

if (*MinSlack > Slack) 
*MinSlack = Slack; 

Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 
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if (*MinSlack > Slack) 



*MinSlack = Slack; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetSequentialCritPathFromGnl */ 

/* */ 

/* Doc procedure GnlGetSequentialCritPathFromGnl : 

- Getting the slack minimal attached to the inputs of sequential instances 
of a given netlist (GNL) . 

/* */ 



GNL_STATUS GnlGetSequentialCritPathFromGnl (GNL Gnl, LIBC_LIB Lib; 

BLIST ListOfCritPaths, 
float MinSlack) 

{ 

GNL_VAR Var; 
int i , Rank ; 

GNL_S TATUS GnlStatus ; 

GNL_T1MING_INF0 Timinglnf o ; 

float Slack; 
GNL__S EQUENT I AL_COMPONENT SeqCompo ; 

GNL_COMPONENT Component I ; 

GNL GnlCompol; 
GNL_ASSOC Assoc; 
GNL_CR I T I C AL_P ATH CritPath; 
unsigned int Key; 



for (i=0; i < BListSize (Gnl Components (Gnl)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 

if (GnlComponentType (ComponentI) == GNL_USER_COMPO) 

{ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = GnlGetSequentialCritPathFromGnl (GnlCompol, Lib, 

ListOfCritPaths, MinSlack) ) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize ( G_PileOf Component) ) ; 

} 

} 

if (GnlComponentType (ComponentI) != GNL_SEQUENTIAL_COMPO) 
continue; 



SeqCompo = (GNL_SEQXJENTIAL_COMPONENT) ComponentI; 
Assoc = GnlSequentialCompoInputAssoc (SeqCompo) ; 
if ( !Assoc) 
continue ; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 
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continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

Slack = GnlTiminglnfoRequiredRise (Timinglnf o) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

if (MinSlack == Slack) 
{ 

if (GnlStatus = GnlGetCritPathFromlnputOf SeqCell (Assoc, Lib, &CritPath, 

( GNL_CR I T I CAL_PATH ) MULL, RISE) ) 

return (GnlStatus) ; 
if (BListAddElt (ListOfCritPaths, CritPath) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

else 

{ 

Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 

if (MinSlack « Slack) 
{ 

if (GnlStatus = GnlGetCritPathFromlnputOf SeqCell (Assoc, Lib, 
&CritPath, 

( GNL_CR I T I CAL_P ATH ) NULL , FALL) ) 

return (GnlStatus) ; 
if (BListAddElt (ListOfCritPaths, CritPath)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetMinSlackFromOutputs */ 

/* */ 

/* Doc procedure GnlGetMinSlackFromOutputs : 

- Getting the slack minimal attached to the primary outputs of a given 
netlist (GNL) . 

/* */ 

GNL_STATUS GnlGetMinSlackFromOutputs (GNL Gnl, float *MinSlack) 
{ 

GNL_VAR Var; 
int i, j, Rank; 

GNL_STATUS GnlStatus ; 

GNL_TIMING_INFO Timinglnfo ; 
float Slack; 
BLIST Bucket I ; 

unsigned int Key; 



*MinSlack = MAX_FLOAT ; 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

{ 



E-HUBBLE-263 



timecomp2.c 



Bucketl = (BLIST) BListElt (GnlHashNames (Gnl) , i) ; 
for (j=0; j < BListSize (Bucketl); j++) 

Var = (GNL_VAR) BListElt (Bucketl, j); 
if (!Var |) ( (GnlVarDir (Var) != GNL_VAR_OUTPUT) 

(GnlVarDir (Var) U GNL_VAR_INOUT) ) ) 

continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

Slack = GnlTiminglnfoRequiredRise (Timinglnf o) - 

GnlTiminglnfoArrivalRise (Timinglnf o) ; 

if (*MinSlack > Slack) 

*MinSlack = Slack; 
Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 

if (*MinSlack > Slack) 
*MinSlack = Slack; 

} 

} 

return (GNL_OK) ; 

} 

/* , 

GNL_STATUS GnlGetCombinat ionalCritPathFromGnl (GNL Gnl, LIBC LIB Lib, 

BLIST ListOfCritPaths, ~ 
float *MinSlackForCombPath, 
float *MinSlackForSeqPath) 

GNL_VAR Var; 

int i, j, Rank, IsCombPath, IsSeqPath; 

GNL_STATUS GnlStatus ; 

GNL_TIMING__INFO Timinglnfo ; 
float MinSlack, Slack; 

GNL_CR I T I CAL_PATH CritPath; 
BLIST Bucketl; 
unsigned int Key; 



/* GnlGetMinSlackFromOutputs (Gnl , &MinSlack) ; */ 
for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 
for (j=0; j < BListSize (Bucketl); j++) 

Var = (GNL_VAR) BListElt (Bucketl, j); 

if (!Var || ((GnlVarDir (Var) != GNL_VAR_OUTPUT) && 

(GnlVarDir (Var) 1= GNL_VAR_INOUT) ) ) 

continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
IsCombPath = IsSeqPath = 0; 
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if (GnlTiminglnfoArrivalRise (Timinglnfo) > GnlTiminglnf oArrivalFall 
(Timinglnf o) ) 

{ 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

if (GnlStatus = GnlGetCritPathFromVar (Var, Lib, &CritPath, 

( GNL_CR I T I CAL_PATH ) NULL , RISE, 
fidsCombPath, &IsSeqPath, 0, 0)) 

return (GnlStatus) ; 

} 

else 

{ 

Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
if (GnlStatus = GnlGetCritPathFromVar (Var, Lib, &CritPath, 

(GNL_CRITICAL_PATH) NULL, FALL, 
&IsCombPath, SdsSeqPath, 0, 0)) 
return (GnlStatus) ; 

} 

if (BListAddElt (ListOfCritPaths, CritPath) ) 

return (GNL__MEMORY_FULL) ; 
if (IsCombPath) 

if (*MinSlackForCombPath > Slack) 
*MinSlackForCombPath = Slack ; 
if (IsSeqPath) 

if (*MinSlackForSeqPath > Slack) 
*MinSlackForSeqPath = Slack; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/ ^ 

/* GnlPrintHeadOf TimingReport */ 

/* / 

/ ^ 

/* Doc procedure GnlPrintHeadOf TimingReport : 

- Printing global parameters used for timing analysis 

*/ 

/* 

/ 

GNL_STATUS GnlPrintHeadOf TimingReport (GNL Gnl, 
^ LIBC_LIB Lib) 

fprintf (stderr, " ^ n 

fprintf (stderr, » Report\t\t : \ttiming\n" ) ; 

fprintf (stderr, « max_number_paths\t : \t%d\n" , GnlEnvPrintNbCritPath ()) 
fprxntf (stderr, " Design\t\t : \t%s\n» , GnlName (Gnl)); 
fprintf (stderr, " Date\t\t\t : \t " ) ; 
GnlPrintDate (stderr) ; 
fprintf (stderr, n \n n ); 

fprintf (stderr, " Operating Conditions\t : \t%s\n" , 

LibOperCondOcName (G_OperCond) ) ; 
fprintf (stderr, " Library\t\t : \t%s\n" , LibName (Lib) ) ; 
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f print f (stderr, " Wire Loading Model \t : \ t " ) ; 
if (G_WireLoad) 

fprintf (stderr, "%s\n", LibWireLoadName (G_WireLoad) ) ; 
else 

fprintf (stderr, "No Wire Load\n") ; 

fprintf (stderr, " 

fprintf (stderr, " \n") / 

} 



/* GnlGetCritPathFromNetwork */ 

*/ 



/* 



/* Doc procedure GnlGetCritPathFromNetwork : 

- Getting combinational critical path and Clock periode from a given 
Network (GNL_NETWORK) . 

*/ 

/* #/ 

GNL_STATUS GnlGetCritPathFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib, 
int MaxPaths, 
double AreaWithoutNet , 

int CellNumber, 
int PrintClkDomain, 
int PrintCritRegion) 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 

BLIST ListOfCritPaths, ListOf SeqCritPaths ; 
BLIST AuxList, ListOf Clocks ; 
GNL_CRITICAL_PATH CritPath; 
int NumberOf Paths, i, Size; 

float MinSlack, ClockFreqValue , CombPathValue, MinSlackForSeqPath, 
MinSlackForCombPath; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if (CellNumber > MAX CELL NUMBER) 
{ ~ " 

if (BListCreate (&G_PileOf Component ) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreate (ScListOf CritPaths) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreate UListOf SeqCritPaths) ) 
return (GNL_MEMORY_FULL) ; 

MinSlackForCombPath = MinSlackForSeqPath = MAX_FLOAT; 

if ((GnlStatus = GnlGetCombinationalCritPathFromGnl (TopGnl, Lib, 

ListOf CritPaths, 
^MinSlackForCombPath, 
^MinSlackForSeqPath) ) ) 

return (GnlStatus) ; 
NumberOf Paths « MaxPaths ; 
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GnlPrintHeadOfTimingReport (TopGnl, Lib) ; 
ClockFreqValue = CombPathValue = 0.0; 

for (i=0; i < BListSize (ListOf CritPaths) ; i++) 

CritPath - ( GNL_CR I T I CAL_PATH ) BListElt (ListOf CritPaths , i) ; 
if (BListCreate (&AuxList) ) 

return (GNL_MEMORY_FULL) ; 
Size = BListSize (ListOf SeqCritPaths) ; 

GnlPrintNEquivalPathFromOneCritPath (CritPath, AuxList, &NumberOf Paths , 

0 , ^ClockFreqValue , ScCombPathValue , 
MinSlackForSeqPath, MinSlackForCombPath, 
ListOf SeqCritPaths) ; 

if (BListSize (ListOf SeqCritPaths) 1= Size) 

{ 

BListDelShift (ListOf CritPaths , i+i) ; 
i--; 

} 

BListQuickDelete (&AuxList) ; 
if ( INumberOf Paths) 
break; 

} 

BListDelete UListOf CritPaths, GnlFreeCritPath) ; 

if (CombPathValue) 
{ 

f print f (stderr, " 

\n«); 

fprintf (stderr, » Combinational Path \t\t%.2f ns\n», CombPathValue); 

fprintf (stderr, " '__ 

\n\n") ; 

} 

MinSlack = MAX^FLOAT; 

GnlGetMinSlackFromlnputsOfSequentiallnst (TopGnl, &MinSlack) ; 
if (MinSlack < MinSlackForSeqPath) 

{ 

MinSlackForSeqPath = MinSlack; 
BListQuickDelete (fcListOf SeqCritPaths) ; 
if (BListCreate (&ListOf SeqCritPaths) ) 

return ( GNL_MEMORY_FULL ) ; 
if ( (GnlStatus = GnlGetSequentialCritPathFromGnl (TopGnl, Lib, 

ListOf SeqCritPaths, MinSlack))) 

return (GnlStatus) ; 

} 

else if (MinSlack » MinSlackForSeqPath) 

if ((GnlStatus = GnlGetSequentialCritPathFromGnl (TopGnl, Lib, 

ListOf SeqCritPaths, MinSlack) ) ) 

return (GnlStatus) ; 

} 

NumberOf Paths = MaxPaths; 
ClockFreqValue = 0.0; 
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for (i=0; i < BListSize (ListOf SeqCritPaths) ; i++) 

CritPath = (GNL_CRITICAL_PATH) BListElt (ListOf SeqCritPaths , i) ; 

if (BListCreate (&AuxList) ) 

return (GNL_MEMORY_FULL) ; 

GnlPrintNEquivalPathFromOneCritPath (CritPath, AuxList, ScNumberOf Paths , 

1, &ClockFreqValue, &CombPathValue , 
MinSlackForSeqPath, MinSlackForCombPath, 
NULL) ; 

BListQuickDelete (&AuxList) ; 
if ( INumberOf Paths) 
break; 

} 

BListDelete (&ListOf SeqCritPaths, GnlFreeCritPath) ; 
if (ClockFreqValue) 

{ 

f print f (stderr, " 

\n») ; 

fprintf (stderr, " Clock Period \t\t\t%.2f ns\n", ClockFreqValue); 
fprintf (stderr, " Clock Frequency \t\t%.2f Mhz\n", 

100 0 * 1/ClockFreqValue) ; 

fprintf (stderr, " 

\n»); 

} 

BListQuickDelete (&ListOf CritPaths) ; 
if (PrintCritRegion) 

if (GnlGetEpsiCriticInstancesFromGnl (TopGnl, Lib, 

MinSlackForSeqPath, MinSlackForCombPath, AreaWithoutNet) ) 
return (GNL_MEMORY_FULL) ; 
BListQuickDelete (&G_PileOf Component ) ; 

else 
{ 

if (BListCreate UListOf Clocks) ) 
return (GNLJ4EM0RYJFULL) ; 

if (GnlStatus = GnlGetClocksFromNetwork (Nw, ListOf Clocks , 
Print ClkDomain) ) 

return (GnlStatus) ; 

if (BListCreate (&G_PileOf Component ) ) 

return ( GNL_MEM0R Y_FULL ) ; 
GnlGetMinSlackFromOutputs (TopGnl , &MinSlackForCombPath) ; 
MinSlackForSeqPath = MAX_FL0AT; 

GnlGetMinSlackFromlnputsOfSequentiallnst (TopGnl, ScMinSlackForSeqPath) ; 
BListQuickDelete ( &G_PileOf Component ) ; 

if (GnlStatus = TimeExpandCritPathFromNetwork (Nw, Lib, MaxPaths, 

ListOf Clocks, AreaWithoutNet, 
MinS 1 ackForCombPath , 
MinSlackForSeqPath, 
PrintCritRegion) ) 

return (GnlStatus) ; 
^BListDelete (^ListOf Clocks, GnlFreeClock) ; 

return (GNL_0K) ; 



E-HUBBLE-268 



timecomp2.c 



/* 

/* TirneOptByResizing 

/* 

GNL_STATUS TirneOptByResizing (GNL_NETWORK Nw, 

^ LIBC_LIB GnlLibc) 

double AreaWithoutNet, AreaOfNets; 
int CellNumber; 
GNL TopGnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if ( IGnlEnvRespectLibConstraints () ) 

{ 

if (GnlLinkLib (Nw, TopGnl, GnlLibc)) 
return (GNL__MEMORY_FULL) ; 

if (GnlSetListPathComponent (Nw) ) 
return (GNL_MEMORY_FULL) ; 

/* we resize the hash list of path component depending on the 
/* number of instances leading to a current Gnl . 
if (GnlResizeHashListPathComponent (Nw) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlAddNetlistlnfoForTraversallnComponent (Nw, TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL) ; 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc)) 
return ( GNL_MEMORY_FULL ) ; 

} 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 0, ^AreaWithoutNet , ^AreaOfNets 

&CellNumber) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc) ) 
return (GNL_MEMORY__FULL) ; 

if (GnlComputeRequiredTimeFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

fprintf (stderr, "\n"); 
f print f (stderr, 

" Optimization By Resizing Critical Instances ... \n" ) ; 
fprintf (stderr, M \n M ); 

if (TimeOptByResizingFromGnl (TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, &AreaWithoutNet , &Area0fNet 

&CellNumber) ) 
return ( GNL__MEMOR Y__FULL ) ; 
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fprintf (stderr, "\n M ); 
return (GNL_OK) ; 

} 

/* 

/* GnlMeetLibConstraints */ 
/* 

GNL_STATUS GnlMeetLibConstraints (GNL__NETWORK Nw, 

LIBC LIB GnlLibc) 

{ 

double AreaWi thoutNet , AreaOf Nets ; 
int CellNumber; 
GNL TopGnl ; 



TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlLinkLib (Nw, TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

if (GnlSetListPathComponent (Nw) ) 
return ( GNL_MEMORY_FULL ) ; 

/* we resize the hash list of path component depending on the */ 
/* number of instances leading to a current Gnl . */ 
if (GnlResizeHashListPathComponent (Nw) ) 
return ( GNL__MEMORY_FULL ) ; 

if (GnlAddNetlistlnfoForTraversallnComponent (Nw, TopGnl, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL); 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, ^AreaWi thoutNet , &AreaOfNets 

&CellNumber) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc)) 
return (GNL_MEMORY_FULL) ; 

if (GnlComputeRequiredTimeFromNetwork (Nw, GnlLibc)) 
return ( GNL_MEMORY_FULL ) ; 

fprintf (stderr, "\n"); 
fprintf (stderr, 

" Restructuring Netlist to meet Library Constraints ... \n n ) ; 
fprintf (stderr, M \n") ; 

if (TimeLimitationFanoutFromNetwork (Nw, GnlLibc) ) 
return ( GNL_MEMORY_FULL ) ; 

CellNumber = 0; 

if (GnlGetAreaFromNetwork (Nw, GnlLibc, 1, &AreaWi thoutNet , &AreaOfNets 
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ScCellNumber) ) 
return (GNL_MEMORY_FULL) ; 
fprintf (stderr, "\n") ; 



return (GNL_OK) ; 

} 

/* */ 

/* TimeEstimate */ 

/* */ 

GNL_STATUS TimeEstimate (GNL_NETWORK Nw, 

LIBC_LIB GnlLibc, 
int PrintClkDomain, 
int PrintCritRegion) 

{ 

double AreaWithoutNet , AreaOfNets; 
int CellNumber; 
GNL TopGnl ; 

int PrintData; 



/* We call the construction of these data if: */ 

/* - we are in the ESTIMATION mode or */ 

/* - we are in another mode but we did not invoked the */ 

/* control fanout. */ 

if { (GnlEnvMode () == GNL_MODE__ESTIMATION) || 

( IGnlEnvRespectLibConstraints () && ! GnlEnvPostOpt () && 
(GnlEnvMode () 1= GNL_MODE_POS ^OPTIMIZATION) ) ) 

{ 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if (GnlAddNetlistlnf oForTraversallnComponent (Nw, TopGnl, GnlLibc) ) 
return (GNL_MEMORY_FULL) ; 

LiblnitializeDeltaOperCondAndNomOperCond (GnlLibc, (char *)NULL) ,- 

if (GnlComputeCapaAndFanoutFromNetwork (Nw, GnlLibc)) 
return ( GNL_MEMOR Y__FULL ) ; 

} 

if (GnlEnvPostOpt () | j (GnlEnvMode () GNL_MODE_POST_OPTIMIZATION) ) 
if (GnlComputeCapaAndFanoutFromNetwork (Nw r GnlLibc) ) 
return ( GNL_MEMORY_FULL) ; 

CellNumber = 0; 

PrintData = ( ! GnlEnvRespectLibConstraints ( ) || 
( ! GnlEnvPostOpt ( ) && 

(GnlEnvMode () 1 = GNL_MODE_POST_OPTIMIZATION) ) || 
(GnlEnvMode () == GNL_MODE_ESTIMATION) ); 
if (GnlGetAreaFromNetwork (Nw, GnlLibc, PrintData, ^AreaWithoutNet , 

ScAreaOfNets, ^CellNumber) ) 
return (GNL__MEMORY_FULL) ; 

if (GnlComputeArrivalTimeFromNetwork (Nw, GnlLibc) ) 
return (GNL__MEMORY_FULL) ; 
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if (GnlComputeRequiredTimeFromNetwork {Nw, GnlLibc) ) 
return (GNL MEMORY FULL) ; 



if (GnlGetCritPathFromNetwork (Nw, GnlLibc, GnlEnvPrintNbCritPath () , 

AreaWithoutNet , CellNumber, Print ClkDomain 
PrintCritRegion) ) 

return (GNL_MEMORY_FULL) ; 

if {GnlFreeTiminglnf oFromNetwork (Nw) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL OK) ; 



/* EOF */ 
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/* 






*/ 


/* 


File: timefan.c 




*/ 


/* 


Version: 1.1 




*/ 


/* 


Modifications: 




*/ 


/* 


Documentation: 




*/ 


/* 






*/ 


/* 


Description: 


*/ 




/* 






*/ 











#include <stdio.h> 



#include 
#include 
# include 
#include 
tinclude 
#include 
#include 
#include 
#include 
tinclude 

# include 
#include 
# include 
#include 
# include 
#include 
# include 



blist .h" 
gnl.h" 

"libc_mem.h" 
libc_api .h" 

"gnlestim.h" 
time . h" 

"bbdd.h" 

"gnllibc.h" 
gnlmap .h" 

'gnllibc.h" 

blist. e" 
libutil.e" 
timeutil . e" 
timecomp . e " 
timepath. e" 
timeutil . e" 
timef an. e n 



extern GNL_STATUS GnlVarCreateAndAddlnHashTableWithNoTest (); 
extern GNL_STATUS GnlCreateUserComponent () ; 

/* + 1 

/* TimeGetListCapaPin */ 

/* *i 

/* Doc procedure TimeGetListCapaPin : 

- Returns the List "ListCapaPin" of capacitance_pin from a List of Assoc. 

- Returns the List "ListFanout " of Fanout_pin from a List of Assoc. 

*/ 

/* *i 

GNL_STATUS TimeGetListCapaPin (BLIST AssocDests, GNL_VAR Var, BLIST 
ListCapaPin, 

BLIST ListFanout, BLIST ListRequiredTime , 
LIBC_LIB Lib, int Tag) 

{ 

int i, Rank; 

GNL_ASSOC AssocI; 
GNL_COMPONENT Compo ; 

GNL_VAR Varl, Formal; 

float *Real, AuxCapa, Time, TimeRise, TimeFall; 

int *Fanout; 
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LIBC_PIN Pin; 
LIBCJCFATOR KF; 
GNL_TIMING_INFO TimingI; 
unsigned int Key; 

GNL_VAR AuxForma 1 ; 
GNL_STATUS GnlStatus ; 

LIBC_CELL Cell; 



for (i=0; i < BListSize (AssocDests) ; i++) 

Assocl - (GNL_ASSOC) BListElt (AssocDestS, i) ; 
TimeRise = TimeFall = 0.0; 

if (GnlComputeRequiredTimeFromAssoc (Assocl , &TimeRise , 

&TimeFall, Lib, Var, Tag, 0)) 
return {GNL_MEMORY_FULL) ; 
Time = TimeRise; 
if (Time > TimeFall) 
Time = TimeFall; 

Real = (float *) calloc (1, sizeof (float)); 
(*Real) = Time; 

if (BListAddElt (ListRequiredTime, (int) Real)) 
return (GNL_MEMORY_FULL) ; 

Compo = GnlAssocTraversallnfoComponent (Assocl) ; 
Varl = GnlAssocActualPort (Assocl) ; 

if (GnlStatus = GnlGetCellFromGnlCompo (Compo, &Cell) ) 
return (GnlStatus) ; 

Formal = GnlAssocFormalPort (Assocl) ; 

if (Cell) 

{ 

Pin = LibGetPinFromNameAndCell (Cell, (char*) Formal); 
Real - (float *) calloc (1, sizeof (float)); 
Fanout = (int *) calloc (1, sizeof (int) ) ; 
AuxCapa = LibPinCapa (Pin) ; 
if (AuxCapa == 0.0) 

AuxCapa = LibDef aultlnputPinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactor PinCap (KF) [1] , 
LibKFactorPinCap (KF) [2] ) ; 

*Real = AuxCapa; 
* Fanout = 1 ; 

if (BListAddElt (ListCapaPin, Real)) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (ListFanout, Fanout)) 

return (GNL__MEMORY_FULL) ; 
continue; 

} 

if (GnlVarDir (Formal) == GNL VAR INPUT) 

{ _ " 

if (BListAddElt (G_PileOf Component, (GNL_USER_COMPONENT) Compo)) 
return (GNL_MEMORY_FULL) ; 
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if (GnlStatus = TimeGet Formal FromAssocAndActual 
(AssocI , Var , &AuxFormal ) ) 

return (GnlStatus) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize { G_PileOf Component ) ) ; 
Real = (float *) calloc (1, sizeof (float)); 
Fanout = (int *) calloc (1, sizeof (int) ) ; 
*Real = GnlTiminglnf oCapa (TimingI) ; 
*Fanout = GnlTiminglnf oFanout (TimingI) ; 
if (BListAddElt (ListCapaPin, Real)) 

return ( GNL__MEMORY_FULL ) ; 
if (BListAddElt (ListFanout, Fanout)) 

return ( GNL_MEMORY_FULL ) ; 

} 

} 

return (GNL_OK) ; 

} 

/* 

/* TimeGetPinlnAndPinOutOf Buffer */ 

/* */ 

void TimeGetPinlnAndPinOutOfBuf f er (LIBC_CELL Buffer, LIBC PIN *PinIn, 

LIBCJPIN *PinOut) ~ 

{ 

int i ; 

LIBC_PIN Pins ; 

Pins = LibCellPins (Buffer) ; 

for (;Pins != NULL; Pins = LibPinNext (Pins)) 
{ 

if (LibPinDirection (Pins) == INPUT_E) 

* Pinln = Pins; 
if (LibPinDirection (Pins) == 0UTPUTJ2) 

*PinOut = Pins; 

} 

} 

/* *z 

/* TimeGetlnCapaAndLimitCapa */ 

/* „i 

void TimeGetlnCapaAndLimitCapa (LIBC_CELL Buffer, float *InCapaBuf f er , 

float *LimitCapaBuf fer, LIBC LIB Lib) 

{ 

int i ; 

LIBCJPIN Pinln, PinOut; 
float AuxCapa; 
L I B C__KFATOR KF; 

*InCapaBuf fer = *LimitCapaBuf f er = 0.0; 

TimeGetPinlnAndPinOutOfBuf fer (Buffer, &PinIn, &PinOut) ; 
AuxCapa = LibPinCapa (Pinln) ; 
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if (AuxCapa = = 0.0) 

AuxCapa = LibDef ault Input PinCap (Lib) ; 
KF = LibKFactor (Lib) ; 

AuxCapa = LibScalValue (AuxCapa, LibKFactorPinCap (KF) [0] , 

LibKFactorPinCap (KF) [1], 
LibKFactorPinCap (KF) [2] ) ; 

*InCapaBuf f er = AuxCapa; 

AuxCapa = LibPinMaxCapa (PinOut) ; 
if (AuxCapa ==0.0) 

AuxCapa = LibDef aultMaxCapa (Lib) ; 
*LimitCapaBuf f er = AuxCapa; 



} 

/* ie/ 

/* TimePrintPileOf Component */ 
/* ie/ 



void TimePrintPileOf Component (BLIST PileOf Component ) 
int i ; 

GNL_USER_COMPONENT Compo I ; 

for (i= 0; i < BListSize ( PileOf Component ) ; i++) 
{ 

Compol = <GNL_USER_C0MPONENT) BListElt (PileOf Component , i) ; 
fprintf (stderr, "%s/" , GnlUserComponentlnstName (Compol)); 



fprintf (stderr, "\n") ; 

} 

/*-- v 

/* TimeGetPileOf InstCompoFromPathCompo */ 
/* #/ 



GNL_STATUS TimeGetPileOf InstCompoFromPathCompo ( GNL_PATH_COMPONENT Path, 
^ BLIST PileOf InstCompo) 

GNL_PATH_COMPONENT Previous ; 
GNL_USER_COMPONENT Compol ; 

if (IPath) 

return (GNL_OK) ; 

Compol = GnlPathComponent Component (Path) ; 
Previous = GnlPathComponentPrevious (Path) ; 
if (Previous) 

if (TimeGetPileOf InstCompoFromPathCompo (Previous, PileOf InstCompo) ) 
return (GNL_MEMORY_FULL) ; 
if (BListAddElt (PileOflnstCompo, Compol)) 
return (GNL_MEMORY_FULL) ; 



return (GNL_OK) ; 

} 

/* ie/ 

/* TimeComputeCapaAndFanoutFromVar */ 

/* v 



GNL_STATUS TimeUpdateCapaAndFanoutForNewVar (GNL_VAR Var, GNL_VAR NewVar, 

LIBC_LIB Lib, int *Tag, 
int Inoutlsln) 
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int 


i/ j ; 


BLIST 


SubLis t , List Paths ; 


GNL__PATH_ 


_COMPONENT Path; 


BLIST 


S aveG_P i 1 eO f Component ; 


BLIST 


PileOf InstCompo, AuxPileOf InstCompo; 


GNL 


Current Gnl ; 


GNL__USER_ 


_COMPONENT CurrentComponent ; 


char 


*HierNameOf GnlVar ; 


GNL_VAR 


SourceVar ; 



/* unsigned int Key; 

GNL_TIMING_INFO Timing ; 

int Rank ; 
*/ 



SaveG_PileOf Component = G__PileOf Component ; 
/* if (Stringldentical (GnlVarName (Var) , "N576103")) 
{ 

fprintf (stderr, "G_PileOf Component = ») ; 
TimePrintPileOfComponent (GJPileOf Component) ; 
if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, 

^Timing, &Key, &Rank) ) 
return ( GNL_MEMORY_FULL ) ; 
fprintf (stderr, "\t\tKey = %d\tRank = %d\tFanout = %d\t Capa = %.2f \n» , 
Key, Rank, GnlTiminglnf oFanout (Timing) , GnlTiminglnf oCapa (Timing) ) ; 



if ( ! BListSize (G_PileOf Component) ) 

{ 

if (GnlComputeCapaAndFanoutFromVar (NewVar, Lib, *Tag, 1, 0)) 

return (GNL_MEMORY_FULL) ; 
if (GnlGetSourceVarFromVar (Var, &SourceVar, SAuxPileOf InstCompo) ) 

return (GNL_MEMORY_FULL) ; 
G_PileOf Component = AuxPileOf InstCompo ; 

if ( IGnlVarlsVdd (SourceVar) IGnlVarlsVss (SourceVar)) 

if (GnlComputeCapaAndFanoutFromVar (SourceVar, Lib, *Tag, Inoutlsln, 0 ) ) 
return (GNL_MEMORY_FULL) ; 
BListQuickDelete (StAuxPileOf InstCompo) ; 
G_PileOf Component = SaveG_PileOf Component ; 
(*Tag) ++; 
return (GNL_OK) ; 

} 

CurrentComponent = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 
CurrentGnl = GnlUserComponentGnlDef (CurrentComponent); 
ListPaths = GnlListPathComponent (CurrentGnl) ; 

for (i=0; i < BListSize (ListPaths); i++) 

{ 

SubList = (BLIST) BListElt (ListPaths, i) ; 
if (! SubList) 
continue; 

for (j=0; j < BListSize (SubList); j++) 

{ 

Path = (GNL_PATH_COMPONENT) BListElt (SubList, j); 
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if (BListCreate ( &PileOf InstCompo) ) 

return ( GNL_MEMORY_FULL) ; 
if (TimeGetPileOf InstCompoFromPathCompo (Path, PileOf InstCompo) ) 

return ( GNL _MEMORY_FULL ) ; 
G_PileOf Component = PileOf InstCompo; 

if (GnlComputeCapaAndFanoutFromVar (NewVar, Lib, *Tag, 1, 0)) 

return ( GNL _MEMORY_FULL ) / 
if (GnlGetSourceVarFromVar (Var, &SourceVar, &AuxPileOf InstCompo) ) 

return { GNL_MEMOR Y_FULL) ; 
BListQuickDelete (&PileOf InstCompo) ; 

G_PileOf Component = PileOf InstCompo = AuxPileOf InstCompo; 
if ( IGnlVarlsVdd (SourceVar) && IGnlVarlsVss (SourceVar) ) 
if (GnlComputeCapaAndFanoutFromVar (SourceVar, Lib, *Tag, 
Inoutlsln, 0) ) 

return (GNL_MEMORY_FULL) ; 
BListQuickDelete (&PileOf InstCompo) ; 

} 

(*Tag)++ ; 

G_PileOf Component = SaveG_PileOf Component ; 
return (GNL__OK) ; 

} 

/* 

/* TimelnsertBufferAtVar */ 

/* 

GNL_STATUS TimelnsertBufferAtVar (GNL_VAR Var, LIBC_CELL Buffer, int K, 

LIBC_LIB Lib, int *Id, GNL TopGnl, 
int *Tag, int Inoutlsln) 

{ 



GNL_VAR_TRAVERSAL_INFO 
GNL_AS S OC_TRAVERSAL_ INFO 
BLIST 



GNL_ASSOC 

GNL_VAR 

char 

BLIST 

LIBC_PIN 

int 

GNL_STATUS 
GNL 

GNL JJS ER_COM PONENT 
char 



Traversallnfo; 
AssocTraversallnf o; 

AssocDests, Lef tVarAssigneds, ListAssoc; 
Assocln, AssocOut, AssocI; 
OutVar; 

* Ins tanceName , *NameBuf f er ; 

Interface; 
Pinln, PinOut ; 
i; 

GnlStatus; 

Gnl; 

InstOf Gnl , UserComponent ; 
* Formal; 



Gnl = TopGnl; 

if (BListSize (GJPi leOf Component ) ) 



InstOf Gnl = (GNL_USER_COM PONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 
Gnl = GnlUserComponentGnlDef ( InstOf Gnl ) ; 



} 

ListAssoc = GnlVarTraversallnfoListAssoc (Var) ; 

if (GnlGetDestinationsOfVar (Var, &AssocDests , &Lef tVarAssigneds) ) 
return (GNL_MEMORY FULL) ; 
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/* 

if (GnlStrAppendlntCopy (»I_B_", *Id, &InstanceName) ) 
return (GNL_MEMORY_FULL) ; 

*/ 

(*Id)++; 



if {GnlStrCopy (LibCellName (Buffer) , &NameBuf f er) ) 
return ( GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (2, Sdnterf ace) ) 
return { GNL_MEMOR Y_FULL ) ; 

TimeGetPinlnAndPinOutOf Buffer (Buffer, &PinIn, &PinOut) ; 

/* We create the Assoc attached to the input of the new buffer instance */ 
if (GnlCreateAssoc (&AssocIn) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (LibPinNameFirst (Pinln) , &Formal) ) 

return ( GNL_MEMORY_FULL) ; 
SetGnlAssocFormalPort (Assocln, Formal) ; 
SetGnlAssocActualPort (Assocln, Var) ; 
if (BListAddElt (Interface, (int) Assocln)) 

return ( GNL_MEMORY_FULL) ; 

/* We create the Assoc attached to the output of the new buffer instance */ 
if (GnlCreateAssoc (&AssocOut) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (LibPinNameFirst (PinOut) , ScFormal) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocFormalPort (AssocOut, Formal) ; 

if (GnlStatus = GnlCreateUniqueVar (Gnl, "\\$IB" / &OutVar) ) 
return (GnlStatus) ; 

if (GnlStrCopy (GnlVarName (OutVar) , &InstanceName) ) 
return ( GML_MEMORY_FULL) ; 

/* 

if (GnlStatus = GnlVarCreateAndAddlnHashTableWithNoTest (Gnl, InstanceName , 

&OutVar) ) 

return (GnlStatus) ; 

*/ 

SetGnlAssocActualPort (AssocOut, OutVar) ; 
if (BListAddElt (Interface, (int) AssocOut ) ) 
return ( GNL_MEMORY_FULL ) ; 



if (GnlCreateUserComponent (NameBuffer, InstanceName, (BLIST) NULL, 

Interface, &UserComponent) ) 
return ( GNL_MEMOR Y__FULL ) ; 
SetGnlUserComponentCellDef (UserComponent , Buffer) ; 
if (GnlCreateAssocTraversallnf o (&AssocTraversalInf o) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlAssocHook (Assocln, AssocTraversallnf o) ; 
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SetGnlAssocTraversallnfoComponent (Assocln, ( GNL_COMPONENT ) UserComponent ) 
if (GnlCreateAssocTraversallnfo ( &AssocTraversalInf o) ) 

return ( GNL_MEMORY_FULL ) ; 
SetGnlAssocHook (AssocOut, AssocTraversallnf o) ; 
SetGnlAssocTraversallnf oComponent (AssocOut , (GNL COMPONENT) 
UserComponent) ,* ~ 

if (GnlCreateVarTraversallnf o (&TraversalInf o) ) 

return (GNL_MEMORY__FULL) ; 
SetGnlVarHook (OutVar, Traversal Info) ; 

for (i= BListSize (AssocDests) -1; K >= 0; i--) 

AssocI = (GNL_ASS0C) BListElt (ListAssoc, i) ; 
BListDelShift (ListAssoc, i+1) ; 
SetGnlAssocActualPort (AssocI, OutVar) ; 
if (GnlUpdateVarAssocList (OutVar, AssocI)) 
return (GNL_MEMORY_FULL) ; 

K-- ; 

} 

BListlnsertlnList (ListAssoc, Assocln, 1) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
BListQuickDelete (&AssocDests) ; 
if (GnlUpdateVarAssocList (OutVar, AssocOut) ) 
return (GNL_MEMORY_FULL) ; 

if (BListAddElt (Gnl Components (Gnl) , (int) UserComponent)) 

return ( GNL_MEMORY__FULL ) ; 
if (TimeUpdateCapaAndFanoutForNewVar (Var, OutVar, Lib, Tag, Inoutlsln) ) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL_0K) ; 

} 



/* 

/* TimeUpdateCapaAndFanoutOfVar 

/* 

void TimeUpdateCapaAndFanoutOfVar (GNL_VAR Var, int NewFanout, 
^ float NewCapa, int Inoutlsln) 

int i, j ; 

GNL_TIMING_INFO Timingl; 
BLIST SubList; 
BLIST ListTiminglnfo; 

if (! BListSize (G PileOf Component) ) 

{ 

TimingI = (GNL_TIMING__INFO) GnlVarTraversallnf oHook (Var) ; 
SetGnlTiminglnfoFanout (TimingI, NewFanout); 
SetGnlTiminglnfoCapa (TimingI, NewCapa) ; 
return; 

} 

ListTiminglnfo = (BLIST) GnlVarTraversallnf oHook (Var) ; 
for (i=0; i < BListSize (ListTiminglnfo); i++) 

SubList = (BLIST) BListElt (ListTiminglnfo, i) ; 



■*/ 
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if (ISubList) 
continue; 



for 
{ 



(j=0; j < BListSize (SubList) ; j++) 



TimingI = (GNL_TIMING_INFO) BListElt (SubList, j); 
if (GnlVarDir (Var) == GNL_VAR_ I NOUT && Inoutlsln) 

TimingI = ( GNL_T IM I NG_ INFO ) GnlTiminglnf oHook (TimingI ) / 
SetGnlTiminglnf oFanout (TimingI, NewFanout) ; 
SetGnlTiminglnfoCapa (TimingI, NewCapa) ; 



/* 

/* TimeLimitationFanoutOf Assoc 



/* 

GNL__STATUS TimeLimitationFanoutOf Assoc 

GNL ASSOC 



( 



GNL_VAR 

float 

LIBC_CELL 

LIBC_LIB 

int 

GNL 

int 

BLIST 



Assoc, 
Actual, 
LimitCapa, 

Buffer, 
Lib, 

*Id, 
TopGnl , 
*Tag, 

ListBuf f ers) 



GNL_COMPONENT 
GNL_VAR Var 
GNL JJS ER_COMPONENT 
GNL_T I M I NG_I NFO TimingI; 
int Rank ; 

unsigned int Key; 



GnlCompo; 
Formal, AuxFormal; 
UserCompo; 



GnlCompo = GnlAs socTr avers allnf oComponent (Assoc) ; 
if (GnlComponentType (GnlCompo) >= GNL_USER_COMPO) 
return (GNL_OK) ; 

UserCompo = ( GNL_US ER_COMPONENT ) GnlAssocTraversallnf oComponent (Assoc) 
Var = GnlAssocActualPort (Assoc) ; 
Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) GNL_FORMAL__CHAR ) 
return (GNL_OK) ; 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return { GNL_MEMORY_FULL ) ; 

if (TimeGetFormalFromAssocAndActual (Assoc, Actual, &AuxFormal) ) 
return (GNL_MEMORY_FULL) ; 

if 

(GnlTiminglnf oCorrespToCurrentPathFromVar (AuxFormal , &TimingI , &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL_VAR_INOUT) 

TimingI = (GNL_TIIV[ING__INFO) GnlTiminglnf oHook (TimingI) ; 
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if (TimeLimitationFanoutOfVar (AuxFormal, LimitCapa, Buffer, Lib, Id, 

TopGnl, Tag, 1, ListBuf fers) ) 
return ( GNL_MEMOR Y_FULL) ; 

BListDelShif t (G_PileOf Component , BListSize (G__PileOf Component ) ) ; 

return (GNL_OK) ; 

} 

/* *i 

/* TimeLimitationFanoutOfVarDests * / 

/* ±/ 

/* Doc procedure TimeLimitationFanoutOfVarDests : 

- Controls the load capacitance of the Destinations of a net (GML_VAR) 
taking into account the limit capacitance from the library. 

*/ 

/* 

GNL_STATUS TimeLimitationFanoutOfVarDests ( 

GNL_VAR Var, 
float LimitCapa, 
LIBC_CELL Buffer, 
LIBC_LIB Lib, 
int *id f 

int *ConstraintIsSatisf ied, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuf fers) 

{ 

int i, Rank, N; 

GNL_VAR AuxVa r , Fo rma 1 ; 

float AuxLimitCapa; 

float Length, WireCapa, OutCapa; 

GNL_TIMING_INFO AuxTimingI ; 

unsigned int Key; 

GNL_ASSOC Assoc; 

GNL_COMPONENT GnlCompo ; 

GNL_USER_COMPONENT UserCompo ; 

BLIST LeftVarAssigneds; 

BLIST AssocDests; 

int Fanout, Auxld; 

*ConstraintIsSatisf ied = 0; 

if (GnlGetDestinationsOfVar (Var, SeAssocDests, &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

if (!BListSize (AssocDests) IBListSize (LeftVarAssigneds)) 

BListQuickDelete (SAssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
return (GNL_0K) ; 

} 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Var, SAuxTimingl , &Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL_VAR_ I NOUT Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
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Fanout = GnlTiminglnf oFanout (AuxTimingI) ; 
if {Fanout == 1) 

{ 

*ConstraintIsSatisf ied = 1; 
return (GNL_OK) ; 

} 

Length = LibGetWireLengthFromFanout (G__WireLoad, Fanout) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad / Length, Lib) ; 

OutCapa = WireCapa + GnlTiminglnf oCapa (AuxTimingI) ; 

if {LimitCapa > OutCapa) 

{ 

*ConstraintIsSatisf ied = 1; 
return (GNL_OK) ; 

} 

/* N = 0; 

for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

Assoc = (GNL_ASSOC) BListElt (AssocDests, i) ; 
GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 
if (GnlComponentType (GnlCompo) != GNL_USER_COMPO) 
continue; 

UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
AuxVar = GnlAssocActualPort (Assoc) ; 
Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR) 

continue ; 
N++; 
}*/ 

AuxLimitCapa = LimitCapa; 
/* if ( (N ! - BListSize (AssocDests)) && BListSize (AssocDests)) 
N++; 

N += BListSize (Lef tVarAssigneds ) ; 
if (N) 

AuxLimitCapa = LimitCapa / N; 

*/ 

for (i=0; i < BListSize (Lef tVarAssigneds) ; i++) 
{ 

AuxVar = (GNL__VAR) BListElt (Lef tVarAssigneds , i) ; 
if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(AuxVar, ScAuxTimingl, &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 
Auxld = *Id; 

if (TimeLimitationFanoutOfVar (AuxVar, AuxLimitCapa, Buffer, Lib, Id, 

TopGnl, Tag, 0, ListBuffers) ) 

return (GNL_MEMORY_FULL) ; 

if (Auxld == *Id) 
continue ; 

if (GnlTiminglnf OCorrespToCurrentPathFromVar (Var , &AuxTimingI , &Key , &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) GNL_ VAR_ I NOUT Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, 
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GnlTiminglnfoFanout (AuxTimingI ) ) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (AuxTimingI) ; 

if (LimitCapa > OutCapa) 

{ 

*ConstraintIsSatisf ied = 1 ; 
return (GNL_OK) ; 

} 

} 

for (i=0; i < BListSize (AssocDests) ; i++) 
{ 

Assoc = (GNL_ASSOC) BListElt (AssocDests, i) ; 
Auxld = *Id; 

if (TimeLimitationFanoutOf Assoc (Assoc, Var, AuxLimitCapa , Buffer, Lib, 

Id, 

TopGnl, Tag, ListBuffers) ) 
return ( GNL_MEMORY_FULL ) ; 
if (Auxld == *Id) 
continue; 



if (GnlTiminglnf oCorrespToCurrentPathFromVar (Var, ^AuxTimingI , &Key, &Rank) ) 

return ( GNL JMEMORY JFULL ) ; 
if (GnlVarDir (Var) == GNL_VAR_INOUT && Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, 

GnlTiminglnfoFanout (AuxTimingI) ) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (AuxTimingI) ; 

if (LimitCapa > OutCapa) 

{ 

*ConstraintIsSatisfied = 1; 
return (GNL_OK) ; 

} 

} 



return (GNL_OK) ; 

} 

/* iz/ 

LIBC_CELL TimeSelectCorrectBuf f erDependingOf Capa (BLIST ListBuffers, 

float OutCapa, LIBC_LIB Lib) 

{ 



LIBC_CELL Buffer; 

int i, IndexCorrectBuf fer; 

float Diff; 

float InCapaBuf fer, LimitCapaBuf f er 

Diff = MAX_FLOAT; 
IndexCorrectBuf fer = 0; 

for (i=0; i < BListSize (ListBuffers); i++) 

{ 

Buffer = (LIBC_CELL) BListElt (ListBuffers, i) ; 

TimeGetlnCapaAndLimitCapa (Buffer, &InCapaBuf f er , &LimitCapaBuf f er , Lib) ; 
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if ( (LimitCapaBuf f er - OutCapa) < 0) 
continue; 

if (Diff > (LimitCapaBuf fer - OutCapa) ) 

{ 

Diff = LimitCapaBuf fer - OutCapa; 
IndexCorrectBuf f er = i; 

} 

} 

Buffer = (LIBC_CELL) BListElt (ListBuf f ers, IndexCorrectBuf fer) ; 
return (Buffer) ; 

} 

/* 

*/ 

void TimeComputeRequiredTimeAtBuf ferlnput (LIBC_CELL Buffer, 

float OutCapa, 
int Fanout, 
float InTransRise, 
float InTransFall, 
LIBC_LIB Lib, 
float *RequiredTime) 

{ 

LIBC_PIN Pinln, PinOut; 

float WireResi stance; 

float DelayR, DelayF, OutTransR, OutTransF; 

float Length; 

TimeGetPinlnAndPinOutOfBuff er (Buffer, fcPinln, &PinOut) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength {G_WireLoad, Length, Lib) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 

Fanout, Buffer, Pinln, PinOut, 

SDelayR, SOutTransR, 

&DelayF, &OutTransF) ; 
*RequiredTime = GnlMaxFloat (DelayR, DelayF) ; 



GNL_STATUS TimeBalanceRequiredTime (GNL_VAR Var, 



LIBC_CELL Buffer, 

float LimitCapa, 

LIBC_LIB Lib, 

int *Id, 

GNL TopGnl, 

int *Tag, 

int Inoutlsln, 

BLIST ListBuf f ers, 

int *ConstraintIsSatisf ied) 



BLIST AssocDestS; 

BLIST Lef tVarAssigneds, ListCapaPin, ListFanout; 

BLIST ListRequiredTime ; 

int i, K, Stop, FanoutBuf f er ; 

int AuxTag; 

float LoadPinBuf fer , LoadPinOf Var ; 
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float LoadWireBuf fer, LoadWireVar; 

float Length, AuxFloat, WireCapa, OutCapa; 

float RequiredTimel , RequiredTime; 

GNL_TIMING_INFO AuxTimingI ; 

int Rank, Auxlnt, Auxld; 

unsigned int Key; 

LIBC_CELL CorrectBuffer; 

*ConstraintIsSatisf ied = 0; 

if (GnlGetDestinationsOfVar (Var f &AssocDests, &Lef tVarAssigneds ) ) 
return { GNL_MEMORY_FULL ) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, ^AuxTimingI , &Key, &Rank) ) 

return (GNL_MEMORY__FULL) ; 
if (GnlVarDir (Var) GNL_VAR_ I NOUT Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
AuxTag = GnlTiminglnf oTag (AuxTimingI) ; 

if (BListCreateWithSize (BListSize (AssocDests) , ^ListCapaPin) ) 

return ( GNL_MEMORY_F ULL ) ; 
if (BListCreateWithSize (BListSize (AssocDests) , ^ListRequiredTime) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests), &ListFanout) ) 

return (GNL_MEMORY_FULL) ; 
if (TimeGetListCapaPin (AssocDests, Var, ListCapaPin, ListFanout, 

ListRequiredTime, Lib, AuxTag)) 

return ( GNL_MEMORY_FULL ) ; 

i = BListSize (ListCapaPin) - 1; 
FanoutBuffer = 0; 
LoadPinBuf f er = 0.0; 
K = -1; 
Stop = 0; 

while ('Stop) 
{ 

AuxFloat = *( (float *) BListElt {ListCapaPin, i) ) ; 

Auxlnt = *{(int *) BListElt (ListFanout, i) ) ; 

RequiredTimel - *( (float *) BListElt (ListRequiredTime, i) ) ; 

FanoutBuffer = FanoutBuffer + Auxlnt; 

LoadPinBuf fer = LoadPinBuf fer + AuxFloat ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, FanoutBuffer) ; 
LoadWireBuf fer = LibGetWireScaledCapaFromLength (G_WireLoad, Length, 



Lib) 



TimeComputeRequiredTimeAtBuf ferlnput (Buffer, 

LoadPinBuf fer+LoadWireBuf fer, 
FanoutBuffer, 

GnlTiminglnfoTransitionRise (AuxTimingI) , 
GnlTiminglnf oTransitionFall (AuxTimingI) , 
Lib, ScRequiredTime) ; 
if ( (RequiredTimel - RequiredTime) > 

^ *{ (float*) BListElt (ListRequiredTime, 0))) 

K++; 
i--; 

} 

else 
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{ 

LoadPinBuf f er = LoadPinBuf f er - AuxFloat; 
FanoutBuffer = FanoutBuffer - Auxlnt; 

Length = LibGetWireLengthFromFanout (GJtfireLoad, FanoutBuffer) ; 
LoadWireBuf fer =LibGetWireScaledCapaFromLength ( G WireLoad, Lenqth 
Lib) ; ' 

i - -1; 

} 

if (i == -1) 

Stop = 1; 

} 

BListDelete (&ListCapaPin, BListElemFree) ; 
BListDelete (&ListRequiredTime , BListElemFree) ; 
BListDelete (&ListFanout , BListElemFree) ,- 
BListQuickDelete (ScAssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
if (K >= 1) 

{ 

CorrectBuffer = TimeSelectCorrectBuf f erDependingOf Capa (ListBuf f ers , 

LoadPinBuf fer + LoadWireBuf f er , Lib) ; 
if (TimelnsertBufferAtVar (Var f CorrectBuffer, K, Lib, Id, TopGnl, 

Tag, Inoutlsln) ) 
return ( GNL_MEMORY_FULL ) ; 
if (TimeBalanceRequiredTime (Var, Buffer, LimitCapa, Lib, Id, 
TopGnl, Tag, Inoutlsln, ListBuf f ers, 
ConstraintlsSatisf ied) ) 

return ( GNL_MEMORY_FULL ) ; 

} 

if (GnlTimingInfoCorrespToCurrentPathFromVar(Var, ScAuxTirningl , &Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL__VAR_INOUT && Inoutlsln) 

AuxTimingl - (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingl) ; 
LoadPinOfVar = GnlTiminglnf oCapa (AuxTimingl) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, 

GnlTiminglnf oFanout (AuxTimingl) ) ; 
LoadWireVar = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
if ( (LoadPinOfVar + LoadWireVar) LimitCapa) 
*ConstraintIsSatisf ied = 1; 



return (GNLJ3K) ; 

} 



/* #/ 

/* TimeLimitationFanoutOfVar */ 
/* 

/ ^ J 

/* Doc procedure TimeLimitationFanoutOfVar : 

- Controls the load capacitance of a net (GNL_VAR) taking into account 
the limit capacitance from the library. 

*/ 

/* 



/ 



extern GNL_STATUS TimeLimitationFanoutOfVar ( GNL_VAR Var, 

float LimitCapa, 
LIBC_CELL Buffer, 
LIBCJLIB Lib, 
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int *id, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuf f ers ) 



BLIST AssocDestS; 

BLIST LeftVarAssigneds, ListCapaPin, ListFanout ; 

BLIST ListRequiredTime; 

int i/ K, Stop, FanoutBuf fer, Fanout, Fanout Var; 

int Cons t raint I s S a t i s f i ed , AuxTag ; 

GNL_ASSOC Assoc; 

GNL_VAR Actual; 

float InCapaBuffer, LimitCapaBuf f er ; 

f loat LoadPinBuf fer, LoadPinOf Var ; 

float LoadWireBuf fer, LoadWireVar; 

float Length, AuxFloat, WireCapa, OutCapa; 



GNLJJSER_COMPONENT InstOf Gnl ; 

char *Str; 
GNLJTIMING_INFO AuxTimingI ; 
int Rank, Auxlnt, Auxld; 

unsigned int Key; 
LIBC_CELL CorrectBuffer; 

if (GnlGetDestinationsOfVar (Var, &AssocDests, &Lef tVarAssigneds) ) 
return ( GNL_MEMOR Y_FULL) ; 

if (GnlTimingInfoCorrespToCurrentPathFromVar(Var, AuxTimingI, &Key, &Rank) ) 

return ( GNL _MEMORY_FULL ) ; 
if (GnlVarDir (Var) == GNL_VAR_ INOUT && Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI); 
AuxTag = GnlTiminglnf oTag (AuxTimingI); 
Fanout = GnlTiminglnf oFanout (AuxTimingI) ; 
if (Fanout 1) 

return (GNL_OK) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ,* 
OutCapa = WireCapa + GnlTiminglnf oCapa (AuxTimingI) ; 

if (LimitCapa > OutCapa) 
return (GNL_OK) ; 

TimeGetlnCapaAndLimitCapa (Buffer, &InCapaBuf f er , &LimitCapaBuf f er , Lib) ; 
if (InCapaBuf f er >= LimitCapa) 
return (GNL_OK) ; 

if ( (GnlVarDir (Var) == GNL_VAR_OUTPUT ) | | (GnlVarDir (Var) == 
GNL_VAR_INOUT) ) 
{ 

if (BListSize (G_PileOf Component) ) 

InstOf Gnl - (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_Pi leOf Component) ) ; 
Assoc = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOf Gnl, 
&Actual) ; 
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if { lAssoc) 
{ 

if (BListAddElt (G_PileOf Component , InstOfGnl) ) 

return { GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (TimeLimitationFanoutOfVar (Actual, LimitCapa, Buffer, Lib, 

Id, TopGnl, Tag, 0, ListBuf fers) ) 
return ( GNL_MEMORY_FULL ) ; 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return { GNL__MEMOR Y__FULL ) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, &AuxTimingI , &Key, 

&Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL_VAR__INOUT && Inoutlsln) 

AuxTimingl = ( GNL_T I M ING_ I NFO ) Gnl Timing I nfoHook (AuxTimingI); 
Fanout = GnlTiminglnfoFanout (AuxTimingI) ; 
if (Fanout == 1) 

return (GNL_OK) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (AuxTimingI) ; 

if (LimitCapa > OutCapa) 
return (GNL__OK) / 

} 

} 

if (IBListSize (AssocDests) ) 

{ 

BListQuickDelete (S^AssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 

} 

else 

{ 

ConstraintlsSatisf ied = 0; 



if (TimeBalanceRequiredTime (Var, Buffer, LimitCapa, Lib, Id, 
TopGnl, Tag, Inoutlsln, ListBuf fers, 
^ConstraintlsSatisf ied) ) 

return ( GNL_MEMORY_FULL ) ; 

if ( ! ConstraintlsSatisf ied) 

{ 

BListQuickDelete (&AssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 

if (GnlGetDestinationsOfVar (Var, SAssocDests, &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

if (BListCreateWithSize (BListSize (AssocDests), &ListCapaPin) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests) , &ListRequiredTime) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests) , &ListFanout) ) 
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return (GNL_MEMORY_FULL) ; 
if (TimeGetListCapaPin (AssocDests, Var, ListCapaPin, ListFanout, 

ListRequiredTime, Lib, AuxTag) ) 
return ( GNL_MEMORY_FULL ) ; 

FanoutVar = GnlTiminglnf oFanout (AuxTimingI) ; 
i = BListSize (ListCapaPin) - 1; 
FanoutBuffer = 0; 
LoadPinBuf f er = 0.0; 
K = -1; 
Stop = 0; 

LoadPinOfVar = GnlTiminglnf oCapa (AuxTimingI) + InCapaBuf f er ; 
while (!Stop) 

{ 

AuxFloat = *( (float *) BListElt (ListCapaPin, i) ) ; 
Auxlnt = *((int *) BListElt (ListFanout, i) ) ; 
FanoutBuffer = FanoutBuffer + Auxlnt; 
LoadPinBuf fer = LoadPinBuf fer + AuxFloat; 

Length = LibGetWireLengthFromFanout (GJtfireLoad, FanoutBuffer) ; 
LoadWireBuffer = LibGetWireScaledCapaFromLength (G_WireLoad, 

Length, Lib) ; 

LoadPinOfVar = LoadPinOfVar - AuxFloat; 

Length = LibGetWireLengthFromFanout (G__WireLoad, 

FanoutVar- FanoutBuf fer+1) ; 
LoadWireVar - LibGetWireScaledCapaFromLength (G_WireLoad, Length, 



if ( (LoadPinBuf fer + LoadWireBuffer) <= LimitCapaBuf f er) 

K++; 
i--; 
} 

else 

{ 

LoadPinBuf fer = LoadPinBuf fer - AuxFloat; 
LoadPinOfVar = LoadPinOfVar + AuxFloat; 
FanoutBuffer = FanoutBuffer - Auxlnt; 

Length = LibGetWireLengthFromFanout (G_WireLoad, FanoutBuffer) ; 
LoadWireBuffer =LibGetWireScaledCapaFromLength (G_WireLoad, 

Length, Lib) ; 
Length = LibGetWireLengthFromFanout (G_WireLoad, 

FanoutVar -FanoutBuf fer+1) ; 
LoadWireVar = LibGetWireScaledCapaFromLength (G_WireLoad, 

Length, Lib) ; 

i = -1; 
} 

if (i == -1) 

Stop = 1; 

if ( (LoadPinOfVar + LoadWireVar) <= LimitCapa) 
Stop - 1; 

} 

BListDelete (&ListCapaPin, BListElemFree); 
BListDelete (&ListRequiredTime, BListElemFree) ; 
BListDelete (&ListFanout , BListElemFree) ; 
BListQuickDelete (&AssocDests) ; 
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BListQuickDelete (&Lef tVarAssigneds ) ; 

if ( (K >= 0) && (InCapaBuf fer < LoadPinBuf fer) ) 

{ 

CorrectBuf fer = TimeSelectCorrectBuf f erDependingOf Capa (ListBuf f ers , 

LoadPinBuf fer + LoadWireBuf f er , Lib) ; 
if (Time Ins ertBuf ferAtVar (Var, CorrectBuf fer, K, Lib, Id, TopGnl, 

Tag, Inoutlsln) ) 
return ( GNL_MEMORY_FULL ) ; 
if (TimeLimitationFanoutOfVar (Var, LimitCapa, Buffer, Lib, Id, 

TopGnl, Tag, Inoutlsln, ListBuffers) ) 

return (GNL_MEMORY_FULL) / 

} 

} 

} 

Auxld = *Id; 

if (TimeLimitationFanoutOfVarDests (Var, LimitCapa, Buffer, Lib, Id, 

&Cons t r a int I s S a t i s f i e d , TopGnl , Tag , 
Inoutlsln, ListBuffers) ) 

return (GNL_MEMORY_FULL) ; 

if ( (Auxld ! = *id) !ConstraintIsSatisfied) 

if (TimeLimitationFanoutOfVar (Var, LimitCapa, Buffer, Lib, Id, 

TopGnl, Tag, Inoutlsln, ListBuffers)) 

return ( GNL_MEMORY_FULL ) ; 
return (GNL_0K) ; 

} 

/*- : v 

/* TimeGetBestEquivCell */ 

/ #/ 

GNL_STATUS TimeGetBestEquivCell (GNL_USER_COMPONENT UserCompo, 

BLIST ListEquivCells , 

float OutCapa, 
LIB_DERIVE_CELL *BestCell , 
float *BestLimitCapa, 
LIBC LIB Lib) 

{ 

int i ; 

LIB_DERIVE_CELL DriveCell, CurrentDeriveCell , DeriveCelll; 

LIB_CELL MotherCell , CurrentMotherCell , MotherCelll ; 

LIBC_CELL Cell; 

float LimitCapa; 

LIBC_PIN PinOut; 

int Negative Index, Positivelndex; 

float NegativeDif f , PositiveDif f ; 

float NegativeLimitCapa, PositiveLimitCapa; 



Negativelndex = Positivelndex = -1; 
NegativeDiff = -MAX_FL0AT; 
PositiveDiff = MAX_FLOAT; 

GnlFindCellsUserCompo {UserCompo, ^CurrentMotherCell , 

&CurrentDeriveCell) ; 
for (i=0; i < BListSize (ListEquivCells); i++) 
{ 
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} 



DriveCell = ( L I B_DER I VE__CELL ) BListElt (ListEquivCells , i) ; 
/* We dont accept the inverter cell */ 
if (LibDeriveCellBdd (CurrentDeriveCell) != 
LibDeriveCellBdd (DriveCell) ) 
continue; 

MotherCell = LibDeriveCellMotherCell (DriveCell) ; 
Cell = LibHCellLibcCell (MotherCell); 

PinOut = LibGetPinFromNameAndCell (Cell, LibHCellOutput (MotherCell)); 
LimitCapa = LibPinMaxCapa (PinOut) ; 
if (LimitCapa == 0.0) 

LimitCapa = LibDef aultMaxCapa (Lib) ; 

if ({LimitCapa - OutCapa) < 0) 

{ 

if (NegativeDif f < (LimitCapa - OutCapa) ) 

{ 

NegativeDif f = (LimitCapa - OutCapa) ; 
Negativelndex = i; 
NegativeLimitCapa = LimitCapa; 

} 

} 

else 

if (PositiveDif f > (LimitCapa - OutCapa) ) 

{ 

PositiveDiff = LimitCapa - OutCapa; 

Positivelndex - i; 

Posit iveLimitCapa = LimitCapa; 

} 



if (Positivelndex >= 0) 
{ 

*BestCell = (LIB_DERIVE_CELL) BListElt (ListEquivCells, Positivelndex); 
*BestLimitCapa = PositiveLimitCapa; 

} 

else 
{ 

*BestCell = (LIB_DERIVE_CELL) BListElt (ListEquivCells, Negativelndex); 
*BestLimitCapa = NegativeLimitCapa; 

} 

return (GNL OK) ; 



/* 

/* TimeReplaceByOtherEquivCell */ 

/* 

GNL_STATUS TimeReplaceByOtherEquivCell (GNL_COMPONENT Compo, 

LIBC_LIB Lib, 
float OutCapa, 
float *BestLimitCapa , 

GNL TopGnl) 



BLIST ListEquivCells ; 

LIB_DERIVE_CELL BestCell; 
GNL_USER_COMPONENT UserCompo ; 
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switch (GnlComponentType (Compo) ) { 

case GNLJJSER_COMPO : 

UserCompo = ( GNL_USER_COMPONENT ) Compo ; 

ListEquivCells = GnlUserComponentEquivCells (UserCompo) ; 
if (! ListEquivCells || !BListSize (ListEquivCells)) 

return (GNL_OK) ; 
if (TimeGetBestEquivCell (UserCompo, ListEquivCells, OutCap 

&BestCell,BestLimitCapa, Lib)) 

return (GNL_MEMORY_FULL) ; 

if (GnlReplaceUserCompoByDeriveCell (TopGnl, UserCompo, 

BestCell, 

(LIB_DERIVE_CELL) NULL, 
(BLIST) NULL) ) 

return ( GNL_MEMORY_FULL ) ; 
break; 

case GNL_SEQUENTIAL_COMPO : 
return (GNL_OK) ; 

case GNL_TRISTATE_COMPO: 
return (GNL_OK) ; 

case GNL_BUF_COMPO : 

return (GNL_OK) ; 

default : 

return (GNL_OK) ; 

} 

return (GNLjOK) ; 

} 



/* * 

/* TimeLimitationFanoutOfGenericCompo * / 

/* ^ 

GNL_STATUS TimeLimitationFanoutOf GenericCompo ( GNL_COMPONENT Compo, 

LIBC_CELL Buffer, 

LIBC_LIB Lib, 

int *id, 

GNL TopGnl , 

int *Tag, 

BLIST ListBuffers) 



LIBC__CELL Cell; 

LIBC_PIN PinOut; 

float LimitCapa, OutCapa, WireCapa, Length; 

BLIST Interface; 

GNL_ASSOC AssocI; 

int Rank, i, Fanout, J; 

char * Formal, *Str; 

GNL_VAR Varl, AuxVar; 

unsigned int Key; 



GNL_TIMING_INFO TimingI; 
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if (GnlGetCellFromGnlCompo (Compo, &Cell) ) 
return (GNL_MEMORY_FULL) ; 

if (ICell) 

return (GNL_OK) ; 

if (GnlGetlnterfaceFromGnlCompo (Compo, ^Interface) ) 
return (GNL_MEMORY_FULL) ; 

for^(i=0; i < BListSize (Interface); i++) 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
if (lAssod) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (IVarl) 
continue ; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

if (GnlVarDir (Varl) == GNL_VAR__INOUT) 
continue ; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (PinOut) 1= OUTPUT E) 

continue; — 
LimitCapa = LibPinMaxCapa (PinOut) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 

if (Stringldentical (GnlVarName (Varl), "F376")) 
J=i; 

Fanout = GnlTiminglnfoFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) 

OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI); 

if (OutCapa > LimitCapa) 

{ 

if (GnlGetHierarchycallnstName {(char *) NULL, &Str) ) 
return (GNL_MEMORY_FULL) ; 
/* fprintf (stderr,"-- Violation"); 

if (Str) 

fprintf (stderr," %s\t", Str) ; 
fprintf (stderr, "%s\t%.3f\t%.3f\t%d \n", 

GnlVarName (Varl) , LimitCapa, OutCapa, Fanout) ; 

*/ 

/* if (TimeReplaceByOtherEquivCell (Compo, Lib, OutCapa, 

&LimitCapa, 

TopGnl ) ) 
return (GNL_MEMORY FULL) ; 

*/ 

if (TimeLimitationFanoutOfVar (Varl, LimitCapa, Buffer, Lib, Id 
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TopGnl, Tag, 0, ListBuffers) ) 

return (GNL_MEMORY_FULL) ; 

} 

} 



return (GNL_OK) ; 

} 

/* ^ 

/*-- — --- */ 

/* TimeLimitationFanoutFromGnl */ 

/. v 

/* Doc procedure TimeLimitationFanoutFromGnl : 

- Satisfy or limits the fanout of each gate in a given 
Gnl (GNL) . 

- It takes into account the values in the library 

*/ 

/* v 

GNL_STATUS TimeLimitationFanoutFromGnl (GNL Gnl, LIBC CELL Buffer, LIBC LIB 
Lib, 

int *Id, GNL TopGnl, int *Tag, 
BLIST ListBuffers) 

{ 

int i ; 

GNL_ STATUS GnlStatus ; 

GNL_C0MP0NENT Component I ; 

GNL GnlCompol ; 

for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 

Component I = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if ( J Component I) 
continue; 

if (GnlComponentType (ComponentI) == GNL USER COMPO) 
{ " ~ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component, (GNL_USER_COMPONENT) ComponentI)) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlStatus = TimeLimitationFanoutFromGnl (GnlCompol, Buffer, Lib 

Id, 

TopGnl, Tag, ListBuffers)) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

} 

if (GnlComponentType (ComponentI) == GNL_USER_COMPO) 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI) ; 
if (GnlCompol) 
continue; 

} 
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if (TimeLimitationFanoutOf GenericCompo ( Component I , Buffer, Lib, 

Id, TopGnl, Tag, ListBuf fers) ) 

return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* + / 

/* TimeLimitationFanoutFromNetwork . */ 

/* i(/ 

/* Doc procedure TimeLimitationFanoutFromNetwork : 

- Satisfy or limits the fanout of each gate in a given 
Network (GNLJNETWORK) . 

- It takes into account the values in the library 

*/ 

/* it/ 

GNL_STATUS TimeLimitationFanoutFromNetwork (GNL_NETWORK Nw, 

LIBC LIB Lib) 

{ 

GNL TopGnl; 
GNL ^STATUS GnlStatus ; 

BLIST ListBuf fers ; 

int i, id, Tag; 

LIBC_CELL Celll; 
LIBC_CELL Buffer; 

float MaxLimitCapaBuf fer, InCapaBuf f er, LimitCapaBuf f er ; 

GNL_LIB HGnlLib; 



/* We pick up the internal lib representation. */ 
HGnlLib = (GNL_LIB) LibHook (Lib) ; 

Id = 0; 

Tag = GnlNetworkTag (Nw) + 1; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component ) ) 
return (GNL_MEMORY_FULL) ; 

ListBuf fers = GnlHLibCellsBuf f ers (HGnlLib) ; 

MaxLimitCapaBuf fer = 0.0; 

Buffer = (LIBC_CELL) NULL; 

for (i=0; i < BListSize (ListBuf fers ) ; i++) 
{ 

Celll = (LIBC_CELL) BListElt (ListBuf fers , i) ; 

TimeGetlnCapaAndLimitCapa (Celll, &InCapaBuf f er , ^LimitCapaBuf f er , Lib) 
if (MaxLimitCapaBuf fer < LimitCapaBuf fer) 
{ 

Buffer = Celll; 

MaxLimitCapaBuf fer = LimitCapaBuf fer ; 

} 

} 

if (IBListSize (ListBuf fers) || IBuffer) 
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return (GNLJ3K) ; 

} 

if (TimeLimitationFanoutFromGnl (TopGnl, Buffer, Lib, &Id, TopGnl , &Tag, 

ListBuf fers) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlNetworkTag (Nw, Tag) ; 

BListQuickDelete (&G_PileOf Component ) ; 
return (GNL OK) ; 



/* 

/* 

GNL_STATUS TimeOptBalanceRequiredTime (GNL_VAR 

LIBC_CELL Buffer, 

LIBCjLIB 

int 

GNL 

int 

int 

BLIST 



Var, 



{ 



Lib, 
*Id, 
TopGnl , 
*Tag, 

Inoutlsln, 
ListBuf fers) 



BLIST 
BLIST 
BLIST 
int 
int 
float 
float 
float 
float 



AssocDests ; 

LeftVarAssigneds, ListCapaPin, ListFanout; 



ListRequiredTime ; 
i, K, Stop, FanoutBuf f er , Fanout ; 
AuxTag ; 

LoadPinBuf f er , LoadPinOf Var ; 
LoadWireBuf f er, LoadWireVar; 
Length, AuxFloat, WireCapa, OutCapa; 
RequiredTimel , RequiredTime ; 
GNL_TIMING_INFO AuxTimingI ; 
int Rank, Auxlnt, Auxld; 

unsigned int Key; 
LIBC_CELL CorrectBuffer; 

if (GnlGetDestinationsOfVar (Var, ScAssocDests , &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, ^AuxTimingI , &Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL_VAR__INOUT && Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
Fanout = GnlTiminglnf oFanout (AuxTimingI) ; 
if (Fanout <= 3) 

return (GNL_0K) ; 
if (BListSize (AssocDests) <= 3 ) 
return (GNL_OK) ; 

AuxTag = GnlTiminglnf oTag (AuxTimingI) ; 

if (BListCreateWithSize (BListSize (AssocDests), &ListCapaPin) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests) , &ListRequiredTime) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests), &ListFanout) ) 



E-HUBBLE-297 



tirnefan.c 



return (GNL_MEMORY_FULL) ; 
if (TimeGetListCapaPin (AssocDests, Var, ListCapaPin, ListFanout, 

ListRequiredTime, Lib, AuxTag) ) 
return (GNL_MEMORY_FULL) ; 

i = BListSize (ListCapaPin) - 1; 
FanoutBuf f er = 0 ; 
LoadPinBuf f er = 0.0; 
K = -1; 
Stop = 0; 
while (I Stop) 
{ 

AuxFloat = *{ (float *) BListElt (ListCapaPin, i) ) ,* 

Auxlnt = *((int *) BListElt (ListFanout, i) ) ; 

RequiredTimel = *( (float *) BListElt (ListRequiredTime, i)); 

FanoutBuf fer = FanoutBuf fer + Auxlnt; 

LoadPinBuf fer = LoadPinBuf fer + AuxFloat; 

Length = LifoGetWireLengthFromFanout (G_WireLoad, FanoutBuf fer) ; 
LoadWireBuf fer = LibGetWireScaledCapaFromLength (GJtfireLoad, Length, 

Lib) ; 



Lib) 



} 



TimeComputeRequiredTimeAtBuf f erlnput (Buffer, 

LoadPinBuf f er+LoadWireBuf fer, 
FanoutBuf fer, 

GnlTiminglnfoTransitionRise (AuxTimingI) , 
GnlTiminglnfoTransitionFall (AuxTimingI) , 
Lib, ScRequiredTime) ; 
if ( (RequiredTimel - RequiredTime) > 

^ *( (float*) BListElt (ListRequiredTime, 0))) 

K++; 

i--; 

} 

else 
{ 

LoadPinBuf fer = LoadPinBuf fer - AuxFloat; 
FanoutBuf fer = FanoutBuf fer - Auxlnt; 

Length = LibGetWireLengthFromFanout (G__WireLoad, FanoutBuf fer) ; 

LoadWireBuf fer =LibGetWireScaledCapaFromLength (G_WireLoad, Length, 

i = -1; 
} 

if (i == -1) 
Stop = 1; 



BListDelete (&ListCapaPin, BListElemFree) ; 
BListDelete (&ListRequiredTime , BListElemFree) ; 
BListDelete (&ListFanout , BListElemFree) ; 
BListQuickDelete (SAssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
if (K >= 1) 

{ 

/* CorrectBuffer = TimeSelectCorrectBuf f erDependingOf Capa (ListBuf f ers, 

LoadPinBuf fer + LoadWireBuf fer , Lib);*/ 
if (TimelnsertBuf ferAtVar (Var, Buffer, K, Lib, Id, TopGnl, 

Tag, Inoutlsln) ) 
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return (GNL_MEMORY_FULL) ; 
if (TimeOptBalanceRequiredTime {Var, Buffer, Lib, Id, 
TopGnl, Tag, Inoutlsln, ListBuffers) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* EOF 
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/*... 








/* 








/* 


File: timefan.e 






/* 


Version: 1.1 






/* 


Modifications: 






/* 


Documentation: 






/* 








/* 


Description: 


*/ 




/* 








/*--- 









extern GNL_STATUS TimeLimitationFanoutOf Var <GNL_VAR Var, 

float LimitCapa, 

LIBC_CELL Buffer, 

LIBC_LIB Lib, 

int *Id, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuffers) / 

extern GNL__S TATUS TimeLimitationFanoutFromNetwork (GNL_NETWORK Nw, 

LIBC_LIB Lib) ; 

extern GNL__S TATUS TimeOptBalanceRequiredTime (GNL_VAR Var, 

LIBC_CELL Buffer, 

LIBC_LIB Lib, 

int *Id, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuffers) ; 



/* 

/* EOF 
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/* 

/* 

GNL_STATUS TimeOptBalanceRequiredTime (GNL_VAR 



■*/ 

-*/ 



Var, 



LIBC_CELL Buffer, 

LIBC__LIB Lib, 

int *ld, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuffers) 



BLIST 

BLIST 

BLIST 

int 

int 

float 

float 

float 

float 

GNL_TIMING_INFO 
int 

unsigned int 
LIBC CELL 



AssocDests ; 

Lef tVarAssigneds, ListCapaPin, ListFanout; 

ListRequiredTime; 
i, K, Stop, FanoutBuf f er , Fanout / 
AuxTag ; 

LoadPinBuf f er, LoadPinOfVar ; 

LoadWireBuf f er, LoadWireVar ; 

Length, AuxFloat, WireCapa, OutCapa; 

RequiredTimel , RequiredTime ; 
AuxTimingI ; 
Rank, Auxlnt, Auxld; 

Key; 
CorrectBuf f er ; 



if (GnlGetDestinationsOfVar (Var, 6cAssocDests , &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, &AuxTimingI, &Key, &Rank) ) 

return (GNL_MEMORY_FULL) ; 
if (GnlVarDir (Var) == GNL_VAR_INOUT Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
Fanout = GnlTiminglnf oFanout (AuxTimingI) ; 
if (Fanout <= 3) 

return (GNL_OK) ; 
if (BListSize (AssocDests) 3 ) 
return (GNL_OK) ; 

AuxTag = GnlTiminglnf oTag (AuxTimingI) ; 

if (BListCreateWithSize (BListSize (AssocDests), &ListCapaPin) ) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreateWithSize (BListSize (AssocDests) , &ListRequiredTime) ) 

return (GNL_MEMORY_FULL) ; 
if (BListCreateWithSize (BListSize (AssocDests) , ^ListFanout) ) 

return (GNL_MEMORY_FULL) ; 
if (TimeGetListCapaPin (AssocDests, Var, ListCapaPin, ListFanout, 

ListRequiredTime, Lib, AuxTag)) 

return (GNL_MEMORY_FULL) ; 



i = BListSize (ListCapaPin) - 1; 
FanoutBuf fer = 0; 
LoadPinBuf fer = 0.0; 
K = -1; 
Stop = 0; 
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Lib) ; 



while (!Stop) 
{ 

AuxFloat = *( (float *) BListElt (ListCapaPin, i)) ; 

Auxlnt = *((int *) BListElt (ListFanout, i) ) ; 

RequiredTimel = *( (float *) BListElt (ListRequiredTime , i) ) ; 

FanoutBuffer = FanoutBuffer + Auxlnt; 

LoadPinBuf f er = LoadPinBuf f er + AuxFloat; 

Length = LibGetWireLengthFromFanout (G_WireLoad, FanoutBuffer) ; 
LoadWireBuffer = LibGetWireScaledCapaFromLength (GJffireLoad, Length, 



Lib) 



} 



TimeComputeRequiredTimeAtBuf ferlnput (Buffer, 

LoadPinBuf f er+LoadWireBuf f er , 
FanoutBuffer, 

GnlTiminglnf oTransitionRise (AuxTimingI) 
GnlTiminglnf oTransitionFall (AuxTimingI) 
Lib, ScRequiredTime) ; 
if ( (RequiredTimel - RequiredTime) > 

*( (float*) BListElt (ListRequiredTime , 0))) 

{ 

K++; 

i--; 

} 

else 

{ 

LoadPinBuf fer = LoadPinBuf fer - AuxFloat ; 
FanoutBuffer = FanoutBuffer - Auxlnt; 

Length = LibGetWireLengthFromFanout (G_WireLoad, FanoutBuffer) ; 

LoadWireBuffer =LibGetWireScaledCapaFromLength (G_WireLoad, Length, 

i = -1; 
} 

if (i == -1) 
Stop - 1; 



BListDelete ( &ListCapaPin, BListElemFree) ; 
BListDelete (&List RequiredTime, BListElemFree) ; 
BListDelete (&ListFanout , BListElemFree) ; 
BListQuickDelete (&AssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 
if (K >= 1) 
{ 

CorrectBuf f er = TimeSelectCorrectBuf f erDependingOf Capa (ListBuf f ers, 

LoadPinBuf fer + LoadWireBuffer, Lib) ; 
if (TimelnsertBuf ferAtVar (Var, CorrectBuf fer , K, Lib, Id, TopGnl, 

Tag, Inoutlsln) ) 
return (GNL_MEMORY_FULL) ; 
if (TimeOptBalanceRequiredTime (Var, Buffer, Lib, Id, 
TopGnl, Tag, Inoutlsln, ListBuf fers) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 

/* ie/ 

/* TimeOptFanoutOfVar */ 
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/* 

extern GNL STATUS 



-*/ 



TimeOptFanoutOfVar (GNLJVAR 

LIBC_CELL Buffer, 

LIBC_LIB Lib, 

int *Id, 

GNL TopGnl , 

int *Tag, 

int Inoutlsln, 

BLIST ListBuf fers] 



Var, 



BLIST 
BLIST 
BLIST 
int 
int 

GNL_ASSOC 
GNL__VAR 
float 
float 
float 
float 
GNL_USER_ 
char 
GNL_TIMING__INFO 
int 

unsigned int 
LIBC CELL 



ListCapaPin, ListFanout; 



FanoutVar ; 



COMPONENT 

*Str; 



AssocDests ; 

Lef tVarAssigneds , 

ListRequiredTime; 
i, K, Stop, FanoutBuf f er, Fanout, 
ConstraintlsSatisf ied 7 AuxTag; 
Assoc ; 
Actual ; 

InCapaBuf f er, LimitCapaBuf f er ; 
LoadPinBuf f er , LoadPinOf Var ; 
LoadWireBuf f er , LoadWireVar ; 
Length, AuxFloat, WireCapa, OutCapa; 
InstOfGnl; 



AuxTimingI ; 

Rank , Auxlnt , Auxld ; 

Key; 
CorrectBuf f er ; 



if (GnlGetDestinationsOfVar (Var, SAssocDests, &Lef tVarAssigneds) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, SAuxTimingl , &Key, &Rank) ) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlVarDir (Var) == GNL_VAR_INOUT Inoutlsln) 

AuxTimingI = (GNL_TIMING_INFO) GnlTiminglnf oHook (AuxTimingI) ; 
AuxTag = GnlTiminglnf oTag (AuxTimingI) ; 
Fanout = GnlTiminglnf oFanout (AuxTimingI) ; 
if (Fanout <= 3) 
return (GNL_OK) ; 

if (IBListSize (AssocDests)) 

{ 

BListQuickDelete (SAssocDests) ; 
BListQuickDelete (&Lef tVarAssigneds) ; 

} 

else 

{ 

if (TimeOptBalanceRequiredTime (Var, Buffer, Lib, Id, 
TopGnl, Tag, Inoutlsln, ListBuf fers) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL_OK) ; 

} 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


timepath. c 




Version : 


1 . 1 




Modifications : 






Documentation : 






Description : 




*/ 



#include <stdio.h> 



#include "blist.h" 
#include "gnl.h" 
#include " libc_mem . h" 
#include " libc_api . h" 
#include "gnlestim. h" 
# include "time.h" 
# include "bbdd.h" 
#include "gnllibc .h" 
# include "gnlmap.h" 

#include "blist.e" 
#include "libutil.e" 
#include "timeutil .e" 
# include "timecomp.e" 
#include "timepath.e" 



/* 

BLIST LocalListOf Clocks ; 
BLIST LocalListOf PathElem; 
BL1ST MatrixCriticalPath; 

float LocalMinSlackForCombPath, LocalMinSlackForSeqPath; 

int G_Print = 0; 

int Local I sAbout Combinational ; 

#define HASH_LIST_PATH_ELEM 2 00 

/* 

/* TimeCreatePathElem 

/* 

GNL_STATUS TimeCreatePathElem { GNL_PATH_ELEM *PthElem) 

{ 



if ((*PthElem= (GNL_PATH_ELEM) 

calloc (1, sizeof <GNL_PATH_ELEM_REC) ) ) == NULL) 
return (GNL__MEMORY_FULL) ; 

SetGnlPathElemlnPort (*PthElem, NULL) ; 
SetGnlPathElemOutPort (*PthElem, NULL);; 
SetGnlPathElemCompo {*PthElem, NULL) ; 
SetGnlPathElemCriticalVar (*PthElem, NULL) ; 
SetGnlPathElemFanout (*PthElem, 0) ; 
SetGnlPathElemlnstName (*PthElem, NULL) ; 
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} 



SetGnlPathElemRiseArrTime (*PthElem, 0.0) 
SetGnlPathElemFallArrTime (*PthElem, 0.0) 
SetGnlPathElemRiseReqTime (*PthElem / 0.0) 
SetGnlPathElemFallReqTime (*PthElem, 0.0) 
SetGnlPathElemRiselncr ( *PthElem / 0.0) ; 
SetGnlPathElemFalllncr (*PthElem / 0.0) ; 

return (GNL OK) ; 



ttdefine OUT_END 199 
#define FF_LATCH_END 200 
#define ALL END 201 



/* 

/* TimeFreePathElem 

/* 

void TimeFreePathElem (GNL_PATH_ELEM *PthElem) 

{ 

if ( ! (*PthElem) ) 
return; 

if (GnlPathElemlnPort (*PthElem)) 

free (GnlPathElemlnPort (*PthElem) ) ; 

if (GnlPathElemOutPort (*PthElem) ) 

free (GnlPathElemOutPort (*PthElem) ) ; 

if (GnlPathElemlnstName (*PthElem) ) 

free (GnlPathElemlnstName (*PthElem)) ; 



} 



*PthElem = NULL; 



/* */ 

/* */ 

/* TimeCopyPathElem */ 

/* */ 

int TimeConditionsAreSatisf ied (int NbCp) 

{ 

BLIST ListOfCritPaths, AuxList; 

float MinSlack; 
GNL_PATH_ELEM P thE lem ; 
int Condi , Cond2 ; 

if (BListSize (LocalListOf Clocks) > 1 | | NbCp > 1) 

return (0) ; 
Condi = Cond2 = 0; 

ListOfCritPaths = (BLIST) BListElt ( 

(BLIST) BListElt (MatrixCriticalPath, 0), 0) ; 

if (ListOfCritPaths) 

{ 

AuxList = (BLIST) BListElt (ListOfCritPaths, 0) ; 

PthElem = (GNL_PATH_ELEM) BListElt (AuxList, BListSize (AuxList) - 1) ; 

MinSlack = GnlMinFloat ( 

GnlPathElemRiseReqTime (PthElem) - GnlPathElemRiseArrTime (PthElem) , 
GnlPathElemFallReqTime (PthElem) - GnlPathElemFallArrTime (PthElem) ) ; 
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if (GnlFloatEqual (MinSlack, LocalMinSlackForCombPath, 4)) 
Condi = i; 

} 



if (BListSize (MatrixCriticalPath) >= 2) 
{ 

ListOfCritPaths = (BLIST) BListElt ( 

(BLIST) BListElt (MatrixCriticalPath, 1), 1) ; 

if (ListOfCritPaths) 

{ 

AuxList = (BLIST) BListElt (ListOfCritPaths, 0) ; 

PthElem = (GNL_PATH_ELEM) BListElt (AuxList, BListSize (AuxList) - 1) ; 

MinSlack = GnlMinFloat ( 

GnlPathElemRiseReqTime (PthElem) - GnlPathElemRiseArrTime (PthElem) , 
GnlPathElemFallReqTime (PthElem) - GnlPathElemFallArrTime (PthElem) ) ; 

if (GnlFloatEqual (MinSlack, LocalMinSlackForSeqPath, 4)) 
Cond2 = 1; 

} 

} 

else 

Cond2 = 1; 
if (Local IsAboutCombinational) 

return (Condi) ; 
else 

return (Cond2) ; 
/* return (Condi Cond2);*/ 
} 

/* 

/* TimeCopyPathElem */ 

/* 

GNL_STATUS TimeCopyPathElem { GNL_PATHJELEM PthEleml, GNL PATH ELEM *PthElem2) 
{ " ~ 

if (! PthEleml) 

{ 

*PthElem2 = NULL; 
return (GNL__0K) ; 

} 



if (TimeCreatePathElem (PthElem2) ) 
return (GNL_MEMORY_FULL) ; 



if (GnlPathElemlnPort (PthEleml)) 
if (GnlStrCopy (GnlPathElemlnPort 
(PthEleml) , ^GnlPathElemlnPort ( *PthElem2 ) ) ) 
return (GNL_MEMORY_FULL) ; 
if (GnlPathElemOutPort (PthEleml) ) 
if 

(GnlStrCopy (GnlPathElemOutPort (PthEleml) , ScGnlPathElemOutPort ( *PthElem2 ) ) ) 
return (GNL_MEMORY__FULL) ; 
if (GnlPathElemlnstName (PthEleml) ) 

if (GnlStrCopy (GnlPathElemlnstName (PthEleml) , &GnlPathElemInstName ( *PthElem2 ) ) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlPathElemRiseArrTime (*PthElem2, GnlPathElemRiseArrTime (PthEleml)); 
SetGnlPathElemFallArrTime (*PthElem2, GnlPathElemFallArrTime (PthEleml)) ; 
SetGnlPathElemRiselncr (*PthElem2, GnlPathElemRi seiner (PthEleml)) ; 
SetGnlPathElemFalllncr (*PthElem2, GnlPathElemFal liner (PthEleml)) ; 
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SetGnlPathElemRiseReqTime (*PthElem2, GnlPathElemRiseReqTime (PthEleml) ) ; 
SetGnlPathElemFallReqTime (*PthElem2, GnlPathElemFallReqTime (PthEleml) ) ; 
SetGnlPathElemCompo (*PthElem2, GnlPathElernCompo (PthEleml)) ; 
SetGnlPathElemCriticalVar (*PthElem2, GnlPathElemCriticalVar (PthEleml)) 
SetGnlPathElemFanout (*PthElem2, GnlPathElemFanout (PthEleml)) ; 

return (GNL_OK) ; 



/* Time Copy Path */ 

/* */ 

/* Copy a Path (list of GNL__PATH_ELEM ) . */ 

/* */ 



GNL_STATUS TimeCopyPath (BLIST Pathl, BLIST *Path2) 
{ 

int i ; 

GNL_PATH_ELEM P t hE 1 em ; 

if (! Pathl) 

{ 

*Path2 = NULL; 
return (GNL_OK) ; 

} 

if (BListCreate (Path2)) 

return ( GNL_MEMORY_FULL) ; 

for (i = 0; i < BListSize (Pathl); i++) 
{ 

if (TimeCopyPathElem ( (GNL_PATH_ELEM) BListElt (Pathl, i) , ScPthElem) ) 
return ( GNL_MEMORY_FULL) ; 

if (BListAddElt (*Path2, PthElem) ) 
return (GNL_MEMORY_FULL) ; 

} 



return (GNL_0K) ; 

} 

/* */ 

/* TimelnsertPathlnPathList */ 

/* */ 



GNL_STATUS TimelnsertPathlnPathList (BLIST PathList, BLIST Path) 

{ 

int i ; 

GNL_PATH_ELEM P t hE 1 em ; 

float MinFloat, AuxMinFloat; 

BLIST AuxPath; 

PthElem = (GNL__PATH_ELEM) BListElt (Path, BListSize (Path) - 1) ; 

MinFloat = GnlMinFloat { 

GnlPathElemRiseReqTime (PthElem) -GnlPathElemRiseArrTime (PthElem) , 
GnlPathElemFallReqTime (PthElem) - GnlPathElemFallArrTime (PthElem) ) 

for (i=0; i < BListSize (PathList) ; i++) 

{ 

AuxPath = (BLIST) BListElt (PathList, i) ; 

PthElem = (GNL PATH_ELEM) BListElt (AuxPath, BListSize (AuxPath) - 1) ; 
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AuxMinFloat = GnlMinFloat ( 

GnlPathElemRiseReqTime (PthElem) - GnlPathElemRiseArrTime (PthElem) , 
GnlPathElemFallReqTime (PthElem) - GnlPathElemFallArrTime (PthElem) ) ; 

if (MinFloat < AuxMinFloat) 
break; 

if (BListlnsertlnList (PathList, Path, i+1) ) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 



void TimeGetStartAndEndClockEndClockFromPath (BLIST Path, int *StartIndexClk, 

int *EndIndexClk) 

{ 

GNL_CLOCK Clock; 

int i, Rankl, Rank2 ; 

BLIST ListSeqHierlnstNames ; 

GNL_PATH_ELEM Start P t hE 1 em , EndP thE 1 em ; 

GNL_VAR EndClockVar, StartClockVar; 

GNL_COMPONENT St artCompo , EndCompo ; 

BLIST SubList; 

unsigned int Key; 



*StartIndexClk = *EndIndexClk = 0; 

St art PthElem = (GNL_PATH_ELEM) BListElt (Path, 0) ; 

EndPthElem = ( GNL_PATH_ELEM ) BListElt (Path, BListSize (Path) - 1) ; 
Rankl = Rank2 = 0; 

Start Compo = GnlPathElemCompo (Start PthElem) ; 
EndCompo = GnlPathElemCompo (EndPthElem) ; 
if ('StartCompo && I EndCompo) 
return; 

/* EndClockVar = NULL; 
if (EndCompo) 

if (GnlComponentType (EndCompo) == GNL_SEQUENTIAL_COMPO) 
EndClockVar = (GNL_VAR) GnlSeqCompoInf oHook ( 

(GNL_SEQUENTIAL__COMPONENT) EndCompo) ; 

StartClockVar = NULL; 
if (StartCompo) 

if (GnlComponentType (StartCompo) == GNL_SEQUENTIAL_COMPO) 
StartClockVar = (GNL_VAR) GnlSeqCompoInf oHook ( 

(GNL_SEQUENTIAL_COMPONENT) StartCompo) ; 

*/ 

for (i=0; i < BListSize (LocalListOf Clocks) ; i++) 

Clock = (GNL_CLOCK) BListElt (LocalListOf Clocks , i) ; 
/* if (StartClockVar == GnlClockSourceClock (Clock)) 
*StartIndexClk = i+1; 
if (EndClockVar == GnlClockSourceClock (Clock) ) 
*EndIndexClk = i+1; 

*/ 

ListSeqHierlnstNames = GnlClockSeqHierlnstNames (Clock) ; 
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if (IRankl && GnlPathElemlnstName (StartPthElem) ) 

{ 

Key = KeyOfName (GnlPathElemlnstName (StartPthElem), 
HASH_LIST_PATH_ELEM) ; 

SubList = (BLIST) BListElt (ListSeqHierlnstNames , Key); 
Rankl = BListMemberOf List (SubList, 

GnlPathElemlnstName (StartPthElem) , Stringldentical) ; 
if (Rankl) 

{ 

*StartIndexClk = i+i ; 

} 

} 

if (iRank2 && GnlPathElemlnstName (EndPthElem) ) 

{ 

Key = KeyOfName (GnlPathElemlnstName (EndPthElem) , 

HAS H_L I S T__P ATH_ELEM ) ; 

SubList = (BLIST) BListElt (ListSeqHierlnstNames, Key); 
Rank2 = BListMemberOf List (SubList, 

GnlPathElemlnstName (EndPthElem) , Stringldentical) ; 
if (Rank2) 

{ 

*EndIndexClk = i+l; 

} 

} 

} 

} 

/* 

GNL_STATUS TimeUpdateListOf MostCritPath (int Clkllndex, int Clk2Index, 

BLIST Path, int NbCp) 

{ 

BLIST AuxList, PathList ; 

BLIST AuxPath; 

AuxList = (BLIST) BListElt (MatrixCriticalPath, Clkllndex) ; 
PathList = (BLIST) BListElt (AuxList, Clk2 Index) ; 
if (! PathList) 

{ 

if (BListCreate (fcPathList) ) 
return ( GNL_MEMORY_FULL ) ; 
^ BListElt (AuxList, Clk2 Index) = (int) PathList; 

if (TimeCopyPath (Path, &AuxPath) ) 
return (GNL_MEMORY_FULL) ; 

if (TimelnsertPathlnPathList (PathList, AuxPath)) 
return (GNL_MEMORY_FULL) ; 

if (BListSize (PathList) > NbCp) 
{ 

AuxPath = (BLIST) BListElt (PathList, BListSize (PathList) -1) ; 
BListDelShift (PathList, BListSize (PathList) ) ; 
BListDelete (&AuxPath, TimeFreePathElem) ; 

} 

return (GNL_OK) ; 



E-HUBBLE-309 



timepath.e 

} 



/* */ 

GNL_STATUS TimeAddlnListOf MostCritPath (BLIST Path, int NbCp) 
{ 

int StartlndexClk, EndlndexClk; 



if (BListSize (Path) 1) 
return (GNL_OK) ; 

TimeGetStartAndEndClockEndClockFromPath (Path, ^StartlndexClk, 
^EndlndexClk) ; 

if <! StartlndexClk l EndlndexClk) 
{ 

/* This case is about combinational critical path */ 
if (TimeUpdateListOfMostCritPath (0, 0, Path, NbCp) ) 
return ( GNL_MEMORY_FULL ) ; ; 

} 

else 

{ 

if (StartlndexClk) 

if (TimeUpdateListOfMostCritPath (StartlndexClk, StartlndexClk, Path, 
NbCp) ) 

return (GNL_MEMORY_FULL) ; 
if (EndlndexClk) 

if (StartlndexClk 1= EndlndexClk) 
if (TimeUpdateListOfMostCritPath (EndlndexClk, EndlndexClk, Path, NbCp)) 
return (GNL_MEMORY_FULL) ; 

if (EndlndexClk StartlndexClk && (StartlndexClk != EndlndexClk) ) 
if (TimeUpdateListOfMostCritPath(StartIndexClk, EndlndexClk, Path, 1) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 



/* ie/ 

/* TimePrintPath */ 

/* 

void TimePrintPath (BLIST Path) 

{ 

int i, KindOfTime; 

GNL_PATHJBLEM P t hE 1 em ; 

float MaxValue, MaxFloat, Setup; 

GNL_COMPONENT Compo ; 

LIBC^CELL Cell; 



Setup = 0.0; 

fprintf (stderr, " Point\t\t\t\t\tFanout\tIncr\tPath\n" ) ; 

fprintf (stderr, " 

--\n») ; 

for (i=0; i < BListSize (Path); i++) 

{ 

PthElem = (GNL_PATH_ELEM) BListElt (Path, i) ; 
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MaxFloat = GnlMaxFloat (GnlPathElemRiseArrTime (PthElem), 

GnlPathElemFallArrTime (PthElem) ) ; 
if (MaxFloat == GnlPathElemRiseArrTime (PthElem) ) 

KindOfTime = RISE; 
else 

KindOfTime = FALL; 

if (i == BListSize (Path) - 1) 

MaxValue = MaxFloat; 
if ( IGnlPathElemCompo (PthElem)) 
{ 

if (GnlPathElemlnPort (PthElem)) 

fprintf (stderr, » input external delay\t\t\t\tO . 0\t0 . 0 \n») ; 
if (GnlPathElemlnPort (PthElem)) 

fprintf (stderr, " %s », GnlPathElemlnPort (PthElem)); 
if (GnlPathElemOutPort (PthElem)) 

fprintf (stderr, » %s GnlPathElemOutPort (PthElem)); 
if (GnlPathElemlnPort (PthElem)) 

fprintf (stderr, » (in) \n\t\t\t\t\t\t" ) ; 
else 

fprintf (stderr, » (out ) \n\t\t\t\t\t\t » ) ; 

if (KindOfTime RISE) 

fprintf (stderr, "%.3f\t%.3f Rising\n", GnlPathElemRiselncr (PthElem), 

GnlPathElemRiseArrTime (PthElem) ) ; 

else 

fprintf (stderr, »%.3f\t%.3f Falling\n\ GnlPathElemFalllncr 
(PthElem) , 

^ GnlPathElemFallArrTime (PthElem)); 

else 

{ 

Compo = GnlPathElemCompo (PthElem) ; 
GnlGetCellFromGnlCompo (Compo, &Cell) ; 
if (Cell) 

{ 

fprintf (stderr, " %s", GnlPathElemlnstName (PthElem) ) ; 
fprintf (stderr, "(%s)", LibCellName (Cell) ) ; 
if (GnlPathElemOutPort ( PthElem) ) 

if (GnlPathElemlnPort (PthElem) ) 

fprintf (stderr, » (%s-->%s %s) \n\t\t\ t\t\t » , 

GnlPathElemlnPort (PthElem) , GnlPathElemOutPort (PthElem) , 
GnlVarName (GnlPathElemCriticalVar (PthElem))); 

else 

fprintf (stderr, » (%s %s) \n\t\t\t\ t\t " , 
GnlPathElemOutPort (PthElem) , 

GnlVarName (GnlPathElemCriticalVar (PthElem) ) ) ; 

else 
{ 

fprintf (stderr, » (%s %s) \n\t\t\t\t\t " , GnlPathElemlnPort 

(PthElem) , 

GnlVarName (GnlPathElemCriticalVar (PthElem)))- 
if (KindOfTime == RISE) 

Setup = GnlPathElemRiselncr (PthElem) ; 
else 
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Setup = GnlPathElemFalllncr (PthElem) ; 

} 

if (KindOfTime == RISE) 
{ 

if (IGnlPathElemOutPort (PthElem)) 

fprintf (stderr, "\t0 . 0\t% . 3f Rising\n" , 
GnlPathElemRiseArrTime (PthElem) ) 

else 

fprintf (stderr, »%d\t% . 3f \t% . 3f Rising\n", 
GnlPathEletnFanout (PthElem) , 
GnlPathElemRiselncr (PthElem) , 
GnlPathElemRiseArrTime (PthElem) ) ; 

} 

else 

{ 

if (IGnlPathElemOutPort (PthElem)) 

fprintf (stderr, »\t0.0\t%.3f Falling\n" , 
GnlPathElemFallArrTime (PthElem) ) ; 

else 

fprintf (stderr, "%d\t% . 3f \t% . 3f Falling\n" , 
GnlPathElemFanout (PthElem) , 
GnlPathElemFalllncr (PthElem) , 
GnlPathElemFallArrTime (PthElem) ) ; 

} 

} 

} 

} 

fprintf (stderr, " Data Arrival Time \t\t\t\t\t% . 3f \n" , MaxValue) ; 
if (Setup) 

fprintf (stderr, " Setup Time \t\t \t\ t\t\t% . 3f \n'\ Setup); 
fprintf (stderr, 

n 

fprintf (stderr, " (Path is unconstrained) \n\n" ) ; 

} 



-\n") 



/* 

GNL_STATUS TimeExistPathElem (GNL_PATH_ELEM *PathElem, int *Exist) 
{ 

int i ; 

GNL_PATH_ELEM AuxP t hE 1 em ; 

float Max, AuxMax; 

BLIST SubList,* 
unsigned int Key; 

* Exist = 0; 

Max = GnlMaxFloat (GnlPathElemRiseArrTime (*PathElem) , 

GnlPathElemFallArrTime (*PathElem) ) ; 
Key = KeyOfName (GnlPathElemlnstName (*PathElem) , HASH_LISTJ?ATH_ELEM) ; 
SubList = (BLIST) BListElt (LocalListOf PathElem, Key) ; 
if (! SubList) 
{ 

if (BListCreateWithSize (1, &SubList) ) 
return (GNL_MEMORY FULL) ; 
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BListElt (LocalListOf PathElem, Key) = (int) SubList; 



for (i=0; i < BListSize (SubList); i++) 

{ 

AuxPthElem = (GNL_PATH_ELEM) BListElt (SubList, i) ; 
if (Stringldentical (GnlPathElemlnstName (AuxPthElem) , 
^ GnlPathElemlnstName (*PathElem) ) ) 

AuxMax = GnlMaxFloat (GnlPathElemRiseArrTime (AuxPthElem) , 

GnlPathElemFallArrTime (AuxPthElem) ) ; 

if (Max <= AuxMax) 

{ 

* Exist = 1; 
break; 

} 

else 
{ 

TimeFreePathElem (&AuxPthElem) ; 
BListElt (SubList, i) = (int) *PathElem; 
break; 

} 

} 

} 

if (*Exist) 

TimeFreePathElem (PathElem) ; 
else 

if (i >= BListSize (SubList)) 

if (BListAddElt (SubList, *PathElem) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 

/* 

void TimeFreeLocalListOf PathElem (TimeFreePathElem) 
{ 

int i ; 

BLIST SubList; 

for (i=0; i < BListSize (LocalListOf PathElem) ; i++) 

SubList = (BLIST) BListElt (LocalListOf PathElem, i) ; 
if (SubList) 
^ BListDelete (&SubList, TimeFreePathElem) ; 

^ BListQuickDelete (&LocalListOf PathElem) ; 

/* 

GNL_STATUS TimeGetCritPathFromCombCell (BLIST Path, int NbCp, 

GNL_ASSOC Assoc, LIBCJL.IB Lib, 
float RArrTime, float FArrTime, 

^ float InTransRise, float InTransFall) 

LIBC_CELL Cell; 
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LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank, Exist; 

GNL_ASSOC AssocI; 

char * Formal, * Formal I; 

GNL_VAR Var, Varl; 

GNL_TIMING__INFO TimingI; 

float OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance , OutCapa; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

GNL_USER_COMPONENT UserCompo ; 
GNL_PATH_ELEM PathElem, AuxPathElem; 

unsigned int Key; 



UserCompo = (GNL_USER__COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 

Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formall = (char *) GnlAssocFormalPort (Assoc) ; 

if {! (Pinln = LibGetPinFromNameAndCell (Cell, Formall))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; " 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 
continue ; 

if (LibPinDirection (PinOut) != OUTPUT__E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 
continue; 

if ((GnlStatus « Gnl Timing I nf oCorrespToCurrentPathFromVar (Varl, 

ScTimingl, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell (InTransRise , InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&De 1 ayR , &Ou t Tr an s R , 
&DelayF, &OutTransF) ; 
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GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, RArrTime, FArrTime, 
&TimeRise, &TimeFall) ; 

if (TimeCreatePathElem (&PathElem) ) 

return ( GNL_MEMORY_FULL) ; 
BListAddElt (Path, (int) PathElem) ; 

if (GnlStrCopy (Formal I, &GnlPathElemInPort (PathElem))) 

return (GNL_MEMORY_FULL) ; 
if (GnlStrCopy (Formal, &GnlPathElemOutPort (PathElem))) 

return (GNL_MEMORY_FULL) ; 
if (GnlGetHierarchycallnstName (GnlUserComponentlnstName (UserCompo) , 

&GnlPathElemInstName (PathElem) ) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlPathElemCompo (PathElem, GnlAssocTraversallnf oComponent 
(Assoc) ) ; 

SetGnlPathElemCriticalVar (PathElem, Varl) ; 
SetGnlPathElemFanout (PathElem, Fanout) ; 
SetGnlPathElemRiseArrTime (PathElem, TimeRise) / 
SetGnlPathElemFallArrTime (PathElem, TimeFall) ; 
SetGnlPathElemRiselncr (PathElem, DelayR) ; 
SetGnlPathElemFalllncr (PathElem, DelayF) ; 
SetGnlPathElemRiseReqTime (PathElem, 

GnlTiminglnfoRequiredRise (TimingI) ) • 
SetGnlPathElemFallReqTime (PathElem, 

GnlTiminglnfoRequiredFall (TimingI) ) ; 
if (TimeExistPathElem (ScPathElem, &Exist) ) 

return (GNLJVIEMORY_FULL) ; 
if (Exist) 
{ 

BListDelShift (Path, BListSize (Path)); 
return (GNL__OK) ; 

} 

if (TimeGetCritPathFromVar (Path, NbCp, Varl, Lib, TimeRise, 

TimeFall, OutTransR, OutTransF, 0)) 
return (GNL_MEMORY__FULL) ; 
BListDelShift (Path, BListSize (Path) ) ; 

} 

return (GNL_0K) ; 

} 

/* : */ 

GNL_S TATUS TimeGetCritPathFrom3State (BLIST Path, int NbCp, 

GNL_ASSOC Assoc, LIBC_LIB Lib, 

float RArrTime, float FArrTime, 
^ float InTransRise, float InTransFall) 

LIBC_CELL Cell; 

LIBC_PIN PinOut, Pinln; 

int i, Fanout, Rank, Exist; 

GNL_AS SOC As SOC I ; 

char * Formal, * Formal I; 

GNL_VAR Var, Varl ; 

GNL_TIMING_INFO TimingI; 

float OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall ; 
float Length, WireCapa, WireResistance, OutCapa; 
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BLIST Interface ; 

GNL_STATUS GnlStatus ; 

GNL_TRISTATE_COMPONENT TriState ; 

GNL_PATH_ELEM PathElem, AuxPathElem; 

unsigned int Key; 



TriState = (GNL__TRISTATE_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlTriStateCompoInf oCell (TriState) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formall = (char *) GnlAssocFormalPort (Assoc) ; 

if (I (Pinln = LibGetPinFromNameAndCell (Cell, Formall))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) == OUTPUT_E ) 

return (GNL_OK) ; 

Interface = GnlTriStatelnterf ace (TriState) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if (!(PinOut - LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (PinOut) != OUTPUT^ E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut)) 
continue ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Fanout = GnlTiminglnf oFanout (TimingI) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 
WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, 

Lib) ; 

WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR, &OutTransR, 
&DelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, RArrTime, FArrTime, 
ScTimeRise, &TimeFall) ; 

if (TimeCreatePathElem UPathElem) ) 

return ( GNL_MEMORY_FULL ) ; 
BListAddElt (Path, (int) PathElem) ; 

if (GnlStrCopy (Formall, &GnlPathElemInPort (PathElem))) 
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return ( GNL_MEMORY__FULL ) ; 
if (GnlStrCopy (Formal, &GnlPathElemOutPort (PathElem) ) ) 

return ( GNL_MEMOR Y_FULL ) ; 
if (GnlGetHierarchycallnstName (GnlTriStatelnstName (TriState) , 

&GnlPathElemInstName (PathElem) ) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlPathElemCompo (PathElem, GnlAssocTraversallnf oComponent 
(Assoc) ) ; 

SetGnlPathElemCriticalVar (PathElem, Varl) ; 
SetGnlPathElemFanout (PathElem, Fanout) / 
SetGnlPathElemRiseArrTime (PathElem, TimeRise) ; 
SetGnlPathElemFallArrTime (PathElem, TimeFall) ; 
SetGnlPathElemRiselncr (PathElem, DelayR) ; 
SetGnlPathElemFalllncr (PathElem, DelayF) ; 
SetGnlPathElemRiseReqTime (PathElem, 

GnlTiminglnfoRequiredRise (TimingI) ) ; 
SetGnlPathElemFallReqTime (PathElem, 

GnlTiminglnfoRequiredFall (TimingI) ) ; 

if (TimeExistPathElem (&PathElem, &Exist) ) 

return ( GNL_MEMORY_FULL) ; 
if (Exist) 

{ 

BListDelShift (Path, BListSize (Path)); 
return (GNL_0K) ; 

} 

if (TimeGetCritPathFromVar (Path, NbCp, Varl, Lib, TimeRise, 

TimeFall, OutTransR, OutTransF, 0)) 
return ( GNL_MEMORY__FULL) ; 
BListDelShift (Path, BListSize (Path)); 

} 

return (GNL_OK) / 

} 

/* 

GNL_STATUS TimeGetCritPathFromSeqCell (BLIST Path, int NbCp, 

GNL_ASSOC Assoc, LIBC_LIB Lib, 
float RArrTime, float FArrTime, 
float InTransRise, float InTransFall) 

{ 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 



LIBC_CELL Cell; 

LIBC_PIN Pinln; 

int Rank; 

char * Formal; 

GNL_VAR Var; 

GNL__TIMING__INFO TimingI; 

GNL_STATUS GnlStatus ; 

float TimeRise, TimeFall; 

GNL_PATH_ELEM PathElem, AuxPathElem; 

unsigned int Key; 



SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInf oCell (SeqCompo) ; 
Var = GnlAssocActualPort (Assoc) ; 



E-HUBBLE-317 



timepath.e 



Formal = (char *) GnlAssoc Formal Port (Assoc) ; 

if (!(PinIn = LibGetPinFrornNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (Pinln) OUTPUT_E ) 

return (GNLJDK) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if (GnlStatus = GnlComputeSetupHoldTimeFromSeqCompo (SeqCompo, Formal, 
Timingl, &TimeRise, &TimeFall, Lib, 0)) 
return (GnlStatus) ; 

if (TimeCreatePathElem (&PathElem) ) 

return (GNL_MEMORY_FULL) ; 
BListAddElt (Path, (int) PathElem) ,* 

if (GnlStrCopy (Formal, &GnlPathElemInPort (PathElem))) 

return ( GNL_MEMORY_FULL ) ; 
if (GnlGetHierarchycallnstName (GnlSequentialCompoInstName (SeqCompo) , 

&GnlPathElemInstName (PathElem) ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlPathElemCompo (PathElem, GnlAssocTraversallnf oComponent (Assoc)) ; 
SetGnlPathElemCriticalVar (PathElem, Var) ; 

SetGnlPathElemFanout (PathElem, GnlTiminglnf oFanout (Timingl) ) ; 
SetGnlPathElemRiseArrTime (PathElem, RArrTime) ; 
SetGnlPathElemFallArrTime (PathElem, FArrTime) ; 
SetGnlPathElemRiselncr (PathElem, TimeRise) ; 
SetGnlPathElemFalllncr (PathElem, TimeFall) ; 

SetGnlPathElemRiseReqTime (PathElem, GnlTiminglnf oRequiredRise (Timingl) ) 
SetGnlPathElemFallReqTime (PathElem, GnlTiminglnf oRequiredFall (Timingl) ) 
if (TimeAddlnListOfMostCritPath (Path, NbCp)) 

re turn ( GNL_MEMORY_FULL ) ; 
AuxPathElem - (GNL_PATH_ELEM) BListElt (Path, BListSize (Path) -1) ; 
BListDelShift (Path, BListSize (Path)); 
TimeFreePathElem (&AuxPathElem) ; 

return (GNL_0K) ; 

} 

/* */ 

GNL_STATUS TimeGetCritPathFromUserCompo (BLIST Path, int NbCp, 

GNL_ASSOC ASSOC, LIBC_LIB Lib, 

float RArrTime, float FArrTime, 

float InTransRise, float InTransFall, 

GNL_VAR Actual) 

{ 

GNL_VAR Var, Formal, AuxFormal; 

GNL_US ER_COM PONENT UserCompo ; 
GNL_TIM1NG_INF0 Timinglnfo; 
GNL__STATUS GnlStatus ; 

int Rank ; 

UserCompo = (GNL_USER__COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 
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if (GnlUserComponentFormalType (UserCompo) == GNL FORMAL CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = TimeGetCritPathFromCombCell (Path, NbCp, Assoc, 

Lib, RArrTime, FArrTime, 
InTransRise, InTransFall) ) 

return (GnlStatus) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

" WARNING: black box <%s %s> may modify final estimation\n n , 
GnlUserComponentName (UserCompo) , 
GnlUs e r Component Ins tName (UserCompo) ) ; 

return (GNL JDK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo) ) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlStatus = TimeGet Forma iFromAssocAndActual (Assoc, Actual, 
&AuxFormal) ) 

return (GnlStatus) ; 

if (GnlStatus = TimeGetCritPathFromVar (Path, NbCp, AuxFormal, 

Lib, RArrTime, FArrTime, 
InTransRise, InTransFall, 0)) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
return (GNL_0K) ; 

} 

/* 

GNL_STATUS TimeGetCritPathFromAssoc (BLIST Path, int NbCp, 

GNL_ASSOC Assoc, LIBC_LIB Lib, 
float RArrTime, float FArrTime, 
float InTransRise, float InTransFall, 
GNL VAR Actual) 

{ 

GNL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT Gnl Compo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO: 

if (GnlStatus = TimeGetCritPathFromSeqCell (Path, NbCp, 
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Assoc, Lib, RArrTime, FArrTime, 
InTransRise, InTransFall) ) 
return (GnlStatus) ; 
break; 



case GNL_USER_COMPO : 

if (GnlStatus = TimeGetCritPathFromUserCompo {Path, NbCp, 
Assoc, Lib, RArrTime, FArrTime, 
InTransRise, InTransFall, Actual) ) 
return (GnlStatus) ; 
break; 



case GNL_TRISTATE_COMPO: 

if (GnlStatus = TimeGetCritPathFrom3State (Path, NbCp, 
Assoc, Lib, RArrTime, FArrTime, 
InTransRise, InTransFall) ) 
return (GnlStatus) ; 
break; 



case GNL_MACRO_COMPO : 
break; 



default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 



return (GNLJDK) ; 

} 

/* 

GNLJSTATUS TimeGetCritPathFromVar (BLIST Path, int NbCp, GNL_VAR Var, 

LIBC_LIB Lib, float RArrTime, float FArrTime, 
float InTransRise, float InTransFall, 
int Inoutlsln) 

{ 



GNL_VAR Var I, Actual; 

GNL_AS SOC AuxAs s oc Var ; 

char *Name; 

int i, Rank; 

GNL__S TATUS Gnl S t a tu s ; 

GNL_USER_COMPONENT InstOf Gnl ; 

GNL_PATH_ELEM PathElem, AuxPathElem; 

BLIST AssocDests, Lef t Var As signed s ; 

GNL_TIMING_INFO TimingI ; 

unsigned int Key; 



if (TimeConditionsAreSatisf ied (NbCp) ) 
return (GNL_OK) ; 

if ( (GnlVarDir (Var) == GNL_VAR_OUTPUT) | | (GnlVarDir (Var) 
GNL_VAR_INOUT) ) 
{ 

if (IBListSize ( G_PileOf Component ) ) 

{ 

if (GnlVarDir (Var) == GNL_VAR_OUTPUT | | 
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^ (GnlVarDir (Var) == GNL_VAR_I NOUT llnoutlsln)) 

if (TimeCreatePathElem (&PathElem) ) 

return (GNL_MEMORY_FULL) / 
BListAddElt (Path; (int) PathElem) ; 

if (GnlStrCopy (GnlVarName (Var) , &GnlPathElemOutPort (PathElem) ) ) 

return (GNL_MEMORY_FULL) ; 
SetGnlPathElemCriticalVar (PathElem, Var) ; 
SetGnlPathElemRiseArrTime (PathElem, RArrTime) ; 
SetGnlPathElemFallArrTime (PathElem, FArrTime) ; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingI , &Key , &Rank) ) ) 

return (GnlStatus) ; 

SetGnlPathElemFanout (PathElem, GnlTiminglnf oFanout (Timingl)); 

SetGnlPathElemRiseReqTime 
(PathElem, GnlTiminglnf oRequiredRise (Timingl) ) ; 

SetGnlPathElemFallReqTime 
(PathElem, GnlTiminglnf oRequiredFall (Timingl) ) ; 

if (TimeAddlnListOfMostCritPath (Path, NbCp) ) 
return ( GNL_MEMORY_FULL ) ; 

AuxPathElem = <GNL_PATH_ELEM) BListElt (Path, BListSize (Path)-l)- 

BListDelShift (Path, BListSize (Path)); 

TimeFreePathElem (&AuxPathElem) ; 

return (GNL OK) ; 

} 



{ 

InstOfGnl - ( GNL_USER__COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 
AuxAssocVar 

=GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, ^Actual) ; 
if (! AuxAssocVar) 

{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (TimeGetCritPathFromVar (Path, NbCp, Actual, Lib, RArrTime, 

FArrTime, InTransRise, InTransFall, 0)) 

return (GNLJVIEMORY_FULL) ; 
if (BListAddElt (G_PileOf Component, InstOfGnl)) 

return (GNL MEMORY FULL) / 

} 

} 

if (GnlGetDestinationsOfVar (Var, &AssocDests, &Lef tVarAssigneds) ) 
return ( GNL_MEMORY_FULL ) ; 

for (i=0; i < BListSize (Lef tVarAssigneds) ; i++) 

Varl = (GNL_VAR) BListElt (Lef tVarAssigneds , i) ; 

if (TimeGetCritPathFromVar (Path, NbCp, Varl, Lib, RArrTime, FArrTime, 
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InTransRise, InTransFall, 0)) 
return (GNL MEMORY FULL) ; 

} 

BListQuickDelete (&Lef tVarAssigneds) ; 

for (i=0; i < BListSize (AssocDests) ; i++) 

{ 

AuxAssocVar = <GNL_ASS0C) BListElt (AssocDests, i) ; 
if (TimeGetCritPathFromAssoc (Path, NbCp, AuxAssocVar, Lib, RArrTime, 

FArrTime, InTransRise, InTransFall, Var) ) 
return ( GNL_MEMORY FULL) ; 

} 

BListQuickDelete (&AssocDests) ; 
return (GNL_OK) ; 

} 



GNL_STATUS TimeExpandCombinationalCritPathFromGnl (GNL Gnl, LIBC_LIB Lib, 

int NbCp) 



GNL_VAR Var ; 

int i # j, Rank; 

GNL_STATUS GnlStatus ; 
BLIST Path; 
BLIST Bucket I; 

GNL_TIMING_INFO Timinglnf o ; 

GNL_PATH_ELEM PathElem, AuxPathElem; 

float ArrTimeR, ArrTimeF, InTransR, InTransF; 

unsigned int Key; 



if (BListCreate (&Path) ) 
return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 
for (j=0; j < BListSize (Bucketl); j++) 

Var = (GNLJVAR) BListElt (Bucketl, j); 
if ( !Var | | 

(GnlVarDir (Var) != GNL_VAR_ I NPUT GnlVarDir (Var) ! = 
GNL_VAR_INOUT) ) 

continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar {Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
if (GnlVarDir (Var) GNL_VAR_I NOUT ) 

Timinglnfo = (GNL_TIMING_INFO) GnlTiminglnf oHook (Timinglnfo) ; 
ArrTimeR = GnlTiminglnf oArrivalRise (Timinglnfo) ; 
ArrTimeF = GnlTiminglnf oArrivalFall (Timinglnfo) ; 
InTransR = GnlTiminglnf oTransitionRise (Timinglnfo) ; 
InTransF = GnlTiminglnf oTransitionFall (Timinglnfo) ; 
if (GnlVarDir (Var) == GNL VAR INOUT) 
{ " ~ 



E-HUBBLE-322 



timepath.e 



ArrTimeR = ArrTimeF = InTransR = InTransF = 0.0; 

} 

if (TimeCreatePathElem (&PathElem) ) 

return ( GNL__MEMORY_FULL ) ; 
BListAddElt (Path, (int) PathElem) ; 

if (GnlStrCopy (GnlVarName (Var) , &GnlPathElemInPort (PathElem))) 

return ( GNL_MEMORY_FULL) ; 
SetGnlPathElemCriticalVar (PathElem, Var) ; 

SetGnlPathElemFanout (PathElem, GnlTiminglnf oFanout (Timinglnfo) ) ; 
SetGnlPathElemRiseArrTime (PathElem, ArrTimeR) ; 
SetGnlPathElemFallArrTime (PathElem, ArrTimeF) ; 
SetGnlPathElemRiseReqTime 
(PathElem, GnlTiminglnf oRequiredRise (Timinglnfo) ) ; 

SetGnlPathElemFallReqTime 
(PathElem, GnlTiminglnf oRequiredFall (Timinglnfo) ) / 

if (BListCreateWithSize (HASH_LIST_PATH_ELEM, &LocalListOf PathElem) ) 

return (GNL_MEMORY_FULL) ; 
BSize (LocalListOfPathElem) = HASH_L I S T_PATH_E LEM ; 
if (TimeGetCritPathFromVar (Path, NbCp, Var, Lib, ArrTimeR, 

ArrTimeF, InTransR, InTransF, 1)) 
return ( GNLJVIEMOR Y__FULL) ; 
TimeFreeLocalListOfPathElem (TimeFreePathElem) ; 

AuxPathElem = (GNL_PATH_ELEM) BListElt (Path, BListSize (Path) -1) ; 
BListDelShift (Path, BListSize (Path) ) ; 
TimeFreePathElem (&AuxPathElem) ; 
if (TimeConditionsAreSatisf ied (NbCp) ) 
break; 

} 

if (TimeConditionsAreSatisf ied (NbCp) ) 
break; 

} 

BListQuickDelete (&Path) ; 
return (GNL_OK) ; 

} 



7 



/* 

/* TimeExpandCritPathProraOutputOfSegCell */ 
/* ^ 

GNL_STATUS TimeExpandCritPathFromOutputOf SeqCell (BLIST Path, int MaxPaths, 
^ GNL_ASSOC Assoc, LIBC_LIB Lib) 

int Rank; 

char * Formal ,- 

GNL__VAR Var, AuxVar; 

GNL_TIMING_INFO Timinglnfo; 

GNL_STATUS GnlStatus ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_PATH_ELEM PathElem, AuxPathElem; 

GNL_ASSOC AuxAs SOC ; 

unsigned int Key; 



if (!Assoc) 

return (GNLJDK) ; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 

return (GNL_OK) ; 
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Formal = (char *) GnlAssocFormalPort (Assoc) ; 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

^Timinglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 

if (TimeCreatePathElem (&PathElem) ) 

return (GNLJVIEMORY^FULL) ; 
BListAddElt (Path, (int) PathElem) ; 

if (GnlStrCopy (Formal, &GnlPathElemOutPort (PathElem))) 
return (GNL_MEMORY_FULL) ; 
/* AuxAssoc = (GNL_ASSOC) BListElt (GnlSequentialCompoInterf ace (SeqCompo) , 
2); 

if (AuxAssoc ScSc (AuxVar = GnlAssocActualPort (AuxAssoc)) 
'GnlVarlsVss (AuxVar) && !GnlVarIsVdd (AuxVar)) 

{ 

Formal = (char *) GnlAssocFormalPort (AuxAssoc) ; 

if (Formal) 

{ 

if (GnlStrCopy (Formal, &GnlPathElemInPort (PathElem))) 

return ( GNL__MEMOR Y_FULL ) ; 
SetGnlPathElemRiselncr (PathElem, 
GnlTiminglnf oArrivalRise (Timinglnf o) ) ; 

SetGnlPathElemFalllncr (PathElem, 
GnlTiminglnf oArrivalFall (Timinglnf o) ) / 
} 

} */ 

if (GnlGetHierarchycallnstName (Gnl Sequent ialCompo Ins tName (SeqCompo) , 

&GnlPathElemInstName (PathElem) ) ) 

return (GNL__MEMORY_FULL) ; 
SetGnlPathElemCompo (PathElem, GnlAssocTraversallnf oComponent (Assoc) ) ; 
SetGnlPathElemCriticalVar (PathElem, Var) ; 

SetGnlPathElemFanout (PathElem, GnlTiminglnf oFanout (Timinglnfo) ) ; 
SetGnlPathElemRiseArrTime (PathElem, GnlTiminglnf oArrivalRise (Timinglnfo) ) 
SetGnlPathElemFallArrTime (PathElem, GnlTiminglnf oArrivalFall (Timinglnfo) ) 
SetGnlPathElemRiseReqTime (PathElem, 
GnlTiminglnf oRequiredRise (Timinglnfo) ) ; 

SetGnlPathElemFallReqTime (PathElem, 
GnlTiminglnf oRequiredFall (Timinglnfo) ) ; 

if (BListCreateWithSize (HASH_LIST_PATH_ELEM , &LocalListOf PathElem) ) 

return (GNL_MEMORY__FULL) ; 
BSize (LocalListOf PathElem) = HASH_LIST_PATH_ELEM; 
if (TimeGetCritPathFromVar (Path, MaxPaths, Var, Lib, 

GnlTiminglnfoArrivalRise (Timinglnfo) , 
GnlTiminglnf oArrivalFall (Timinglnfo) , 
GnlTiminglnfoTransitionRise (Timinglnfo) , 
GnlTiminglnf oTransitionFall (Timinglnfo) , 0) ) 
return (GNL_MEMORY_FULL) ; 
TimeFreeLocalListOf PathElem (TimeFreePathElem) ; 

AuxPathElem = <GNL_PATH_ELEM) BListElt (Path, BListSize (Path) -1) ; 
BListDelShift (Path, BListSize (Path)); 
TimeFreePathElem (SAuxPathElem) ; 

return (GNL_0K) ; 
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} 

/* 

/* TimelnsertSeqElemlnSortedListOfSeqElem */ 

/* ^ 

GNL_STATUS TimelnsertSeqEleralnSortedListOf SeqElem (BLIST ListSortedOf SeqElem, 

TIME SEQUENTIAL ELEM SeqElem) 

{ 

int i ; 

TIME_SEQUENTIAL_ELEM AuxSeqElem; 

for (i=0; i < BListSize (ListSortedOf SeqElem) ; i++) 

AuxSeqElem = ( T I ME_SEQUENT I AL_ELEM ) BListElt (ListSortedOf SeqElem, i) ; 
if (TimeGetSeqElemSlackAtOutput (SeqElem) < 

TimeGetSeqElemSlackAtOutput (AuxSeqElem) ) 

break; 

} 

if (BListlnsertlnList (ListSortedOf SeqElem, SeqElem, i+l) ) 
return (GNL_MEMORY__FULL) ; 
return (GNL_OK) ; 

} 

/* it/ 

GNL__STATUS TimeSortListOf SeqlnstByMinSlackAtOutput (GNL Gnl , 
^ BLIST ListSortedOfSeqElem) 

GNL__VAR Varm- 
int i, Rank; 
GNL_STATUS Gnl S t a tus ; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_COMPONENT Component I ; 
GNL GnlCompol; 
GNL_ASSOC Assoc; 
T I ME_S EQUENT IAL_ELEM S eqE 1 em ; 
GNL_TIMING_INFO TimingI ; 
unsigned int Key; 
float Slack; 
BLIST HierlnstPath; 

for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 

if (GnlComponentType (ComponentI) GNL USER COMPO) 
{ " ~ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_C0MPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNLJJSER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (TimeSortListOf SeqlnstByMinSlackAtOutput (GnlCompol , 

ListSortedOfSeqElem) ) 

return (GNL_MEMORY__FULL) ; 
BListDelShif t (G_PileOf Component , BListSize ( G_PileOf Component) ) ; 

} 

if (GnlComponentType (ComponentI) ! = GNL_SEQUENTIAL_COMPO) 
continue; 
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SeqCompo = (GNL__SEQUENTIAL_COMPONENT) Component I; 
Assoc = GnlSequentialCompoOutputAssoc (SeqCompo) ; 
if (I Assoc) 

continue; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 

continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if (TimeCreateSeqElem (ScSeqElem) ) 
return ( GNL_MEMORY_FULL) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, ScTimingI, &Key, &Rank) ) 

return { GNL_MEMORY_FULL ) ; 
Slack = GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnfoArrivalRise (TimingI) ; 
if (Slack > (GnlTiminglnf oRequiredRise (TimingI) - 
GnlTiminglnfoArrivalRise (TimingI) ) ) 
Slack = GnlTiminglnf oRequiredRise (TimingI) - 

GnlTiminglnfoArrivalRise (TimingI) ; 
SetTimeGetSeqElemSlackAtOutput (SeqElem, Slack) ; 
SetTimeGetSeqElemSeqComp (SeqElem, SeqCompo) ; 

if (BListCopyNoEltCr (G_PileOf Component , ScHierlnstPath) ) 

return ( GNL_MEMORY_FULL) ; 
SetTimeGetSeqElemHierlnstPath (SeqElem, HierlnstPath) ; 

if (TimelnsertSeqElemlnSortedListOf SeqElem (ListSortedOf SeqElem, SeqElem) ) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_OK) ; 

} 

/* ±j 

GNL_STATUS TimeExpandSequentialCritPathFromGnl (GNL Gnl, LIBC_LIB Lib, 

BLIST Path, int MaxPaths) 

{ 

BLIST ListSortedOf SeqElem ; 

GNL_SEQUENTIAL_C0]V1P0NENT SeqCompo ; 

GWL_ASSOC ASSOC; 

T I ME_S E QUENT I AL_E L E M SeqElem; 

int i ; 

if (BListCreate ( &ListSortedOf SeqElem) ) 
return (GNL_MEMORY_FULL) ; 

if (TimeSortListOfSeqlnstByMinSlackAtOutput (Gnl, ListSortedOf SeqElem) ) 
return ( GNL_MEMORY_FULL ) ; 

if ( "BListSize (ListSortedOf SeqElem) ) 
{ 

BListQuickDelete (^ListSortedOf SeqElem) ; 
return (GNL_OK) ; 

} 



E-HUBBLE-326 



timepath.e 



for (i=0; i < BListSize (ListSortedOf SeqElem) ; i++) 

SeqElem = (TIME_SEQUENTIAL_ELEM) BListElt (ListSortedOf SeqElem, i) ; 

SeqCompo = TimeGetSeqElemSeqComp (SeqElem) ; 

Assoc = GnlSequentialCompoOutputAssoc (SeqCompo) ; 

G_PileOf Component = TimeGetSeqElemHierlnstPath (SeqElem) ; 

if (TimeExpandCritPathFromOutputOfSeqCell (Path, MaxPaths, Assoc, Lib)) 

return (GNL_MEMORY_FULL) ; 
if (TimeConditionsAreSatisf ied (MaxPaths) ) 

break; 

Assoc = GnlSequentialCompoOutputBarAssoc (SeqCompo) ; 

G_PileOfComponent = TimeGetSeqElemHierlnstPath (SeqElem) ; 

if (TimeExpandCritPathFromOutputOfSeqCell (Path, MaxPaths, Assoc, Lib)) 

return (GNL__MEMORY_FULL) ; 
if (TimeConditionsAreSatisf ied (MaxPaths) ) 

break; 

} 

BListQuickDelete (&ListSortedOf SeqElem) ; 
return (GNL_OK) ; 

} 

/* 

*/ 

/* TimeExpandClockFreqForOneClock */ 

/*----- — ; */ 

void TimePrintClockFreqForOneClock (GNL_CLOCK Clock, BLIST ListOf CritPaths) 

GNL_PATH_ELEM Pa t hE 1 em ; 

BLIST AuxList, Path; 
int i ; 

float ClockFreqValue, SetupTime, ArrTime, ReqTime; 

if ( IListOfCritPaths || !Clock) 

return; 
ClockFreqValue = 0.0; 

fprintf (stderr, " 

\n") ; 

fprintf (stderr, " Clock : » ) ; 

if (GnlClockHierNameOfGnlClok (Clock) ) 

fprintf (stderr, "%s/", GnlClockHierNameOfGnlClok (Clock)); 

fprintf (stderr, "%s\n" , GnlVarName (GnlClockSourceClock (Clock))) ; 

fprintf (stderr, " '_ 

\n"); 

for (i=0; i < BListSize (ListOf CritPaths) ; i++) 
{ 

AuxList = (BLIST) BListElt (ListOf CritPaths , i) ; 
TimePrintPath (AuxList) ; 
if (li) 

{ 

PathElem = (GNL_PATH__ELEM) BListElt (AuxList, BListSize (AuxList) - 

1) ; 

SetupTime = GnlMaxFloat (GnlPathElemRiselncr (PathElem) , 

GnlPathElemFalllncr (PathElem) ) ; 
ArrTime = GnlMaxFloat (GnlPathElemRiseArrTime (PathElem) , 

GnlPathElemFallArrTime (PathElem) ) ; 
if (GnlPathElemRiseArrTime (PathElem) > 

GnlPathElemFallArrTime (PathElem) ) 
ClockFreqValue = GnlPathElemRiseArrTime (PathElem) + 
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GnlPathElemRiselncr (PathElem) ; 

else 

ClockFreqValue = GnlPathElemFallArrTime (PathElem) + 

GnlPathElemFalllncr (PathElem) ; 

} 

BListDelete (&AuxList, TimeFreePathElem) ; 

} 

BListQuickDelete ( &ListOf CritPaths) ; 
if (ClockFreqValue) 

{ 

SetGnlClockArrTime (Clock, ArrTime) ; 
SetGnlClockSetupTime (Clock, SetupTime) ; 
fprintf (stderr, " Clock : "); 
if (GnlClockHierNameOfGnlClok (Clock) ) 

fprintf (stderr, »%s/ n , GnlClockHierNameOfGnlClok (Clock)); 
fprintf (stderr, "%s\n n , GnlVarName (GnlClockSourceClock (Clock) ) ) ; 
fprintf (stderr, " Clock Period \t\t\t%.2f ns\n", ClockFreqValue); 
fprintf (stderr, " Clock Frequency \t\t%.2f Mhz\n" , 

1000 * 1/ClockFreqValue) ; 

fprintf (stderr, " 

\n»); 

} 

BListQuickDelete ( SListOf CritPaths) ; 

} 



/* *z 

/* TimePrintAllCriticalPath */ 

/* */ 

void TimePrintAllCriticalPath (GNL TopGnl, LIBC_LIB Lib, 

float *MinSlackForCombPath, float *MinSlackForSeqPath) 

{ 

BLIST ListOf CritPaths, AuxList; 

f loat ClockFreqValue , CombPathValue ; 

float MinSlack; 

GNL_CLOCK Clock, Clockl, ClOCkJ; 

int i, j; 

GNL_PATH_ELEM PathElem ; 



GnlPrintHeadOfTimingReport (TopGnl, Lib) ; 
ClockFreqValue = CombPathValue = 0.0; 
*MinSlackForCombPath = 0.0; 
if (BListElt (MatrixCriticalPath, 0)) 
{ 

ListOfCritPaths = (BLIST) BListElt ( 

(BLIST) BListElt (MatrixCriticalPath, 0), 0) ; 
for (i=0; i < BListSize (ListOfCritPaths) ; i++) 
{ 

AuxList = (BLIST) BListElt (ListOfCritPaths, i) ; 
TimePrintPath (AuxList) ; 
if <!i) 
{ 

PathElem = (GNL_PATH_ELEM) BListElt (AuxList, BListSize (AuxList) - 

1) ; 

CombPathValue = GnlMaxFloat (GnlPathElemRiseArrTime (PathElem) , 

GnlPathElemFallArrTime (PathElem) ) ; 
*MinSlackForCombPath = -CombPathValue; 

} 
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BListDelete (&AuxList, TimeFreePathElem) ; 

} 

BListQuickDelete UListOfCritPaths) ; 

} 

if (CombPathValue) 
{ 

fprintf ( stderr , " 

\n»); 

fprintf (stderr, » Combinational Path \t\t%.3f ns\n", CombPathValue); 

fprintf (stderr, " 

\n\n») ; 

} 

*MinSlackForSeqPath = MAX_FLOAT ; 

for (i=0; i < BListSize (LocalListOf Clocks) ; i++) 
{ 

Clock = (GNL_CLOCK) BListElt (LocalListOf Clocks , i) ; 
ListOfCritPaths = (BLIST) BListElt ( 

(BLIST) BListElt (MatrixCriticalPath, i+1) , i+1); 
(void) TimePrintClockFreqForOneClock (Clock, ListOfCritPaths) ; 
MinSlack = GnlClockReqTime (Clock) - GnlClockArrTime (Clock) ; 
if (*MinSlackForSeqPath > MinSlack) 
*MinSlackForSeqPath = MinSlack; 

} 

if (I LocalListOf Clocks ) 

*MinSlackForSeqPath = 0.0; 

if (BListSize (LocalListOf Clocks) > 1) 

{ 

fprintf (stderr, " \n\n 

\n«) ; 

fprintf (stderr," MIXED CLOCK DOMAIN :\n"); 

f print f (stderr, " 

\n«) ; 

for (i=0; i < BListSize (LocalListOf Clocks ) ; i++) 
{ 

Clockl = (GNL_CL0CK) BListElt (LocalListOf Clocks , i) ; 
for (j=0; j < BListSize (LocalListOf Clocks) ; j++) 
{ 

ListOfCritPaths = (BLIST) BListElt ( 

(BLIST) BListElt (MatrixCriticalPath, i+1), j+1); 
if ((i == j) || ! ListOfCritPaths) 
continue; 

ClockJ = (GNL_CLOCK) BListElt (LocalListOf Clocks , j); 
fprintf (stderr, " The most critical path n ); 
if (GnlClockHierNameOfGnlClok (Clockl)) 

fprintf (stderr, "%s/ n , GnlClockHierNameOfGnlClok (Clockl)); 

fprintf (stderr, "%s > " , GnlVarName (GnlClockSourceClock 

(Clockl) ) ) ; 

if (GnlClockHierNameOfGnlClok (ClockJ) ) 

fprintf (stderr, "%s/ M , GnlClockHierNameOfGnlClok (ClockJ)); 
fprintf (stderr, "%s\n", GnlVarName (GnlClockSourceClock (ClockJ))); 

AuxList - (BLIST) BListElt (ListOfCritPaths, 0) ; 
TimePrintPath (AuxList) ; 
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} 

} 

} 

/* 

/* TimeExpandCritPathFromNetwork */ 

/* [ 

/* Doc procedure TimeExpandCritPathFromNetwork : 

- Getting combinational critical path and Clock periode from a given 
Network (GNL_NETWORK) . 

*/ 

/* 

GNL_STATUS TimeExpandCritPathFromNetwork (GNL_NETWORK Nw, 



LIBC_LIB Lib, 

int MaxPaths , 

BLIST Lis tOf Clocks , 

double AreaWithoutNet , 

float MinSlackForCombPath, 

float MinSlackForSeqPath, 

int PrintCritRegion) 



GNL TopGnl ; 

GNL_STATUS GnlStatus ; 

BLIST Path, AuxList; 
int i, j ; 

GNL_CLOCK Clock; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

LocalMinSlackForCombPath = MinSlackForCombPath; 
LocalMinSlackForSeqPath = MinSlackForSeqPath; 

if (BListCreate (&G_PileOf Component) ) 
return ( GNL_MEMORY_FULL ) ; 

LocalListOf Clocks = ListOf Clocks ; 

if (BListCreateWithSize (BListSize (LocalListOf Clocks) +1 , 
ScMatrixCriticalPath) ) 

return (GNL_MEMORY_FULL) ; 

for {i=0; i < BListSize (LocalListOf Clocks) +1 ; i++) 

if (BListCreateWithSize (BListSize (LocalListOf Clocks) +1, &AuxList) ) 

return <GNL_MEMORY_FULL) ; 
for (j=0; j < BListSize (LocalListOf Clocks) +1; j++) 
if (BListAddElt (AuxList, (int) NULL)) 
return ( GNLJYIEMOR Y_FULL ) ; 
if (BListAddElt (MatrixCriticalPath, (int) AuxList)) 
return (GNL_MEMORY_FULL) ; 



if (MaxPaths == l && BListSize (LocalListOf Clocks) <= l) 

LocallsAboutCombinational = 1; 
/* fprintf (stderr, "Past 1, LocalMinSlackForCombPath = %.2f\n", 
LocalMinSlackForCombPath); */ 
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if (LocalMinSlackForCombPath i= 0) 

if (TimeExpandCombinationalCritPathFromGnl (TopGnl, Lib, MaxPaths) ) 

return ( GNL_MEMORY_FULL ) ; 
LocallsAboutCombinational = 0; 

if (BListCreate (&Path) ) 

return (GNL_MEMORY_FULL) ; 

/* fprintf (stderr, "Past 2\n") ; */ 

if ( ! TimeConditionsAreSatisf ied (MaxPaths)) 

if (TimeExpandCombinationalCritPathFromGnl (TopGnl, Lib, MaxPaths) ) 
return (GNL_MEMORY_FULL) ; 

/* fprintf (stderr, "Past 3\n"); */ 

if (! TimeConditionsAreSatisf ied (MaxPaths)) 

if (TimeExpandSequentialCritPathFromGnl (TopGnl, Lib, Path, MaxPaths) ) 
return (GNL_MEMORY_FULL) ; 

BListQuickDelete (&Path) ; 

} 

else 

{ 

if (TimeExpandCombinationalCritPathFromGnl (TopGnl, Lib, MaxPaths)) 

return ( GNL_MEMORY_FULL ) ; 
if (BListCreate (&Path) ) 

return (GNL_MEMORY_FULL) / 

if ( ! TimeConditionsAreSatisf ied (MaxPaths) ) 

if (TimeExpandSequentialCritPathFromGnl (TopGnl, Lib, Path, MaxPaths)) 
return ( GNL_MEMORY_FULL ) ; 
BListQuickDelete (&Path) ; 

} 

TimePrintAllCriticalPath (TopGnl, Lib, &MinSlackForCombPath, &MinSlackForSeqPath) 

if (PrintCritRegion) 

if (GnlStatus = GnlGetEpsiCriticInstancesFromGnl (TopGnl , Lib, 

MinSlackForSeqPath, MinSlackForCombPath, AreaWithoutNet) ) 
return (GnlStatus) ; 

BListQuickDelete (&G_PileOf Component) ; 
return (GNL_0K) ; 

} 

/* EOF */ 
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/* 
/* 

/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



File: 


timepath.e 




Version: 


1.1 




Modifications : 






Documentation : 






Description : 




*/ 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

*/ 

*/ 



GNL_STATUS TimeGetCritPathFromVar (BLIST Path, int NbCp, GNL_VAR Var, 

LIBC_LIB Lib, float RArrTime, float FArrTime, 
float InTransRise, float InTransFall , int Start); 



GNL_STATUS TimeExpandCritPathFromNetwork 

LIBC_LIB 
int 
BLIST 
double 
float 
float 
int 



(GNLJJETWORK Nw, 
Lib, 

MaxPaths , 
ListOf Clocks, 

AreaWithoutNet , 
MinSlackForCombPath, 
MinSlackForSeqPath, 
PrintCritRegion) ; 



/*- 
/*■ 



EOF 



"*/ 
■*/ 
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/* */ 

/* */ 

/* File: timeutil.c */ 

/* Version: 1.1 */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 

/* */ 



#include <stdio.h> 



#ifdef MEMORY /* If one wants memory statistics for SUN */ 

ftinclude <malloc.h> 

#endif 



#include 


"blist. h" 


#include 


"gnl.h" 


#include 


"libc_mem.h 


#include 


"libc_api . h 


#include 


"gnlestim.h 


#include 


"time.h" 


#include 


"bbdd.h" 


#include 


"gnllibc.h" 


#include 


"gnlmap.h" 


#include 


"gnllibc.h" 


#include 


"blist .e" 


#include 


"libutil.e" 


^include 


" timeutil . e 


^include 


"timecomp.e 


#include 


"timef an. e" 



#define HASH__L I S T_PATH_E LEM 200 

/* 

extern int GnlFloatEqual (float a, float b, int precision) ; 

/* 1e/ 

/* GnlCreateTiminglnfo */ 
/* 

GNL_STATUS GnlCreateTiminglnfo (GNL_TIMING_INFO *TimingInfo) 
{ 

BLIST NewList; 



if ( (*TimingInfo = ( GNL__T I M ING_INF0 ) 

calloc (1, sizeof (GNL_TIMING_INFO__REC) } ) ==NULL) 
return (GNL_MEMORY_FULL) ; 

SetGnlTiminglnfoArrivalFall (*TimingInf o, -MAX_FL0AT) / 
SetGnlTiminglnfoArrivalRise ( *TimingInf o, -MAX_FL0AT) ;; 
SetGnlTiminglnfoRequiredFall ( *TimingInf o, MAX_FL0AT) ; 
SetGnlTiminglnfoRequiredRise ( *TimingInf o # MAX_FL0AT) ; 
SetGnlTiminglnf oFanout ( *TimingInf o, 0) ; 
SetGnlTiminglnf oCapa (*TimingInf o, 0.0) ; 
SetGnlTiminglnf oTransitionFall (*TimingInf o, 0.0) ; 
SetGnlTiminglnf oTransitionRise (*TimingInf o, 0.0); 
SetGnlTiminglnf oTag ( *TimingInf o, 0) ; 
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} 



SetGnlTiminglnf oHook ( *TimingInf o, NULL) ; 
return (GNL OK) ; 



/* + / 

/* GnlFreeTiminglnf o */ 

/* */ 

void GnlFreeTiminglnfo (GNL_TIMING_INFO *TimingInf o) 
{ 

if ( ! (*TimingInf o) ) 
return; 



if (GnlTiminglnfoHook (*TimingInfo) ) 

GnlFreeTiminglnfo ( (GNL_TIMING_INFO *) ^GnlTiminglnf oHook (*TimingInf o) ) 

free ((char *) *TimingInf o) ; 
(*TimingInfo) = NULL; 

} 

/* */ 

/* ie/ 

/* TimeCopyTiminglnf o */ 

/* + / 

GNL_STATUS TimeCopyTiminglnf o ( GNL_T I M ING__INFO Timingll, 

GNL_T I M I NG INFO *TimingI2) 

{ 

GNL__T I M I NG_ INFO AuxTimingI ; 

if (! Timingll) 

{ 

*TimingI2 = NULL; 
return (GNL__OK) ; 

} 



if (GnlCreateTiminglnf o (TimingI2) ) 
return (GNL_MEMORY_FULL) ; 



SetGnlTiminglnf oArrivalFall (*TimingI2 , GnlTiminglnf oArrivalFall 
(Timingll) ) ; 

SetGnlTiminglnf oArrivalRise (*TimingI2 , GnlTiminglnf oArrivalRise 
(Timingll) ) ; 

SetGnlTiminglnf oRequiredFall 
(*TimingI2, GnlTiminglnf oRequiredFall (Timingll) ) ; 

SetGnlTiminglnf oRequiredRise 
(*TimingI2, GnlTiminglnf oRequiredRise (Timingll) ) ; 

SetGnlTiminglnfoFanout (*TimingI2, GnlTiminglnf oFanout (Timingll)) ; 

SetGnlTiminglnfoCapa (*TimingI2, GnlTiminglnf oCapa (Timingll)) ; 

SetGnlTiminglnf oTransitionFall (*TimingI2, 

GnlTiminglnfoTransitionFall (Timingll) ) ; 

SetGnlTiminglnf oTransitionRise (*TimingI2 , 

GnlTiminglnf oTransitionRise (Timingll) ) ; 

SetGnlTiminglnfoTag (*TimingI2, GnlTiminglnf oTag (Timingll)) ; 

if (GnlTiminglnfoHook (Timingll)) 

{ 

TimeCopyTiminglnfo ( (GNL_TIMING_INFO) GnlTiminglnfoHook (Timingll), 
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&AuxTimingI) ; 
SetGnlTiminglnfoHook (*TimingI2, AuxTimingI) ; 

} 

return (GNLJDK) ; 



/* 

/* TimeCreateSeqElem */ 
/* 

GNL_STATUS TimeCreateSeqElem (TIME__SEQUENT1AL_ELEM *SeqElem) 

{ 

if ((*SeqElem = (TIME_SEQUENTIAL_ELEM) 

calloc (1, sizeof ( T 1ME_S EQUENT I AL_ELEM_RE C ) ) ) == NULL) 
return (GNL MEMORY FULL) ; 



SetTimeGetSeqElemSeqComp (*SeqElem, NULL) ; 
SetTimeGetSeqElemHierlnstPath (*SeqElem, NULL) ; 
SetTimeGetSeqElemSlackAtOutput ( *SeqElem / 0.0); 

return (GNL OK) ; 



/* 

/* GnlCreateCritPath */ 

/* 

GNL_STATUS GnlCreateCritPath ( GNL_CR I T I CAL PATH *CritPath) 

{ 

if <(*CritPath= (GNL_CRITICAL_PATH) 

calloc (1, sizeof (GNL_CRITICAL_PATH_REC) ) ) == NULL) 
return (GNL MEMORY FULL) ; 



} 



SetGnlCritPathCriticalVar (*CritPath, NULL) ; 
SetGnlCritPathCriticalAssoc (*CritPath, NULL) ; 
SetGnlCritPathlncr (*CritPath, 0.0) ; 
SetGnlCritPathlnstName (*CritPath, NULL) ; 
SetGnlCritPathArrTime(*CritPath, ~MAX__FLOAT) ; 
SetGnlCritPathReqTime (*CritPath, MAX_FLOAT) ; 
SetGnlCritPathPredecessors (*CritPath, NULL) ; 
SetGnlCritPathSuccessors (*CritPath, NULL); 

return (GNL OK) ; 



/* */ 

/* GnlAddPredecessorToCritPath */ 
/* */ 

GNL_STATUS GnlAddPredecessorToCritPath ( GNL_CR I T I CAL_P ATH CritPath, 

GNL_CR I T I CAL PATH Predecessor) 

{ 

BLIST ListPredecessors ; 

if (JCritPath || ! Predecessor ) 
return (GNL_OK) ; 

if ( IGnlCritPathPredecessors (CritPath) ) 

{ 



E-HUBBLE-335 



timeutil.c 



if (BListCreateWithSize (1, ^ListPredecessors) ) 

return ( GNLJVTEMOR Y_FULL) ; 
SetGnlCritPathPredecessors (CritPath, ListPredecessors) ; 

} 

ListPredecessors = GnlCritPathPredecessors (CritPath) ; 

if (BListAddElt (ListPredecessors, Predecessor)) 
return ( GML_MEMORY_FULL ) ; 

return (GNL_OK) / 

} 

/* 

/* GnlAddSuccessorToCritPath 

/* 

GNL_STATUS GnlAddSuccessorToCritPath ( GNL_CR I T I C AL_P ATH CritPath, 

GNL_CR I T I CAL PATH Successor) 

{ 

BLIST ListSuccessors ,- 

if (i CritPath || ! Successor) 
return (GNL_OK) ; 

if ( ! GnlCritPathSuccessors (CritPath) ) 

{ 

if (BListCreateWithSize {1, ^ListSuccessors) ) 

return ( GNL_MEMOR Y_FULL ) ; 
SetGnlCritPathSuccessors (CritPath, ListSuccessors) ; 

} 

ListSuccessors = GnlCritPathSuccessors (CritPath) ; 

if (BListAddElt (ListSuccessors, Successor)) 
return ( GNL_MEMORY_FULL ) ; 

return (GNL_OK) ; 

} 

/* 

/* GnlFreeCritPath */ 

/* 

void GnlFreeCritPath ( GNL_CR I T I CAL_P ATH *CritPath) 
{ 

GNL_CR I T I CAL_PATH Succesor; 
int i, Rank; 

if ( ! (*CritPath) ) 
return; 

if (GnlCritPathPredecessors (*CritPath) ) 

BListDelete (^GnlCritPathPredecessors (*CritPath) , GnlFreeCritPath) 

for (i=0; i < BListSize (GnlCritPathSuccessors ( *CritPath) ) ; i++) 
{ 

Succesor = { GNL_CR I T I C AL_P ATH ) BListElt (GnlCritPathSuccessors 
(*CritPath) , 
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i) ; 

Rank = BListMemberOf List (GrilCritPathPredecessors (Succesor) , *CritPath, 

Intldentical) ; 

BListDelShif t (GnlCritPathPredecessors (Succesor) , Rank) ; 

} 

BListQuickDelete (&GnlCritPathSuccessors (*CritPath) ) ; 



if (GnlCritPathlnstName (*CritPath) ) 

free (GnlCritPathlnstName (*CritPath) ) ; 




free ((char *) *CritPath) ; 
(*CritPath) - NULL; 




GnlFreeTiminglnf oFromVar 


*/ 


Doc procedure GnlFreeTiminglnf oFromVar : 
- For a given Net or Var <GNL_VAR) : 
- Free the timing info attached. 



} 

/* */ 

/* GnlFreeTiminglnf oFromVar */ 
/* */ 



*/ 
/*■ 

GNL_STATUS GnlFreeTiminglnf oFromVar (GNL_VAR Var, int IsInTheTopGnl) 
{ 

int i ; 

BLIST SubList; 



i f ( Is InTheTopGnl ) 

GnlFreeTiminglnfo ( (GNL_TIMING_INFO *) &GnlVarTraversalInf oHook (Var)); 
else 

{ 

for (i=0; i<BListSize ( (BLIST) GnlVarTraversallnf oHook (Var)); i++) 
{ 

SubList = (BLIST) BListElt ( (BLIST) GnlVarTraversallnf oHook (Var), 

i) ; 

if (1 SubList) 
cont inue ; 

BListDelete (&SubList, GnlFreeTiminglnfo) ; 

} 

BListQuickDelete ((BLIST *) ^GnlVarTraversallnf oHook (Var) ) ; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlFreeTiminglnf oFromGnl */ 

/* */ 

/* Doc procedure GnlFreeTiminglnf oFromGnl : 
- For a given Gnl (GNL) : 

- Free Hierarchicaly The timing info attached to each Net "GNLVAR" . 

*/ 

/* */ 

GNL__STATUS GnlFreeTiminglnf oFromGnl (GNL Gnl, int IsInTheTopGnl) 

{ 
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GNL_VAR 
int 

GNL_STATUS 
GNL 

GNL_COMPONENT 
BLIST 



Var; 
ii j; 

GnlStatus ; 
GnlCompoI; 

Component I ; 

Components , Bucketl ; 



Components - GnlComponents (Gnl) ; 

for (i=0; i<BListSize (Components); i++) 

{ 

ComponentI = (GNL_COMPONENT) BListElt (Components, i) ; 
if (GnlComponentType (ComponentI) != GNL_USER_COMPO ) 
continue; 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

{ 

if (GnlStatus = GnlFreeTiminglnf oFromGnl (GnlCompol, 0)) 
return (GnlStatus) ; 

} 

} 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 
for (j=0; j < BListSize (Bucketl); j++) 
{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 
if (!Var || GnlVarlsVss (Var) || GnlVarlsVdd (Var)) 
continue; 

if ((GnlStatus = GnlFreeTiminglnf oFromVar (Var, IsInTheTopGnl) ) ) 
return (GnlStatus) ; 

} 

} 



return (GML_OK) ; 

} 



/* */ 

/* GnlFreeTiminglnf oFromNetwork */ 

/* */ 

/* Doc procedure GnlFreeTiminglnf oFromNetwork : 
- For a given Network (GNL_NETWORK) : 

- Free Hierarchical;/ The timing info attached to each Net "GNL VAR" . 

*/ 

/* */ 

GNL_STATUS GnlFreeTiminglnf oFromNetwork ( GNL_NETWORK Nw) 
{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if ((GnlStatus = GnlFreeTiminglnf oFromGnl (TopGnl, 1))) 
return (GnlStatus) ; 

return (GNL_0K) ; 

} 
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/* 

int GnlCritPath_InstNameCmpStr ( GNL_CR I T I C AL PATH CritPath, char *Str) 
{ 

if (! GnlCritPathlnstName (CritPath) || !Str) 

return (Str -= GnlCritPathlnstName (CritPath) ) ; 

if (Istrcmp (GnlCritPathlnstName (CritPath), Str)) 
return (1) ; 

return (0) ; 

} 

z* 

int GnlFloatEpsilonEqual (float a, float b, float Epsi) 

if (a > b) 
{ 

if ( (a - b) <= Epsi) 
return (1) ; 

} 

else 

{ 

if ( (b - a) <= Epsi) 
return (1) ; 

} 

return (0) ; 

} 

/* 

/* GnlGetEpsiCritlnstFromCombCell */ 

/* 

GNL_STATUS GnlGetEpsiCritlnstFromCombCell (GNLJJSER_COMPONENT UserCompo, 

GNL_ASS0C Assoc, 
LIBC_LIB Lib, 
BLIST ListCritlnst, 
float Epsi, 
int *IsEndInput, int *IsEndSeq, 
float MinSlack, 
int IsStartOutput , 

int I s About Comb ) 

{ 

LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Rank, Fanout, IsEndlnputAux, IsEndSeqAux; 

GNL_ASS0C AssocI; 

char * Formal, *HierarchycalName; 

GNL_VAR Var, Varl; 

GNL_TIM1NG_INF0 TimingI, Timing ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
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float 

float 

BLIST 

GNL_STATUS 

GNL_CR I T I CAL_PATH 

unsigned int 

BLIST 



Length, WireCapa, WireResistance, OutCapa; 

Max, Max I; 

Interface ; 

GnlStatus; 

CritPath; 

Key; 

SubList; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (!{PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_0K) ; 

if (GnlGetHierarchycallnstName (GnlUserComponentlnstName (UserCompo) , 

&HierarchycalName) ) 

return ( GNL_MEMORY_FULL ) ; 
Key = KeyOfName (HierarchycalName, BListSize (ListCritlnst) ) ; 
SubList = (BLIST) BListElt (ListCritlnst, Key) ; 
if (i SubList) 
{ 

if (BListCreate (&SubList) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (ListCritlnst, Key) = (int) SubList; 

} 

if (BListMemberOfList (SubList, 
HierarchycalName , GnlCritPath_InstNameCmpStr ) ) 

{ 

free (HierarchycalName) ; 
return (GNL_OK) ; 

} 

free (HierarchycalName) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Var, ^Timing, &Key, &Rank) ) 
return ( GNL_MEMORY_FULL ) ; 

Max = GnlTiminglnf oArrivalRise (Timing) ; 

if (Max < GnlTiminglnf oArrival Fall (Timing)) 

Max = GnlTiminglnf oArrivalFall (Timing) ,- 
Fanout = GnlTiminglnf oFanout (Timing) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (Timing) ; 

Interface = GnlUserComponent Interface (UserCompo) ; 

for (i=0; i < BListSize (Interface); i++) 
{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 

Varl = GnlAssocActualPort (AssocI) ; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
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continue ; 

Formal = (char *) GnlAssocFormalPort (AssocI) ; 
if (!(PinIn = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection(Pinln) i= INPUT_E) 
continue; 

if { ! LibGetArcTiming (Pinln, PinOut) ) 

continue ; 
IsEndlnputAux = IsEndSeqAux = 0; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance , 
Fanout, Cell, Pinln, PinOut, 
&De 1 ayR , &0ut Trans R , 
SeDelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnf oArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MaxI = TimeRise; 
if (MaxI < TimeFall) 
MaxI = TimeFall; 

if ( IGnlFloatEpsilonEqual (Max, MaxI, Max * Epsi) ) 
continue ; 

if (GnlStatus = GnlGetEpsiCritlnstFromVar (Varl, Lib , ListCritlnst , 

Epsi, 

&IsEndInputAux, & IsEndSeqAux, MinSlack, 
1, IsStartOutput , IsAboutComb) ) 
return (GnlStatus) ; 
if (IsEndlnputAux) 
*IsEndInput = 1; 
if (Is Ends eqAux ) 
*IsEndSeq = 1; 

} 

if ((GnlStatus = GnlCreateCritPath (&CritPath) ) ) 

return (GnlStatus) ; 
SetGnlCritPathCriticalAssoc (CritPath, Assoc) ; 
if (GnlTiminglnf oArrivalRise (Timing) > 
GnlTiminglnf oArrivalFall (Timing) ) 
{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnf oArrivalRise 

(Timing) ) ; 

SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredRise 

(Timing) ) ; 

} 

else 
{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnf oArrivalFall 

(Timing) ) ; 

SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredFall 

(Timing) ) ; 
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} 

SetGnlCritPathlnstNameFromUserCompo (CritPath, 

GnlUs e r Component Ins tName (UserCompo) ) ; 

if (IsAboutComb) 

{ 

if (*IsEndInput) 
{ 

if (BListAddElt (SubList, CritPath)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

GnlFreeCritPath UCritPath) ; 

} 

else 

{ 

if ( 1 IsStartOutput || *IsEndSeq) 

{ 

if (BListAddElt (SubList, CritPath)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

GnlFreeCritPath (&CritPath) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* GnlGetEpsiCritlnstFromUserCompo */ 

/* *i 

GNL_STATUS GnlGetEpsiCritlnstFromUserCompo (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
BLIST ListCritlnst, 
float Epsi, 
int *IsEndInput, int *IsEndSeq, 
float MinSlack, 
int IsStartOutput , 

int IsAboutComb, 
GNL_VAR Actual) 

{ 

GNL_VAR Var, Formal, AuxFormal; 

GNL_USER_COMPONENT UserCompo ; 
GNL_T I M ING__ INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 

UserCompo = { GNL__USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL FORMAL CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 

if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (GnlStatus = GnlGetEpsiCritlnstFromCombCell (UserCompo, 

Assoc, Lib, ListCritlnst, Epsi, 
IsEndlnput, IsEndSeq, MinSlack, 
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IsStartOutput, IsAboutComb) ) 

return (GnlStatus) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

"# WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

return (GNL_OK) ; 

} 

if (BListAddElt (G_PileOf Component , UserCompo)) 
return ( GNL_MEMORY_FULL ) ; 

if (GnlStatus = TimeGetFormalFromAssocAndActual (Assoc, Actual, 
&AuxFormal) ) 

return (GnlStatus) ; 



if (GnlStatus = GnlGetEpsiCritlnstFromVar (AuxFormal , Lib, ListCritlnst , 
Epsi , 

IsEndlnput, IsEndSeq, MinSlack, 
0, IsStartOutput, IsAboutComb)) 
return (GnlStatus) ; 
BListDelShift <G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

return (GNLJDK) ; 

} 

/* 4e/ 

/* GnlGetEpsiCritlnstFromSeqCell */ 

/* *i 

GNLjSTATUS GnlGetEpsiCritlnstFromSeqCell (GNL_ASSOC Assoc, 

BLIST ListCritlnst, 
float Epsi, 
int *IsEndInput, int *IsEndSeq, 
float MinSlack) 

{ 

LIBC_CELL Cell; 
LIBC_PIN PinOut; 
int i, Rank; 

GNL_ASSOC Assoc I; 

char * Formal, *HierarchycalName; 

GNL_VAR Var; 
GNL_T I M I NG_ I NFO Timings- 
float SlackRise, SlackFall, Slack; 
GNL_STATUS GnlStatus ; 
GNL_SEQUENTIAL_COMPONENT SeqCompo ; 
GNL_CR I T I CAL_P ATH Cr i t P a t h ; 
unsigned int Key; 
BLIST SubList; 
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SeqCompo = (GNL_SEQUENTIAL_COMPONENT) GnlAssocTraversallnf oComponent 
(Assoc) ; 

Cell = GnlSeqCompoInfoCell (SeqCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (MPinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) != OUTPUT_E ) 

return (GNLJ3K) ; 

if (GnlGetHierarchycallnstName (GnlSequentialCompoInstName (SeqCompo) , 

&HierarchycalName) ) 

return ( GNL_MEMORY_FULL ) ; 
Key = KeyOfName (HierarchycalName, BListSize (ListCritlnst ) ) ; 
SubList = (BLIST) BListElt (ListCritlnst, Key) ; 
if (! SubList) 
{ 

if (BListCreate USubList) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (ListCritlnst, Key) = (int) SubList; 

} 

if (BListMemberOfList (SubList, 
HierarchycalName,GnlCritPath_InstNameCmpStr) ) 

free (HierarchycalName) ; 
return (GNL_OK) ; 

} 

free (HierarchycalName) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, &TimingI, &Key, &Rank) ) 
return ( GNL _MEMORY_FULL ) ; 

if ( (GnlStatus = GnlCreateCritPath (&CritPath) ) ) 

return (GnlStatus) ; 
SetGnlCritPathCriticalAssoc (CritPath, Assoc) ; 

if (GnlTiminglnfoArrivalFall (TimingI) < GnlTiminglnf oArrivalRise 
(TimingI) ) 

{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnf oArrivalRise (TimingI) } ; 
SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredRise (TimingI)); 

else 
{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnfoArrivalFall (TimingI)) ; 

SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredFall (TimingI)) ; 



SetGnlCritPathlnstNameFromUserCompo (CritPath, 

GnlSequentialCompoInstName (SeqCompo) ) ; 
if (BListAddElt (SubList, CritPath)) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* 4t/ 
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/* GnlGetEpsiCritInstFFrom3State */ 

/* 

GNL_STATUS GnlGetEpsiCritInstFFrom3State (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
BLIST ListCritlnst, 
int E psi, 
int *IsEndInput, int *IsEndSeq / 
float MinSlack, 
int IsStartOutput, 
int IsAboutComb) 

{ 

LIBC_CELL Cell; 
LIBC_PIN PinOut, Pinln; 

int i, Rank, Fanout; 

GNL_ASSOC AssocI; 

char * Formal, *HierarchycalName; 

GNL_VAR Var, Var I; 

GNL_TIMING_INFO Timing, TimingI ; 

float InTransRise, InTransFall, OutTransR, OutTransF, 

DelayR, DelayF, TimeRise, TimeFall; 
float Length, WireCapa, WireResistance, OutCapa; 

float Max, MaxI; 

BLIST Interface; 
GNL_STATUS GnlStatus ; 

GNL_CRI T I CAL_PATH CritPath; 
GNL_TRISTATE__COMPONENT TriStateCompo ; 

unsigned int Key; 
BLIST SubList; 



TriStateCompo = (GNL_TRISTATE_COMPONENT) GnlAs socTraver sal Inf ©Component 
(Assoc) ; 

Cell = GnlTriStateCompoInfoCell (TriStateCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (! (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) == INPUT_E ) 

return (GNL_OK) ; 

if (GnlGetHierarchycallnstName (GnlUserComponentlnstName (TriStateCompo) , 

&HierarchycalName) ) 

return (GNL_MEMORY_FULL) ; 

Key = KeyOfName (HierarchycalName, BListSize (ListCritlnst)); 
SubList^ (BLIST) BListElt (ListCritlnst, Key); 
if (! SubList) 

{ 

if (BListCreate (&SubList) ) 
return { GNL_MEMORY_FULL ) ; 
BListElt (ListCritlnst, Key) = (int) SubList; 

} 

if (BListMemberOf List (SubList , 
HierarchycalName, GnlCritPath_InstNameCmpStr) ) 

{ 
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free (HierarchycalName) ; 
return (GNL_OK) ; 

} 

free (HierarchycalName) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, ^Timing, &Key, &Rank) ) 

return ( GNL _MEM0RY_FULL ) ; 
Max = GnlTiminglnf oArrivalRise (Timing) ; 
if (Max < GnlTiminglnf oArrivalFall (Timing) ) 

Max = GnlTiminglnfoArrivalFall (Timing) ; 
Fanout = GnlTiminglnfoFanout (Timing) ; 

Length = LibGetWireLengthFromFanout (G__WireLoad, Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (Timing) ; 

Interface = GnlTriStatelnterf ace (TriStateCompo) ; 
for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASS0C) BListElt (Interface, i) ; 
if ( 'Assoc I) 
continue; 

Varl = GnlAssocActualPort (AssocI) ; 
if (J Varl) 
continue; 

if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue ; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if ( 1 (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection(Pinln) '= INPUT_E) 
continue ; 

if ( !LibGetArcTiming (Pinln, PinOut) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransi tionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&De 1 ayR , &0u t TransR , 
&DelayF, &OutTransF) ; 

GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingI) , 
GnlTiminglnfoArrivalFall (TimingI) , 
ScTimeRise, &TimeFall) ; 

MaxI = TimeRise; 
if (MaxI < TimeFall) 
MaxI = TimeFall; 

if ( IGnlFloatEpsilonEqual (Max, MaxI, Max * Epsi) ) 
continue; 
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if (GnlStatus = GnlGetEpsiCritlnstFromVar (Varl, Lib, 
ListCritlnst , Epsi , 

IsEndlnput, IsEndSeq, MinSlack, 
1, IsStartOutput , Is About Comb) ) 
return (GnlStatus) ; 

} 

if ((GnlStatus = GnlCreateCritPath (&CritPath) ) ) 

return (GnlStatus) ; 
SetGnlCritPathCriticalAssoc (CritPath, Assoc) ; 
if (GnlTiminglnf oArrivalRise (Timing) > 
GnlTiminglnfoArrivalFall (Timing) ) 
{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnf oArrivalRise (Timing) ) 
SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredRise 
(Timing) ) ; 

} 

else 
{ 

SetGnlCritPathArrTime (CritPath, GnlTiminglnfoArrivalFall (Timing) ) 
SetGnlCritPathReqTime (CritPath, GnlTiminglnf oRequiredFall 
(Timing) ) ; 

} 

SetGnlCritPathlnstNameFromUserCompo (CritPath, 

GnlUserComponentlnstName (TriStateCompo) ) ; 

if (I s About Comb ) 

{ 

if (*IsEndInput) 
{ 

if (BListAddElt (SubList, CritPath)) 
return ( GNL_MEMORY FULL ) ; 

} 

else 

GnlFreeCritPath UCritPath) ; 

} 

else 

{ 

if (! IsStartOutput || *IsEndSeq) 
{ 

if (BListAddElt (SubList, CritPath)) 
return (GNL_MEMORY_FULL) ; 

} 

else 

GnlFreeCritPath (&CritPath) ; 

} 

return (GNL_OK) ; 

} 

/* *i 

/* GnlGetEpsiCritlnstFromAssoc */ 

/* * t 

GNL_STATUS GnlGetEpsiCritlnstFromAssoc (GNL_ASSOC Assoc, 

LIBC_LIB Lib, 
BLIST ListCritlnst, 
float Epsi, 
int *IsEndInput, int *IsEndSeq, 
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float MinSlack, 
int IsStartOutput, 
int IsAboutComb, 
GNL_VAR Actual) 

{ 

GNL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT Gnl Compo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 
if ( i IsAboutComb) 
if (GnlStatus = GnlGetEpsiCritlnstFromSeqCell (Assoc, 

ListCritlnst, Epsi, IsEndlnput, 
IsEndSeq, MinSlack) ) 

return (GnlStatus) ; 
*IsEndSeq = 1; 
break; 

case GNL_USER_C0MPO : 

if (GnlStatus = GnlGetEpsiCritlnstFromUserCompo (Assoc, Lib, 

ListCritlnst, Epsi, IsEndlnput, 
IsEndSeq, MinSlack, IsStartOutput , 
IsAboutComb, Actual)) 

return (GnlStatus) ; 
break; 

case GNL_TRISTATE_COMPO: 

if (GnlStatus = GnlGetEpsiCritInstFFrom3State (Assoc, Lib, 

ListCritlnst, Epsi, IsEndlnput, 
IsEndSeq, MinSlack, 
IsStartOutput, IsAboutComb) ) 

return (GnlStatus) ; 
break; 

case GNL_MACRO_C0MP0 : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 

return (GNL_OK) ; 

} 

/* */ 

/* GnlGetEpsiCritlnstFromVar ^ */ 

/* */ 

GNL_STATUS GnlGetEpsiCritlnstFromVar (GNL_VAR Var, 

LIBC_LIB Lib, 
BLIST ListCritlnst , 

float Epsi, 
int *IsEndInput, int *IsEndSeq, 
float MinSlack, 
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int 
int 
int 



Inoutlsln, 
IsStartOutput , 
Is About Comb) 



GNL_VAR Varl, Actual; 

GNL_ASSOC AuxAssocVar; 
int i, Rank; 

GNL_STATUS GnlStatus ; 

GNL_TIMING_INFO Timing, TimingI ; 

float ArrivalTime, RequiredTime , 

SlackRise, SlackFall, Slack, Max, MaxI; 
COMPONENT Inst Of Gnl ; 

AssocSources , RightVarAssigneds ; 
Key; 



GNL_USER 
BLIST 

unsigned int 



if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&Timing, &Key, &Rank) ) ) 

return (GnlStatus) ; 

Max = GnlTiminglnf oArrivalRise (Timing) ; 
if (Max < GnlTiminglnf oArrivalFall (Timing) ) 
Max = GnlTiminglnfoArrivalFall (Timing) ; 

if (GnlVarDir (Var) == GNL_VAR__INPUT | | 

(GnlVarDir (Var) == GNL__VAR_INOUT && Inoutlsln) ) 

{ 

if ("BListSize < G_PileOf Component ) ) 
{ 

*IsEndInput = 1; 
return (GNL_OK) ; 

} 

else 
{ 

InstOfGnl = (GNL__USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, 

InstOfGnl, &Actual) ; 

if ( I AuxAssocVar) 
{ 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 

return ( GNLJMEMOR Y_FULL ) ; 
return (GNL_OK) ; 

} 

if (GnlGetEpsiCritlnstFromVar (Actual, Lib, ListCritlnst , Epsi, 
IsEndlnput, IsEndSeq, MinSlack, 
1, IsStartOutput, IsAboutComb) ) 
return (GNL_MEMORY__FULL) ; 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

if (GnlGetSourcesOfVar (Var, &AssocSources , ScRightVarAssigneds) ) 



E-HUBBLE-349 



timeutil.c 



return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize {RightVarAssigneds ) ; i++) 

{ 

Varl = (GNL_VAR) BListElt (RightVarAssigneds, i) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, &Key, &Rank) ) ) 

return (GnlStatus) ; 
MaxI = GnlTiminglnf oArrivalRise (TimingI) ; 
if (MaxI < GnlTiminglnf oArrivalFall (TimingI) ) 

MaxI = GnlTiminglnf oArrivalFall (TimingI) ; 
if ( GnlFloatEpsilonEqual (Max, MaxI, Max * Epsi) ) 

if ((GnlStatus = GnlGetEpsiCritlnstFromVar (Varl, Lib, ListCritlnst , 
Epsi, IsEndlnput, IsEndSeq, MinSlack, 
1, IsStartOutput, I s About Comb) ) ) 
return (GnlStatus) ; 

} 



BListQuickDelete ( ^RightVarAssigneds) ; 



for (i = 0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocSources, i) ; 
if {(GnlStatus = GnlGetEpsiCritlnstFromAssoc (AuxAssocVar, 
Lib, ListCritlnst , 

Epsi, IsEndlnput, IsEndSeq, MinSlack, 
IsStartOutput, IsAboutComb, Var) ) ) 

return (GnlStatus) ; 

} 



BListQuickDelete (^AssocSources) ; 



return (GNL_0K) / 

} 



/* *i 

/* GnlPrintCriticallnst */ 

/* 

/* Doc procedure GnlPrintCriticallnst : 

- Priniting the list of epsilon-critical instances. 

*/ 

/* */ 

char G_CiticalInstName [528] ; 

GnlPrintCriticallnst (BLIST ListCritlnst, double *AreaCritRegion) 

{ 

int i, j ; 

GNL_CR I T I C AL_P ATH CritPath; 

GNL_ASSOC Assoc; 

GNL_VAR Var, Formal; 

GNL_COMPONENT Compo ; 

LIBC_CELL Cell; 

BLIST SubList; 



if (! ListCritlnst || ! BListSize (ListCritlnst)) 
return; 
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fprintf (stderr, »\n Critical Instance/Port \t\tSlack\n" ) ; 

fprintf (stderr, ,r 

---\n'») ; 

for (j=0; j < BListSize {ListCritlnst ) ; j++) 
{ 

SubList = (BLIST) BListElt (ListCritlnst, j); 
if (I SubList) 
continue; 

for (i=0; i < BListSize (SubList); i++) 

{ 

CritPath = ( GNL_CR IT I C AL_PATH ) BListElt (SubList, i) ; 
Assoc = GnlCritPathCriticalAssoc (CritPath) ; 
if (Assoc) 

{ 

Compo = GnlAssocTraversallnfoComponent (Assoc) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

GnlGetCellFromGnlCompo (Compo, &Cell) ; 

if (Cell) 

{ 

sprintf (G_CiticalInstName, "%s/%s (%s) n , 

GnlCritPathlnstName (CritPath) , (char *) Formal, 
LibCellName (Cell)); 

fprintf (stderr, » "); 

GnlPrintFormatSignalName (stderr, G_CiticalInstName , 26); 
fprintf (stderr, " %.2f\n", 

GnlCritPathReqTime (CritPath) - GnlCritPathArrTime (CritPath) ) ; 
(*AreaCritRegion) += (double) LibCellArea (Cell) ; 

} 

} 

} 

} 

} 



/* it/ 

/* GnlGetCombEpsiCriticInstancesFromGnl */ 

/* #/ 

/* Doc procedure GnlGetCombEpsiCriticInstancesFromGnl : 
- For a given Gnl (GNL) : 

- Get The combinational critical region. 

*/ 

/* 1c/ 

GNL_STATUS GnlGetCombEpsiCrit icInstancesFromGnl (GNL Gnl, LIBC_LIB Lib, 

float MinCombSlack, float Epsi, 
double *AreaCritRegion) 

GNL__VAR Var; 

int i, Rank, IsEndlnput, IsEndSeq; 

GNL_STATUS GnlStatus ; 

GNL__TIMING_INFO Timinglnf o ; 

float MinSlack, Slack; 

BLIST Bucketl, ListCritlnst; 

unsigned int Key; 

float AuxEpsi; 



if (BListCreateWithSize ( HAS H_L I S T_P ATH_EL EM , &ListCrit Inst) ) 
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return ( GNL_MEMORY_FULL ) ; 
BSize (ListCritlnst) = HAS H_L I S T_PATH_ELEM ; 

AuxEpsi = Epsi; 

if (MinCombSlack < 0.0) 

AuxEpsi = Epsi * (-1); 
for (i=0; i < BListSize (GnlHashNames (Gnl) ) ; i++) 
{ 

Bucketl - (BLIST) BListElt (GnlHashNames (Gnl), i) ; 

for (j=0; j < BListSize (Bucketl); j++) 

{ 

Var - (GNL_VAR) BListElt (Bucketl, j); 

if (!Var j| ( (GnlVarDir (Var) != GNL_VAR_OUTPUT) 

(GnlVarDir (Var) 1= GNL_VAR_INOUT) ) ) 

continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

Wiminglnfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
IsEndlnput = IsEndSeq = 0; 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 

if (Slack > GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
if ( !GnlFloatEpsilonEqual (MinCombSlack, Slack, MinCombSlack * AuxEpsi) 
continue; 

if (GnlGetEpsiCritlnstFromVar (Var, Lib, ListCritlnst, Epsi, 

&IsEndInput , &IsEndSeq, MinCombSlack, 0, 1, 1)) 
return ( GNL_MEMORY_FULL ) ; 

} 

} 

GnlPrintCriticallnst (ListCritlnst, AreaCritRegion) ; 

for (i=0; i < BListSize (ListCritlnst); i++) 
{ 

if (iBListElt (ListCritlnst, i) ) 
continue; 

BListDelete ( (BLIST*) &BListElt (ListCritlnst, i) , GnlFreeCritPath) ; 

} 

BListQuickDelete (^ListCritlnst) ; 
return (GNL__OK) ; 

} 

/* */ 

/* * j 

/* GnlGetSeqEpsiCriticInstancesFromFFInGnl */ 

/* */ 

/* Doc procedure GnlGetSeqEpsiCriticInstancesFromFFInGnl : 
- For a given Gnl (GNL) : 



E-HUBBLE-352 



timeutilc 



- Get The sequential critical region starting fron the inputs of Flops. 

*/ 

/* ic/ 

GNL_STATUS GnlGetSeqEpsiCriticInstancesFromFFInGnl (GNL Gnl , LIBCJLIB Lib, 

float MinSeqSlack, 
BLIST ListCritlnst, float Epsi) 

{ 

GNL_VAR Var; 

int i, Rank, IsEndlnput, IsEndSeq; 

GNL_STATUS GnlStatus ; 

GNL_TIMING_INFO Timinglnf o ; 

float Slack; 

GNL__SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_COM PONENT Component I ; 

GNL GnlCompol; 

GNL_ASSOC Assoc; 

unsigned int Key; 

float AuxEpsi; 

AuxEpsi = Epsi; 
if (MinSeqSlack < 0.0) 
AuxEpsi = Epsi * (-1) ; 

for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 
{ 

Componentr = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if (Gnl Component Type (ComponentI) == GNL USER COMPO) 

{ " " 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER__COM PONENT) ComponentI); 
if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlGetSeqEpsiCriticInstancesFromFFInGnl (GnlCompol, 

Lib, 

MinSeqSlack, ListCritlnst, Epsi)) 

return (GnlStatus) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

} 

if (GnlComponentType (ComponentI) ! = GNL_SEQUENTIAL_COMPO) 
continue ; 

SeqCompo = (GNL_SEQUENTIAL_COMPONENT) ComponentI; 
Assoc = GnlSequentialCompoInputAssoc (SeqCompo) ; 
if ( !Assoc) 

continue; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 

continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) ) 

return (GnlStatus) ; 
Slack = GnlTiminglnf oRequiredRise (Timinglnfo) - 
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GnlTiminglnfoArrivalRise (Timinglnf o) ; 

IsEndlnput = IsEndSeq = 0; 

Slack = GnlTiminglnf oRequiredRise (Timinglnf o) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 
if (Slack > GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 
if ( IGnlFloatEpsilonEqual (MinSeqSlack, Slack, MinSeqSlack * AuxEpsi)) 
continue; 

if (GnlGetEpsiCritlnstFromVar (Var, Lib, ListCritlnst, Epsi, 

&IsEndInput, SdsEndSeq, MinSeqSlack, 1, 0, 0)) 
return (GNL_MEMORY_FULL) ; 

} 

return (GNL_0K) ; 

} 

/* ic/ 

/* GnlGetSeqEpsiCriticInstancesFromGnl */ 

/* *i 

/* Doc procedure GnlGetSeqEpsiCriticInstancesFromGnl : 
- For a given Gnl (GNL) : 

- Get The sequential critical region. 

*/ 

/* ie/ 

GNL_STATUS GnlGetSeqEpsiCriticInstancesFromGnl (GNL Gnl, LIBC_LIB Lib, 

float MinSeqSlack, float Epsi, 
double *AreaCritRegion) 

GNL_VAR Var; 

int i, j, Rank, IsEndlnput, IsEndSeq; 

GNL_STATUS GnlStatus ; 

GNL_TIMING_INFO Timinglnfo ; 

float MinSlack, Slack; 

BLIST Bucketl, ListCritlnst ; 

unsigned int Key; 

float AuxEpsi; 



if (BListCreateWithSize (HASH_LIST_PATH_ELEM, ^ListCritlnst ) ) 

return (GNL_MEMORY_FULL) ; 
BSize (ListCritlnst) = HASH_LIST_PATH_ELEM; 

AuxEpsi = Epsi; 
if (MinSeqSlack < 0.0) 
AuxEpsi = Epsi * (-1); 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 
{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 

for (j=0; j < BListSize (Bucketl); j++) 

{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 

if (I Var || ( (GnlVarDir (Var) 1= GNL_VAR_OUTPUT) && 

(GnlVarDir (Var) != GNL_VAR_INOUT) ) ) 

continue; 



E-HUBBLE-354 



timeutil.c 



if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInfo, &Key, &Rank) ) ) 

return (GnlStatus) ; 
IsEndlnput = IsEndSeq = 0; 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnf oArrivalRise (Timinglnfo) ; 

if (Slack > GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ; 
if ( IGnlFloatEpsilonEqual (MinSeqSlack, Slack, MinSeqSlack * AuxEpsi) ) 
continue; 

if (GnlGetEpsiCritlnstFromVar (Var, Lib, ListCritlnst , Epsi, 

&IsEndInput, &IsEndSeq, MinSeqSlack, 0, 1, 0)) 
return ( GNL_MEMORY_FULL) ; 



if (GnlGetSeqEpsiCriticInstancesFromFFInGnl (Gnl, Lib, MinSeqSlack, 

ListCritlnst, Epsi) ) 

return (GnlStatus) / 

GnlPrintCriticallnst (ListCritlnst, AreaCritRegion) ; 
for (i=0; i < BListSize (ListCritlnst); i++) 
{ 

if (IBListElt (ListCritlnst, i) ) 
continue; 

BListDelete ((BLIST*) &BListElt (ListCritlnst, i) , GnlFreeCritPath) : 

} 

BListQuickDelete (^ListCritlnst ) ; 
return (GNL_OK) ; 

} 

/* ic/ 

/* GnlGetEpsiCriticlnstancesFromGnl */ 

/* 

/* Doc procedure GnlGetEpsiCriticInstancesFromGnl : 
- For a given Gnl (GNL) : 

- Get the critical region (set of epsilon-critical instances. 

*/ 

/* ie/ 

GNL_STATUS GnlGetEpsiCriticInstancesFromGnl (GNL Gnl, LIBC_LIB Lib, 

float MinSeqSlack, 
float MinCombSlack, 
double AreaWithoutNet) 

{ 

GNL_STATUS GnlStatus ; 

float Epsi; 
double AreaCritRegion ; 

Epsi = 0.2; 
AreaCritRegion - 0.0; 
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if (GnlGetCombEpsiCriticInstancesFromGnl (Gnl, Lib, MinCombSlack, 

Epsi, &AreaCritRegion) ) 

return ( GNL__MEMORY_FULL ) ; 

if (GnlGetSeqEpsiCriticInstancesFromGnl (Gnl, Lib, MinSeqSlack, 

Epsi, &AreaCritRegion) ) 

return (GNL_MEMORY_FULL) ; 
fprintf (stderr, 

M Xnn)? 

fprmtf (stderr," Critical Gates Area / Total Gates Area = %.2f %s\n", 

AreaCritRegion / AreaWithoutNet * 100, "%") ; 
fprintf (stderr, 

« XnB); 

return (GNL_0K) ; 

} 

/* ±/ 

/* ie/ 



/* 

/* GnlCreateClock */ 
/* 

GNL_STATUS GnlCreateClock (GNL CLOCK *Clock) 

{ 

if ((*Clock = (GNL_CL0CK) 

calloc (1, sizeof (GNL__CLOCK_REC) ) ) == NULL) 
return ( GNL_MEMORY__FULL ) ; 

SetGnlClockSourceClock (*Clock, NULL) ; 
SetGnlClockHierNameOfGnlClok (*Clock, NULL) ; 
SetGnlClockArrTime {*Clock, 0.0) 
SetGnlClockReqTinie (*Clock, 0.0) 
SetGnlClockSeqlnst (*Clock, NULL) 
SetGnlClockSeqHierlnstNames (*Clock, NULL) ; 

return (GNL OK) / 



/* 

/* GnlAddSeqlnstToClock 

/* 

GNL_STATUS GnlAddSeqlnstToClock (GNL_CLOCK Clock, 

GNL_S EQUENTI AL_COMPONENT SeqCompo, 
char *HieraInstName) 



-*/ 



{ 



BLIST ListSeqlnstances , ListSeqHierlnstNames ; 
BLIST SubListl, SubList2; 
unsigned int Key; 

if ( ! Clock | | I SeqCompo) 
return (GNL_OK) ; 

if ( JGnlClockSeqlnst (Clock)) 
{ 

if (BListCreateWithSize (HASH_LIST_PATH_ELEM, ScListSeqlnstances) ) 
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return <GNL_MEMORY_FULL) ; 
BSize (ListSeqlnstances) = HASH_LIST_PATH_ELEM ; 
SetGnlClockSeglnst (Clock, ListSeqlnstances) ; 

if (BListCreateWithSize ( HAS H_L I S T_PATH_E L EM , &ListSeqHierInstNames) ) 

return ( GNL_MEMOR Y_FULL) / 
BSize (ListSeqHierlnstNames) = HASH__LIST_PATH_ELEM; 
SetGnlClockSeqHierlnstNames (Clock, ListSeqHierlnstNames) ; 

} 

ListSeqlnstances = GnlClockSeqlnst (Clock) ; 
ListSeqHierlnstNames = GnlClockSeqHierlnstNames (Clock) ; 

Key = KeyOfName (HieralnstName, HASH_LIST_PATHJELEM) ; 
SubListl = (BLIST) BListElt (ListSeqHierlnstNames, Key); 
SubList2 = (BLIST) BListElt (ListSeqlnstances, Key); 
if (I SubListl) 
{ 

if (BListCreateWithSize (1, &SubListl) ) 

return (GNL_MEMORY_FULL) ; 
BListElt (ListSeqHierlnstNames, Key) - (int) SubListl; 
if (BListCreateWithSize (1, &SubList2)) 

return (GNL_MEMORY_FULL) ; 
BListElt (ListSeqlnstances, Key) - (int) SubList2; 

} 

if (BListAddElt (SubList2, SeqCompo) ) 

return (GNL_MEMORY_FULL) ; 
if (BListAddElt (SubListl, HieralnstName) ) 

return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 

} 

/* */ 

/* StrFree */ 

/* 

void StrFree (char **Str) 

{ 

if ( ! (*Str) ) 
return; 

free (*Str) ; 

} 

/* 

/* GnlFreeClock */ 

/* + 1 

void GnlFreeClock (GNL_CLOCK *Clock) 

{ % 

int i, Rank; 

BLIST SubListl, SubList2; 

if ( ! (*Clock) ) 
return; 

for (i-0; i < BListSize (GnlClockSeqHierlnstNames (*Clock)); i++) 

{ 
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SubListl = (BLIST) BListElt (GnlClockSeqHierlnstNames (*Clock) , i) ; 
SubList2 = (BLIST) BListElt (GnlClockSeglnst (*Clock) , i) ; 
if (! SubListl) 

continue ; 
BListDelete (&SubListl, StrFree) ; 
BListQuickDelete (&SubList2) ; 

} 

BListQuickDelete (&GnlClockSeqInst (*Clock)) ; 
BListQuickDelete (^GnlClockSeqHierlnstNames (*Clock) ) ; 

if (GnlClockHierNameOfGnlClok (*Clock) ) 

free (GnlClockHierNameOfGnlClok (*Clock)); 

free ({char *) *Clock) ; 
(* Clock) = NULL; 

} 



int GnlClock_ClockCmpClock (GNL_CLOCK Clock, GNL_VAR SourceClock) 

if (I Clock || I SourceClock) 
return (0) ; 

if (GnlClockSourceClock (Clock) != SourceClock) 
return (0) / 

return (1) ; 

} 



/* GnlGetSourceClockFromUserCompo */ 



GNL_STATUS GnlGetSourceClockFromUserCompo (GNL__ASSOC Assoc, 

GNL_VAR *SourceClock, 

BLIST *PileOf InstCompo, 
^ GNL_VAR Actual) 

GNL_VAR Var, Formal, AuxFormal; 

GNL_USER_COMPONENT UserCompo ; 
GNL_STATUS Gnl Status ; 

UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc) ; 
Var = GnlAssocActualPort (Assoc) ; 

Formal = GnlAssocFormalPort (Assoc) ; 

if (GnlUserComponentFormalType (UserCompo) == GNL_FORMAL_CHAR) 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

*SourceClock = Var; 

if (BListCopyNoEltCr (GJPileOf Component , PileOf InstCompo) ) 
return (GNL_MEMORY_FULL) ; 

return (GNL_OK) ; 
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} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

fprintf (stderr, 

"# WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

return (GNL__OK) ; 

} 

if (GnlVarDir (Formal) == GNL VAR OUTPUT) 
{ ~ " 

if (BListAddElt (G_PileOf Component, UserCompo)) 
return (GNL_MEMORY_FULL) ; 

if (GnlStatus = TimeGetFormalFromAssocAndActual (Assoc, Actual, 
&AuxFormal) ) 

return (GnlStatus) ; 

if (GnlStatus = GnlGetSourceVarFromVar (AuxFormal, SourceClock, 

PileOf InstCompo) ) 

return (GnlStatus) ; 
^ BListDelShift (G_PileOf Component , BListSize ( G_PileOf Component) ) ; 

else 

{ 

if (GnlStatus = GnlGetSourceVarFromVar (Actual, SourceClock, 

PileOf InstCompo) ) 

return (GnlStatus) ; 

} 

return (GNL_OK) ; 

} 

/* v 

/* GnlGetSourceClockFromAssoc */ 

z* v 

GNL_STATUS GnlGetSourceClockFromAssoc (GNL_ASSOC Assoc, GNL_VAR *SourceClock, 
^ BLIST *PileOf InstCompo, GNL__VAR Actual) 

GNL_STATUS GnlStatus ; 

int Rank; 
GNL_COMPONENT Gnl Compo ; 

GNL_VAR Clock; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (GnlComponentType (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 

Clock = GnlAssocActualPort (Assoc) ,* 
*SourceClock = Clock; 

if (BListCopyNoEltCr (G_PileOf Component , PileOf InstCompo) ) 
return ( GNL__MEMORY_FULL ) ; 
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break; 

case GNL_USER_COMPO: 

if (GnlStatus = GnlGetSourceClockFromUserCompo (Assoc, 

SourceClock, 

PileOf InstCompo, Actual) ) 

return (GnlStatus) ; 
break ; 

Case GNL_TRISTATE_COMPO: 

Clock = GnlAssocActualPort (Assoc) ; 
*SourceClock = Clock; 

if (BListCopyNoEltCr (G_PileOf Component , PileOf InstCompo) ) 
return ( GNL_MEMORY__FULL ) ; 
break; 

case GNL _MACRO_COMPO : 
break; 

default : 

GnlError (12 /* Unknown component */) ; 
break; 

} 

if | return (GNL_OK) ; 

M } 

^ /* if/ 

Z\ /* GnlGetSourceVarFromVar */ 

/* */ 

GNL_STATUS GnlGetSourceVarFromVar (GNL_VAR Clock, GNL_VAR * SourceClock, 

O ^ BLIST *PileOfInstCompo) 

M, GNL_VAR Varl, Actual; 

f|j GNL_ASSOC AuxAssocVar; 

fit i nt i ; 

GNL_STATUS GnlStatus ; 

■J* GNL_USER_COMPONENT InstOfGnl ; 

™ BLIST AssocSources, RightVarAssigneds ; 

if (! Clock) 

return (GNL_OK) ; 

if (GnlVarDir (Clock) == GNL_VAR_INPUT | | GnlVarDir (Clock) ==GNL VAR INOUT 
) ~ " 

{ 

if (IBListSize (G_Pi leOf Component ) ) 

{ 

*SourceClock = Clock; 

if (BListCreate (PileOf InstCompo) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

InstOfGnl = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 

BListDelShift (G_PileOf Component , BListSize (G_PileOf Component) ) ; 
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AuxAssocVar 

=GnlGetAssocFromFormalPortAndHierBlock (Clock, InstOfGnl, ^Actual) ; 
if (I AuxAs s oc Var ) 

{ 

if (BListAddElt (G_PileOf Component , InstOfGnl) ) 

return ( GNL_MEMORY_FULL ) / 
return (GNL_OK) ; 

} 

if (GnlVarlsVar (Actual)) 

if (GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)) 

{ 

*SourceClock = Actual; 

if (BListCopyNoEltCr (G_PileOf Component , PileOf InstCompo) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlGetSourceClockFromAssoc (AuxAssocVar, SourceClock, 

PileOf InstCompo, Actual) ) 
return (GNL_MEMORY_FULL) ; 

if {BListAddElt (G_PileOf Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (GnlGetSourcesOfVar (Clock, &AssocSources, &RightVarAss igneds) ) 
return (GNLJVIEMORY_FULL) ; 

for (i=0; i < BListSize ( Right Var As s igneds ) ; i++) 

Varl = (GNL_VAR) BListElt ( RightVarAss igneds , i) ; 
if (GnlVarlsVar (Varl)) 

if (GnlVarlsVdd (Varl) || GnlVarlsVss (Varl)) 
{ 

*SourceClock = Varl; 

if (BListCopyNoEltCr (G_PileOf Component , PileOf InstCompo) ) 

return (GNL__MEMORY_FULL) ; 
BListQuickDelete ( &RightVarAssigneds) ; 
BListQuickDelete ( SAssocSources) ; 
return (GNL_OK) ; 

} 

if (GnlGetSourceVarFromVar (Varl, SourceClock, PileOf InstCompo) ) 
return (GNL MEMORY FULL) ; 

} 

BListQuickDelete (&Right Var Ass igneds) ; 

for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocSources, i) ; 
if (GnlGetSourceClockFromAssoc (AuxAssocVar, SourceClock, 

PileOf InstCompo, Clock) ) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&AssocSources) ; 
return (GNL_OK) ; 

} 



E-HUBBLE-361 



timeutiLc 



/* 

/* * 7 

/* GnlGetGetClocksFromGnl */ 

/* 

/* Doc procedure GnlGetGetClocksFromGnl : 

- Getting all clock (GNL__CLOCK) from a given netlist (GNL) . 

/* _ ie/ 

GNL_STATUS GnlGetGetClocksFromGnl (GNL Gnl , BLIST ListOf Clocks) 
{ 

GNL_VAR Var, SourceClock; 

int i, Rank; 

GNL^STATUS GnlStatus ; 

GNL_SEQUENTIAL_COMPONENT SeqCompo ; 

GNL_COMPONENT Component I ; 

GNL GnlCompol; 
GNL_ASSOC Assoc; 

char *HierNameOfGnlClok, *HieraInstName ; 

GNL_CLOCK Clock; 

BLIST PileOf Ins t Compo ; 

BLIST SaveG_PileOf Component; 

for (i=0; i < BListSize (GnlComponents (Gnl)); i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (GnlComponents (Gnl), i) ; 
if (Gnl Component Type (ComponentI) == GNL USER COMPO) 
{ " ~ 

GnlCompol = GnlUserComponentGnlDef ( (GNL_USER_COMPONENT) ComponentI); 

if (GnlCompol) 

{ 

if (BListAddElt (G_Pi leOf Component , (GNL_USER_COMPONENT) ComponentI)) 

return (GNL_MEMORY_FULL) ; 
if (GnlStatus = GnlGetGetClocksFromGnl (GnlCompol, ListOf Clocks) ) 

return (GnlStatus) ; 
BListDelShif t (G_PileOf Component , BListSize (G_Pi leOf Component ) ) ; 

} 

if (Gnl Component Type (ComponentI) != GNL_S EQUENT I AL_COMPO ) 
continue; 



SeqCompo = (GNL_S EQUENT I AL_COMPONENT) Component I ; 
Assoc = GnlSequentialCompoClockAssoc (SeqCompo) ; 
if (lAssoc) 

continue ; 
Var = GnlAssocActualPort (Assoc) ; 
if (IVar) 

continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if (GnlStatus = GnlGetSourceVarFromVar (Var, &SourceClock, 

&PileOf InstCompo) ) 

return (GnlStatus) ; 

if (Rank = BListMemberOfList (ListOf Clocks , SourceClock, 

GnlClock_ClockCmpClock) ) 
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{ 

Clock = (GNL_CLOCK) BListElt (ListOf Clocks , Rank-1) ; 

} 

else 
{ 

if (GnlCreateClock (fcClock) ) 
return (GNL_MEMORY_FULL) ; 
SetGnlClockSourceClock (Clock, SourceClock) ; 
SaveG_PileOf Component = G_PileOf Component ; 
G_PileOf Component = PileOf InstCompo; 

if (GnlGetHierarchycallnstName {(char*) NULL, &HierNameOf GnlClok) ) 

return ( GNL_MEMOR Y_FULL) ; 
G_PileOf Component = SaveG_PileOf Component ; 
SetGnlClockHierNameOfGnlClok (Clock, HierNameOf GnlClok) ,- 
if (BListAddElt (ListOf Clocks , Clock)) 
return ( GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&PileOf InstCompo) ; 

GnlGetHierarchycallnstName (GnlSequentialCompoInstName (SeqCompo) , 

&HieraInstName) / 
GnlAddSeqlnstToClock (Clock, SeqCompo, HieralnstName) ; 

} 

return (GNL__OK) ; 

} 

/* ± i 

/* GnlGetClocksFromNetwork */ 

/* it/ 

/* Doc procedure GnlGetClocksFromNetwork : 

- Getting all clock (GNL_CLOCK) from a given 
Network (GNL_NETWORK) . 

*/ 

/* #/ 

GNL_STATUS GnlGetClocksFromNetwork (GNL_NETWORK Nw, BLIST ListOf Clocks , 

int PrintClkDomain) 

{ 

GNL TopGnl ; 

GNL_STATUS GnlStatus ; 
GNL_CLOCK Clock; 
GNL_VAR SourceClock ; 

BLIST ListSeqhierlnstNames , ListSeqlnsts ; 
char *Name; 
GNL_SEQUENTIAL_COMPONENT Seq ; 
int i, j, k; 

BLIST StlbListl, SubList2; 

TopGnl = GnlNetworkTopGnl (Nw) ; 

if (BListCreate (&G_PileOf Component ) ) 
return (GNL_MEMORY_FULL) ; 

if ((GnlStatus = GnlGetGetClocksFromGnl (TopGnl, ListOf Clocks) ) ) 
return (GnlStatus) / 

BListQuickDelete (&G_PileOf Component ) ; 
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if (PrintClkDomain) 

for (i=0; i < BListSize (ListOf Clocks) ; i++) 

{ 

Clock = (GNL_CLOCK) BListElt (ListOf Clocks , i) ; 
SourceClock = GnlClockSourceClock (Clock) ; 
fprintf (stderr, 

"\ n y n n) 

fprintf (stderr, " Sequential Components Driven by \"%s\" :\n\n", 

GnlVarName (SourceClock) ) ; 
ListSeqhierlnstNames = GnlClockSeqHierlnstNames (Clock) ; 
ListSeqlnsts = GnlClockSeqlnst (Clock) ; 
for (j=0; j < BListSize (ListSeqhierlnstNames); j++) 
{ 

SubListl = (BLIST) BListElt (ListSeqhierlnstNames, j); 
SubList2 = (BLIST) BListElt (ListSeqlnsts, j); 
if (! SubListl) 
continue; 

for (k=0; k < BListSize (SubListl); k++) 
{ 

Name = (char *) BListElt (SubListl, k) ; 

Seq = (GNL_SEQUENTIAL_COMPONENT) BListElt (SubList2, k) ; 
fprintf (stderr, "\t\t%s", Name); 

fprintf (stderr, " (%s)\n M , LibCellName (GnlSeqCompoInf oCell 

(Seq))) ; 

} 

} 

fprintf (stderr, 

n\ n \ nM) 

} 

return (GNL_OK) ; 

} 

/* EOF */ 



/* */ 

/* TimeOptByResizingCombCell */ 

/* 

GNL_STATUS TimeOptByResizingCombCell (GNL_USER_COMPONENT UserCompo, 

GNL_ASSOC Assoc, 
LIBC_LIB Lib, 
GNL TopGnl) 

{ 

int i , j ; 

LIB_DERIVE_CELL DriveCell, CurrentDeriveCell , DeriveCelll; 
LIB_CELL MotherCell, CurrentMotherCell, MotherCelll; 

LIBC_CELL Cell; 

float MaxArrivalTime, MaxJ, Max; 

float Length, WireResistance , WireCapa, OutCapa; 

float InTransRise, InTransFall, OutTransR, OutTransF; 

int Fanout, Rank, ReplaceWasNotOk; 

GNL_TIMING_INFO Timing J, Timing ; 

char * Formal; 

LIBC_PIN PinOut, Pinln; 

GNL_ASSOC AssocJ; 
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GNL_VAR Var, Var J; 

BLIST ListEquivCells, Interfaces- 

unsigned int Key; 

float DelayR, DelayF, TimeRise, TimeFall; 

GNL Gnl ; 



GNL_US ER_COM PONENT InstOf Gnl ; 
Gnl = TopGnl; 

if (BListSize (G_PileOf Component ) ) 
{ 

InstOf Gnl = (GNL_USER_COMPONENT) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component) -1) ; 
Gnl = GnlUserComponentGnlDef (InstOf Gnl) ; 

} 

ListEquivCells = GnlUserComponentEquivCells (UserCompo) ; 
if ( [ListEquivCells || IBListSize (ListEquivCells)) 
return (GNL_OK) ; 

Cell = (LIBC__CELL) GnlUserComponentCellDef (UserCompo) ; 

Var = GnlAssocActualPort (Assoc) ; 

Formal = (char *) GnlAssocFormalPort (Assoc) ; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, ScTiming, &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 

MaxArrivalTime = GnlTiminglnf oArrivalRise (Timing) ; 

if (MaxArrivalTime < GnlTiminglnf oArrivalFall (Timing) ) 

MaxArrivalTime = GnlTiminglnf oArrivalFall (Timing) ; 
Fanout = GnlTiminglnf oFanout (Timing) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad / Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (GJtiireLoad, Length, Lib) 
WireCapa = LibGetWireScaledCapaFromLength (G_WireLoad / Length, Lib); 
OutCapa = WireCapa + GnlTiminglnf oCapa (Timing) ; 

GnlFindCellsUserCompo (UserCompo , &CurrentMotherCell , 

&CurrentDeriveCell) ; 

for (i=0; i < BListSize (ListEquivCells); i++) 
{ 

DriveCell = (LIB_DERIVE_CELL) BListElt (ListEquivCells, i) ; 
/* We dont accept the inverter cell */ 
if (LibDeriveCellBdd (CurrentDeriveCell) != 
LibDeriveCellBdd (DriveCell) ) 
continue; 

MotherCell = LibDeriveCellMotherCell (DriveCell) ; 
Cell = LibHCellLibcCell (MotherCell) ; 

if (LibCellPad (Cell) | | LibCellDontTouch (Cell) | | LibCellDontUse 
(Cell)) 

continue; 

PinOut = LibGetPinFromNameAndCell (Cell, LibHCellOutput (MotherCell)); 
if (GnlReplaceUserCompoByDeriveCell (Gnl, UserCompo, DriveCell, 

( L I B_DERI VE_CELL ) NULL, 

(BLIST) NULL) ) 
return <GNL_MEMORY_FULL) ; 
ReplaceWasNotOk = 0; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 
Max = -MAX_FL0AT; 
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for (j=0; j < BListSize (Interface); j++) 

{ 

AssocJ = (GNL_ASSOC) BListElt (Interface, j); 
VarJ = GnlAssocActualPort (AssocJ) ; 
Formal = (char *) GnlAssocFormalPort (AssocJ) ; 
if ( ! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection (Pinln) != INPUT_E) 
continue; 

if ( ILibGetArcTiming (Pinln, PinOut) ) 
continue; 

if (GnlTiminglnfoCorrespToCurrentPathFromVar 
(VarJ, ScTimingJ, &Key, ScRank) ) 

return (GNL_MEMORY_FULL) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingJ) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingJ) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , &Out Trans R , 
&DelayF, ScOutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut , 

DelayR, DelayF, 

GnlTiminglnf oArrivalRise (TimingJ) , 
GnlTiminglnfoArrivalFall (TimingJ) , 
&TimeRise, &TimeFall) ; 

MaxJ = TimeRise; 

if (MaxJ < TimeFall) 

MaxJ = TimeFall; 
if (Max < MaxJ) 

Max = MaxJ; 

if (Max > MaxAr rival Time) 
{ 

ReplaceWasNotOk = 1; 
break; 

} 
} 

if (ReplaceWasNotOk) 

{ 

if (GnlReplaceUserCompoByDeriveCell (Gnl, UserCompo, 

CurrentDeriveCell , 
(LIB_DERIVE_CELL) NULL, 
(BLIST) NULL) ) 
return ( GNL _MEMORY_FULL ) ; 

} 

else 

{ 

CurrentDeriveCell = DriveCell; 
MaxArrivalTime = Max; 

} 

} 

return <GNL_OK) ; 

} 

/* 



E-HUBBLE-366 



timeutil.c 



/* TimeOptByResizingFromCombCell 
/* 



7 



GNL_STATUS TimeOptByResizingFromCombCell (GNL_USER_COMPONENT UserCompo, 



LIBC__CELL 

LIBC_PIN 

int 

GNL_ASSOC 

char 

GNL_VAR 

GNL_TIMING_INFO 
float 

float 
float 
BLIST 

unsigned int 



GNL_ASSOC 


Assoc , 


LIBC_LIB 


Lib, 


float 




float 


MinSlack, 


BLIST 


ListCritlnst, 


GNL 


TopGnl , 


BLIST 


ListBuf f ers , 


LIBC_CELL 


Buffer, 


int 


*Tag, 


int 


*Id, 


int 


Is About Fanout) 


Cell, AuxCell; 




PinOut, Pinln; 





i, Rank, Fanout, IsEndlnputAux, IsEndSeqAux; 
AssocI; 

♦Formal, *HierarchycalName; 
Var, Varl; 
TimingI, Timing ; 

InTransRise, InTransFall, OutTransR, OutTransF, 
DelayR, DelayF, TimeRise, TimeFall; 

Length, WireCapa, WireResistance , OutCapa; 

Max , Max I ; 

Interface, SubList; 

Key; 



Cell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ,- 

Var = GnlAssocActualPort (Assoc) ; 

Formal = {char *) GnlAssocFormalPort (Assoc) ; 

if (J (PinOut = LibGetPinFromNameAndCell (Cell, Formal))) 

return (GNL_OK) ; 
if (LibPinDirection (PinOut) INPUT_E ) 

return (GNLJDK) ; 

if (GnlGetHierarchycallnstName (GnlUserComponentlnstName (UserCompo) , 

&HierarchycalName) ) 

return (GNL_MEMORY_FULL) ; 
Key = KeyOfName (HierarchycalName, BListSize (ListCritlnst) ) ; 
SubList = (BLIST) BListElt (ListCritlnst, Key); 
if (I SubList) 
{ 

if (BListCreate (&SubList) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (ListCritlnst, Key) = (int) SubList ; 

} 

if (BListMemberOfList (SubList, HierarchycalName, Stringldentical) ) 

{ 

free (HierarchycalName) ; 
return (GNLJDK) ; 

} 

if (BListAddElt (SubList, (int) HierarchycalName)) 
return (GNL_MEMORY_FULL) ; 
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if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, &Timing, &Key, &Rank) ) 
return ( GNL_MEMORY_FULL) ; 

Max = GnlTiminglnfoArrivalRise (Timing) ; 

if (Max < GnlTiminglnfoArrivalFall (Timing) ) 

Max = GnlTiminglnfoArrivalFall (Timing) ; 
Fanout = GnlTiminglnfoFanout (Timing) ; 

Length = LibGetWireLengthFromFanout (G_WireLoad / Fanout) ; 

WireResistance = LibGetWireScaledResiFromLength (G_WireLoad, Length, Lib) ; 
WireCapa - LibGetWireScaledCapaFromLength (G_WireLoad, Length, Lib) ; 
OutCapa = WireCapa + GnlTiminglnf oCapa (Timing) ; 

Interface = GnlUserComponentlnterf ace (UserCompo) ; 

for (i=0; i < BListSize (Interface); i++) 

{ 

AssocI = (GNL_ASSOC) BListElt (Interface, i) ; 
Varl = GnlAssocActualPort (AssocI) ; 
if (GnlVarlsVss (Varl) || GnlVarlsVdd (Varl)) 
continue ; 

Formal = (char *) GnlAssocFormalPort (AssocI); 
if (! (Pinln = LibGetPinFromNameAndCell (Cell, Formal))) 
continue; 

if (LibPinDirection(Pinln) != INPUT_E) 
continue ; 

if ( ILibGetArcTiming {Pinln, PinOut) ) 
continue; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar 
(Varl , &TimingI , &Key , &Rank) ) 

return ( GNL_MEMORY_FULL) ; 
InTransRise = GnlTiminglnf oTransitionRise (TimingI) ; 
InTransFall = GnlTiminglnf oTransitionFall (TimingI) ; 

LibDelayArcCell (InTransRise, InTransFall, OutCapa, WireResistance, 
Fanout, Cell, Pinln, PinOut, 
&DelayR , ScOutTransR , 
&DelayF, &OutTransF) ; 
GnlGetArrivalTimeRiseAndFallSwitchTimingSence (Pinln, PinOut, 

DelayR, DelayF, 

GnlTiminglnfoArrivalRise (TimingI) , 
GnlTiminglnfoArrivalFall (TimingI) , 
&TimeRise, &TimeFall) ; 

MaxI = TimeRise; 
if (MaxI < TimeFall) 
MaxI = TimeFall; 

if ( IGnlFloatEpsilonEqual (Max, MaxI, Max * Epsi) ) 
continue; 

if (TimeOptByResizingFromVar (Varl, Lib, Epsi, MinSlack, 1, 

ListCritlnst, TopGnl, ListBuffers, 
Buffer, Tag, Id, I s About Fanout ) ) 
return (GNL_MEMORY FULL) ; 

} 

if (II s About Fanout ) 
{ 

if (TimeOptByResizingCombCell (UserCompo, Assoc, Lib, TopGnl)) 
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return ( GNL_MEMORY_FULL ) ; 



/* AuxCell = (LIBC_CELL) GnlUserComponentCellDef (UserCompo) ; 
if (Cell != AuxCell) 
{ 

fprintf (stderr, "WARNING: Replacing <%s> Cell <%s>" , 
GnlUserComponentlnstName (UserCompo) , LibCellName (Cell) ) ; 

fprintf (stderr, "by Cell <%s>\n" , LibCellName (AuxCell) ) ; 
}*/ 



if {GnlGetHierarchycallnstName (GnlUserComponentlnstName (UserCompo) , 

&HierarchycalName) ) 

return ( GNL_MEMORY_FULL ) ; 

Key = KeyOfName (HierarchycalName , BListSize (ListCritlnst)); 
SubList = (BLIST) BListElt (ListCritlnst, Key); 
if (i SubList) 
{ 

if (BListCreate (&SubList) ) 
return (GNL_MEMORY_FULL) ; 
BListElt (ListCritlnst, Key) = (int) SubList; 

} 

if ( IBListMemberOfList (SubList, HierarchycalName, Stringldentical) ) 
if (BListAddElt (SubList, (int) HierarchycalName)) 
return (GNL_MEMORY__FULL) ; 

} 

return (GNL_OK) ; 

} 

/* 

/* TimeOptByResizingFromUserCompo */ 

/* 

GNL_STATUS TimeOptByResizingFromUserCompo (GNL_ASSOC Assoc, 



LIBC_LIB 


Lib, 


float 


Epsi, 


float 


MinSlack, 


GNL_VAR 


Actual , 


BLIST 


ListCritlnst, 


GNL 


TopGnl , 


BLIST 


ListBuf f ers , 


LIBC_CELL 


Buffer, 


int 


*Tag, 


int 


*Id, 


int 


IsAboutFanout) 



GNL_VAR Var, Formal, AuxFormal; 

GNL_USER__COMPONENT UserCompo ; 
GNL_TIMING_INFO Timinglnfo; 
GNL_STATUS GnlStatus ; 

int Rank; 

UserCompo = (GNL_USER_COMPONENT) GnlAssocTraversallnf oComponent (Assoc 
Var = GnlAssocActualPort (Assoc) ; 

Formal = Gnl Assoc Formal Port (Assoc) ; 
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if (GnlUserComponentFormalType (UserCompo) == GNL FORMAL CHAR) 

{ 

/* It corresponds to a LIBC library cell. */ 
if (GnlUserComponentCellDef (UserCompo) ) 

{ 

if (TimeOptByResizingFromCombCell (UserCompo, Assoc, Lib, Epsi, 
MinSlack, 

ListCritlnst, TopGnl , ListBuffers, 
Buffer, Tag, Id, IsAboutFanout) ) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

else 

/* It is a black box without any definition so we stop */ 
/* at its boundary. */ 

{ 

fprintf (stderr, 

"# WARNING: black box <%s %s> may modify final estimation\n" , 
GnlUserComponentName (UserCompo) , 
GnlUserComponentlnstName (UserCompo) ) ; 

return (GNL_OK) ; 

} 

if (BListAddElt (GJPileOf Component , UserCompo)) 
return ( GNL_MEMORY__FULL ) ; 

if (TimeGetFormalFromAssocAndActual (Assoc, Actual, SAuxFormal) ) 
return ( GNL_MEMORY_FULL ) ; 

if (TimeOptByResizingFromVar (AuxFormal , Lib, Epsi , MinSlack , 0 , 

ListCritlnst, TopGnl, ListBuffers, 
Buffer, Tag, Id, IsAboutFanout)) 
return ( GNL_MEMORY_FULL ) ; 

BListDelShif t (G_PileOf Component , BListSize (GJPileOf Component ) ) ; 
return (GNL_OK) ; 

} 

/* 

/* TimeOptByResizingFromAssoc */ 

/* 

GNL_STATUS TimeOptByResizingFromAssoc (GNL_ASSOC Assoc, 



{ 

GNL__STATUS 

int Rank; 



LIBC_LIB 


Lib, 


float 


Epsi , 


float 


MinSlack, 


GNL_VAR 


Actual, 


BLIST 


ListCritlnst, 


GNL 


TopGnl, 


BLIST 


ListBuffers, 


LIBC_CELL 


Buffer, 


int 


*Tag, 


int 


*Id, 


int 


I s About Fanou t 


GnlStatus; 
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GNL_COMPONENT GnlCompo ; 

GnlCompo = GnlAssocTraversallnf oComponent (Assoc) ; 

switch (Gnl Component Type (GnlCompo) ) { 

case GNL_SEQUENTIAL_COMPO : 
break; 

case GNL_USER_COMPO : 

if (TimeOptByResizingFromUserCompo (Assoc, Lib, Epsi, 

MinSlack, Actual, 
Lis tCrit Inst , TopGnl , 
ListBuffers, Buffer, Tag, 
Id, IsAboutFanout) ) 

return (GNL_MEMORY_FULL) ; 
break; 

case GNL_TRISTATE_COMPO: 
break; 

case GNL_MACRO_COMPO : 
break; 

default : 

break; 

} 

return (GNL OK) ; 



/* 

/* TimeOptByResizingFromVar 

/* 

GNL_STATUS TimeOptByResizingFromVar (GNL VAR 



Var, 



{ 



LIBC_LIB 

float 

float 

int 

BLIST 

GNL 

BLIST 

LIBC_CELL 

int 

int 

int 



Lib, 

Epsi, 

MinSlack, 

Inoutlsln, 

ListCritlnst , 

TopGnl , 

ListBuffers, 

Buffer, 

*Tag, 

*Id, 

I s About Fanout ) 



GNL_VAR 
GNL_ASSOC 
int 

GNL_STATUS 
GNL_TIMING_INFO 
float 



Varl, Actual; 
AuxAssocVar ; 
i, Rank; 
GnlStatus; 
Timing , TimingI ; 

ArrivalTime , RequiredTime , 
SlackRise, SlackFall, Slack, Max, MaxI; 
GNL_USER_COMPONENT InstOf Gnl ; 

BLIST AssocSources , RightVarAssigneds ; 

unsigned int Key; 
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if (GnlVarlsVar (Var) ) 

if (GnlVarlsVdd (Var) || GnlVarlsVss (Var)) 
return (GNLJ3K) ; 

if (IsAboutFanout) 

if (TimeOptBalanceRequiredTime (Var, Buffer, Lib, Id, TopGnl, Tag, 

Inoutlsln, ListBuf f ers) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Var , &Timing , &Key, &Rank) ) 
return (GNL_MEMORY_FULL) ; 

if (GnlVarDir (Var) == GNL_VAR_INOUT Inoutlsln) 

Timing = ( GNL_T I M I NG_ INFO) GnlTiminglnf oHook (Timing) ; 

Max = GnlTiminglnf oArrivalRise (Timing) ; 
if (Max < GnlTiminglnf oArrivalFall (Timing) ) 
Max = GnlTiminglnfoArrivalFall (Timing) ,- 

if (GnlVarDir (Var) == GNL_VAR_INPUT | | 

(GnlVarDir (Var) == GNL_VAR_INOUT && Inoutlsln)) 

{ 

if ( !BListSize (G_PileOf Component ) ) 

{ 

return (GNL_OK) ; 

} 

else 
{ 

InstOfGnl = { GNL_US ER_COMPONENT ) BListElt (G_PileOf Component , 

BListSize (G_PileOf Component ) -1) ; 

BListDelShif t (G_PileOf Component , BListSize (G_Pi leOf Component ) ) ; 
AuxAssocVar = GnlGetAssocFromFormalPortAndHierBlock (Var, InstOfGnl, 

&Actual) ; 

if ( I AuxAssocVar) 
{ 

if (BListAddElt (G_Pile0f Component , InstOfGnl)) 

return (GNL_MEMORY_FULL) ; 
return (GNL_OK) ; 

} 

if (! (GnlVarlsVar (Actual) && 

(GnlVarlsVdd (Actual) || GnlVarlsVss (Actual)))) 

{ 

if (TimeOptByResizingFromVar (Actual, Lib, Epsi, MinSlack, 1, 

ListCritlnst , TopGnl, ListBuf f ers, 
Buffer, Tag, Id, IsAboutFanout) ) 
return (GNL_MEMORY_FULL) ; 

} 

if (BListAddElt (G_PileOf Component , InstOfGnl)) 
return (GNL_MEMORY_FULL) ; 

} 

} 

if (GnlGetSourcesOf Var (Var, &As soc Sources , &RightVarAssigneds) ) 
return (GNL MEMORY FULL) ; 
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for {i=0; i < BListSize (RightVarAssigneds) ; i++) 
{ 

Varl = (GNL_VAR) BListElt (RightVarAssigneds, i) ; 

if ( (GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Varl, 

&TimingI, ficKey, &Rank) ) ) 

return (GnlStatus) ; 
MaxI = GnlTiminglnf oArrivalRise (TimingI) ; 
if (MaxI < GnlTiminglnf oArrivalFall (TimingI) ) 

MaxI = GnlTiminglnf oArrivalFall (TimingI) ; 
if ( GnlFloatEpsilonEqual (Max, MaxI, Max * Epsi) ) 

if (TimeOptByResizingFromVar (Varl, Lib, Epsi, MinSlack, 1, 

ListCritlnst , TopGnl, ListBuffers, 
Buffer, Tag, Id, IsAboutFanout) ) 
return (GNL_MEMORY_FULL) ; 

} 

BListQuickDelete (&RightVarAssigneds) ; 

for (i=0; i < BListSize (AssocSources) ; i++) 

{ 

AuxAssocVar = (GNL_ASSOC) BListElt (AssocSources, i) ; 

if (TimeOptByResizingFromAssoc (AuxAssocVar, Lib, Epsi, MinSlack, Var, 

ListCritlnst, TopGnl, ListBuffers, 
Buffer, Tag, Id, IsAboutFanout) ) 
return (GNL_MEMORY_FULL) ; 

} 



BListQuickDelete (&AssocSources) ; 



return (GNL_OK) ; 

} 



/* 

/ * TimeOp t ByRe s i z ingFromMaxCombS 1 ackAndGnl 
/* 



*/ 



GNL__STATUS TimeOptByResiz ingFromMaxCombS 1 ackAndGnl ( 



■*/ 
■*/ 



GNL_VAR 
int 

GNL_S TATUS 

GNL_TIMING_INFO 

float 

BLIST 

unsigned int 

float 

BLIST 



GNL 

LIBC_LIB 
float 
float 
BLIST 
LIBC_CELL 
int 
int 
int 

Var; 

i, j, Rank; 
GnlStatus ; 
Timinglnf o; 

MinSlack, 

Bucket I ; 

Key; 

AuxEpsi; 
ListCritlnst; 



Gnl, 
Lib, 

MinCombSlack, 
Epsi , 

ListBuffers , 
Buffer, 
*Tag, 
*Id, 

I sAboutFanout ) 



Slack; 
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if (BListCreateWithSize (HASH_LIST_PATH_ELEM, ^ListCritlnst) ) 

return (GNL_MEMORY_FULL) ; 
BSize (ListCritlnst) - HASH_LIST_PATH_ELEM; 

AuxEpsi = Epsi; 
if (MinCombSlack < 0.0) 
AuxEpsi = Epsi * (-1) ; 

for (i = 0; i < BListSize ( Gn 1 Ha shNames (Gnl) ) ; i++) 
{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl), i) ; 

for (j=0; j < BListSize (Bucketl); j++) 

{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 

if (!Var || ( (GnlVarDir (Var) != GNL_VAR_OUTPUT) && 

(GnlVarDir (Var) != GNL_VAR_INOUT) ) ) 

continue ,- 

if (GnlTiminglnfoCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) 

return ( GNLJVJEMORY_FULL ) ; 

Slack = GnlTiminglnfoRequiredRise (Timinglnf o) - 

GnlTiminglnf oArrivalRise (Timinglnf o) ; 



} 



if (Slack > GnlTiminglnf oRequiredFall (Timinglnf o) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnf oRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
if ( ! GnlFloatEpsilonEqual (MinCombSlack, Slack, MinCombSlack * AuxEpsi)) 
continue; 

if (TimeOptByResizingFromVar (Var, Lib, Epsi , MinCombSlack, 0, 

ListCritlnst, Gnl, ListBuffers, 
Buffer, Tag, Id, IsAboutFanout) ) 
return { GNL_MEMORY_FULL ) ; 

} 



for (i=0; i < BListSize (ListCritlnst); i++) 
{ 

if ('BListElt (ListCritlnst, i)) 
continue; 

BListDelete ((BLIST*) SJBListElt (ListCritlnst, i) , StrFree) 

} 

BListQuickDelete ( ScListCritlnst) ; 



return (GNL_0K) ; 

} 

/* */ 

/* TimeOptByResizingFromFFInGnl */ 

/* */ 

GNL_STATUS TimeOptByResizingFromFFInGnl (GNL Gnl, 

LIBC_LIB Lib, 

float MinSeqSlack, 
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float 

BLIST 

GNL 

BLIST 

LIBC_CELL 

int 

int 

int 



Epsi , 

ListCritlnst , 

TopGnl , 

ListBuf fers, 

Buffer, 

*Tag, 

*Id, 

IsAboutFanout) 



GNL_VAR 
int 

GNL_STATUS 
GNLJTIMING_INFO 
float 

GNL_S EQUENT I AL_COMPONENT 
GNL COMPONENT 



Var; 

i, Rank, IsEndlnput, IsEndSeq; 
GnlStatus; 
Timinglnf o; 

Slack; 
SeqCompo; 
Component I ; 



GNL 

GNL_ASSOC 
unsigned int 
float 



GnlCompol; 
Assoc ; 

Key; 
AuxEpsi ; 



AuxEpsi - Epsi; 
if (MinSeqSlack < 0.0) 
AuxEpsi = Epsi * (-1); 



for (i=0; i < BListSize (Gnl Components {Gnl) ) ; i++) 
{ 

ComponentI = (GNL_COMPONENT) BListElt (Gnl Components (Gnl), i) ; 
if (Gnl Component Type (ComponentI) == GNL USER COMPO) 

{ " " 

GnlCompol = GnlUser Component GnlDef ( (GNL_USER_COMPONENT) ComponentI); 
if (GnlCompol) 

{ 

if (BListAddElt (G_PileOf Component , (GNL_USER_COMPONENT) ComponentI) ) 

return (GNL_MEMORY_FULL) ; 
if (TimeOptByResizingFromFFInGnl (GnlCompol, Lib, MinSeqSlack, 

Epsi, ListCritlnst, TopGnl, 
ListBuf fers, Buffer, Tag, Id, 
IsAboutFanout) ) 
return (GNL_MEMORY_FULL) ; 
BListDelShift (G_PileOf Component , BListSize (G_PileOf Component ) ) ; 

} 

if (GnlComponentType (ComponentI) != GNL_S EQUENT I AL_COMPO) 
continue,- 



SeqCompo = (GNL_S EQUENT I AL_COMPONENT ) ComponentI; 
Assoc = Gnl Sequent ialCompo Input Assoc (SeqCompo) ; 
if ( !Assoc) 

continue; 
Var = GnlAssocActualPort (Assoc) ; 
if (!Var) 

continue; 

if (GnlVarlsVss (Var) | | GnlVarlsVdd (Var) ) 
continue; 

if ((GnlStatus = GnlTiminglnf oCorrespToCurrentPathFromVar (Var, 

&TimingInf o, &Key, &Rank) ) ) 
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return (GnlStatus) ; 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 

IsEndlnput = IsEndSeq = 0; 

Slack = GnlTiminglnfoRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise (Timinglnfo) ; 
if (Slack > GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
if ( IGnlFloatEpsilonEqual (MinSeqSlack, Slack, MinSeqSlack * AuxEpsi)) 
continue ; 

if (TimeOptByResizingFromVar (Var, Lib, Epsi, MinSeqSlack, 1, 

ListCritlnst, TopGnl, ListBuf f ers , 

Buffer, Tag, Id, IsAboutFanout) ) 
return ( GNL_MEMORY_FULL ) ; 

} 

return (GNL JDK) ; 

} 

/* * 

/* TimeOptByResizingFromMaxSeqSlackFromGnl */ 

/* * 

GNL_S TATUS TimeOptByResizingFromMaxSeqSlackFromGnl ( 

GNL Gnl , 

LIBC_LIB Lib, 
float MinSeqSlack, 
float Epsi, 
BLIST ListBuf f ers, 

LIBC_CELL Buffer, 
int *Tag, 
int *Id, 
int IsAboutFanout) 

{ 

GNL_VAR Var; 

int i, j, Rank, IsEndlnput, IsEndSeq; 

GNL_S TATUS GnlStatus ; 

GNL_TIMING_INFO Timinglnfo ; 

float MinSlack, Slack; 

BLIST Bucketl, ListCritlnst; 

unsigned int Key; 

float AuxEpsi; 

if (BListCreateWithSize (HASH_LIST_PATH_ELEM, ^ListCritlnst ) ) 

return (GNL_MEMORY_FULL) ; 
BSize (ListCritlnst) = HASH_LIST_PATH_ELEM; 

AuxEpsi = Epsi; 
if (MinSeqSlack < 0.0) 
AuxEpsi = Epsi * (-1); 

for (i=0; i < BListSize (GnlHashNames (Gnl)); i++) 

{ 

Bucketl = (BLIST) BListElt (GnlHashNames (Gnl) , i) ; 
for (j=0; j < BListSize (Bucketl); j++) 
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{ 

Var = (GNL_VAR) BListElt (Bucketl, j); 

if (!Var || ( (GnlVarDir (Var) I = GNL_VAR_OUTPUT ) && 

(GnlVarDir (Var) i = GNL_VAR_INOUT) ) ) 

continue; 

if (GnlTiminglnf oCorrespToCurrentPathFromVar (Var, &TimingInf o, 

&Key, ScRank) ) 

return ( GNL_MEMOR Y__FULL ) ; 
IsEndlnput = IsEndSeq = 0; 

Slack = GnlTiminglnf oRequiredRise (Timinglnfo) - 

GnlTiminglnfoArrivalRise {Timinglnf o) ; 

if (Slack > GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnf oArrivalFall (Timinglnfo) ) 
Slack = GnlTiminglnfoRequiredFall (Timinglnfo) - 

GnlTiminglnfoArrivalFall (Timinglnfo) ; 
if ( !GnlFloatEpsilonEqual (MinSeqSlack, Slack, MinSeqSlack * AuxEpsi) ) 
continue ,- 

if (TimeOptByResizingFromVar (Var, Lib, Epsi, MinSeqSlack, 0, 

ListCritlnst , Gnl, ListBuffers, 
Buffer, Tag, Id, IsAboutFanout) ) 
return ( GNL_MEMORY_FULL) ; 

} 

} 

if (TimeOptByResizingFromFFInGnl (Gnl, Lib, MinSeqSlack, Epsi, 

ListCritlnst, Gnl, 
ListBuffers, Buffer, Tag, Id, 
IsAboutFanout) ) 

return (GNL_MEMORY_FULL) ; 

for (i=0; i < BListSize (ListCritlnst); i++) 
{ 

if ('BListElt (ListCritlnst, i) ) 
continue; 

BListDelete ( (BLIST* ) &BListElt (ListCritlnst, i) , StrFree) ; 

} 

BListQuickDelete (^ListCritlnst) ; 
return (GNL_0K) ; 

} 

/* */ 

/* TimeOptByResizingFromGnl */ 

/* */ 

/* Doc procedure TimeOptByResizingFromGnl : 
- For a given Gnl (GNL) : 

- Optimazes the critical instances by resizing the attached cells. 

*/ 

/* */ 

GNL_STATUS TimeOptByResizingFromGnl (GNL Gnl, LIBC_LIB Lib, int 
IsAboutFanout , 

int *Tag, BLIST ListBuffers, 
LIBC_CELL Buffer) 

{ 

GNL_STATUS GnlStatus ; 
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float 
double 
float 
int 



Epsi ; 
AreaCritRegion; 

MinSeqSlack, MinCombSlack; 

Id; 



if (BListCreate (&G_PileOf Component) ) 
return ( GNL__MEMORY_FULL ) ; 

MinSeqSlack = MAX_FLOAT; 

GnlGetMinSlackFromlnputsOf Sequentiallnst (Gnl, &MinSeqSlack) ; 
GnlGetMinSlackFromOutputs (Gnl , ^MinCombSlack) ; 

/* fprintf (stderr, "MinSeqSlack = %.3f\t MinCombSlack = %.3f\n\n", 
MinSeqSlack, MinCombSlack) ;*/ 

Epsi = 0.1; 



if (TimeOptByResizingFromMaxCombSlackAndGnl (Gnl, Lib, MinCombSlack, Epsi, 

ListBuffers, Buffer, Tag, &ld, 
IsAboutFanout) ) 

return ( GNL_MEMORY_FULL) ; 

if (TimeOptByResizingFromMaxSeqSlackFromGnl (Gnl, Lib, MinSeqSlack, Epsi, 

ListBuffers, Buffer, Tag, &id, 
IsAboutFanout) ) 

return (GNL_MEMORY_FULL) ; 
BListQuickDelete (&G_PileOf Component ) ; 
return (GNL_OK) ; 



Id =0; 



} 



/* 



*/ 
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/* it/ 

/* */ 

/* File: timeutil.e */ 

/* Version: l.l */ 

/* Modifications: - */ 

/* Documentation: - */ 

/* */ 
/* 



extern GNL_STATUS GnlCreateCritPath (GNL_CRITICAL_PATH *CritPath) ; 

extern GNL_STATUS GnlAddPredecessorToCritPath (GNL_CRITICALJPATH CritPath, 

GNL_CRI T I CAL_P ATH Predecessor) ; 

extern GNL_STATUS GnlAddSuccessorToCritPath ( GNL_CRI T I CAL_PATH CritPath, 

GNL_CR I T I CAL_PATH Successor) / 

extern void GnlFreeCritPath { GNL_CR I T I C AL_P ATH *CritPath) ; 

extern GNL_STATUS GnlCreateTiminglnf o (GNL_TIMING_INFO *TimingInfo) ; 

extern void GnlFreeTiminglnf o (GNL_TIMING_INFO *TimingInf o) ; 

extern GNL_STATUS TimeCopyTiminglnf o (GNL_TIMING_INFO Timingll, 

GNL_TIMING_INFO *TimingI2); 

extern GNL_STATUS GnlFreeTiminglnf oFromNetwork (GNL_NETWORK Nw) ; 

extern GNLJSTATUS GnlGetEpsiCritlnstFromVar (GNL_VAR Var, 

LIBC__LIE Lib, 
BLIST ListCritlnst , 

float Epsi, 
int *IsEndInput, int *IsEndSeq, 
float MinSlack, 
int Inoutlsln, 
int IsStartOutput , 

int IsAboutComb) ; 



extern GNL_STATUS GnlGetEpsiCriticInstancesFromGnl (GNL Gnl, LIBC_LIB Lib, 

float MinSeqSlack, 
float MinCombSlack, 
double AreaWithoutNet) ; 



extern GNLJSTATUS GnlGetSourceVarFromVar (GNL_VAR Clock, 

GNL_VAR *SourceClock, BLIST *PileOf InstCompo) ; 

extern void GnlFreeClock (GNL_CLOCK *Clock) ; 

extern GNL_STATUS GnlGetClocksFromNetwork (GNL_NETWORK Nw, BLIST 

ListOf Clocks, 

int PrintClkDomain) ; 

extern GNL_STATUS TimeOptByResizingFromVar (GNL_VAR Var, 

LIBC LIB Lib, 
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float 


Epsi , 


float 


MinSlack, 


int 


Inoutlsln, 


BLIST 


ListCritlnst , 


GNL 


TopGnl , 


BLIST 


ListBuf f ers , 


LIBC_CELL 


Buffer, 


int 


*Tag, 


int 


*Id # 


int 


I s About Fanout ) 



extern GNL_STATUS TimeOptByResizingFromGnl {GNL Gnl , LIBC_LIB Lib, 

int I s About Fanout , 
int *Tag, BLIST ListBuf f ers, 
LIBC_CELL Buffer) ; 

/* 

/* EOF 



703093 vl 
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HUBBLE-RTL Overview 



\ 



1 Introduction 

HUBBLE-RTL is for now an internal tool and is under an alpha release. 
The goal of HUBBLE-RTL is to help the RTL-Designer to get Predicted 
information about the RTL design he is currenlty implementing. HUBBLE- 
RTL 'looks deeper in the RTL-design' by using state-of-art synthesis technics 
and thus can predict accurate data. The following information is extracted: 

• overall design information: Number of Flip-Flops, Latches, Tristates, 
Max Fanout, Max. Combinational Depth, 

• overall design gates area, 

• overall design nets area, 

• overall design critical paths (Non-linear delay model) and Epsilon Crit- 
ical Region, 

• technology verilog net list. 

All this information is related to a specific technology library which must 
be provided during the Synthesis/Estimation phase. Refer to the third and 
fourth sections to use HUBBLE-RTL in the Synthesis/Estimation mode. 
In the same time, HUBBLE-RTL provides an internal Netlist Checker which 
allows you to prove if two verilog netlists (built upon a technology library) 
are formally equivalent. Please refer to the section Netlist Checker in HUBBLE- 
RTL to use the verification mode capability. The tool runs on Polaris and 
linux platforms for now. 
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2 General Flow with HUBBLE-RTL 

HUBBLE-RTL can accept two inputs formats to describe a design: 

• J fsm' format which corresponds to the analysis and compilation of 
original VHDL descriptions thru VTIP-XL and FSMC (Tools used 
in VFormal). 'fern' format is a kind of abstract netlist manipulat- 
ing abstract objects (ex: state variables) and can be hierarchical (A 
hierarchical design is composed of several 'fern' files) . 

• 'verilog' structural format dedicated only for netlists but not for RTL 
descriptions. Some 'verilog' constructs are not accepted like the UDPs 
for instances. 

Moreover, HUBBLE-RTL needs a: 

• technology library description in order to be able to predict some 
accurate information about the input design. For now, this technology 
library must be in the '.lib' format of 'Synopsys' but can come in the 
futur from the 'Milky Way' data-base. 

HUBBLE-RTL accepts also several options which can tune several steps of 
the synthesis and give different reports. Refer to the next section and section 
Options in HUBBLE-RTL for more information. 
As outputs, HUBBLE-RTL provides at the end of the excution : 

• a Verilog netlist which is composed of the gates of the target library. 

• Information related to this netlist used as prediction and thus accurate. 
The general flow of HUBBLE-RTL can be sketch as follows: 
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VHDL VHDLVIEW 



FSM VERILOG (nethst) 



TECHNOLOGY LIBRARY (.lib) 



HUBBLE-RTL 



Report Data 



Optimized & Mapped 
JVenlog nethst 



posrioptimization 
repot analysis 



' Equivalence Checking between two verilog netUsts 

Figure 1: General flow in HUBBLE-RTL. 



3 Optimizations in HUBBLE-RTL 

HUBBLE-RTL performs both technology-independent optimizations and 
post-optimizations. Technology-independent optimizations can be invoked 
thru two options: 

• -optimisation-strength [-os] [low — medium — high] : 3 levels of opti- 
mizations can be invoked in HUBBLE-RTL corresponding to low, 
medium and high effort. The high effort option calls some well-known 
synthesis technics to reduce the logic complexity of the design (2- level 
minimization, Algebraic factorization, ...) and thus can be longer in 
term of CPU time. On the other hand, the prediction must be much 
closer to any result given by a classical synthesis tool. 

• -criterion [-c] [area_gate — area.net — timing — power] : 4 technics can 
•be invoked during the technology mapping phase which is the first 
technology-dependant optimization. The option 'area-gate' will try to 
minimize the total gates area which is the sum of all the area of the 
gates constituing the netlist. 'areamet' tells the technology mapping 
phase to minimize the number of nets in the design so can reduce 
drastically the area due to nets, 'timing' tells the technology mapping 
to minimize the maximum depth in term of nets among the gates. 
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This criterion can be useful especially for sub-micronique technologies 
where net delays can be much more costly than gate delays. Finally 
'power' will try to select the gates such that the sum of the probabilistic 
dynamic power of all of them is minimum. 

Moreover, HUBBLE-RTL provides some Post-optimizations done after the 
technology mapping: 

• Respect of library constraints: this is not purely a post-optimization 
since the goal here is td respect the constraints defined in the library file 
which concerns the max capacitance, max fanout allowed at the output 
of any gate. Meanwhile it brings generally a relative improvment of 
the design in term of critical path and epsilon critical region. 

• Gate resizing: HUBBLE-RTL plays on the gates having the same 
functionalities and choose the ones which will give the best result in 
term of critical path. 



4 Information Report in HUBBLE-RTL 

HUBBLE-RTL gives several reports about the current design. The type of 

report can be invoke with the option ~report_data [-rd] [none— modules— cells— i 

The report can be of 3 type: 

• modules: in a hierarchical design, this report gives the respective area 
of each module . 



REPORT MODULES : DESIGN = [cat_t op- structural] 



Module 

. .en_logic-rtl 
. .p- structural 
. . asic_bus-rtl 
, ,ed_logic-rtl 
. . e-structural 
. .bc„logic-rtl 
. . em_t imer-rtl 
. .pi_logic-rtl 
. . er_block-rtl 
. . et_logic-rtl 
. . state_io-rtl 
. .nt erf ace -rtl 
. .pt_latch-rtl 
. .nterface-rtl* 
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cells: this report gives the designer all the gates used in the design, 
the number of times they are used, the ratio they occupied in the total 
design, and the max fanout they drive. 



REPORT CELLS : DESIGN = [crc_ckl-archl] 



Cell 
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timings: this report gives the designer the critical path(s) occuring m 
the current design. It supports multiple clocks and will give critical 
path between each clocks. The critical path is computed according 
to the data defined in the library and with a non-linear delay model. 
This option can give also the size of the epsilon critical region of the 
design, e.g. the set of gates which have a slack less than an epsilon 
value specified by the user. This option also can print out the clock 
domain for each clock. 



Performing Timing Analysis. 



Report 

max_number_paths 

Design 

Date 

Operating Conditions 
Library 

Wire Loading Model 



timing 
1 

sm_arb-archl 
07/07/99 9 08:55:04 
TYP 

CS80TYP_v5.0_t50 
TYPICAL 



Point 



Fanout Incr Path 
0.0 0.0 



input external delay 
oe_l (in) 
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ml31(INVl_lK) (A— >Y \$fl4) 
ml34(AND2_lK) (B — >Y \$fl7) 
ml48(KUX2_lK) (DO — >Y \$fl8) 
ml53(MUX2.1K) (D0-->Y \$f31) 
smbgcpu(TBIV2_lK) (A — >Y smbgcpu) 
smbgcpu (out) 
Data Arrival Time 
(Path is unconstrained) 





0. 


000 


0,000 Rising 


8 


2. 


,097 


2.097 Falling 


2 


1. 


.441 


3.538 Falling 


2 


1 


.188 


4.726 Falling 


1 


i 


.011 


5.737 Falling 


i 


0 


.420 


6.156 Rising 




0.000 


6.156 Rising 
6.156 



Combinational Path 



6.156 ns 



Clock : clock35 



Point 


Fanout 


Incr 


Path 


lastbg(O) (DFFBH_1K) (Q lastbg(O)) 


7 


0.000 


0.000 Rising 


\$IB_178(BUF1_1K) (A— >Y \$IB_178) 


4 


1.535 


1.535 Falling 


ml6(m2X2_lK) (A — >Y \$M_146) 


1 


0.750 


2.285 Rising 


m21(MD2X2_lK) (B~>Y \$M_141) 


1 


0.455 


2.741 Rising 


m22(NND2X2_lK) (B— >Y \$M_140) 


1 


0.346 


3.086 Rising 


m30(OAI21 - lK) (B— >Y \$M_132) 


1 


0.452 


3.538 Falling 


ml33(MUX2X3_lK) <D1— >Y \$f298) 


2 


1.325 


4.864 Falling 


m37(MD4„lK) (D — >Y \$M_125) 


1 


0.632 


5.496 Rising 


m7(MUX2X3_lK) (DO— >Y \$IM_171) 


1 


1.311 


6.806 Falling 


ml37(INVlX20_lK) (A — >Y nextgnt(O)) 


2 


0.277 


7.083 Rising 


m45(N0R2X3.1K) (B — >N0R2X3_1K \$M_117) 

1 


0.778 


7.861 Falling 


ml42(NND2X2_lK) (B~>Y \$f58_47) 


1 


0.724 


8,585 Rising 


ml59(INVlX20_lK) (A — >Y d_34) 


1 


0.289 


8.874 Rising 


bp0<3grant(2)(DFFBH_lK) (D d_34) 




0.0 


8.874 Rising 


Data Arrival Time 






8.874 



(Path is unconstrained) 



Clock : clock35 
Clock Period 



8.87 ns 



5 NETLIST CHECKER IN HUBBLE-RTL 

Clock Frequency 112.69 Khz 



5 Netlist Checker in HUBBLE-RTL 

HUBBLE-RTL provides an utility command which reads two verilog netlists 
mapped on the same technology library\(or using verilog primitives) and tells 
the user if both netlists are functionallyN^quivalent. The user can define its 
own primary inputs mapping and select few primary outputs to verify. If 
errors are encoutered, HUBBLE-RTL will provide counter-example under 
the form of boolean vectors. This command is quite usefull to verify any 
local improvment of the netlist (to check to different technology-independent 
optimization, different post-optimizations algorithm, customized modifica- 
tions). A big assumption to use this command in the right way, is to have a 
one to one mapping between the registers of the two netlists. If this is the 
case, HUBBLE-RTL will try to map those registers automatically using the 
name of the output of the register. Note that register with Q and Q bar can 
be also handled in the netlist checker. 

Below is an example on how we can invoke the netlist checker inside HUBBLE- 
RTL. This utility command is based on BDD technology and has been proven 
quite effective compared to industrial verification tool. 

> hubble -mode verification -if vlg -lib synop.lib -il crc_low.v -i2 crc.high.v 

# 

# 

# HUBBLE-RTL version 9.2 Alpha - RTL Prediction & Synthesis 
# 

# Copyright (c) Avanti Corporation 1994-99. All rights reserved 
# 

# 

Reading Verilog file [crc_low.v] ... 

o Analyzing module [crc_ckl-archl] 
Verilog Netlist Analyzed 

Reading Verilog file [crc_high.v] . . , 
o Analyzing module [crc_ckl-archl] 
Verilog Netlist Analyzed 

WARNING: Top Level Module is [crc.ckl-archl] by default 
WARNING: Top Level Module is [crc„ckl-archl] by default 

Reading Library [synop.lib] ... 
Library analyzed 

Checking Hierachical interfaces from top module [crc_ckl-archl] 

Performing Flattening of modules in -[crc.cki-archl] (f ile=> crc^low.v' ) 
Flattening done 

Performing Flattening of modules in [crc_ckl-archl] (f ile= 'crc.high . v J ) 



# 
# 
# 
# 
# 



5 NETLIST CHECKER IN HUBBLE-RTL 



Flattening done 

Linking Components With Libc Cells 

Building Cell Functionalities.. 

DESIGN: [crc_ckl-archl3 (f ile=' crc.low.vO 



Pis = 16 

POs = 12 

PIOs = 0 

Dffs = 12 

Latches - 0 

Tristates = 0 



DESIGN : [crc_ckl-archl] (f ile= J crcjiigh. V) 



Pis = 16 

POs = 12 

PIOs = 0 

Dffs - 12 

Latches = 0 

Tristates = 0 



Inputs Associations 



elk 


< — > 


CXiC 


reset 


<--> 


reset 


cnt [5] 


<--> 


cnt [5] 


cut [4] 


< — > 


cnt [4] 


cnt [3] 


<--> 


cnt [33 


cnt [2] 


<--> 


cnt [2] 


cnt [1] 


<--> 


cnt [13 


cnt [0] 


<--> 


cnt [03 


data [73 


<--> 


data [73 


data [6] 


<--> 


data [63 


data [53 


<--> 


data [53 


data [43 


<— > 


data [43 


data [33 


<— > 


data [33 


data [23 


<— > 


data [23 


data [13 


<--> 


data [13 


data [03 


<--> 


data [03 


bpOScx[03 


<--> 


bp0_cx[03 


bp0@cx[i3 


<— > 


bp0_cx[l3 


bpOQcx [23 


<— > 


bpO_cx[23 


bpO«cx[33 


<— > 


bpO.cx [3] 


bpOOcx [43 


<— > 


bpO_cx[43 


bpO@cx[53 


<--> 


bpO_cx[53 


bpO<5cx[63 


<— > 


bpO_cx[63 


bpO@cx[73 


<--> 


bpO_cx[73 


bpO©cx[83 


<— > 


bpO_cx[83 


bpO©cx[93 


<--> 


bpO_cx[93 


hecerror 


<--> 


hecerror 


pecerror 


<--> 


pecerror 


Outputs Associations 






hecerror 


<--> 


hecerror 


pecerror 


<--> 


pecerror 


q[03 


<--> 


q[03 


q[l3 


<--> 


q[l3 


q[23 


<— > 


q[23 


q[33 


<— > 


q[33 
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q[4] 


<— > 


q[4] 


q[5] 


<--> 


q[53 


q[6] 


<--> 


q[63 


q[7] 


<--> 


q[73 


qC83 


< — > 


q[83 


q[9] 


<— > 


q[93 


nx[03 


<--> 


nx[03 


nx[l] 


<--> 


nx[l3 


ax [2] 


<--> 


nx[23 


nx[33 


<--> 


nx[3] 


nx[4] 


<--> 


nx[43 


nx[5] 


< — > 


nx[53 


nx[6] 


< — > 


nx[63 


nxE7] 


<--> 


nx[73 


nx[83 


<--> 


nx[8] 


nx[93 


<--> 


nx[93 


d 


<— > 


d 


d_20 


<--> 


d_20 



Performing Equivalence Checking. . . 

o Verification started , . . 

o Preprocessing . . . 

o Structural checking . . . 

Nb Functions proved equivalent = 12 
Nb Functions unproved = 12 
Nb Bridge Nodes = 265 

o Local-BDD checking . , . 

Nb Functions proved equivalent - 24 

Kb Functions proved non-equivalent = 0 

Nb Functions unproved - 0 

MaxNb Modes = 500 

Nb CutVar = 0 

Nb Bridge Nodes = 1217 

Nb InvBridge Nodes = 5 

Output (s) proved different: 0 



Output (s) not proved: 0 



Verification done ! 



6 Performances of HUBBLE-RTL 

HUBBLE-RTL has been tested on about 30 examples both with FSM or 
VERILOG inputs. It was run particularly on an industrial netlist of 500 
Kgates and here are the performances for each step of the synthesis: 
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• 1: Reading Verilog netlist (25 Megas): 32 secondes, 120 Megas. 

• 2: Full flattening of the Verilog netlist: 1 minute, 340 Megas. 

• 3: High optimization + Technology Mapping: 20 minutes. 

• 4: Timing analysis: 2 minutes. 

• The total time to read and print out the optimized verilog netlist is 
about 30 minutes. The improvment in term o^gates area is 9%. Peak 
memory is 720 Megas. 

7 Putur works in HUBBLE-RTL 

HUBBLE-RTL is still in Alpha release and needs to be evaluated against a 
real synthesizer in the market to measure the gap of accuracy between the 
HUBLLE prediction and the synthesis tool result. 

Some links must also be established in order to provide a uniform flow 
inside AVANTL This means that the library solution must pass thru a tight 
integration with the Milky way data-base. 

Finally, still some technical improvments must be adressed to raise the 
quality of the tool. 

• Comparison with Synopsys DC starting from VHDL. 

- Evaluation of the FSMC inference. 

- Evaluation of the optimization phase. 

- Evaluation of the timing analysis accuracy. 

- Evaluation of the CPU/Memory comsumption vs. Synopsys. 

• Integration with the 'Milky Way 7 data-base to get technology infos. 

• Improvments of technology-indepent optimization. 

• Implementation of Post-optimizations: pin permutations, local recon- 
struction of logic in epsilon critical region. 

• Implementation of Power Analysis. 

• Netlist Checker improvments: 

- Dynamic reordering implementation to avoid ordering sensitivity. 

- Strategy of cut var substitution in the False Negative Phase de- 
tection. 

- Improvment in the local BDD construction (Breadth instead of 
Depth search). 
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- Generation of the nestlist representing the xor of the unproved 
outputs for post-simulation. 



8 HUBBLE-RTL Options 



# # 

# * * 

# HUBBLE-RTL version 9.2 Alpha - RTL Prediction k Synthesis # 



# 



# 



# Copyright (c) Avant! Corporation 1994-99. All rights reserved. # 



Usage: HUBBLE-RTL 9.2 Alpha 

-mode [-m] [synthesis | estimation! translate I verification! post _optimizat ion] : 
Specify if HUBBLE-RTL is in Synthesis , in Estimation, Translation, 
, Verification or Post-Optimization Mode. 



-input [-i] <String> : 

Specifies file to use as input. 



-output [-o] <String> : 

Specifies file to use as output. 

-logfile [-log] <String> : 

Specifies file to use as log file; default is "stderr". 

- input _format [-if] [fsmlvlg] : 

Specifies if the input format is .fsm (fsm) or verilog (vlg) ; 
default is 'fsm' 



-fsm.dir [-fd] <String> : 

Specifies the path where all the FSM files of the current 
design are stored. Default is 1 . ' 

-optimisation_strength [-os] [low | medium I high] : 

Specifies strength with which logic optimization will be performed. 

-criterion [-c] [area_gate| are a_ net I timing [power] : 

Specifies which criterion synthesis will optimize during Tech. mapping. 
Default is [area_gate] . This default option optimize the netlist in 
term of gates area. [area_net] minimizes the number of nets thus 
nets area, [timing] minimes the longest path of nets between gates. 
Finally, [power] optimize the dynamic power consumption. 

-vdd [-vdd] <Integer> : 

Specifies the voltage of the design in mV. 

-use_sequential_qbar [-usq] : 

Specifies if output Q bar is used for sequential elements. 

-max_cell_f anm [-mcf] <Integer> : 

Specifies the maximum Fanln of library cells taken into account. 
A greater max Fanln can slower the technology mapping phase but 
may give better results. By default the value is related to the 
option [-opt] . [-opt high] corresponds to the value 6 and otherwise 



HUBBLE-RTL OPTIONS 



it will be 5. A maximum reasonable value you can use is 8. 

minimum. shared_logic_ size [-msls] <Integer> : 

Specifies the minimum size of logic which will be shared during 
the optimization phase. Small size logic can influence badly the 
efficiency of the design because it involves generally a big FanOut . 
The size number is relative to the number of cubes composing the 
shared logic. 

use„verilog_primitives [-uvp] : 

Tells HUBBLE to print out an output net list using Verilog primitives 
like 'or', 'and*, 'buf, ... instead of using technology library cells. 
By default cells of the specified technology library are used. 

ignore_library_constraints [-ilc] : 

Tells HUBBLE to not take into account the library constraints (Max. 
capacitance, Max FanQut, Max Transition). 

-ignore_post_optimization [~ipo] : 

Tells HUBBLE to not take into account the post optimization phase - 
done on the mapped netlist. Post optimization performs netlist 
optimizations like buffer insertions, gates resizing, logic 
restructuring. 

-prmt_clock_domain [-pcd] : 

Tells HUBBLE to print out the clock domains of each clock. 
This option is available only when -rd timings is invoked. 

-print_epsilon_critical_region [-peer] : 

Tells HUBBLE to print out the Epsilon critical region representing 
the number of critical gates compare to the total number of gates. 
This option is available only when -rd timings is invoked. 

-lib [-13 <String> : 

Specifies the technology library (.lib format). 

-inject [-inj] <Integer> : 

Specifies degree of logic reinjection performed. Greater is the 
integer and stronger is the flattening. Default is -1. 

-flat .hierarchy [-fh] [none ! all I except <List Strings> | only <List Strings> | leaf] 
Specifies how the user hierarchy will be flattened, [none] means 
the hierarchy is preserved and [all] that it is completly flattened, 
[except] followed by a list of String specifies which module will 
not be flattened and [only] has the opposite meaning, [leaf] means 
that only the leaves modules will be flattened. 

-flat.string [-fs] <String> : 

Specifies the String which separates instance names on a 
hierarchical path after flattening. By default the string is 
Ex: U1.U2.U3 means that after the flattening, the current component 
comes from the instance path Ul, U2 and U3. 

-f lat_instance_name [-fin] [hierarchical 1 compact] : 

Specifies if the names of the flattened instances will correspond 
to the hierarchical name (ex: \instl\inst2) or a compact name (name 
of the deepest instance) when flattening of the hierarchy is invoked. 

-no_f old_identical_partition [-nfip] : 

Specifies if during the optimization phase, HUBBLE-RTL will try to fold 
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or not the identical partition of glue logic. This can significantly 
speed-up the logic optimization phase. By default the folding is 
performed but by using this option you disable the folding. 

-top [-t] <String> : 

Specifies the top Verilog module from which the synthesis /estimation 
will be performed. 

-y C-dir] <String> : 

Specifies the directory where leaf cell modules can be found. 

+libext+ [-ext] <String> : \^ 
Specifies the extension of the files defining the leaf cell modules. 

-build_lib_force [-blf] [mini max] : 

Specifies if the .lib library with be used in a minimum or a 

maximum use. Maximum use is slower to build the library but 

results may be better because the complex cells may be instantiated. 

-print .hierarchy [-ph] [none 1 before_flat | aft er_flat | both] : 

Invokes the printing of the design hierarchy. This can be done 
before the flattening phase (option [bef ore_f lat] ) or after it 
(option [af ter_f lat] ) since the flattening can change the hierarchy. 
Option [both] prints out before and after flattening. 

-report_data [-rd] [none | modules I cells 1 timings i powers] : 

Invokes the printing of a final report in which several data are 
presented related either to modules (use option [modules]) or to 
library cells (use option [cells]). Use option [timings] to get 
any information regarding timing issues in the design. Option 
[powers] will give average power and peak power in the design. 

-print _nb_critical_path [-pncp] <Integer> : 

Defines the number of critical paths which will be printed out 
when the option [-rd timings] is invoked 

-print _max_f anout_vars [-pmfv] : 

when the option [-rd cells] is invoked, this option forces HUBBLE-RTL 
to print out for each library cell, the corresponding instances 
with the maximum fan out 

- input 1 [-il] <String> : 

Specifies the first Netlist used in the Netlist Checker. 

-input2 [-12] <String> : 

Specifies the second Netlist used in the Netlist Checker. 

-read_name_association_f ile [-rnaf] <String> : 

Specifies the input file which defines the associations between the 
port names. The Netlist Checker will take into account these 
associations to prove the two netlists. If this option is not 
invoked then HUBBLE will try to figure out the associations by 
itself . 

-print _name_association_f ile [-pnaf] <String> : 

Tells HUBBLE to print out the file of the ports associations used 
m the Netlist Checker. This file can be edited and re-read in HUBBLE 
with the option '-naif. The ports associations can be then controlled 
in that way if you are not satisfied with the automatic ports 
association done in HUBBLE. 
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-verif_max_bdd_node [-vmaxbdd] <Integer> : 

Specifies the maximum number of BDDs node before any break point 
is introduced when the Equivalence Checker is invoked 

-ignore_random_simulation [-irs] : 

tells HUBBLE not to call the random simulation phase during the Netlist 
Checking. 

9 Annexe l:\classical trace in HUBBLEJRTL 



> bubble -i sm_arb-archl .f sm -o toto.v -fd fsm -lib synop.lib 



# # 

# # 

# HUBBLE-RTL version 9.2 Alpha - RTL Prediction & Synthesis # 

# # 

# Copyright (c) Avant 1 Corporation 1994-99. All rights reserved. # 

# # 
# # 



Reading FSM file [f sm/sm_arb-archl .f sm] ... 

WARNING: Dead Code has been detected in file 'snuarb.vhd' 

when entering line 271 
WARNING: Dead Code has been detected in file 'sm.arb.vhd' 

when entering line 312 
WARNING: Expression assigned to identifier grant MAY be OUT DF RANGE 
WARNING: Expression assigned to identifier nextgnt MAY be OUT OF RANGE 

FSM File Analyzed [446] ! 



Components of module [sm_arb-archl] 



Signal 


Type 


Clock 


Reset 


bpOQgrant(O) 


Dff 


H 


H 


bpOQgrant(l) 


Dff 


H 


H 


bpOQgrant(2) 


Dff 


H 


H 


backoff 


Dff 


H 


H 


lastbackof f 


Dff 


H 


H 


lastbg(O) 


Dff 


H 


H 


lastbg(l) 


Dff 


H 


H 


lastbg(2) 


Dff 


H 


H 


lastmaster(O) 


Dff 


H 


H 


lastmaster(l) 


Dff 


H 


H 


lastmaster(2) 


Dff 


H 


H 


lastts 


Dff 


H 


H 


master (0) 


Dff 


H 


H 


master(l) 


Dff 


H 


H 


master (2) 


Dff 


H 


H 


nextmaster(O) 


Dff 


H 


H 


nextmaster(l) 


Dff 


H 


H 


nextmaster(2) 


Dff 


H 


H 



Set 



R/S 
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Mb. Effs 18 18 0 0 



f- 15 



Signal 


Type 


Select 


Input 


smboff 


TriState 


H 


H 


stnbgsc3 


TriState 


H 


L 


smbgs c2 


TriState 


H 


L 


smbgscl 


TriState 


H 


L 


smbgs cO 


TriState 


H 


L 


smbgcpu 


TriState 


H 


L 



Nb. TriState s 6 



Top Module (s) : 

o [sm_arb-archl] 

WARNING: Top Level Module is [sm.arb-archl] by default 

Checking Hierachical interfaces from top module [sm_arb~archl] 

Reading Library [synop.lib] ... 
Library analyzed 

Building library elements... 

Building Combinational Cell [157/157] 





WARMING: 


cell 


is 


ignored 


because 


of 


complex 


next 


state function: 


[JKBX6.1K] 




WARNING: 


cell 


is 


ignored 


because 


Of 


complex 


next 


state function: 


[JKBX3_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


next 


state function: 


[JKBX2_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


next 


state function: 


CJKB_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TZMUX2_1K] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TZMUX2X6_iK] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TZMUX2X3_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TMUX2_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TMUX2X6_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[TMUX2X3_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTZMU2.1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTZMU2X6 - 1K] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTZMU2X3_1K] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTMUX2_1K] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTMUX2X6_1K3 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[NTMUX2X3_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDL_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDL2X6_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDL2X3_1K] 




WARNING : 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDH_1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDH2X6.1K] 




WARNING: 


cell 


is 


ignored 


because 


of 


complex 


Input 


pin 


function: 


[IDS2X3_1K] 



Library Feature: 

o NB. DFFS = 20 
o NB. LATCHES = 15 
o NB. 3-STATES = 12 
o NB. BUFFERS = 4 
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SYNTHESIZING [snuarb-archl] 






o KB. 


INPUTS 


— 


9 


o NB. 


OUTPUTS 


= 


6 


o NB. 


INOUTS 




0 


o NB. 


LITERALS 




454 


o NB. 


FLIP-FLOPS 




18 


o KB. 


LATCHES 




0 


o NB. 


TRI STATES 




6 


o NB. 


BUFFERS 




0 


o MAX 


COMBINATORIAL PATH 




27 



Constant Pushing in [sm_arb-archl] . . . 
Collapsing glue logic in [sm_arb-archl] . . . 

Selective re-injection of logic in [sm^arb-archl] (Inject=-1) . 

o LITERALS = 293 

o MAX. COMB. PATH = 27 
Constant Pushing in [sm_arb-archl] . . . 
Reinjecting glue logic (size = 2) [72/72] 
Sorting functions... 
Structuring (i) for mapping... 
Structuring (2) for mapping... 

Technology Mapping: 

o Criterion = AREA 

o Mapping Equation [64/64] 
Sorting Gates . . . 
Building cell [64/64] 
Gates compaction, . . 
Post mapping optimization [166/166] 

Extracted Data After Technology Mapping: 

o Total Gates Area = 198336 units 

o Max. Comb. Wire Path - 15 wires 
o Max. Fanout = 18 nets 



Report 
Design 
Version 
Date 

Library Used 



Number Of Ports 
Number Of Cells 
Combinational Area 
Non Combinational Area 
Net Interconnect Area 
Total Area 



area 

sm_arb-archl 
1999.01 

07/07/99 @ 08:57:30 
CS80TYP_v5.0_t50 

15 
189 

104839.00 
93497.00 
153396.00 
351732.00 



Restructuring Nejlist to meet Library Constraints. 



Report 
Design 
Version 
Date 

Library Used 



area 

sm_arb-archl 
1999.01 

07/07/99 0 08:57:30 
CS80TYP_v5.0_t50 
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Number Of Ports 
Number Of Cells 
Combinational Area 
Non Combinational Area 
Net Interconnect Area 
Total Area 



15 
198 

109461.00 
93497.00 
156394.50 
359352.50 



Performing Post-Optimization... 
Optimization By Resizing Critical Instances. 

\ 



Report 
Design 
Version 
Date 

Library Used 



area 

sm_arb-archl 
1999.01 

07/07/99 © 08:57:30 
CS80TYP_v5.0_t50 



Number Of Ports 
Number Of Cells 
Combinational Area 
Non Combinational Area 
Net Interconnect Area 
Total Area 



15 
198 

138673.00 
93497.00 
156394.50 
388564.50 



GLOBAL NETLIST REPORT 



o 


TOP-LEVEL 




sm_arb-archl 


o 


TECH. LIBRARY 




C580TYP_v5.0_t50 


0 


GATES AREA 




232170.00 


0 


NETS AREA 




156394.50 


0 


TOTAL NETLIST AREA 




388564.50 


0 


NB. EQUIVALENT GATES 




401.68 


0 


NB. FLIP-FLOPS 




18 


0 


NB. LATCHES 




0 


0 


NB. TRISTATES 




6 


0 


NB. BUFFERS 




0 



Printing Verilog Netlist 'toto.v'. 
Synthesis Done ! 
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Abstract 

This paper adresses the general problem of technology mapping 
of a Boolean network using a cells library. It presents an original 
solution to find directly all the matches of a given Boolean function / 
without resolving hashing collision or performing several boolean func- 
tion equivalences. The implicit matching is done through a ROBDD 
construction of / whose size cannot exceed 2 M /M where M is the 
max fan in of the cells library. This is relatively different from classical 
methods which can be time consuming because a minimum number 
of boolean comparisons is required to find all the matches. Here, the 
complexity of the problem is exported from the matching/scanning 
cells phase to the organization and construction of the cells library 
This approach has been implemented in C in an industrial tool which 
performs quick synthesis. Some results presented at the end demon- 
strate the important impact of the implicit pattern matching solution. 
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1 Introduction 

Given a Boolean network representing a multi-level combina- 
tional logic circuit and a cells library, the task of technology 
mapping is to bind nodes in the network to cells in the library [9]. 
Classical methods - either structural-based (tree matching/graph 
matching [9]) or functional-based (Boolean matching) [4] [7] - use 
a common global approach. A given function / of the Boolean 
network is identified and then compared against a set of cells 
{ci}i. The most popular approach to area minimization is to 
.reduce technology mapping to network covering and approximate 
this one by a sequence of tree coverings which can be performed 
optimally by dynamic programming [9] . However, this sequence 
of tree coverings can be time consuming if the library size is im- 
portant since each sub-tree of the network is compared to the tree 
representation of each cell In order to decrease this complexity, 
some have tried either to minimize the cost of the matching 
function and/or to minimized the number of comparisons. A 
classical solution to this consists to define signatures or keys for 
each cells in order to reduce the overall complexity. A complete 
survey has be done by [1] which adressed all these methods. For 
instance [12] introduced keys to hash the library elements in 
order to avoid time-consuming one-to-one function equivalence. 
Very recently, [8] introduces the canonical key R[f] identifying a 
NPN equivalence class. Despite the fact that the canonical repre- 
sentative R[f] can drastically reduce the number of comparisons, 
its size representation is 2 n (if n is the support size of /) and 
its computation can be costly even by using some properties. In 
the sequel, we present a new approach called Implicit Pattern 
Matching which, in comparison with the signature or hash key 
based methods , does not need to resolve hashing collision or to 
perform several boolean function equivalences which is usually 
computationally expensive. 

Chapter 2, gives quickly the formulation of the problem we refer 
to and conventions. Chapter 3 explained in details the Implicit 
Pattern Matching and represents the core of the paper. Chapter 
4 explains how the Implicit Pattern Matching can be embedded 
in a classical dynamic-programming based technology mapping. 
Chapter 5 gives experimental results and in chapter 6 a conclu- 
sion about futur works is given. 
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2 Problem Formulation 

We consider in the sequel Boolean functions that model a portion 
of the circuit and that are called target functions. We denote by 
/ a general target function. We call pattern function a combi- 
national function modeling a library cell c*, and we use g c% to 
represent the pattern function associated to cell We assume 
moreover that both target and pattern functions have a single 
output. 

To implement the Implicit Pattern Matching presented in the 
next chapter, we use the notion of Typed ROBDD that are 
explained for instance in [11]. 

The general problem adressed in this paper is then the following. 
Let / be a subcircuit's function and L = {ci,...,^} a target 
library. The goal is to know the subset of cells q which can 
match the function /. This means that this subset can be empty 
(no cell can match /), can have a single element (then only one 
cell can realize /) or several elements (then a 'best' cell can be 
selected among these elements). The problem will adress also 
configured cells which correspond to original cells where some 
inputs have been fixed to constant values and/ or bridged to other 
inputs. 

3 Implicit Pattern Matching 

The goal of the implicit pattern matching is to find all the pattern 
functions g Ci of cells which match a given function / without 
performing any library scan. To do so, we need to introduce 
several definitions to present a general formulation of the implicit 
pattern matching. 

3*1 Formulation 
Definition 3.1,0: 

A variable assignment from a Boolean vector X = {#1, ...,x n } to 
a Boolean vector Y = {yi, y n } is a bijection Ak between 
X and Y where for each index i, j we have yj = Ak(xi) and X{ 
= Aj- l ( yj ). We note Y = A k (X) (resp. X = A^ l {Y)) the 
assignment from X to Y (resp. from YtoX). We note A(X, Y) 
the set of all the possible assignments (Ak)k &om X to Y. 

Definition 3.1.1: 

Let / be a Boolean function and X the support of variables 
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of / (we note / by /(X)). The ROBDD built on the function 
f(Y = Ak(X)) with the order tt = {y x -< ... -< yi < ... -< y n ) is 
called Canonical Representant of / upon vector Y for variable 
assignment At and is noted T^Y~A k {X)U)^ 

Definition 3.1.2: 

The Canonical Representants Set of / upon a set of variables Y 
= {yi,...,y n }) noted CUSxrif)^ is the set of Canonical Repre- 
8entantn Y =A h {X)(f) for ail ^ G A(X,Y). 

Example: 

Let consider the function / = xl.x2 + #3. The CTZS X y(f) has 
three elements described in fig 1. ROBDD (1) corresponds to 
variable assignments (y x = Ai(x 1 ),y 2 = A(^2),y3 = A±(xz)) 
and (yi - A 2 {x 2 ),y2 = ^2(^1)^3 - ^2(^3))- ROBDD (2) cor- 
responds to variable assignments (yi = A^{xi),y2 = ^3(^3)^3 = 
^3(22)) and (y x - ^4(^2)^2 = ^4(^3)^3 = A^xi)). Fi- 
nally, ROBDD (3) corresponds to variable assignments (yi = 
As(x 3 ),y2 = A&(xi),y3 = and (yi - ^6^3),2/2 = 

^6(^2)^3 = Ag{x x )). 



(yl= 


Al{xl),y2 = Al(x2),y3 


= Al(x3) 




<y1 = A5(x3), y2 


= A5{xI), y3 = A5(x2) 


<yl= 


A2<x2>,y2 = A2(xl),y3 


= A2(x3) 




(yl = A6(x3), y2 


= A6(x2}, y3 = A6(xl) 




















1 j@ 








1 












© J 














(yi 


lU 

= A3(xl),y2 = A3(x3),y3 


= A3(x2) 








(yi 


= A4{x2), y2 = A4<x3), y3 


* A4(xl) 






CD 




(2) 




(3) 



Figure 1: Canonical Representants Set of / 



The size of CHSxy(f) is 3 and not !3 because the function 
has two symmetric variables which involves same ROBDDs for 
the assignments presented above. 

\ 

Proposition 3.1*3: \ 

If there exists a variable assignment A% from X to X 1 which 
makes a function f(X f ) functionaly equivalent to a function 
g(X) then for all variable assignment Ak G A(Jf' 5 Y), the ROBDD 
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lly = A k (X')(f') belongs to CKSxy{9) and conversely. We note: 

(3A h f'(X') = g(MX)) * (^k,^Y=A k (x>)(f) G CnS XY {g)) 

(1) 

Moreover, this involves that the Canonical Represeniants Set of 
/' and g are exactly the same, we note: 

(3A, f(X f ) = g(MX)) & (CRS x > Y (f) = CTZS XY (g)) (2) 

The previous proposition uses a fundamental property on ROB- 
DDs. This property specifies that if two ROBDDs are function- 
al equivalent then they have a same unique ROBDD represen- 
tant (cf. [3]). 

Let us choose a variable assignment A^ Since HY=A k (x , ){f) £ 
CnSxvig) then there exists a A\ such that ROBBD Y=Ak ( X >){f f ) 
= ROBBD Y =Ai{X){9)- Consequently the ordering {yi -< ... -< 
yi -< ... -< y n ) with assignments Y = Ak{X f ) or Y = Ai(X) 

r | gives the same ROBDD. This means that there exists a relation 

J3 between X f and X which verifies: 

J (Y = mx') = MX)) * (X' = A^{MX)) = MX) (3) 

W ^ A . = A -i {Al) (4) 

O Proposition 3.L3 has two interpretations corresponding to equa- 

J tions (1) and (2) . First of all, if the ROBDD of a function /' with 

s a variable assignment Ak is in a set CTZS XY {g) then /' and g are 

M functionaly equivalent with the assignment A defined by (4). 

f!l This means that the functional equivalence between a Boolean 

fU function /' and a pattern function g comes down to build a single 

ttf ROBDD of /' with a variable assignment Y = A k {X f ). The 

y second meaning is that if /' and g are two equivalent pattern 

functions then they have exactly the same Canonical Repre- 
seniants Set according to (2). This strong proposition is the 
basis of the Implicit Pattern Matching since we show here that 
a single ROBDD construction of a function /' can decide if /' is 
functionally equivalent to a set of pattern function g % having all 
the same Canonical Represeniants Set. 

This is not the case of classical approaches which generally need 
to perform at the end a Boolean equivalence (through isomor- 
phism between two Bdds [10], through Boolean unification be- \ 
tween two Bdds [5], through truth table equivalence [8], through 
string comparisons [13], ...) despite the fact that they used 
signatures and hash keys to reduce the number of function-to- 
function comparisons. 
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Definition 3.1.4: We define the Canonical Representants Set 
of a library cells L upon a vector Y, noted CRSy{L), by the 
following relation: 

cns Y (L) = [J cns XiY (9cJ (5) 

CiEL 

Proposition 3.1.5: 

A Boolean function f f {X r ) has matches in the library cells L 
if for any variable assignment Ak the ROBDD TZy-^x^if) 
belongs to CKSy(L). Then matching cells correspond to the set 
Cells{f{X f )) defined by (7). 

(/' has a match in L)^(\fAk,Tiy=A k (X T )(f f )^^^Y{L')) 

(6) 

Cdls(f'(x')) = {a e LIVA k ,n Y=Ak{x ,){j') e cnSxA^)} 

(7) 




Figure 2: General approach in Implicit Pattern Matching 

3.2 Reducing the Canonical Representant Set of a 
library 

We formulated a way to find all the matches of a given Boolean 
function / by just constructing a single ROBDD of /. The 
complexity of the problem is no more on the matching phase 
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but on the way to represent Canonical Representant Sets which 
can be huge for cells with a lot of inputs. The size of a Canonical 
Representants Set can be reduced if one can reduce the possible 
assignments allowed. By considering canonical signatures on 
each x t some possible assignments can be eliminated. Propo- 
sition 3.2.0 presents a way to do it. 

Proposition 3.2.0: 

Let S(x{) an integer which is a canonical signature of variable 
Xi in function f(X). Then C%S X y{f) can be restricted to 
ROBBDs 1lY=A k (X)(f) such that Ah verifies: 

Vm,n (y m -< y n ) (S(A^ l (y m )) <= S(A^(y n ))) (8) 

Ak is said compatible with respect to signature S if the equation 
above is verified and in the sequel such Ak will be referenced as 
a compatible assignment. 

The signature S(xi) used here corresponds to the number of 
minterms of the function f Xt , e.g. the cofactor of / with respect 
to variable ar*. This signature can be efficiently computed on a 
ROBDD representation of / and is linear in term of the number 
of Bdd nodes. In the previous example the following signatures 
are extracted: S(x{) = 3, S(x 2 ) = 3, Sfa) = 4. The set of possi- 
ble assignments for / are then (y 1 = Al(zi), J/2 = A\ (x 2 ), ^3 = A\{x$)) 
and (yi = ^2(^2)^2 = A 2 {xi),y^ = ^2(^3)) and the other as- 
signments are eliminated because there are not compatible with 
signature S. Then CTZSxv(f) bas one single element which is 
the ROBDD (1) of fig. 1. 

For instance, the different sizes of the CTZSxy(g Cl ) for all the 
cells Ci of the MCNC library Ub2.lib are presented in the table 
1. 



\ 



| Cells 


Size 


Cells 


Size 


Cells 


Size 


invlx 


1 


inv2x 


1 


inv4x 


1 


xor 


1 


xnor 


1 


nand2 


1 


nand3 


1 


nand4 


1 


nor2 


1 


nor3 


1 


nor4 


1 


aoi21 


1 


aoi31 


1 


aoi22 


3 


aoi32 


1 


aoi33 


10 


aoi211 


1 


aoi221 


3 


aoi222 


15 


oai21 


1 


oai31 


1 


oai22 


3 


oai32 


1 


oai33 


10 


oai211 


1 


oai221 


3 


oai222 


15 



Table 1: Size of the Canonical Representants Sets of Ub2.lib 

cells 
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We note that the size of C1ZS X y{9cJ is relatively reduced by 
using only compatible assignments with signature S 1 . By consid- 
ering only compatible assignments when constructing ROBDDs 
for both pattern functions and target functions we still respect all 
the propositions presented in section 3.1. Several others methods 
can be used to reduce drastically these sets but all must still 
respect the fundamental propositions enumerated in the previous 
section. 



3.3 Implementing the Implicit Pattern Matching 
3.3.1 The library representation 

In order to build an efficient library representation in memory it 
is usefull to store for each ROBDD TZa{9 Ci ) the corresponding 
cell Since this ROBDD may have been constructed from 
several cells, then it can refer to all of these cells. Fig 2. shows 
a possible implementation of some library cells from the MCNC 
library Ub2Aib. 



Each ROBDD root node is connected 10 the 
cells which have generated this node 




Figure 3: Implementation of the cells library with ROBDDs 

For each ROBDD root node there is a list of cells whose functions 
correspond to this ROBDD. For each pointed fun^ion c*, we 



2 For instance the size CHSxy{g Cl ) for c x - AOIxiX2.~x n is fn general C n = 
0]Cr=i Xt )/^ n *n?=r x j)- If for iliStance x n is less tnan tlie ot]tier x * therL applying 



compatibility according to signature S reduces the size of Cn to size of C n -i . 
size of aoi221 is size of aoi22. 



For instance 
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store Ai which allowed to get Y = A%(X) where X is the support 
of g Cl . For instance the root node (1) points on 3 cells Invlx, 
Inv2x and Invix. The root node (2) points on two cells AOI21 
and configured cell AOI22 (exactly: AOI22(al,a2,ML,l)). Since 
this information must be accessible at the Bdd node level, the 
Bdd node structure must be extended in order to store it. 

3.3.2 ROBDD construction of a target function /' 

According to Proposition 3.1.5, the ROBDD construction of a 
target function /' with a compatible assignment Ak can belong 
or not to CTZS(L), if L is the target library. Given a compatible 
assignment Ak and a function /' corresponding to the node (1) 
in figure 4, then /' — !(a.6 + c), a compatible assignment can be 
(yi - Ai{a),y 2 = Ai{b),yz = Ai{c)) or Y - Ai(X') where X ! = 
{a, 6, c}. Then the ROBDD TZ y=Al{X f ){f f ) has a root node which 
is exactly the node (2) of Fig. 3 or 4. Moreover, from this root 
node we inherit direclty and implicitly of all the cells which can 
realize the function /' since we can access all the cells from bdd 
node (2). Note that the cells found can realize the function or 
its complement because of the Types ROBDD representation 2 . 
Finally, to know the variable assignment between /' and a gate 
Ci we need to compose (as defined in equation (4)) A\ with the 
variable assignment Ai pointing on c$. 

In term of complexity, the implicit pattern matching for a func- 
tion / against a library cells L needs only to identify a compatible 
assignment variable Ak (e.g computing signature for each vari- 
able xi of the support of / which can be done by computing a Bdd 
of /) plus the construction of ROBDD Hy=A k (X)U)- Ir * the 
worst case, two ROBDDs constructions are necessary 
to find all the cells a which match / but one ROBDD 
construction can be enough because signatures can be also 
computed on Tly=Aj{X)U) itsel f where for each i, yi — Ai(xi). 
If by "chance" Ai is compatible with S then one construction 
is enough. Practically this is the case when function has a lot 
of symmetric variables (ex: Nand2, Nand3, ... needs only 1 
ROBDD construction). If the max fan in of the library L is n, 
then the two ROBDDs can have a maximum size of 2 n /n bdd 
nodes [6]. 



2 Generally speaking, NPN function solutions are treated in this way: Output Inversion 
with typed ROBDD structure^ Input permutation with Canonical Representant Set, Input 
inversions with double-inverters insertions explained later on. 
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Figure 4: Implicit pattern matching on a Boolean tree 

In other matching algorithms, several objects must be con- 
structed to perform the matching. In [10], ROBDD for the 
pattern function and for each target function (called cluster 
function) must be built. Moreover ROBDD isomorphisms are 
performed to isolate a match which is also time consuming. In [5] 
Boolean unification is used in order to unify two boolean function 
/ and g by finding their mgu (Most general unifier). Again this is 
done for all the pattern functions and the mgu computation can 
be costly since its performs a Shannon decomposition. Methods 
with signatures or hash keys, despite eliminating a lot of pattern 
functions, still need to perform a final functional matching in 
order to resolve the problem of aliasing. This problem corre- 
sponds to the situation where a bucket of elements have the same 
keys but can correspond to different functionalities. It is then 
necessary to functionally chec these elements in order to extract 
the correct ones. Coupling the implicit pattern matching and 
the Signature computation needs in the worst case two ROBDD 
constructions. 



\ 
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4 Technology mapping with Implicit Pat- 
tern Matching 

The technology mapping described here use a classical dynamic 
programming approach starting recursively from the root node 
of the Boolean tree down to the leaves which can be either pri- 
mary inputs or sequential element outputs. Thus, the optimal 
mapping at node n is defined by the equation below: 

MapOpt(n) = MIN c%eL {Cost{ci)+ ]T) (MapOptirij))) 

n 3 €Fanin(Cov(cT, )) 

(9) 

where c* are the cells matching at node n, Cost(c t ) is the cost of 
the cell Cj, Fanin(Cov(ci)) the inputs of the cover of node n by 
cell c 2 . In the sequel, we present a general algorithm Map Opt Area 
and MapBestCellArea for Area optimization which mixed the Im- 
plicit Pattern Matching procedure and the dynamic-programming 
based algorithm. The algorithm is called on a node 'N' of the 
Boolean network and the best area information is stored on this 
node through the field 'Get Node Area'. 



MapOptArea (N) 
begin 

/* Node tree is a constant or a primary variable. */ 
if (Off = CONSTANT) or (N = VARIABLE) ) 
{ 

SetNodeArea (N, 0); 
return; 

} 

if (GetNodeArea (H) <> INFINITE) /* Already computed. */ 

return ; 

/* First support is the list of the Sons of >N*. */ 
Support <- Sons (N) ; 

MapBestCellArea (H, Support, 0); 

end 



MapBestCellArea (N, Support, Limit) 
begin 

/* Peforming recursively support expansion for index 'i* >= 'Limit' */ 
for (i<-0; i<Size (Support) ; i++) 
{ 

SonI <- Support [i] ; \^ 
if ((i >= Limit) and 

(N <> CONSTANTE) and \ 

(N <> VARIABLE) ) 

{ 

/* 'Support* is expansed into 'NewSupport* where 'SonI 3 */ 
/* is replaced by its sons. */ 
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NewSupport <- Support{SonI <- Sons (Sonl)}; 
if (Size (NewSupport) > MaxFanln) 
continue ; 

MapBestCellArea (Sonl, NewSupport, i) ; 

} 

> 

/* Each node 'Sonl* assigned to a library input variable. */ 
for (i<-0; i<Size (Support) ; i++) 

Assign (Sonl, Library Input [i] ) ; 

/* RDBDD construction corresponding to the Implicit Pattern Matching. */ 

/* Leaves during ROBDD construction corresponds to previously assigned*/ 

. /* Nodes 1 Sonl 1 . */ 
bdd <- build.robdd (N) ; 

if (Cells (bdd)) 
{ 

Area <- BestCellArea (Cells (bdd)); /* Extract the best area among*/ 

/* the Cells. */ 

for (i<-0; i<Size (Support) ; i++) 

■C 

Sonl <- Support [i]; 

/* Calling recursively the best area mapping. */ 
MapOptArea (Sonl); 

Area <- Area + GetJtfodeArea (Sonl) ; 

/* if actually there is already a better solution. */ 
if (Area >= GetNodeArea (N) ) 
break; 

} 

if (Area < GetNodeArea (N) ) 
{ 

SetKodeArea (N, Area); 

> 

} 

end 
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The implicit 'pattern matching has been implemented in an in- 
dustrial tool (internal name MAPIT) which intends to do quick 
and efficient synthesis. This tool, including the implicit pattern 
matching engine and the BDD package, has been written in C 
by the author. Experimental tests have been performed on a HP 
735/125 in order to do direct comparisons with [8]. These results 
give the optimum solution in term of Area when mapping MCNC 
benchmarks with library KbS.Iib. Indeed, for each node all the 
matching cells are identified by the implicit pattern matching 
procedure and then a recursive dynamic programming approach 
is used to get the optimum. Two options axe run which are 
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referenced as MAPIT D and MAPIT I. MAPIT D starts from 
an original netlist where single local variables are collapsed and 
where the general Boolean tree is transformed into a classical 
2-AND/INV tree. MAPIT I starts almost from the same 2- 
AND/INV Boolean tree except that for each edge between two 
nodes a double inverter INV is inserted. This insertion is usefull 
to capture input polarities. This solution must be necessarely 
better than MAPIT D because the starting Boolean tree de- 
scription has been refined. Table 2 gives the number of target 
functions / considered when invoking the algorithm presented 
previously for both MAPIT D and MAPIT I, the number of 
constructed ROBDDs and the number of matching cells. 



Benchs 


MAPIT D 


MAPIT I 


#f 


#ROBDDs 


#Cells 


#f 


#ROBDDs 


#Cells 


cl355 


24726 


45856 


3858 


1801232 


3560718 


48708 


C1908 


16590 


30356 


2995 


630820 


1239353 


24431 


c2670 


39121 


73949 


4619 


1784184 


3534214 


37003 


c3540 


71128 


135692 


7210 


4769306 


9470356 


78933 


c499 


10878 


19640 ^ 


2314 


189648 


360430 


21220 


c5315 


93290 


176712 


10810 


3747627 


7413442 


92319 


C6288 


48013 


84833 


12183 


491917 


892960 


98901 


c7552 


124219 


235682 


13765 


4053312 


8006523 


113591 


alu4 


87426 


170465 


4895 


4317346 


8595754 


46811 


apex6 


40550 


77207 


4332 


1807701 


3581550 


40793 


des 


314324 


602009 


28024 


15087856 


29926765 


268264 


frg2 


90438 


172929 


8523 


3114734 


6171145 


64652 


k2 


95607 


179658 


11616 


6286366 


12442418 


131265 


pair 


110526 


212169 


9818 


6163316 


12240985 


104682 


rot 


36670 


70068 


3574 


1265059 


2504463 


30089 


too_large 


87793 


170341 


5600 


3248326 


6451654 


51005 


vda 


48501 


91271 


5732 


2306731 


4558462 


55001 


x3 


54452 


103761 


5646 


1655113 


3273201 


42650 



Table 2: Complexity study of Implicit Patterm Matching on C* 

examples. 



In Table 2, the number of ROBDD constructions is about 1.9 
times the numbers of target functions which is in practice the 
general cost to perform all the matches. Moreover the number 
of target functions increased a lot between option MAPIT D 
and MAPIT / but then the number of cells founds is much more 
important which leads to a larger exploration space. 
Table 3 presents results comparisons between MAPIT and those 
published by [8] which includes results on SIS 1.3 [2]. Note 
that all area values have been scaled down by 464 (the greatest 
common divisor) for a sake of clearness. The MAPIT D option 
clearly shows an important speed-up in term of CPU time and 
area improvement compared to TEMPLATE and SIS 1.3. The 
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speed-up is about 38 times faster (resp. 114 times) than SIS 

I. 3 (resp. TEMPLATE) and the gain in term of Area is about 

II. 1 % (resp. 3%). Regarding MAPIT / option the cpu-time is 
the same as SIS 1.3, and 3 times faster than TEMPLATE. The 
area gain is about 19.2 % better than SIS 1,3 and 11.1 % better 
than TEMPLATE. Note that sometimes MAPIT I can drasti- 
cally improved results compared to MAPIT D such as example 
c6288. 



Benchs 


TEMPLATE 


SIS 1.3 


MAPIT D 


MAPIT I 


Area 


CPU 


Area 


CPU 


Area 


CPU 


Area 


CPU 


cl355 


870 


270 


1748 


48 


826 


1.7 


826 


170.3 


C1908 


1330 


322 


1640 


62 


1183 


1.3 


1134 


53.1 


C2670 


1965 


687 


2145 


116 


1841 


3.1 


1840 


155.3 


c3540 


2808 


942 


3020 


141 


2833 


6.1 


2671 


428.0 


c499 


870 


228 


1172 


39 


826 


0.7 


826 


12.7 


C5315 


4420 


1864 


4546 


379 


4482 


10.1 


4216 


325.0 


C6288 


6264 


186 


7910 


286 


6877 


9.2 


5486 


32.1 


C7552 


5631 


1697 


6917 


573 


5518 


18.9 


5264 


368.4 


alu4 


1710 


743 


1753 


80 


1748 


7.2 


1675 


404.6 


apex6 


1637 


466 


1623 


67 


1664 


3-4 


1580 


164.6 


des 


11909 


4388 


12142 


2833 


10628 


55.8 


9542 


1407.9 


frg2 


3529 


1144 


3235 


236 


3177 


7.4 


2913 


268.7 


k2 


5902 


1590 


6247 


534 


5316 


10.5 


4795 


526.5 


pair 


3601 


1090 


3891 


198 


3809 


10.2 


3664 


568.3 


rot 


1594 


449 


1540 


71 


1621 


2.9 


1506 


114.7 


tooJarge 


2250 


904 


2172 


183 


1926 


6.8 


1855 


293.5 


vda 


2818 


691 


3123 


154 


2531 


3.6 


2325 


187.3 


x3 


2376 


751 


2100 


214 


2295 


4.2 


2021 


140.0 


TOTAL 


61484 


18412 


66924 


6214 


59101 


163.1 


54049 


5621.0 


GAIN/SIS 


8.1% 


-3x 






11.1% 


+38x 


19.2% 


4-1. lx 



Table 3: Results for area optimization. 



The results given by MAPIT / are J a priori' the optimum but it 
is not the case for circuit pair since TEMPLATE is better. This 
must come from the fact that the original Boolean networks are 
probably not the same. 

Table 4 represents the two options where both original gates and 
configured gates axe used in MAPIT I. In the configured case, 
results are not much improved because with this library most of 
the configured cells can be built with original library cells with 
less cost. Note that the increase of the number of considered 
cells between the two cases has almost no impact on the CPU 
time. Only the time to iuild the library is a little bit longer (1 
s. vs. 12 s.). \ 
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Benchs 


Direct Cells 


Configured Cells 


Area 


CPU 


Area 


CPU 


cl355 


826 


170.3 


822 


172.3 


C1908 


1134 


53.1 


1130 


54.0 


C2670 


1840 


155.3 


1831 


155.6 


C3540 


2671 


428.0 


2651 


431.3 


c499 


826 


12.7 


822 


12.7 


c5315 


4216 


325.0 


4210 


328.1 


c6288 


5486 


32.1 


5468 


32.1 


c7552 


5264 


368.4 


5228 


375.1 


alu4 


1675 


404.6 


1675 


406.8 


apex6 


1580 


164.6 


1576 


165.2 


des 


9542 


1407.9 


9511 


1421.1 


frg2 


2913 


268.7 


2901 


269.2 


k2 


4795 


526.5 


4789 


529.9 


pair 


3664 


568.3 


3655 


571.4 


rot 


1506 


114.7 


1500 


115.0 


tooJarge 


1855 


293.5 


1832 


294.5 


vda 


2325 


187.3 


2323 


188.1 


x3 


2021 


140.0 


2010 


140.9 


TOTAL 


54049 


5621.0 


53934 


5663.5 


GAIN 






0.2% 


-hl.Ox 



Table 4: Results with Direct Cells and Configured Cells. 



6 Conclusion and Future Work 

An original method as been presented where we have shown that 
a single ROBDD construction of a given function / can 
be sufficient to solve the complete matching problem 
between / and a set of cells. Implicit Pattern Matching can 
be considered as a method defining a perfect key which allows 
to access all the matching cells at a time. The resolution is 
done by using the internal BDD unique table which is known to 
be very efficient. The key concept is to both construct BDDs 
of cell functionalities and BDDs of subject graphs (during the 
technology mapping) upon the same set of variables and 
not separately like in classical methods. Experimental results 
showed also that the implementation of this approach can bring 
important speed-up (even by inserting double inverters in the 
original Boolean network) and exhibited new optimum for a 
well known set of benchmarks. Because of the speed of this 
fundamental approach, we can easily embeded it in a classical 
dynamic programming algorithm which exhaustively looks for 
the best solution. Moreover, we have presented an efficient way 
to represent cell functionalities through a single network of BDDs 
and by representing also naturally the configured cells. 
In the futur, a general improvement of the method must consist 
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to reduce the Canonical representants Sets of the cells functions 
- as we have done in this paper by introducing the notion of com- 
patible variable assignments with a signature S - in order to han- 
dle bigger cells. Practically, cells with more than 10 inputs can 
lead to huge Canonical representants Sets and thus the Canonical 
representant Set of the library may not be able to be completly 
generated. These improvements must take into account the work 
done by [4] but without touching the main property of Implicit 
Pattern Matching which behaves like a perfect key. 
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